Discussion :

[BuzzLeclaire]

Bonsoir la compagnie,

J'ai juste un problème de compréhension.

- voici une procédure qui fonctionne très bien :

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
procedure TFPrincipal.ItemsBarreIconesClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to PopupMenuBarreIcones.Items.Count - 1 do
    PopupMenuBarreIcones.Items[i].Checked := False;
 
  case AnsiIndexStr(TMenuItem(Sender).Name,['PetitsIcones','GrandsIcones']) of
    0: sBtnClient_BarreIcones.Images := sAImageList16;
    1: sBtnClient_BarreIcones.Images := sAImageList32;
  end;
// ....
 
// ....
  TMenuItem(Sender).Checked := True;
end;

- J'ai essayé au paravant de faire ceci :

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
procedure TFPrincipal.ItemsBarreIconesClick(Sender: TObject);
var
  i: Integer;
begin
 
  for i := 0 to TMenuItem(Sender).Count - 1 do
    TMenuItem(Sender).Items[i].Checked := False;
 
  case AnsiIndexStr(TMenuItem(Sender).Name,['PetitsIcones','GrandsIcones']) of
    0: sBtnClient_BarreIcones.Images := sAImageList16;
    1: sBtnClient_BarreIcones.Images := sAImageList32;
  end;
  AffectationImageIndex(Self);
 
  TMenuItem(Sender).Checked := True;
end;

- ou même ceci :

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
procedure TFPrincipal.ItemsBarreIconesClick(Sender: TObject);
var
  i: Integer;
begin
 
  for i := 0 to TPopupMenu(Sender).Items.Count - 1 do
    TPopupMenu(Sender).Items[i].Checked := False;
 
  case AnsiIndexStr(TMenuItem(Sender).Name,['PetitsIcones','GrandsIcones']) of
    0: sBtnClient_BarreIcones.Images := sAImageList16;
    1: sBtnClient_BarreIcones.Images := sAImageList32;
  end;
  AffectationImageIndex(Self);
 
  TMenuItem(Sender).Checked := True;
end;

Mais cela ne marche pas.

Ma question comment remplacer dans mon première exemple PopupMenuBarreIcones.Items.Count - 1 par un sender de la procédure ?

Merci bien à vous...

[BuzzLeclaire]

Je me réponds...

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
procedure TFPrincipal.ItemsBarreIconesClick(Sender: TObject);
var
  i: Integer;
begin
 
  for i := 0 to TMenuItem(Sender).Parent.Count - 1 do
    TMenuItem(Sender).Parent.Items[i].Checked := False;
 
  case AnsiIndexStr(TMenuItem(Sender).Name,['PetitsIcones','GrandsIcones']) of
    0: sBtnClient_BarreIcones.Images := sAImageList16;
    1: sBtnClient_BarreIcones.Images := sAImageList32;
  end;
// ....
 
// ....
 
  TMenuItem(Sender).Checked := True;
 
end;