rzMagnifier - Bildschirmlupe+Colorpicker, Version 1.3

[juergen]

Hallo taaktaak,

wie wird der transparente Farbton für das Auswahlquadrat umgesetzt?
Ist das eine Form mit entsprechendem Alphablend.Value und liegt diese über dem FScanImage?

Ich ermittel einen Farbwert folgendermaßen:

Delphi-Quellcode:

...
{ Private-Deklarationen }
  Farbwert: hDC;
...

  Farbwert:= GetDC(0); //DesktopColor
...

Var myColorValue : TColor; 
myColorValue := GetPixel(Farbwert, Pos.X, Pos.Y);
...

Das funktioniert ganz nach dem Motto -> WYSIWYG (auch unter Vista)

//EDIT: Code-Beispiel angefügt...