Einzelnen Beitrag anzeigen

taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.990 Beiträge
 
Delphi 7 Professional
 
#7

Re: RGB-Farbwert in TColor konvertieren

  Alt 13. Nov 2007, 18:41
Ahh, zu früh gefreut...

Auf die Gefahr hin, dass ich jetzt Prügel bekomme (ich denke heute sollte ich lieber den PC ausschalten):

API von RichEdit liefert den Farbwert als COLORREF vom Typ DWORD zurück; im DWord ist die Farbe in folgender Form enthalten 0x00BBGGRR.

Wie bekomme ich nun das DWord in untenstehende Funktion????????

Delphi-Quellcode:
function RGB2TColor(R,G,B:Byte):Integer;
begin
  Result := R or (G shl 8) or (B shl 16);
end;
Sorry, ist heute nicht mein Tag!
Gruß Ralph
Ralph
  Mit Zitat antworten Zitat