Discussion :

[rbh]

Bonjour,
(Delphi 11.3; appli VCL)

Je dois modifier l'aspect des bulles d'aide dans mon programme, et je n'ai pas de résultat consistant avec DrawText et DT_CALCRECT.

Je reproduis exactement les même bugs avec un projet presque vide (juste des TButton avec des Hint contenant plusieurs mots).

Dans CalcHintRect, je récupère le clientRect, j'appelle DrawTExt avec CALCRECT pour que la fonction modifie le Rect qui est passé en VAR et ensuite j'Inflate le Rect pour avoir les marges voulue.
Puis dans le Paint je récupère le ClientRect Inflate inverse pour prendre en compte les marges puis je dessine le texte.

Le premier appel calcul un rect qui fait (0,0,0,0) mais ne renvoie pas 0 pour indiquer un échec, et même ensuite, le résultat du DrawText appelé dans le PAINT est différent avec une bulle souvent trop petite mais parfois trop grande, le saut de ligne à un endroit différent, ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
  TMyHintWindow = class(THintWindow)
  protected
    procedure Paint; override;
  public
    function CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect; override;
  end;
 
implementation
 
 
{ TMyHintWindow }
const
  MargeVert  = 4;
  MargeHorz  = 8;
  FontName   = 'Segoe UI';
  FontHeight = -14;
 
function TMyHintWindow.CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect;
begin
  MaxWidth := 1000;
 
  Result := inherited CalcHintRect(MaxWidth, AHint, AData);
 
  if DrawText(Canvas.Handle, PChar(Caption), -1, Result, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK or DT_CALCRECT) = 0 then
    Raise Exception.create('échec DrawText');
  Result.Inflate(MargeHorz, MargeVert, MargeHorz, MargeVert);
end;
 
procedure TMyHintWindow.Paint;
var
  ARect: TRect;
begin
  //inherited;
  ARect := ClientRect;
 
  Canvas.Brush.Color := clTeal;
  Canvas.RoundRect(ARect, 4, 4);
 
  ARect.Inflate(-MargeHorz, -MargeVert, -MargeHorz, -MargeVert);
  DrawText(Canvas.Handle, PChar(Caption), -1, ARect, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK or DT_NOCLIP);
end;
 
initialization
  HintWindowClass := TMyHintWindow;
  Screen.HintFont.Name := FontName;
  Screen.HintFont.Height := FontHeight;
 
end.

EDIT : Dans le code ci dessus, remplacer PChar(Caption) par PChar(AHint) dans la fonction CalcHintRect.
Merci dvp.com



Comme vous pouvez le voir, le résultat n'est pas toujours identique.

J'ai essayé de modifier Screen.HintFont à d'autres endroits, ça ne change rien. Avant de trouver HintFont j'assignais Canvas.Font.name et Canvas.Font.Height dans les 2 procédures avant le DrawText, même résultat.
Qu'est ce que je peux faire différemment pour résoudre mon problème ?

Bonus : comment bloquer le dessin de l'ancêtre ?
Je pensais que commenter le inherited dans le Paint suffirait.

[ShaiLeTroll]

J'ai constaté le même défaut avec le TSysTooltipsStyleHook de Rodrigo Ruz V. - https://github.com/RRUZ/vcl-styles-utils/

le changement de font fait que cela dépasse du cadre.

Tu dois faire un TextHeight et TextWidth pour calculer la nouvelle taille du texte + bordure et tout redessiner mais tu perdras l'ombrage
C'est ce que tu fais via DT_WORDBREAK

Le problème c'est clairement que la hauteur calculée n'est pas la même que la hauteur réelle, tu devrais modifier le rectangle limite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
function TMyHintWindow.CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect;
begin
  MaxWidth := 1000;
 
  Result := inherited CalcHintRect(MaxWidth, AHint, AData);
  Result.width := Result.width - MargeHorz * 2; // en particulier la largeur qui impact DT_WORDBREAK 
 
  if DrawText(Canvas.Handle, PChar(Caption), -1, Result, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK or DT_CALCRECT) = 0 then
    Raise Exception.create('échec DrawText');
  Result.width := Result.width + MargeHorz * 2;
  Result.Inflate(MargeHorz, MargeVert, MargeHorz, MargeVert);
end;

Dans un autre code j'avais totalement bidouillé MaxWidth pour éviter le retour à la ligne en favorisant un hint plus large

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
//---------------------------------------------------------------------------
void __fastcall TVCLManipForm::ApplicationEventsHint(TObject *Sender)
{
  StatusBarVCLManip->Panels->Items[0]->Text = Application->Hint; // ApplicationEvents OnHint annule ce comportement par défaut
 
  for (int i = this->ComponentCount - 1; i >= 0; i--)
  {
    if (this->Components[i]->InheritsFrom(__classid(THintWindow)))
    {
      ((THintWindow*)this->Components[i])->ReleaseHandle();
      delete this->Components[i];
    }
  }
 
  if ( ! Application->Hint.IsEmpty())
  {
    TPoint PM;
    if (GetCursorPos(&PM))
    {
      HWND HandleControl = WindowFromPoint(PM);
      if (HandleControl)
      {
        char lpRes[255];
        if (GetClassName(HandleControl, lpRes, sizeof(lpRes)))
        {
          if (SameText(StrPas(lpRes), "#32768"))
          {
            TRect MenuRect;
            if (GetWindowRect(HandleControl, &MenuRect))
            {
              MenuRect.Left = MenuRect.Left + MenuRect.Width();
 
              THintWindow * HintForm = new THintWindow(this); // ne pas oublier de faire un ReleaseHandle et Free dans un Timer par exemple
              HintForm->Color = clInfoBk;
 
              TRect HintRect = HintForm->CalcHintRect(Screen->WorkAreaWidth / 2, Application->Hint, NULL);
              HintForm->ActivateHint(Rect(MenuRect.Left + 4, PM.y, MenuRect.Left + 4 + HintRect.Width(), PM.y + HintRect.Height()), Application->Hint);
            }
          }
        }
      }
    }
  }
}

[rbh]

Merci ShaiLeTroll pour ta réponse.

Après validation avec les pouvoirs supérieurs, j'ai supprimé WORDBREAK des Flags pour diminuer les risques.
Ça va mieux, je n'ai plus de problème de hauteur, mais la largeur me pose toujours des soucis.

J'ai fait des essais avec TextWidth (et aussi TextExtent avant de supprimer wordbreak), et les résultats sont différents mais toujours pas bon.

Ce qui me perturbe le plus est le premier appel d'une exécution me renvoie toujours ~ 0 que ce soit avec DrawText(CALCRECT) ou Text[Extent/Width/Height]

Je continue donc mes recherches en me concentrant sur GetTextExtentPoint32 (appelé par TextExtent) mais sans limiter mes résultats à Delphi.

Je viendrais ajouter la solution si je me débloque.

[Andnotor]

Es-tu sûr que Caption est déjà initialisé avant CalcHintRect ? Si il y a un paramètre AHint ce n'est certainement pas par hasard

[rbh]

Oh quel id**t je suis !

Merci Andnotor !