Discussion :

[SergioMaster]

Bonjour

en trois images et un peu de code le problème
design


exécution


Code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm4.Button1Click(Sender: TObject);
begin
if Sametext(Clients.Text,'not expanded') then clients.text:='Paramètres Clients' else Clients.Text:='not expanded';
if SKSVG2.RotationAngle=180 then SKSVG2.RotationAngle:=0 else  SKSVG2.RotationAngle:=180;
 
// vérification de la modification dans un TlistboxItem
if SKSVG1.RotationAngle=180 then SKSVG1.RotationAngle:=0 else  SKSVG1.RotationAngle:=180;
 
ClientPays.Visible:=not ClientPays.Visible;
ClientDevises.Visible:=not ClientDevises.Visible;
end;

Comme vous le constaterez, la flèche du groupe ne change pas de sens alors que la flèche d'un TlistBoxItem n'a aucun souci.
Un bogue avait été signalé (puis corrigé) quand on changeait le texte de Groupe (testé en première ligne de code) mais il me semble que le souci est plus grave, votre avis ?

P.S. j'ai tenté, les styles, les beginupdate/endUpdate etc.. sans succès