HintPause in FireMonkey?

[himitsu]

Zitat:

Wie gesagt, Dein Vorschlag lässt sich nicht kompilieren

Kann eigentlich nicht sein. (aber ich würde vorschlagen die VCL-Units als Ersts ins Uses zu schreiben)

Und, wie gesagt, das ist nur für Windows ... Android, iOS, OSX usw. nutzen ein anderes Backend.

[himitsu]

Hmmmm, gibt es überhaupt einen Timeout?
[edit]
Ups, falschrum ... HintPause, nicht HidePause.
Außerdem hab ich vergessen Max hochzusetzen

Und Vcl.Forms.Application.HintPause und .HintHidePause haben eh keine Wirkung.
[/edit]

Bei mir werden die Hints ewig angezeigt,
und bei ControlType=Platform werden garkeine Hints angezeigt.

[himitsu]

Unter Windows wird direkt die WinAPI benutzt.

Hab gesehn, dass der Hint ein tooltips_class32 ist, also im Code danach gesucht und gefunden.

Delphi-Quellcode:

unit FMX.Controls.Win;

const
  TOOLTIPS_CLASS = 'tooltips_class32';

constructor TWindowsHint.Create(const AHandle: TWindowHandle);
var
  LToolInfo: TOOLINFO;
begin
  inherited;
  FWindowHandle := AHandle;
  FNativeControlHandle := WindowHandleToPlatform(AHandle).Wnd;
  if FNativeControlHandle <> 0 then
  begin
    FToolTipHandle := CreateWindowEx(0, TOOLTIPS_CLASS, nil, WS_POPUP or TTS_ALWAYSTIP, 0, 0, 300, 300,
      FNativeControlHandle, 0, hInstance, nil);

    SetWindowPos(FToolTipHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);

    FillChar(LToolInfo, SizeOf(TOOLINFO), 0);
    LToolInfo.cbSize := SizeOf(TOOLINFO);
    LToolInfo.uFlags := TTF_SUBCLASS or TTF_IDISHWND or TTF_PARSELINKS;
    LToolInfo.hinst := hInstance;
    LToolInfo.hwnd := FNativeControlHandle;
    LToolInfo.uId := FNativeControlHandle;
    LToolInfo.lpszText := nil;

    SendMessage(FToolTipHandle, TTM_ADDTOOL, 0, LPARAM(@LToolInfo));
    SendMessage(FToolTipHandle, TTM_ACTIVATE, NativeInt(False), LPARAM(@LToolInfo));
  end;
end;

Die Wrapper-Klasse dazu hat auch nicht viele oder komplizierte Funkionen.



Also weiter siehe Hilfe:
https://learn.microsoft.com/en-us/wi...oltip-controls

Es läuft ein WM_TIMER, welcher für's Anzeigen und Ausblenden zuständig ist. (den könnte man vielleicht manipulieren)

Tja, TTM_SETDELAYTIME
https://learn.microsoft.com/en-us/wi...m-setdelaytime

Jetzt mußt du nur noch rausbekommen, wie du an dessen Handle kommst.
Oder an den Systemeinstellungen rumpfuschen ... siehe Remarks

[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.

[Rollo62]

Das findet anscheinend zentral in FMX.Forms.TApplication statt.

Delphi-Quellcode:

    /// <summary>Cancels the display of a hint for a control.</summary>
    procedure CancelHint;
    /// <summary>Hides the current hint.</summary>
    procedure HideHint;
    /// <summary>Occurs when the mouse pointer moves over a control or menu item that can display a Help Hint.</summary>
    property OnHint: TNotifyEvent read FOnHint write FOnHint;

Man könnte schlimmstenfalls OnHint abfangen und da seinen eigenen Timer laufen lassen,
der den Hint dann mit CancelHint oder HideHint brutal abbricht.

[schorsch666]

hmmmm. finde ich irgendwie alles nicht prickelnd - und die unit von harry, ok, aber zb bei einem groesseren memo - da geht der hint auf, wo die maus gerade ist... ich moechte eigtl. auch ungern "fremde" units in meinen progs und was aufzublaehen, was im kern da ist - nee, will ich auch nicht. ausserdem bauen viele externe kompos auf der "normalen" hint-logik auf - und da will ich nix veraendern.

ich dachte halt, es gibt da etwas, analog zur vcl - und das unter allen bs laeuft. naja, muessen die leute halt schneller lesen

tks in die runde...

...de Schorsch

[himitsu]

Zitat von schorsch666:

naja, muessen die leute halt schneller lesen

Meinst du jetzt wirklich die HintPause (Verzögerung, bis angezeigt wird)
oder die HintHidePause (Dauer der Anzeige)

Wie schon gesagt, bleibt bei mir (im Windows) der Hint scheinbar unbegrenzt lange sichtbar.

[schorsch666]

HintHidePause (Dauer der Anzeige)