Toolbar vertical (une colonne)

Bonjour,

je voudrais réaliser un Toolbar une colonne (ici le DataPicker en dessous du ColorPicker). Il y a bien la flèche à droite qui suggère que c'est possible...
Pièce jointe 398540
...mais je n'ai rien trouvé dans les propriétés ni dans un TToolBar, ni dans un TTMSFMXToolBar.
J'ai placé le ColorPicker dans la Toolbar. La flèche à droite existe dès ce moment. Je place le DatePicker et il se place à droite du premier Picker. Comment procède-t-on ?

J'essaye de reproduire cela (réalisé en Qt) :

Non ouvert :
Pièce jointe 398552

Ouvert :
Pièce jointe 398556

Merci. Gilles

Je ne connais pas bien FMX mais avec un button contenant l'image de l'élément sélectionné, un petit bouton pour le DropDown et un PopupMenu, tu n'aurais pas ce que tu veux ?

Merci pour votre aide.

Je ne crois. Les éléments doivent être dynamiques notamment au niveau de la langue choisie.
Pièce jointe 398557
En plus, ici, c'est ici une des premières versions Qt. Dans les suivantes, j'ai introduit des radiobuttons et par exemple quand un rectangle d'épaisseur 2, couleur verte est choisi, il est redessiné de manière dynamique dans le menu...

En Qt, je suis parti d'un QToolButon que j'ai appelé QCustomToolButton qui sert de container dont j'ai défini 2 "propriétés" :

Code:

---

1 2	setPopupMode(QToolButton::MenuButtonPopup); setToolButtonStyle(Qt::ToolButtonIconOnly);

---

J'accepte de dériver n'importe quoi mais j'ai besoin du bon container au départ. Déjà, je fais une effort... comme Embarcadero avec son Community. Je débute mes vacances donc je peux investir du temps... Bref, on commence par mettre quoi sur la page blanche ? Je n'ai pas besoin d'exactement la même présentation mais je veux disposer d'une qualité d'ergonomie équivalente.

J'avais commencé avec un TListBox. Le problème est comment placer un objet de son choix dans un TListBox ? On y place normalement des ListBoxItem. L'idéal serait un composant acceptant des Items empilés verticalement et si j'en crois le concept Firemonkey, normalement, on pourrait mettre n'importe quoi dans chaque Item.

Merci. Gilles

Je ne vois pas en quoi des éléments dynamiques soient un problème,
si c'est juste la traduction, suffit de l'appliquer sur le Menu
si c'est un menu changeant selon le contexte, avant de faire le Popup suffit de jouer sur Visible ou de créer les menus à la volée, si le menu sont associés à une ImageList, c'est elle qu'il faut modifier pour refléter la couleur dans le Menu


Je ne comprends pas 'un bon container au départ' :?

Bon alors voilà le début :
Pièce jointe 398579

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.btDropDownClick(Sender: TObject); var FP: TPointF; begin //Initialize the coordinates to the origin of the button control. FP.X := 0; FP.Y := 0; //Transposes the coordinates in the context of the form. FP := btDropDown.LocalToAbsolute(FP); //Transposes the coordinates in the context of the screen. FP := ClientToScreen(FP); //Display the popup menu at the computed coordinates. PopupMenu1.Popup(FP.X, FP.Y); end;

---

Pour moi le PopMenu1 est un container au même titre que mon QCustomToolButton.

Maintenant, ce que je ne sais pas faire en Delphi (mais qui est usuel et facile en Qt):
J'ai bien un MenuItem1. Je veux le "remplacer" par un TTMSFMXColorPicker ou par un TgroupBox ou n'importe quel autre élément visuel. Je fais comment ?
Dans les forums, j'ai cherché en vain "delphi ColorPicker inside menuItem". Java le fait, Qt le fait et est-ce que Firemonkey le fait ? Sinon, je suis prêt à dériver quelque chose (un container) mais qu'est ce qui accepte en son seing des TColorPicker, des TGroup...et autre TVisualComponent et qui les aligne verticalement (histoire de simplifier le code) ? Bref quel est le custom de base ?
Merci. Gilles

Bonjour,
Pour ce qui est de la flèche droite d'une TMSFMXToolbar elle permet d'afficher des options d'un menu un peu particulier puisque spécifique à la toolbar CustomOptionMenu (voir les propriétés du composant)

Citation:

---

Envoyé par SergioMaster

Bonjour,
Pour ce qui est de la flèche droite d'une TMSFMXToolbar elle permet d'afficher des options d'un menu un peu particulier puisque spécifique à la toolbar CustomOptionMenu (voir les propriétés du composant)

---

Oui, je m'en suis rendu compte après. Manque de pratique.

Le composant Popup (pas popupmenu) ne serait pas approprié ?
Pièce jointe 398592
Pièce jointe 398596
ici un truc sans "fioritures", du code car je te fais grâce des Livebindings ;)

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm16.Switch1Switch(Sender: TObject); begin popup1.IsOpen:=Switch1.IsChecked; end;   procedure TForm16.Switch2Switch(Sender: TObject); begin popup1.IsOpen:=Switch2.ISchecked; end;

---

Argh... des livebindings !

Ben, y en a pas dans ma proposition :ptdr: de toute façon cela n'aurait qu'enlevé le code

Bon, j'ai fait plusieurs approches : la meilleure est avec un TTMSFMXPanel comme container.
Pièce jointe 398641
Ceci dit, il est difficile ensuite de régler les problèmes d'autosize. J'ai utilisé un FlowLayout mais franchement c'est insuffisant. Pour l'instant...

Cordialement. Gilles

