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+

[ChPr]

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+

Mon Glyph n'était pas initialisé. J'ai rajouté les lignes que tu m'as dites et au lieu de n'avoir aucune image, j'ai une image toute noire.

Je suis alors passé par un Bmp intermédiaire et maintenant, ça fonctionne !

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 TLanceur.FormCreate(Sender: TObject);
var
  i: Integer;
  Bmp: TBitmap;
begin
  Bmp:= TBitmap.Create;
  Bmp.Width:= 82;
  Bmp.Height:= 78;
  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(Bmp.Canvas, 0, 0, i, True);
      Glyph.Assign(Bmp);
      Left:= i*(Width+8);
    end;
  end;
  Bmp.Free;
end;

Bizarre.

Cordialement.

Pierre

[Jipété]

Salut,

Je suis alors passé par un Bmp intermédiaire et maintenant, ça fonctionne !

Moi je n'en utilise pas.

Je crée des TBitBtn dynamiquement, comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  mrvArrayView[i] := TMirrorBitButtonV.Create(pnlArrayView[i]); // TBitBtn
  with mrvArrayView[i] do begin
    inherited;
    Parent := pnlArrayView[i]; // un bête TPanel créé dynamiquement lui aussi
    AutoSize := False;
    SetBounds (PNLLARGEUR-BUTTONCONST-1, PNLHAUTEUR-BUTTONCONST-1, BUTTONCONST, BUTTONCONST);
    Caption := '';
    Color := clMedGray;
    imglist4Glyph12.GetBitmap(3, Glyph); // TImageList 12x12
    Hint := 'Miroir vertical';
    ShowHint := True;
    OnClick := @MiroirV;
  end;

avec

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
type
  TRotateBitButton = class(TBitBtn)
  public
    { public declarations }
    property Caption;
    property Glyph;
    property OnClick;
    property ShowHint;
  end;
 
  TMirrorBitButtonV = class(TRotateBitButton)
  end;
 
var
  pnlArrayView: array [0..MAXIMAGES-1] of TPanel;
  mrvArrayView: array [0..MAXIMAGES-1] of TMirrorBitButtonV;

sans oublier

Code :

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

1
2
3
4
5
const
  MAXIMAGES  = 100;
  PNLHAUTEUR = 200;
  PNLLARGEUR = 180;
  BUTTONCONST = 24;

[ChPr]

... Moi je n'en utilise pas.

Je crée des TBitBtn dynamiquement, comme ça :

Code :

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

1
2
3
...
    imglist4Glyph12.GetBitmap(3, Glyph); // TImageList 12x12
...

J'ai dit un peu plus haut qu'avec ma version 1.6.4, la fonction GetBitmap(...) n'existait pas.

Cordialement.

Pierre

[Jipété]

J'ai dit un peu plus haut qu'avec ma version 1.6.4, la fonction GetBitmap(...) n'existait pas.

Ah, peut-être alors as-tu une version exotique ?
Car ça, ça m'épate (de mouche !)

"Ils" auraient supprimé juste dans la 1.6.4 la procédure GetBitmap ?
Parce que le code que j'ai posté a été écrit avec une vieille 1.4, certes, mais voilà ci-dessous les copies d'écran de haut en bas d'une 1.6.2, puis 1.8.2, et enfin 2.0.4.



Et force est de constater que la complétion propose la procédure (je ne suis pas allé plus loin).

[ChPr]

Ah, peut-être alors as-tu une version exotique ?
Car ça, ça m'épate (de mouche !) ...

Mea culpa, mea maxima culpa , la sénilité me guette. Pour moi, cette fonction devait appartenir à :

Code :

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

MonBouton.Glyph.GetBitmap(MaListeImages, Index);

qui me semblait une évidence dans la syntaxe car c'était "MonBouton.Glyph" qui requérait une image de la Liste d'images.

Dans ma tête, MaListeImages.GetBitmap(Index, UneImage) voulait dire : "MaListeImages" requiert une image pour l'ajouter à sa liste ... d'où ma confusion et je n'ai pas pensé un seul instant que ce fut l'inverse.

La "procédure" MaListeImages.GetBitmap(Index, MonBouton.Glyph) existe bien dans la version 1.6.4.

Cordialement.

Pierre

[Jipété]

Mea culpa, mea maxima culpa , la sénilité me guette.

Mais non, mais non, on se fait tous avoir avec ce genre de noms à double sens, moi c'est aBitmap.Canvas.Draw(l, t, src) qui m'embrouille, parce qu'au final c'est la source qui va être dessinée dans le canvas du bitmap.

Quand je me fais des procs/fonctions perso, si le nom est ambigu (ce que j'essaye d'éviter), je rajoute "to" ou "from", et je ne suis pas le seul :

Code :

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

1
2
    Procedure DrawToOpenGL(DisplayRect: TRect);
    Procedure DrawTo(Canvas: TCanvas);

source.

[tourlourou]

C'est piégeux, en effet
On pourrait faire des TBimap helpers qui exposeraient une méthode FromList(aList, aIndex).

[Jipété]

Yop !

On pourrait faire des TBitmap helpers qui exposeraient une méthode FromList(aList, aIndex).

Plutôt le boulot des gens de FreePascal, non ?

[tourlourou]

Oui, tu as raison. On peut tout de même se faire une unité MyTricks ou MyUtils pour se simplifier la vie et gagner du temps au final, en évitant de se prendre la tête plusieurs fois sur des bêtises.

[Jipété]

[…] se faire une unité MyTricks ou MyUtils […]

qui serait prise en compte par la complétion ? Ça dépasse mes compétences,

[BeanzMaster]

Salut

qui serait prise en compte par la complétion ? Ça dépasse mes compétences,

Oui, quand tu te sert des assistants "Helper", c'est pris par la complétion de code A savoir tu ne peut avoir qu'un seul assistant par type au quel cas ce sera le dernier déclaré (ordre dans les uses) qui sera pris en compte.

A+