|
Registriert seit: 1. Feb 2003
1.340 Beiträge
FreePascal / Lazarus
|
Re: Newby - API ansteuern - und vorallem welche?
19. Dez 2004, 21:18
Delphi-Quellcode:
var
dc : hdc;
rgb: COLORREF; // LONGWORD;
begin
dc := GetDc(0);
RGB := getpixel( dc,X,Y);
releasedc(0, dc);
label4.Caption := inttostr(getRvalue( rgb));
label5.Caption := inttostr(getGvalue( rgb));
label6.Caption := inttostr(getBvalue( rgb));
Das echte Leben ist was für Leute...
... die im Internet keine Freunde finden!
|