Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.229 Beiträge
 
Delphi 12 Athens
 
#20

Re: BBCode-Parser für TRichEdit

  Alt 21. Apr 2010, 10:52
Wenn, dann bitte diese Funktion verwenden.
Delphi-Quellcode:
function MyStringToColor(const S: string): TColor;
var
  LColor: LongInt;
begin
  if IdentToColor('cl' + S, LColor) or IdentToColor(S, LColor) then
    Result := TColor(LColor)
  else
    Result := TColor(StrToInt(S));
end;
Denn sonst kann man nur noch die Farbkonstanten und keine direkten Farbwerte (aka [color=$0000FF] ) mehr verwenden.
$2B or not $2B
  Mit Zitat antworten Zitat