Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Harry Stahl,
1. Nov 2023
Weiterhin könntest Du auch, falls Dir bei der Aufteilung in Zeilen wichtig ist, wann der Zeilenumbruch stattfindet auch noch folgenden Code nach der Berechnung der Höhe des Callouts einfügen (= vor der Zeile "AcallHint.width := aw"):
if pos (slinebreak, lab.Text) <> 0 then begin
ACallhint.Height := ACallHint.Height + (CountLineBreaks (lab.Text) * lab.canvas.textheight ('T'));
end;
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Harry Stahl,
1. Nov 2023
Du könntest insofern eine Anpassung vornehmen, als dass Du bei der Zuweisung des Hints an den Label-Text die sLinebreaks entfernst und die Aufteilung der Zeilen ansonsten der Routine überlässt.
Ändere einfach die Zeile
Lab.text := Application.hint; // alt
// in
Lab.text := ReplaceStr (Application.hint, sLineBreak, ' '); // neu
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Harry Stahl,
31. Okt 2023
Na, noch der Hinweis, bevor Du Dir evtl. entsprechende Arbeit machst: Nachdem ich das gestern hier geschrieben hatte, kam mir der Gedanke, dass die Lösung die ich damals zur Anzeige von Hints etnwickelt hatte, mir sehr viel besser gefällt, also das nun in Delphi FMX integriert ist.
Habe daher selber die vorgeschlagene Lösung umgesetzt und hierzu auch ein kleines Video gemacht, dort findest Du...