Entwickler-Ecke

Windows API - Pixelfarbe unter der Maus abfragen


Rool - Do 17.05.07 15:05
Titel: Pixelfarbe unter der Maus abfragen
Ich möchte ein Pipettenwerkzeug in meine Anwendung einbauen, mit der ich alle Farben (nicht nur Programmintern) unter der Maus abfragen kann, welche Befehle werden dafür verwendet?


Leuchtturm - Do 17.05.07 15:12


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
var
  DC: HDC;
  pt: TPoint;
  color: TColor;
begin
  GetCursorPos(pt);
  color := GetPixel(DC, pt.x, pt.y);
end;


Chryzler - Do 17.05.07 15:23


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
var
  DC: HDC;
  pt: TPoint;
  color: TColor;
begin
  GetCursorPos(pt);
  DC := GetWindowDC(GetDesktopWindow);
  color := GetPixel(DC, pt.x, pt.y);
end;