Форум: "Начинающим";
Текущий архив: 2007.12.09;
Скачать: [xml.tar.bz2];
Внизкак узнать цвет в заданном пикселе канвы Найти похожие ветки
← →
San1 (2007-11-14 13:13) [0]есть следующий код:
Image2.Canvas.Brush.Color:=clWhite;
Image2.Canvas.Brush.Style:=bsSolid;
Image2.Canvas.FillRect(ClientRect);
image2.Canvas.Pen.Width:=1;
image2.Canvas.Pen.Style:=psSolid;
image2.Canvas.Pen.Color:=clblue;
.......... рисую
for k:=0 to Image2.Height do begin
for z:=0 to Image2.Width do begin
if Image2.Canvas.Pixels[z,k]=clBlue then
begin
....................
end;
end;
end;
на рисунке присутствуют пиксели голубого цвета, но этот код их почему-то не определяет.
Подскажите пожалуйста, в чем дело.
← →
antonn © (2007-11-14 13:15) [1]
for k:=0 to Image2.Height-1 do begin
for z:=0 to Image2.Width-1 do begin
if Image2.Canvas.Pixels[z,k]=clBlue then
begin
....................
end;
end;
end;
это во превых, во вторых изображение, загруженное в TImage хранится в Image.picture.bitmap, следовательно обращаться надо к Image2.picture.bitmap.canvas
← →
WFS © (2007-11-14 13:16) [2]Напиши так:
if GetBValue(Image2.Canvas.Pixels[z,k])=255 then...
← →
Ega23 © (2007-11-14 13:16) [3]
> на рисунке присутствуют пиксели голубого цвета
TColor - 16777216 цветов. И только один из них - clBlue.
← →
San1 (2007-11-14 14:46) [4]Спасибо, Заработало!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.12.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.038 c