Mal ein freundliches
Push and dieser Stelle.
Es würde mir schon genügen, wenn mir jemand, der sich damit wirklich auskennt, sagen könnte, ob die Vorgehensweise so oder anders ablaufen sollte.
Hier mal das, wie ich es zur Zeit gelöst habe. Falls es richtig sein sollte, können ja auch andere davon profitieren.
Hier der OnMeasureTextWidth EventHandler:
Delphi-Quellcode:
procedure TfrmMain.vstBugsMeasureTextWidth(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
Column: TColumnIndex; const Text: string; var Extent: Integer);
begin
ShowNodeHint := (vstBugs.Header.Columns[Column].Width < (Extent + 3.25 * vstBugs.TextMargin));
end;
Und hier der OnGetHint EventHandler:
Delphi-Quellcode:
procedure TfrmMain.vstBugsGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: string);
begin
if ((Column in [1, 2]) and ShowNodeHint) then begin
HintText := vstBugs.Text[Node, Column];
ShowNodeHint := False;
end;
end;
Hier werte ich im Prinzip nur die im OnMeasureTextWidth Event gesetzte Variable aus und zeige dann den Hint an oder aber auch nicht. Wie die 3.25 zustande kommt, kann ich nicht sagen. Normalerweise sollte hier 2 stehen, da der linke und rechte Rand (Property TextMargin) der Zelle zur Breite des Textes addiert wird. Warum das nicht ausreicht weiß ich nicht.
Vielleicht hat darauf ja noch jemand eine plausible Antwort.