Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Brainstalker,
4. Mär 2008
Ich hab jetzt noch einige Tests gemacht, aber ich kam immer noch nicht zum gewünschten Effekt. Sobald einmal TextOut aufgerufen wurde kann ich die Schriftfarbe nicht mehr ändern.
Das ist jetzt mein Code:procedure TMainFrm.SkillBoxCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
aIconRect, aTextRect:TRect;
ItemCaption:...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Brainstalker,
2. Mär 2008
Also ich möchte in meiner ListView Text in zwei Zeilen schreiben. Wobei die zweite Zeile eine andere Farbe haben soll.
procedure TMainFrm.SkillBoxCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
aIconRect, aTextRect:TRect;
ItemCaption: string;
ItemType: string;
begin
DefaultDraw := False;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Brainstalker,
2. Mär 2008
Hi,
ich hab gerade ein Problem. Ich will mit Textout Farbigen Text in einem TListView ausgeben.
Canvas.TextOut(aTextRect.Left, aTextRect.Top, ItemCaption);
if ItemType = 'Passiv' then
Canvas.Font.Color := clBlue
else
Canvas.Font.Color := clRed;