Dotaz: Delphi-pristup k pixelu

[Lojzan]

Dobrý den, mam dve procedury, ktere spolecne dokazi zobrazit HEX kod barvy urciteho pixelu. Vim co delaji, ale nerozumim kodu. Predpokladam, ze pracuji bez ohledu na kurzor. Příklad: Mam bilou plochu a na pozici 50x65 mam kurzor. Barva tohoto bodu je cerna (okraj sipecky mysi), ale procedury onen pixel vyhodnoti jako bily ('nevidi' kurzor). Potreboval bych, aby pracovaly i s kurzorem.

//Konverze barvy do HEX kodu function ColorToHTMLHex(Color: TColor): String; begin Result := IntToHex(ColorToRGB(Color), 6); Result := Copy(Result, 5, 2) + Copy(Result, 3, 2) + Copy(Result, 1, 2); end;

//Ziskani pixelu pro urceni barvy function DesktopColor(const x,y: integer): TColor; var c:TCanvas; begin c:=TCanvas.create; c.handle:=GetWindowDC(GetDesktopWindow); result:=getpixel(c.handle,x,y); c.free; end;

Odpovědi

[Lojzan]

Omlouvam se za format kodu.

//Konverze barvy do HEX kodu

function ColorToHTMLHex(Color: TColor): String;

begin

Result := IntToHex(ColorToRGB(Color), 6);

Result := Copy(Result, 5, 2) + Copy(Result, 3, 2) + Copy(Result, 1, 2);

end;

//Ziskani pixelu pro urceni barvy

function DesktopColor(const x,y: integer): TColor;

var

c:TCanvas;

begin

c:=TCanvas.create;

c.handle:=GetWindowDC(GetDesktopWindow);

result:=getpixel(c.handle,x,y);

c.free;

end;