Discussion :

[SergioMaster]

Bonjour,


j'utilise rarement les menus avec FMX, comme je n'ai pas d'engin avec une pomme encore moins. Pour cette application particulière j'en ai besoin et je me retrouve avec des résultats plus ou moins bizarre.
Normalement (mode exécution) je dois avoir ceci

en mode debug j'ai ceci

pire après réduction de la fenêtre et retour je peux me retrouver dans ce cas de figure où, en plus, le menu n'est même pas fonctionnel


une idée ?

[pprem]

Alors attention : les menus sur Mac doivent être sur le haut de l'écran, pas dans les fiches. Normalement c'est pris en compte par TMainMenu.

Qu'as-tu utilisé pour ton résultat ?

A savoir : comme je l'ai longuement expliqué lors de sessions de codages (notamment sur PicMobGenerator) les menus Mac ont un menu par défaut (item 0) qui écrase le menu "fichier" qu'on aurait tendance à mettre en premier. Il faut gérer des trucs à la main pour déplacer les options si on veut être conforme aux habitudes de la pomme et surtout ajouter un menu fantôme en premier si on vaut avoir nos menus habituels (et le masquer sur autre chose que Mac).

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
 object MainMenu1: TMainMenu
     Left = 480
     Top = 176
     object mnuMacOS: TMenuItem
       Text = 'mnuMacOS'
       object mnuAProposMac: TMenuItem
         Locked = True
         Text = 'A propos'
         OnClick = mnuAProposClick
       end
       object mnuPreferences: TMenuItem
         Locked = True
         Text = 'Pr'#233'f'#233'rences'
         OnClick = mnuOptionsClick
       end
     end
     object mnuFichier: TMenuItem
       Text = '&Fichier'
       object mnuNouveau: TMenuItem
         Locked = True
         Text = '&Nouveau'
         OnClick = mnuNouveauClick
       end
       object mnuOuvrir: TMenuItem
         Locked = True
         Text = 'Ou&vrir'
         OnClick = mnuOuvrirClick
       end
       object mnuEnregistrer: TMenuItem
         Locked = True
         Text = 'Enregi&strer'
         OnClick = mnuEnregistrerClick
       end
       object mnuFermerProjet: TMenuItem
         Locked = True
         Text = 'Fer&mer'
         OnClick = mnuFermerProjetClick
       end
       object mnuQuitter: TMenuItem
         Locked = True
         Text = '&Quitter'
         OnClick = mnuQuitterClick
       end
     end

Code :

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

1
2
3
4
5
6
7
8
9
10
11
{$IF Defined(MACOS)}
   mnuQuitter.visible := false;
   // Fichier/Quitter remplacé par Application/Quitter
   mnuOptions.visible := false;
   // Outils/Options remplacé par Application/Préférences
   mnuAPropos.visible := false; // Aide/APropos remplacé par Application/A Propos
   mnuOutils.visible := false; // menu vide
   mnuAide.visible := false; // menu vide
 {$ELSE}
   mnuMacOS.visible := false;
 {$ENDIF}

[SergioMaster]

Bonjour,

@pprem tu auras remarqué que j'ai tagué la discussion [Windows] donc ce n'est pas vraiment un menu mac qui m'est nécessaire, mais bien un simple menu (pour pouvoir aller dans Outils, le Quitter étant purement optionnel.

Ma question porte surtout sur ce comportement qui me rend (une fois, je te vois, une fois, je te vois plus)

[pprem]

Euh... J'sais pas du tout pourquoi suis parti sur Mac, quoique parler de FMX et de pomme dans la même phrase a dû m'induire d'erreur. Et je ne vois pas de WINDOWS indiqué dans le titre du post. Ca apparaît où ?

Du coup c'est du TMainMenu dans une application FMX ?

Les autres composants sont en TOP, MOST TOP ou ancrés avec une position en dur à 0 ?

Une histoire de structure dans laquelle le menu ne serait pas à la racine mais aurait un autre composant que la fiche comme parent ? (ce qui ne devrait pas être possible puisque composant non visuel)

[SergioMaster]

Et je ne vois pas de WINDOWS indiqué dans le titre du post. Ça apparaît où ?

[pprem]

tu disais ?