01-10-2024, Saat: 13:02
(Son Düzenleme: 01-10-2024, Saat: 13:13, Düzenleyen: frmman.
Sebep: imla
)
Image1.Canvas.Pixels(x,y); ile istediğiniz pixelin rengini alabilirsiniz.
Dikkat: Canvas.pixel sadece BMP image formatında işe yarıyor. Diğer formatlar için (jpg, png vb.) bu işlemden önce resmin bitmape dönüştürülmesi gerekir.
$ ifadesi sadece memoya yazdırılırken eklendi. Renk bilgisi için Tcolor veya Uint32 tipinde bir değişken kullanabilirsiniz.
Dikkat: Canvas.pixel sadece BMP image formatında işe yarıyor. Diğer formatlar için (jpg, png vb.) bu işlemden önce resmin bitmape dönüştürülmesi gerekir.
$ ifadesi sadece memoya yazdırılırken eklendi. Renk bilgisi için Tcolor veya Uint32 tipinde bir değişken kullanabilirsiniz.
procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
renk: Tcolor;
begin
renk := image1.Canvas.Pixels[X, Y];
memo1.Lines.Add('$'+inttohex(renk));
end;

