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;
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;