Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by generic,
3. Feb 2006
ich glaube nicht das das komiliert.
im oberenblock steht 2 mal hintereinander else else
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by generic,
3. Feb 2006
das beforeitemErase ist denke ich besser für deine zwecke was die farbe betrifft.
du kannst die tiefe eines knoten mit
tiefe:=vst.GetNodeLevel(node);
abfragen um dann die nicht anderes zu malenden knoten zu überspringen.
procedure TForm1.VirtualStringTree1BeforeItemErase(
Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
ItemRect: TRect; var ItemColor: TColor;
...