View Full Version : تشخیص رنگ یک پیکسل از فرم
hadi azad
پنج شنبه 29 مرداد 1383, 12:00 عصر
با سلام
چگونه می توانم رنگ یک پیکسل از فرم یا image را تشخیص بدهم
Sohrab_Tapar
پنج شنبه 29 مرداد 1383, 12:51 عصر
Canvas.Pixels[i,j]
Delphi-Clinic
پنج شنبه 29 مرداد 1383, 12:53 عصر
function DesktopColor(const X, Y: Integer): TColor;
var
c: TCanvas;
begin
c := TCanvas.Create;
try
c.Handle := GetWindowDC(GetDesktopWindow);
Result := GetPixel(c.Handle, X, Y);
finally
c.Free;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
Pos: TPoint;
begin
GetCursorPos(Pos);
Panel1.Color := DesktopColor(Pos.X, Pos.Y);
end;
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.