[amdelphi]

Распознать цвет пиксела картинки в Image
Пишу:

Код:

c:=Image1.Picture.Bitmap.Canvas.Pixels[10,10];

Когда выполняеться эта команда Image изчезает с формы. В переменную "с" записываеться "-1"

[movnet]

Сообщение от amdelphi

Распознать цвет пиксела картинки в Image
Пишу:

Код:

c:=Image1.Picture.Bitmap.Canvas.Pixels[10,10];

Когда выполняеться эта команда Image изчезает с формы. В переменную "с" записываеться "-1"

Так действительно должно работать.

Попробовал. работает без проблем.

[NumLock]

amdelphi, а в Image1 не jpeg случаем? а то если там не Bitmap, то при Image1.Picture.Bitmap.Canvas.Pixels[10,10] картинка исчезнет.

[amdelphi]

Сообщение от NumLock

amdelphi, а в Image1 не jpeg случаем? а то если там не Bitmap, то при Image1.Picture.Bitmap.Canvas.Pixels[10,10] картинка исчезнет.

Да действительно jpeg....получаеться что с ним это не работает.
Спасибо!!!

[GriLab]

А так не сойдет? Должно работать:

Код:

Image1.Canvas.Pixels[10, 10]

[NumLock]

Сообщение от GriLab

А так не сойдет? Должно работать:

Код:

Image1.Canvas.Pixels[10, 10]

нет, не должно:
TImage = class(TGraphicControl)
public
property Canvas: TCanvas read GetCanvas;

function TImage.GetCanvas: TCanvas;
var
Bitmap: TBitmap;
begin
if Picture.Graphic = nil then
begin
Bitmap := TBitmap.Create;
try
Bitmap.Width := Width;
Bitmap.Height := Height;
Picture.Graphic := Bitmap;
finally
Bitmap.Free;
end;
end;
if Picture.Graphic is TBitmap then
Result := TBitmap(Picture.Graphic).Canvas
else
raise EInvalidOperation.Create(SImageCanvasNeedsBitmap);
end;
вот поэтому "Can only modify an image if it contains a bitmap" и получим для jpeg