Einzelnen Beitrag anzeigen

mimi

Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
 
FreePascal / Lazarus
 
#1

clRed wird falsch in Hex umgewandelt, warum ?

  Alt 21. Jan 2005, 14:03
Hallo,
ich brauche den hex wert von clRed, dazu habe ich mir folgene funktion geschrieben:
Delphi-Quellcode:
procedure TPW.DrawColorText(Text:String;x,y:Integer;tc:TColor);
var
  s:String;
begin
  s:='#$'+IntToHex(ColorToRgb(tc),9);
  PowerFont1.Scale:= 256;
  PowerFont1.Style:= [fsBold, fsItalic];
  PowerFont1.TextOut(s+ Text, x, y, $3FAFFF);
end;
das #$ muss davor weil ich PowerDraw nutze...
und jetzt bekomme ich falsche farbwerte z.b. bei rot:
0000000FF
rot währe ja
FF00000FF
und bei den andren farben ist das änlich.... warum ???
Michael Springwald
MFG
Michael Springwald,
Bitte nur Deutsche Links angeben Danke (benutzte überwiegend Lazarus)
  Mit Zitat antworten Zitat