Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Gray Delphi

Hi!
Если помните, поднималась тема, как получить 256 градаций серого в
Дельфе...
Я разобрался, если хотите - могу рассказать :-)
-=BMaN=-
mailto:Boris_Kolupa***@u*****.net
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Wed, 14 Jan 2004 15:36:50 +0200 (#54421)

 

Ответы:

Hello Boris!

Wednesday, January 14, 2004, 3:36:50 PM, you wrote:

Конечно хотим. А как же? Узнал сам -- поделись.

Ответить   Valery Wed, 14 Jan 2004 19:14:59 +0200 (#54701)

 

Hi!

Вобщем, тут был ответ на мое письмо Help#1 от Малышева Георгия
<individ***@y*****.ru>

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
c1:Tcolor;
so:byte;
begin
image1.Picture.LoadFromFile(op1.FileName);
for i:= 0 to image1.Picture.Bitmap.Width do
for j:= 0 to image1.Picture.Bitmap.Height do
begin
c1:=image1.Picture.Bitmap.Canvas.Pixels[i,j];
so:=(getrValue(c1)+getgValue(c1)+getbValue(c1)) div 3;

Так вот, это so и есть цвет в 256-градациях серого...
А рисовать можно как в примере, а если нужно, чтоб
image1.Picture.Bitmap.Canvas.Pixels[i,j] было меньше 256, то тогда:
image1.Picture.Bitmap.Canvas.Pixels[i,j]:=rgb(getrValue(so),getgValue(so),getbValue(so));
Вот так вот!!!
P.s. Огромное спасибо Георгию за помощь!!!
-=BorMaN=-
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Wed, 14 Jan 2004 22:37:07 +0200 (#54783)