Pixelfarbe unter der Maus abfragen

Rool · Beiträge: 211

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?

_________________
MFG Rool

Leuchtturm · Verfasst: Do 17.05.07 16:12

markieren

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;

_________________
Ich bin dafür verantwortlich was ich sage - nicht dafür was du verstehst.

Chryzler · Beiträge: 1097 Erhaltene Danke: 2

markieren

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;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme