Как определить цвет пикселя по курсором? - Delphi
procedure TForm1.
Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y:
Integer);
var
Color : TColor;
R,G,B : byte;
begin
Color := Form1.Canvas.Pixels[X, Y];
R :=
GetRValue(Color);
G :=
GetGValue(Color);
B := GetBValue(Color);
Form1.
Caption:=
IntToStr(R) +
IntToStr(G) +
IntToStr(B);
If Form1.Caption='24621219' Then
Form1.Hint:='Цвет найден'
else Form1.Hint:='';
end;
Возврат к списку
