Discussion :

[Didier LOZAC'H]

Bonjour,

Comme plusieurs développeurs, je me suis heurté à l'absence de propriété et/ou de fonction donnant les dimensions (hauteur et largeur) d'un popup menu dans l’environnement FMX.
Aussi, j'ai crée un "class helper" pour les composants FMX.Menus.TPopupMenu qui présente la propriété "Size" recherchée

Je vous livre ici l'unité "uMenusHelper.pas" définissant cette classe. Le code reprend une partie du code en implémentation de l'unité FMX.Menus de Delphi car les classes nécessaires ne sont pas accessibles autrement

[SergioMaster]

Bonjour,

Je dois avouer ne pas en comprendre l'utilité. Ma faute certaine puisque je n'utilise que rarement voire pas du tout TPopupMenu.
D'un test (rapide) sous windows et je suppose que sous Mac ou Linux c'est identique, je comprends que le popupmenu se positionne en fonction de la position de la souris et que le questionnement c'est, qu'en cas de "débordement" de la fenêtre, est que cela pose des soucis d'où la necessité d'obtenir la taille du TPopupMenu ?

Mais quid des mobiles ? Je n'ai jamais fait de tests.

Un calcul des tailles (somme hauteur des éléments et max largeur des éléments) ne peut-il pas se faire ? Je sais que je l'ai déjà fait pour des TListView avec des éléments de taille variables

[XeGregory]

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
function CalcPopupMenuSize(Popup: TPopupMenu; const Canvas: TCanvas): TSizeF;
var
  Item: TMenuItem;
  MaxWidth, TotalHeight, ItemHeight, TextWidth: Single;
begin
  MaxWidth := 0;
  TotalHeight := 0;
 
  // Hauteur standard d’un item selon le style FMX
  ItemHeight := Popup.GetDefaultMenuItemHeight;
 
  for Item in Popup.Items do
  begin
    // Mesure du texte
    TextWidth := Canvas.TextWidth(Item.Text);
 
    // Ajout des marges internes du style
    TextWidth := TextWidth + 20; // padding approximatif
 
    if TextWidth > MaxWidth then
      MaxWidth := TextWidth;
 
    TotalHeight := TotalHeight + ItemHeight;
  end;
 
  Result := TSizeF.Create(MaxWidth, TotalHeight);
end;

Code :

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

1
2
3
4
5
6
var
  Size: TSizeF;
begin
  Size := CalcPopupMenuSize(PopupMenu1, Form1.Canvas);
  ShowMessage(Format('Width: %.0f - Height: %.0f', [Size.Width, Size.Height]));
end;

[SergioMaster]

@xegregory J'ai essayé ce genre de code (et d'autres à base de TTextLayout) mais n'arrive pas à avoir de bons résultats.

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
function TForm1.GetPopupMenuSize(PopupMenu: TPopupMenu; out Width,
  Height: Single): Boolean;
var
  i: Integer;
  TextSize: TSizeF;
  TextLayout: TTextLayout;
  MaxWidth: Single;
  TotalHeight: Single;
begin
  Result := PopupMenu.ItemsCount > 0;
  if not Result then Exit;
 
  TextLayout := TTextLayoutManager.DefaultTextLayout.Create;
   try
    MaxWidth := 0;
    TotalHeight := 0;
 
    for i := 0 to PopupMenu.ItemsCount - 1 do
    begin
      TextLayout.Font.Assign(PopupMenu1.Items[i].TextSettings.Font);
      TextLayout.Text := PopupMenu1.Items[i].Text;
      MaxWidth := Max(MaxWidth, TextLayout.Width + 60);    
      totalheight:=totalheight+PopupMenu1.Items[i].Height; 
    end;
  finally
    TextLayout.Free;
  end;
  width:=maxwidth;
  height:=totalheight;
end;