Discussion :

[pierrejean75]

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 :

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
 
    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 ...

[pprem]

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

[pierrejean75]

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 :

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

1
2
3
 
           LBItem.TextSettings.Font.Size := 8;
           LBItem.StyledSettings:=[TStyledSetting.Family,TStyledSetting.Style,TStyledSetting.FontColor,TStyledSetting.Other];

Et c'est nickel !
Merci Merci

[pprem]

impec

[pierrejean75]

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 :

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
 
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;

[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é ?