Discussion :

[Carmichael]

Bonjour,

Je travaille avec Delphi Rio, et je réalise une appli FMX qui doit marcher sous Android/IOS/Windows.
Dynamiquement, je dois remplir une ComboBox, mais avec une taille de police et une couleur de police qui n'est pas celle par défaut.
Ça compile. Lorsque l'on clique sur la ComboBox, on voit la liste des Items qui se déroule mais avec la police par défaut. En revanche, après avoir sélectionné un Item, il s'affiche bien avec la taille et la couleur personnalisée sur la combo repliée.
Ce n'est pas ce que je veux.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
article      : TListBoxItem;
 
begin
article := TListBoxItem.Create(self);
article.StyledSettings := [];
article.Text := 'Ma ligne rouge';
article.Font.Size := 32;
article.Font.Family := 'Verdana';
article.FontColor := TAlphaColorRec.Red;
ComboProfil.AddObject(article);

Question : Quelle modification faut il apporter au code pour que la liste des items se déroule avec la police et la taille modifiée avant la sélection ?


Cordialement

Carmichael

[SergioMaster]

Bonjour,

à priori je dirais qu'il faut jouer avec les styles

première solution : Faire un style personnalisé pour les ListBoxItem et renseigner le Stylelookup de l'item créé (attention à ce que le style soit défini dans default) perso jamais essayé , cela dit le challenge mérite que je m'y intéresse
deuxième solution : Se faire un combobox aux petits oignons https://serge-girard.developpez.com/...lphi/Combobox/
troisième solution : retrouver l'objet et modifier les propriétés du style, ça non plus je n'ai jamais essayé

Bref voilà un sujet intéressant que je vais étudier

[SergioMaster]

Bien, après quelques arrachages de cheveux cela fonctionne du moins pour la solution 1 voilà comment j'ai procédé

1- j'ai posé un TListBox auquel j'ai ajouté un TItemListBox
2- j'ai cliqué droit sur l'item créé pour pouvoir modifier le style personnalisé de ce dernier
3- j'ai modifié alors les propriétés de listboxitem1style1 pour changer couleur et fonte

4- fermeture du concepteur de style (en n'oubliant pas d'appliquer )

5- on peut maintenant supprimer le Tlistbox
6- ajout du Combobox
7- changement de la hauteur de l'item ItemHeight il faut aussi mettre height à la même taille
8- ajout d'un bouton pour tester et codification de OnClick

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var
  i  : word;
  l : TListBoxItem;
begin
 
for I := 1 to 5 do
  begin
    l:=TListBoxItem.Create(ComboBox1);
    l.text:='item '+i.tostring;
    l.stylelookup:='listboxitem1style1';    // changement du style 
    combobox1.AddObject(l);
  end;
end;

Premier essai cela ne fonctionne pas pourtant l'élément sélectionné apparait bien en rouge dans le combobox

C'est là où se situe l'astuce, par défaut la propriété dropDownKind est à Native il faut la changer (je pense plutôt en fonction des plateformes) à Custom et c'est gagné

du coup je me suis dit que peut-être ton code pouvait fonctionner à partir du moment où la propriété DropDownKind était bien à Custom.
j'ai donc rajouté dans ma procedure button1click

Code :

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

1
2
3
4
5
6
7
8
9
10
for I := 1 to 5 do
  begin
    l:=TListBoxItem.Create(ComboBox1);
    l.StyledSettings:=[];
    l.text:='no style item '+i.tostring;
    l.TextSettings.FontColor:=TalphaColorRec.Green;
    l.TextSettings.Font.Family:='Courrier';
    l.TextSettings.Font.Size:=25;
    combobox1.AddObject(l);
  end;

et cela fonctionne aussi

du coup je pense qu'il y a plein d'autres solutions mais je reste sur ces deux.

Quel serait alors l'avantage d'utiliser le style ? D'une part moins de code à écrire, un élément de style est aussi réutilisable (d'ailleurs je l'ai construit avec un TListbox) et cerise sur le gâteau dans le style il y a aussi des effets (changement de couleur quand la souris est dessus) que la ta solution n'a pas.


charge à toi de tester pour IOS et Android, attention en cas d'utilisation des styles celui créé par l'éditeur de trouve en plate forme windows 10 Desktop un moyen de l'avoir sur les 3 OS est de faire la chose suivante :

1. Cliquer sur les ... de la propriété StyleCollection de StyleBook
2. selectionner default et renommer (propriété PlatForm) (i.e toto)
3. selectionner windows 10 Desktop
4. effacer la propriété platform
5. Supprimer toto

[SergioMaster]

Bonjour,

du coup j'ai testé pour Android (avec en plus le style Calypso) n'ayant pas de Mac ni d'IOS difficile de tester ces deux OS quant à Linux il faut que je mette le nouveau paserveur, celui pour la 10.2 ne fonctionnant pas pour Rio mais j'en ai encore besoin

j'en ai profité pour ajouter un case à cocher pour demander la présentation native ou non

Cette question pourrait donner lieu à un nouveau tutoriel, une FAQ ou un billet (ou les trois) j'y songe :

1. Une FAQ avec la simple astuce sur la propriété DropDownKind
2. Un billet pour expliquer les deux démarches
3. Un tutoriel pour mettre les couleurs en place avec un remplissage manuel des items mais aussi avec un remplissage via LiveBindings, qui pourrait s'accommoder en plus de mes quelques travaux d'avant vacances sur les couleurs dans les styles (à voir)

[Carmichael]

Effectivement ça marche.
Merci

Car

[SergioMaster]

Effectivement ça marche.

Quelle solution a été adoptée : juste la modification de dropDownKind en custom ou, en sus, l'utilisation d'un style ?