Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hawkeye219,
27. Feb 2010
Thomas, ich habe den Code aus meinem vorigen Beitrag ein wenig umgebaut und erweitert:
const
LINKCOLUMN = 2;
procedure TDemoForm.TreeDrawText(Sender: TBaseVirtualTree; TargetCanvas: TCanvas;
Node: PVirtualNode; Column: TColumnIndex; const Text: WideString; const CellRect: TRect;
var DefaultDraw: Boolean);
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hawkeye219,
27. Feb 2010
Hallo,
ich habe hier mal unverschämterweise den Tipp von Rakshasa in meinen Code eingebaut:
procedure TDemoForm.TreeDrawText(Sender: TBaseVirtualTree; TargetCanvas: TCanvas;
Node: PVirtualNode; Column: TColumnIndex; const Text: WideString; const CellRect: TRect;
var DefaultDraw: Boolean);
const
LINKCOLUMN = 2;