Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
24. Jan 2007
Die Funktion muss man natürlich selber schreiben.
function ExtractTextAndColor(const s:string; var text:string):TColor;
var
p : Integer;
begin
p := Pos('|',s);
if p = 0 then // kein Delimter gefunden
begin
text := s;
Result := clGrayText; // default Farbe
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
24. Jan 2007
Es gibt 2 Techniken; ich zeig dir mal die einfachere:
1.) jeder Texteintrag enthält zusätzlich noch die Farbe (getrennt durch das | Zeichen)
Beispiel:
Bayern|$00FFFFFF
Hessen|$00F000FF
Hamburg|$00808000
2.) es gibt 2 Funktionen, mit denen man den Nutztext oder die Farbe auslesen kann
3.) im Event OnDrawItem wenn die Funktionen von 2.) benutzt, um Nutztext und Farbcode zu trennen.
Es wird...