Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
Delphi 12 Athens
|
AW: Grauton Kalkulation
27. Mär 2012, 16:49
Ich bin nicht gerade fit in C/C++, aber das hier müsste grob stimmen.
Delphi-Quellcode:
type
ptPixels = ^UINT;
function GetDibR(drgb: DWORD): DWORD;
begin
Result := (drgb and $00FF0000) shr 16;
end;
function GetDibG(drgb: DWORD): DWORD;
begin
Result := (drgb and $0000FF00) shr 8;
end;
function GetDibB(drgb: DWORD): DWORD;
begin
Result := drgb and $000000FF;
end;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|