Delphi Listbox : modifier le style d'un texte en mode programmation

Version imprimable

Bonjour,
Avec Rad Studio version 10.4 et compilation pour Android
J'ai une ListBox (ListBox1) avec une image et deux zones de texte : Text et Text2
Je voudrais pouvoir lors du remplissage de la listbox pouvoir définir la couleur et la taille du texte ainsi que la taille de l'image mais je n'y arrive pas
Voici mon code :
Code:

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 ListBox1.BeginUpdate; for i:= 1 to 5 do begin LBItem := TlistBoxItem.Create(ListBox1); LBItem.StyleLookup := 'ListboxItemBigImageStyle'; LBItem.Text := 'Bonjour'; LBItem.TextSettings.Font.Size := 14; LBItem.TextSettings.FontColor := claDodgerblue; LBItem.StylesData['Text2.Text'] := 'Paris'; LBItem.StylesData['Text2.TextSettings.Font.Size'] := 8; LBItem.ItemData.Bitmap := ImageList1.Source[i-1].MultiResBitmap.Bitmaps[1]; LBItem.ItemData.Bitmap.Height := 100; LBItem.ItemData.Bitmap.Width := 100; ListBox1.AddObject(LBItem); end; ListBox1.EndUpdate;
Ce code ne genere aucune erreur mais les 2 textes restent en noir et de la meme taille et la taille de l'image n'est pas modifiée mais mon image remplacée par un carré de couleur noire :(
Auriez vous une idée ?
Merci Merci ... :)

05/09/2020, 12h52
pprem

Modifie la propriété StyledSettings pour qu'elle ignore les propriétés que tu veux modifier par rapport au style.
05/09/2020, 13h14
pierrejean75
Citation:

Envoyé par pprem

Modifie la propriété StyledSettings pour qu'elle ignore les propriétés que tu veux modifier par rapport au style.

Merci !
j'ai essayé
Code:

1 2 3 LBItem.TextSettings.Font.Size := 8; LBItem.StyledSettings:=[TStyledSetting.Family,TStyledSetting.Style,TStyledSetting.FontColor,TStyledSetting.Other];
Et c'est nickel !
Merci Merci
05/09/2020, 13h25
pprem

impec

Citation:

Envoyé par pprem

impec

Merci pour ton aide !

Ca marche nickel pour la taille de la fonte mais :

Text s'affiche bien en taille 8 mais en noir et non pas en bleu
Text2 s'affiche bien en rouge mais en taille par défaut et non pas en taille 8

Et la taille de l'image n'est pas modifiée ...

Aurais tu une idée ?

Code:

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
 
begin
    ListBox1.BeginUpdate;
    for i:= 1 to 3 do
         begin
 
            LBItem                 := TlistBoxItem.Create(ListBox1);
            LBItem.StyleLookup     := 'ListboxItemBigImageStyle';
 
            LBItem.TextSettings.Font.Size := 8;
            LBItem.TextSettings.FontColor := claBlue;
            LBItem.StylesData['Text2.TextSettings.Font.Size'] := 8;
            LBItem.StylesData['Text2.TextSettings.FontColor'] := claRed;
            LBItem.ItemData.Bitmap.Height := 100;
            LBItem.ItemData.Bitmap.Width  := 100;
            LBItem.StyledSettings:=[TStyledSetting.Family,TStyledSetting.Style,TStyledSetting.FontColor,TStyledSetting.Other];
 
 
            LBItem.Text                     := 'Bonjour'
            LBItem.StylesData['Text2.Text'] := 'Paris';
            LBItem.ItemData.Bitmap := ImageList1.Source[i-1].MultiResBitmap.Bitmaps[1];
 
            ListBox1.AddObject(LBItem);
        end;
 
        ListBox1.EndUpdate;

05/09/2020, 14h14
pprem

tu as laissé TStyledSetting.FontColor
pour la taille de l'image, il n'y a pas de solution simple

d'ailleurs, pourquoi ne tentes-tu pas un style personnalisé ?
05/09/2020, 15h11
pierrejean75

Citation:

Envoyé par pprem

tu as laissé TStyledSetting.FontColor
pour la taille de l'image, il n'y a pas de solution simple

d'ailleurs, pourquoi ne tentes-tu pas un style personnalisé ?

ah ok merci....

Style personnalisé avec plaisir mais je ne sais pas comment faire .... lol
05/09/2020, 16h07
SergioMaster

Comme Patrick, j'ai toujours pensé au style personnalisé.
Et c'est relativement simple (en tout cas plus qu'avec XE4) le tuto que j'avais écrit est toujours d'actualité.
Depuis, c'est sûr je maitrise mieux mais surtout ListView, j'ai été surpris des différences entre ListBox et ListView.
Il me semble me souvenir d'une discussion à peu près identique datant de l'année dernière, donc j'ai du déjà y expliquer comment faire
05/09/2020, 16h30
pierrejean75

Citation:

Envoyé par SergioMaster

Comme Patrick, j'ai toujours pensé au style personnalisé.
Et c'est relativement simple (en tout cas plus qu'avec XE4) le tuto que j'avais écrit est toujours d'actualité.
Depuis, c'est sûr je maitrise mieux mais surtout ListView, j'ai été surpris des différences entre ListBox et ListView.
Il me semble me souvenir d'une discussion à peu près identique datant de l'année dernière, donc j'ai du déjà y expliquer comment faire

Merci a toi je vais aller lire ton Tuto :)
06/09/2020, 06h21
SergioMaster

et ça https://www.developpez.net/forums/d1.../#post10375176