Discussion :

[SergioMaster]

Bonjour,

Mettez ça sur le fait de mon nouvel état de retraité, à moins que ce soit un bogue de Delphi 12, je n'en suis pas sûr

je tente de faire une liste avec 2 styles donc un TListbox lié par livebindings et le code suivant

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
procedure TFormStocks.LienLstCasiersFillingListItem(Sender: TObject;
  const AEditor: IBindListEditorItem);
var aItem : TListBoxItem;
begin
  AItem:=TListBoxItem(AEditor.CurrentObject);
  case fdqCasierstypeitem.AsInteger of
    1,2,3 : begin
              aItem.StyleLookup := 'groupcasier';
 //             aItem.ApplyStyleLookup;
              aItem.StylesData['btnremplir.tag']:=fdqCasiersTypeitem.AsInteger;
              aItem.StylesData['btnremplir.onclick']:=TValue.From<TNotifyEvent>(remplirgroupe);
              aItem.OnPainting:=ListBoxItem1Painting;
            end;
    else begin
              aItem.StyleLookup := 'choixcasier';
//              aItem.ApplyStyleLookup;
              aItem.StylesData['capacite']:=Format('Capacité : %d',[fdqCasierscapacite.asInteger]);
              aItem.StylesData['btnremplir.tag']:=fdqCasiersTypeitem.AsInteger;
              aItem.StylesData['btnremplir.onclick']:=TValue.From<TNotifyEvent>(remplirgroupe);
              aItem.OnPainting:=ListBoxItem1Painting;
    end;
  end;
end;

cela semble fonctionner comme ci-dessous

seulement si je défile dans la liste et que je reviens au début, j'obtiens

Bref, je perds en partie mes styles

J'ai déjà été confronté à cette chose, mais je ne me souviens plus comment résoudre ça

[SergioMaster]

J'ai résolu mon problème de la façon suivante, plutôt que de nommer mon stylename : text je l'ai changé en texte.

Comment en suis-je arrivé à cette solution ? J'avais remarqué que les autres, ou plutôt l'autre Tlabel, ne changeait pas, d'où mon idée de changer le nom du stylename (à ne pas confondre avec stylelookup)

Bien sûr, cela m'a obligé à changer un peu le 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
procedure TFormStocks.LienLstCasiersFillingListItem(Sender: TObject;
  const AEditor: IBindListEditorItem);
var aItem : TListBoxItem;
begin
  AItem:=TListBoxItem(AEditor.CurrentObject);
  case fdqCasierstypeitem.AsInteger of
    1,2,3 : begin
              aItem.StyleLookup := 'groupcasier';
              aItem.StylesData['texte']:=fdqcasiersNom.AsString;
              aItem.StylesData['btnremplir.tag']:=fdqCasiersTypeitem.AsInteger;
              aItem.StylesData['btnremplir.onclick']:=TValue.From<TNotifyEvent>(remplirgroupe);
            end;
    else begin
              aItem.StyleLookup := 'choixcasier';
              aItem.StylesData['texte']:=fdqcasiersNom.AsString;
              aItem.StylesData['capacite']:=Format('Capacité : %d',[fdqCasierscapacite.asInteger]);
              aItem.StylesData['btnremplir.tag']:=fdqCasiersTypeitem.AsInteger;
              aItem.StylesData['btnremplir.onclick']:=TValue.From<TNotifyEvent>(remplirgroupe);
    end;
  end;
end;

j'ai quand même gardé la liaison

ce qui me permet de faire la recherche via le TSearchbox que j'ai préalablement créé ainsi, et ce sans code pour ce qui concerne ensuite la recherche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
uses FMX.SearchBox;
...
procedure TFormStocks.FormCreate(Sender: TObject);
var asearch : TSearchBox;
begin
 asearch:=TSearchbox.Create(lstCasiers);
 aSearch.Height:=lstCasiers.ItemHeight;
 aSearch.Font.Size:=24;
 aSearch.StyledSettings:=aSearch.StyledSettings-[TStyledSetting.Size];
 lstCasiers.AddObject(asearch);
end;