PS : autre approche.J'en étais pas loin... et cela fonctionnait même sous mac OS.... Seulement encore une confusion avec VCL. J'aurais dû vérifier avant de me lancer dans l'appel de TPopupMenu.

Pièce jointe 398732

• firemonkey >> Fermer lae TPopupMenu quand la souris le quitte >> Pas d"évènement... c'est bête. Donc pour fermer mon TPopupMenu contenu dans une TListBox il faut que je clique sur un Item du PopupMenu... J"ai essayé de le fermer à partir de la TListBox sans aucun succès. Seule proposition rencontrée sur le web : sous windows (uniquement) utiliser un timer et les messages dans onPopUp, seul évènement de la TPopupMenu. par exemple, fermer le TpopupMenu au bout de 10 secndes. :mouarf:

Bon je crois que je vais arrêter les frais ici.

Et pourquoi n'y a -il pas d'évènements onMousexxx ?

A mon idée, parce que FMX est fait pour le mobile et pas pour un engin qui utilise une souris. On touche mais on ne survole pas. Et je n'en démords pas.

Delphi est toujours Windows. Et Firemonkey est orienté "Mobile". Mac OS est donc le parent pauvre dans l'histoire. Ceci dit, effort fait, rien a réellement changé sur la planète Delphi. Quand ils décideront de faire du vrai multi-OS Desktop, je reviendrai faire un tour. Donc à bientôt.

Cordialement. Gilles

Bonjour,

Citation:

---

Envoyé par Selzig

Et pourquoi n'y a -il pas d'évènements onMousexxx ?

---

Oh, la mauvaise foi 8O! AMHA cela dépend beaucoup des composants donc de quel composant s'agit-il ? si l'on suit le fil de la discussion un TPopupmenu (il ne peut s'agir d'un TMSFMXpanel puisqu'ils existent) ? Dans ce cas en VCL non plus il n'y a pas ces évènements.

Citation:

---

la meilleure est avec un TTMSFMXPanel comme container.

---

Bon maintenant si tu "triches" en utilisant des composants de TMS :ptdr:

Citation:

---

A mon idée, parce que FMX est fait pour le mobile et pas pour un engin qui utilise une souris. On touche mais on ne survole pas.

---

moi c'est plutôt l'inverse, j'oublie toujours les taps

Citation:

---

Et Firemonkey est orienté "Mobile".

---

et Windows (ou alors les nouveaux programmes que j'écris ne compte pas)

Citation:

---

Mac OS est donc le parent pauvre dans l'histoire

---

Joker, je n'ai toujours pas de Mac , je me tâte toujours

Serge

Citation:

---

Envoyé par SergioMaster

Bonjour,

Oh, la mauvaise foi.
[...]

Joker, je n'ai toujours pas de Mac , je me tâte toujours

Serge

---

OK pour la mauvaise foi... Enfin je ne le conçois pas comme cela. Toujours est-il que faute de savoir-faire (mais je ne demande qu'a apprendre... sans perdre des heures pour arriver à des compromis douteux), avec FMX je n'obtiens jamais la qualité, la finition de ce que je pourrais développer en Delphi VCL (sauf à utiliser WinApi et consort)... et dans ce cas, le code n'est plus portable sous macOS :mur:. Remarque que j'ai le problème en Lazarus que je n'utilise que pour mon plaisir, pas pour les mêmes raisons car franchement l'approche est réellement multi-OS-desktop mais par manque de composants "portés". J'utilise également Delphi pour mon plaisir, il me faut l'avouer, mais j'en attends beaucoup plus... et malheureusement, toutes mes tentatives aboutissent à une frustration et au même commentaire : mal adapté au développement pour mac OS... et de plus, sur un Mac, Delphi est très désopilant à l'utilisation. Mon "PC" est un Mac et j'utilise tous mes programmes sous macOS (TT, logiciels graphiques, accès aux BDD, messagerie, FTP,...

Pièce jointe 398945

Mes Windows sont sous VirtualBox... Et là aussi, Delphi me frustre (comme Windev d'ailleurs mais je conteste moins dans ce cas, car Windev ne prétend pas compiler pour mac OS). L'IDE Delphi impose Windows. Donc un de mes écrans est sous Windows nécessairement. Comparé avec Qt et Lazarus, il n'y a pas photos puisque leur IDE respectif "tourne" nativement sur mon mac. Et à cause de Delphi, j'ai également 2 claviers (un Mac et un Windows, le windows relié au port USB du clavier Apple...). Bon, j'arrête là ma "rengaine" comme l'écrivent certains. Mais si tu n'as pas de clientèle Mac, n'en achète pas... pour FMX :aie:, mais pour toutes autres raisons, macOS est intéressant à découvrir.

Bon je retourne développer avec quoi tu sais sur mon Mac. A bientôt. Gilles

PS : au fait, j'avais pensé jouer avec la position de la souris : tu sais le simple

Code:

---

1 2 3 4 5

if TPlatformServices.Current.SupportsPlatformService(IFMXMouseService) then begin MouseService := TPlatformServices.Current.GetPlatformService(IFMXMouseService) as IFMXMouseService; MousePos := MouseService.GetMousePos; end;

---

Donc j'ai déclenché cela dans un timer et je ne savais pas que l'apparition d'un TPopupmenu bloquait le timer le temps de son affichage... Dommage. Encore un contournement inefficace. Là, je n'ai vraiment plus d'idée.

OK. J'ai réglé le problème par contournement mais cela fonctionne correctement. C'est aussi ergonomique qu'en Qt et même plus esthétique. Donc nouvelle question sur les styles : beurk...