ich versuche mit folgendem Code meine Root Items Fett dazustellen:
Code: Alles auswählen
procedure TForm1.VirtualStringTree1PaintText(Sender: TBaseVirtualTree;
const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType);
begin
if sender.GetNodeLevel(node) = 0 then
TargetCanvas.Font.Style:=TargetCanvas.Font.Style+[fsbold];
end;
Ich werde in der VST die gleiche Schrift Art wie im SynEdit bei Lazarus.
Jedoch in der VST wird keine Änderung angezeigt.