HintPause in FireMonkey?

[himitsu]

Einfach mal VCL.Forms einbinden und in dessen Application die HintPause setzen?

Mit etwas Glück wird, auch an dieser Stelle, etwas der VCL benutzt.

[Harry Stahl]

Zitat von himitsu:

Einfach mal VCL.Forms einbinden und in dessen Application die HintPause setzen?

Mit etwas Glück wird, auch an dieser Stelle, etwas der VCL benutzt.

Meinst Du diesen Rat ernst? FMX und VCL zu mischen ist nie eine gute Idee. Im Zweifel wird sich das schon gar nicht kompilieren lassen auf Ebene von MacOS oder Linux sowieso schon nicht.

[himitsu]

Nein, nicht direkt. (auch wenn es mehrere Leute gibt, welche VCL und FMX mischen, also beide Fenstertypen in einer Anwendungen verwenden)

Unter Windows greift das FMX ja auf Funktionen des Windows zu.
Der Einfachheit halber kann Emba dort dann auch Funktionen der VCL benutzt haben ... wenn dem so ist, würde man über den Zugriff auf die VCL dann eventuell die selbe Funktion steuern, welche über FMX nicht direkt zugreifbar ist.

Ähnlich wie bei den Windows-Services, wo es "Application" (TServiceApplication aus Vcl.SvcMg) gibt, welches in der DPR benutzt wird.
Intern verwendet Dieses aber das "Application" der VCL (TApplication aus Vcl.Forms).
Will man z.B. an die Fehlerbehandlung des Services ran, dann kann es über die VCL lösen.
(siehe TServiceApplication.Create, .Run und .Destroy)

Einfach nur ein Versuch:
* Unit Vcl.Forms ins Uses
* über dessen Application diese Eigenschaft ändern und schauen ob es im FMX eine Wirkung hat
Vcl.Forms.Application.HintHidePause := 666;

[Harry Stahl]

Zitat von himitsu:

Nein, nicht direkt. (auch wenn es mehrere Leute gibt, welche VCL und FMX mischen, also beide Fenstertypen in einer Anwendungen verwenden)

Unter Windows greift das FMX ja auf Funktionen des Windows zu.
Der Einfachheit halber kann Emba dort dann auch Funktionen der VCL benutzt haben ... wenn dem so ist, würde man über den Zugriff auf die VCL dann eventuell die selbe Funktion steuern, welche über FMX nicht direkt zugreifbar ist.

Ähnlich wie bei den Windows-Services, wo es "Application" (TServiceApplication aus Vcl.SvcMg) gibt, welches in der DPR benutzt wird.
Intern verwendet Dieses aber das "Application" der VCL (TApplication aus Vcl.Forms).
Will man z.B. an die Fehlerbehandlung des Services ran, dann kann es über die VCL lösen.
(siehe TServiceApplication.Create, .Run und .Destroy)

Einfach nur ein Versuch:
* Unit Vcl.Forms ins Uses
* über dessen Application diese Eigenschaft ändern und schauen ob es im FMX eine Wirkung hat
Vcl.Forms.Application.HintHidePause := 666;

Wie gesagt, Dein Vorschlag lässt sich nicht kompilieren. Und ansonsten ist es so, dass unter Windows-FMX die Zugriffe auf die Windows-Api nur sehr gezielt stattfinden. Dafür gibt es aber spezielle units und die findest Du nicht in der VCL (sondern vor allem in RTL_units). Ein mischen ist zwar unter bestimmten Fällen möglich wird aber u.U. mit unstabilen Programmverhalten erkauft und einer erheblich größerer Exe-Datei (denn dann wird auch sehr viel Windows-VCL-Code eingebaut, den man nicht nutzt oder nicht nutzen kann).

[schorsch666]

tks, habe es mir mal angeschaut, doch dazu die frage:
du sagtest im video, dass texte umgebrochen werden - ich habe die aber alle muehsam in ner unit mittels slinebreak entspr. formatiert. koennte man das als option "abschalten", oder ist das vllt. schon drin?

...de Schorsch

[schorsch666]

...hab mir das schon gedenkt. macht probs

(siehe anhang)

[Harry Stahl]

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

Delphi-Quellcode:

Lab.text := Application.hint; // alt

// in 
Lab.text := ReplaceStr (Application.hint, sLineBreak, ' '); // neu

Dafür musst Du auch die Unit "System.StrUtils" noch einbinden.

[Harry Stahl]

Zitat von schorsch666:

...hab mir das schon gedenkt. macht probs

(siehe anhang)

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"):

Delphi-Quellcode:

if pos (slinebreak, lab.Text) <> 0 then begin
  ACallhint.Height := ACallHint.Height + (CountLineBreaks (lab.Text) * lab.canvas.textheight ('T'));
end;

Die Function "CountLinebreaks" sieht so aus (da gibt es wohl gar nichts fertiges in Delphi?):

Delphi-Quellcode:

function CountLinebreaks (S: string): Integer;
  var start: Integer;
  begin
    Result := 0;
    start := 1;

    while pos (sLineBreak, s, start) <> 0 do begin
      Inc (Result);
      start := pos (sLineBreak, s, start) + 2;
    end;
  end;

Wenn Dein Button hint, also so erstellt wurde:
button1.Hint := 'Zeile 1 ' + sLineBreak + 'Zeile 2 ' + slinebreak + 'Zeile 3'; sieht das Ergebnis dann wie im anliegenden Screenshot gezeigt aus.

Um diesen Fall der evtl. Gestaltung der Hints zu berücksichtigen baue ich das auch noch in meine Unit ein und lade die aktualisierte Fassung noch mal hoch.

Ich glaube ich habe noch nicht erwähnt, dass die Unit sowohl unter Windows, als auch unter Linux und MacOS funktioniert.