سوال: ببخشید من تو دلفی می خوام رنگ یک مکان خاص رو بدونم [بایگانی]

View Full Version : سوال: ببخشید من تو دلفی می خوام رنگ یک مکان خاص رو بدونم

kamran_14

سه شنبه 02 فروردین 1390, 14:59 عصر

سلام
ببخشید من تو دلفی می خوام رنگ یک مکان خاص رو بدونم
چون شکل های من مستطیل نیستند نمی تونم براشون تشخیص برخورد بنویسم
به همین خاطر می خوام از روی رنگ پیکسل برخورد را تشخیص بدم
می شه کمکم کنید
ممنون

Mehdi_FT

سه شنبه 02 فروردین 1390, 16:40 عصر

مثال زیر با حرکت ماوس بر روی تصویر رنگ فرم را با توجه به رنگ زیر ماوس تغییر می دهد.

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form1.Color := Image1.Canvas.Pixels[x, y];
end;