Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
26. Okt 2009
Wäre wohl zu einfach?
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if Assigned(TreeView1.Selected) then
TreeView1.ScrollBy(19 - TreeView1.Selected.DisplayRect(True).Left, 0);
end;
Theoretisch sollte es klappen, aber irgendwas stimmt mit dem ScrollBy nicht.
Jedenfalls funktioniert es innerhalb dieser Ereignisprozedur nicht richtig.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
26. Okt 2009
TreeView1.Selected.DisplayRect(True).Left liefert schonmal die Linke Position des Textes,
Allerdings wird hier das horizontale Scolling ignoriert (das Vertikale ist in den werten enthalten),
sonst könnte man z.B. in TreeView1Change ganz einfach per TreeView1.ScrollBy(Abstand - xxx.Left, 0); die Position anpassen.
Leider stimmt halt die Linke/Rechte Position nicht ganz mit den...