sguruapp@gmail.com
facebook vk instagram Одноклассники youtube

Как определить цвет пикселя по курсором? - 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;

Возврат к списку

обучись профессии будущего

Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.

обучись профессии будущего