Discussion :

[ChPr]

Bonjour à toutes et à tous,

Me voilà bien en peine, je n'ai pas trouvé le moyen d'affecter une des images contenues dans un TImageList à un TSpeedButton. Voilà ce que j'ai essayé sans succès :

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
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to NbBoutons-1 do
  begin
    Bouton[i]:= TSpeedButton.Create(Self);
    with Bouton[i] do
    begin
      Parent:= Self;
      Height:= 83;
      Width:= 87;
      ListImgBtn.Draw(Glyph.Canvas, 0, 0, i, True);
//      Glyph:= TBitmap(ListImgBtn.Components[i]);
      Left:= i*(Width+8);
    end;
  end;
end;

Que ce soit la ligne 13 ou 14 du code ci-dessus, le résultat est le même : les boutons s'affichent, mais sans images !

J'ai essayé aussi avec un TSpeedButton venant de la barre de composants : même résultat.

Une idée de ce qu'il faut faire ?

Cordialement.

Pierre

[tourlourou]

Bonsoir,
Ne faut-il pas affecter la liste à Images et renseigner ImageIndex ?

[ChPr]

Bonsoir,
Ne faut-il pas affecter la liste à Images et renseigner ImageIndex ?

Je suis avec Lazarus 1.6.4 et j'ai vu ces propriétés dans un TMenu, mais aucun bouton (dont TSpeedButton) n'a ni propriété "Images" ni propriété "ImageIndex" .

Cordialement.

Pierre

[Roland Chastain]

Bonsoir !

Je n'ai pas essayé, mais sur cette page on donne le code suivant :

Code :

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

ImageList1.GetBitmap(iIndex, SpeedButton1.Glyph);

Bonne chance !

[ChPr]

Bonsoir !

Je n'ai pas essayé, mais sur cette page on donne le code suivant :

Code :

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

ImageList1.GetBitmap(iIndex,SpeedButton1.Glyph);

Bonne chance !

Ben j'avais essayé, mais pas de chance, GetBitmap(...) n'existe pas en 1.6.4 !

Cordialement.

Pierre

[BeanzMaster]

Ben j'avais essayé, mais pas de chance, GetBitmap(...) n'existe pas en 1.6.4 !

Cordialement.

Pierre

Salut c'est peut-être bête mais est-ce que la propriété Glyph (TBitmap) est initialisée (different de nil) ?

Si non peut-être juste en rajoutant

Code :

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

1
2
3
4
5
 
SpeedButton.Glyph := TBitmap.Create; // ici c'est peut-être pas la peine
SpeedButton.Glyph.Width := 16; // Mais définir les dimensions avant de copier, oui,  car si 0x0 rien ne s'affichera
SpeedButton.Glyph.Height := 16;
ListImgBtn.Draw(SpeedButton.Glyph.Canvas, 0, 0, i, True);

A+