Напишите обработчик события OnMouseMove компонента Image, который отображает с помощью первого компонента Label координаты мыши, а с помощью второго компонента Label — цвет каждой составляющей — Delphi(Делфи)

Создайте приложение, на форму которого помещены компоненты: Label — 2 шт. Image — 1 шт. Напишите обработчик события OnMouseMove компонента Image, который отображает с помощью первого компонента Label координаты мыши, а с помощью второго компонента Label — цвет каждой составляющей (красной, синей, зелёной) пикселя в текущих координатах.

var
Form1: TForm1;
color:Tcolor;
n,m,k:integer;
implementation
{$R *.dfm}
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
If ssLeft in shift then
begin
Label1.Caption:=inttostr(x)+','+inttostr(y);
Color:=Image1.Canvas.Pixels[x,y];
Label2.Caption:= 'R' + IntToStr ( GetRValue ( ColorToRGB ( Image1.Canvas. Pixels[x,y] ) ) ) + 'G' + IntToStr (GetGValue ( ColorToRGB (Image1.Canvas. Pixels[x,y]) ) ) + 'B' + IntToStr (GetBValue (ColorToRGB (Image1.Canvas. Pixels[x,y] ) ) );
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('6.bmp');
end;
end. 

Leave a Comment