Hint in Treeview nur einzeilig möglich?

JoelH · Verfasst: Di 24.10.23 10:25

Folgenden Code nutze ich um in einer TreeView dynamische Hints für einzelne Nodes zu erzeugen.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure Tfrm_uebersicht.tree_uebersichtHint(Sender: TObject;
  const Node: TTreeNode; var Hint: string);
var trid, i : Integer;
begin
  trid := TNodeData(Node.Data).RecordID;
  if  trid > -1 then
  begin
    Hint := 'Datum: '+Tree_records[trid].MeinDATUM;
    if length(Tree_records[trid].Notizen) > 0 then
    begin
      Hint := Hint +#10+'Dieser Eintrag hat folgende Notizen:'+#10;
      for i := 0 to length(Tree_records[trid].Notizen)-1 do
      begin
        Hint := Hint + #10+Tree_records[trid].Notizen[i].BESCHREIBUNG;
      end;
    end;
  end;
  inp_test.Hint := Hint;
end;

Das funktioniert insofern, dass der Hint angezeigt wird, allerdings im Treeview nur die erste Zeile des Hints, also das Datum. Zum Test habe ich ein Edit eingefügt auf der Form und den Hint dort angehängt. Dort werden alle Zeilen, also auch die Notizinfos, im Hint angezeigt.

Ist das ein normales Verhalten bei TreeViews oder stehe ich gerade irgendwie auf dem Schlauch und habe eine bestimmte Einstellung übersehen?

_________________
mfg. Joel

Sinspin · Verfasst: Di 24.10.23 18:43

Hey,

Ich denke es hängt vom Hint ab ob der mehrzeilig kann oder nicht. Wenn ich mich recht erinnere dann können die Delphi Hints nur einzeilig. Das ist ja eine Windows Function, das kann man auch selber aufrufen.

_________________
Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Warum sollte unser aller Mutter, die Natur, nicht die gleichen Rechte haben?

JoelH · Verfasst: Mi 25.10.23 07:08

Sinspin hat folgendes geschrieben :

Wenn ich mich recht erinnere dann können die Delphi Hints nur einzeilig.

Nein, wie beschrieben, der Hint angehängt an die Edit-Komponente "inp_Text" gibt mir den gesamten, mehrzeiligen Text zurück. Deshalb vermute ich, es liegt an der TreeView-Komponente.

_________________
mfg. Joel

Th69 · Verfasst: Mi 25.10.23 09:48

Gefunden habe ich folgende englische Seite: Multiline tooltips in a treeview (XE2) (also ein eigenes von TTreeView abgeleitetes Control erzeugen und die Windows-Message TTN_NEEDTEXTW behandeln)

Gausi · Verfasst: Mi 25.10.23 10:04

Der eigentliche Hint im Treeview kann mehrzeilig sein, aber der knotenspezifische Hinweistext (der unabhängig von der Property "Hint" ist), unterstützt wohl nur einzeilige Strings.

Spricht etwas gegen den Einsatz vom VirtualStringTree, der zwar etwas Einarbeitung benötigt, aber solche Probleme nicht hat? Dort klappen mehrzeilige Hints ohne Probleme, die kollidieren nicht mit dem Standard-Hint (d.h. keine doppelte Anzeige). Und wenn man mag, kann man da das Hintfenster auch komplett selber malen und z.B. auch Bilder einfügen.

_________________
We are, we were and will not be.

Sinspin · Verfasst: Mi 25.10.23 10:26

JoelH hat folgendes geschrieben :

Sinspin hat folgendes geschrieben :

Wenn ich mich recht erinnere dann können die Delphi Hints nur einzeilig.

Nein, wie beschrieben, der Hint angehängt an die Edit-Komponente "inp_Text" gibt mir den gesamten, mehrzeiligen Text zurück. Deshalb vermute ich, es liegt an der TreeView-Komponente.

