|
#1
|
|||
|
|||
Нужна помощь!
Помогите пожалуйста решить задачку.
Напишите обработчик события OnMouseMove компонента Image, который отобра-жает с помощью первого компонента Label координаты мыши, а с помощью второго компонента Label — цвет каждой составляющей (красной, синей, зелёной) пикселя в текущих координатах. |
#2
|
|||
|
|||
---OnMouseMove---
var r,g,b:integer; begin label1.caption:='x= '+inttostr(x)+' y= '+inttostr(y); r:=GetRValue(image.canvas.pixels[x,y]); g:=GetGValue(image.canvas.pixels[x,y]); b:=GetBValue(image.canvas.pixels[x,y]); label2.caption:='r= '+inttostr(r)+' g= '+inttostr(g)+' b= '+inttostr(b); |