Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Aviator,
30. Okt 2013
Sorry for double posting, but I forgot the sample picture.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Aviator,
30. Okt 2013
Maybe you could do it like this:
procedure TMainFrm.MainVSTDrawText(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
Column: TColumnIndex; const Text: string; const CellRect: TRect; var DefaultDraw: Boolean);
var
i, TotalWidth : Integer;
begin
DefaultDraw := False;
if Node.Index = 1 then begin
TotalWidth := 0;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Aviator,
30. Okt 2013
Maybe you could use the OnDrawText Event of the VST. And I think there you could change the Canvas.Font.Color of the TargetCanvas for each letter.