Man kann auch das gleiche machen was ich gemacht habe ... wärend hier die ganzen anderen Antworten reingeflattert sind ... und sich durch den irren Wust an Quelltext wühlen der den Hint intern bearbeitet ... dabei feststellen dass dieser Hint windows magic ist ... und sich somit nix verändern lässt, es sei denn man macht es selber!

_________________
Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Warum sollte unser aller Mutter, die Natur, nicht die gleichen Rechte haben?

JoelH · Verfasst: Mi 25.10.23 13:49

Gausi hat folgendes geschrieben :

Spricht etwas gegen den Einsatz vom VirtualStringTree

Nur "Bordmittel" erlaubt. Dann muss ich mir was anderes überlegen, passt schon.

_________________
mfg. Joel

Holgerx · Verfasst: Mi 25.10.23 16:47

Hmm..

JoelH hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure Tfrm_uebersicht.tree_uebersichtHint(Sender: TObject;
  const Node: TTreeNode; var Hint: string);
var trid, i : Integer;
begin
  trid := TNodeData(Node.Data).RecordID;
  if  trid > -1 then
  begin
    Hint := 'Datum: '+Tree_records[trid].MeinDATUM;
    if length(Tree_records[trid].Notizen) > 0 then
    begin
      Hint := Hint +#10+'Dieser Eintrag hat folgende Notizen:'+#10;
      for i := 0 to length(Tree_records[trid].Notizen)-1 do
      begin
        Hint := Hint + #10+Tree_records[trid].Notizen[i].BESCHREIBUNG;
      end;
    end;
  end;
  inp_test.Hint := Hint;
end;

Verwende mal statt #10 ein #13, ich glaube dass bei einem Hint #13 den Zeilenumbruch macht...

Habe das mal bei mit (Delphi6) so angetestet und bekomme einen zweizeiligen Hint:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  tmpSelected : TTreeNode;
begin
  tmpSelected := TreeView1.GetNodeAt(X,Y);
  if tmpSelected <> nil then begin
    self.Hint := tmpSelected.Text + #13 + tmpSelected.Text;
  end;
end;

Th69 · Verfasst: Mi 25.10.23 17:55

Holgerx: Es geht nicht um den Hint für das gesamte TTreeView, sondern für die einzelnen TTreeNode-Einträge (über das OnHint-Ereignis).
Aber dein Vorschlag mittels OnMouseMove (und GetNodeAt) ist auch eine gute Alternative.

JoelH · Verfasst: Do 26.10.23 10:03

Holgerx hat folgendes geschrieben :

Hmm..

Verwende mal statt #10 ein #13, ich glaube dass bei einem Hint #13 den Zeilenumbruch macht...

Habe das mal bei mit (Delphi6) so angetestet und bekomme einen zweizeiligen Hint:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  tmpSelected : TTreeNode;
begin
  tmpSelected := TreeView1.GetNodeAt(X,Y);
  if tmpSelected <> nil then begin
    self.Hint := tmpSelected.Text + #13 + tmpSelected.Text;
  end;
end;

Das funktioniert. Danke. Ist zwar etwas träge, aber wenn man weiss wie es geht, dann tut es.

_________________
mfg. Joel

Holgerx · Verfasst: Fr 27.10.23 10:03

Hmm..

Th69 hat folgendes geschrieben :

Holgerx: Es geht nicht um den Hint für das gesamte TTreeView, sondern für die einzelnen TTreeNode-Einträge (über das OnHint-Ereignis).
Aber dein Vorschlag mittels OnMouseMove (und GetNodeAt) ist auch eine gute Alternative.

Hier dann eine Alternative mit OnHint (mit XE4, gibt es beim TV in Delphi 6 noch nicht):

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.TreeView1Hint(Sender: TObject; const Node: TTreeNode; var Hint: string);
begin
  // eigenen Hint des TreeView löschen
  Hint := '';
  // Hint der Form setzen
  self.Hint := Node.Text+'-'+Node.Text + #13 + Node.Text;
  // Manuell den Hint (der Form) anzeigen (keine Verzögerung)
  Application.ActivateHint(Mouse.CursorPos);
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme