HY MrKnogge!
Zu Frage 1 kann ich Dir das anbieten:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
TV.FullExpand; // Alle Einträge expandieren
end;
procedure TForm1.TVCollapsing(Sender: TObject; Node: TTreeNode;
var AllowCollapse: Boolean);
begin
AllowCollapse:=FALSE; // Zuklappen iss nich
end;
Zu Frage 2 ist mir jenner so auf die Schnelle eingefallen:
Delphi-Quellcode:
procedure TForm1.TVCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode;
State: TCustomDrawState; var DefaultDraw: Boolean);
begin
If Node.AbsoluteIndex=0 Then TV.Canvas.Font.Style:=[fsBold];
end;
Viel Spass damit
OLLI