TImageList/fr: what changed
Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | 1 | **TImageList**  est un composant qui fournit une list d'[[TImage/fr|images]] qui peut être utilisée dans d'autres composants comme [[TToolBar/fr|TToolBar]] of [[TActionList/fr|TActionList]]. . | |
| 2 | 2 | ||
| 3 | 3 | # Exemple avec un TComboBox | |
| 4 | 4 | ||
| 5 | 5 | Pour utiliser un TImageList, déposez un objet TImageList sur la fiche. Dans cet exemple, nous avons besoin de six images. | |
| 6 | 6 | ||
| 7 | 7 | Toutes les images doivent être de la même taille. Si deux tailles d'image doivent être utilisées, alors deux listes TImageList doivent être utilisées. | |
| 8 | 8 | ||
| 9 | 9 | Définissez la largeur et la hauteur des images dans l'inspecteur d'objet ; dans ce cas 50px de large par 18px de haut. | |
| 10 | 10 | ||
| 11 | 11 | Définissez le style à csOwnerDrawFixed. | |
| 12 | 12 | ||
| 13 | - | ||
| 13 | + | Double-cliquez sur l'icône du TImageList pour ouvrir l'éditeur associé. Assurez-vous que les icônes sont affichées correctement une fois sélectionnée. Si elles sont plus petites qu'attendu, contrôlez la taille dans l'inspecteur d'objet `F11`. Vous aurez peut-être à recharger les images. | |
| 14 | 14 | ||
| 15 | - | ||
| 16 | - | ||
| 17 | - | ||
| 18 | - | ||
| 15 | + |  | |
| 19 | 16 | ||
| 20 | 17 | Placez un TComboBox sur la fiche et nommez-le cbSymbols. | |
| 21 | 18 | ||
| 22 | 19 | Dans l'événement FormCreate de la fiche, entrez le code suivant : | |
| 23 | 20 | ||
| 24 | 21 | ``` pascal | |
| 25 | 22 | cbSymbols.Items.Clear; | |
| 26 | 23 | for I := 0 to 5 do | |
| 27 | 24 | cbSymbols.Items.Add(''); | |
| 28 | 25 | cbSymbols.ItemIndex := 0; | |
| 29 | 26 | ``` | |
| 30 | 27 | ||
| 31 | 28 | Cela écrira 6 entrées blanches, et sélectionne la première. | |
| 32 | 29 | ||
| 33 | 30 | Dans l'événement OnDrawItem pour cbSymbols, placez le code suivant : | |
| 34 | 31 | ||
| 35 | 32 | ``` pascal | |
| 36 | 33 | procedure TMyForm.cbSymbolsDrawItem( | |
| 37 | 34 | aControl: TWinControl; | |
| 38 | 35 | iIndex: Integer; | |
| 39 | 36 | aRect: TRect; | |
| 40 | 37 | aState: TOwnerDrawState ); | |
| 41 | 38 | var | |
| 42 | 39 | cnv: TCanvas; | |
| 43 | 40 | begin | |
| 44 | 41 | if not (aControl is TComboBox) then exit; | |
| 45 | 42 | cnv := TComboBox( aControl ).Canvas; | |
| 46 | 43 | Imagelist1.Draw( cnv, aRect.Left+2, aRect.Top+2, iIndex ); | |
| 47 | 44 | end; | |
| 48 | 45 | ``` | |
| 49 | 46 | ||
| 50 | 47 | Les ajustements (+2) sont là pour centrer l'image dans l'élément, si nécessaire. | |
| 51 | 48 | ||
| 52 | - | ||
| 53 | - | ||
| 54 | - | ||
| 55 | - | ||
| 49 | + |  | |
| 56 | 50 | ||
| 57 | 51 | # Exemple avec des TSpeedButton | |
| 58 | 52 | ||
| 59 | 53 | Ajoutez des images dans la boîte d'images comme dans l'exemple précédent et utilisez : | |
| 60 | 54 | ||
| 61 | 55 | ``` pascal | |
| 62 | 56 | SpeedButton1.GetBitmap(iIndex,spbTCNext.Glyph); | |
| 63 | 57 | ``` | |
| 64 | 58 | ||
| 65 | 59 | > **Warning:** Exemple à vérifier | |
| 66 | 60 | ||
| 67 | 61 | # Voir aussi | |
| 68 | 62 | ||
| 69 | 63 | - [[doc:lcl//controls/timagelist.html|Doc. TImageList]] | |
| 70 | 64 | - [[TImage/fr|TImage]] | |
| 71 | 65 | ||
| 72 | 66 | --- | |
| 73 | 67 | *From the Free Pascal wiki, page "TImageList/fr", as it stood on 2020-03-01 after a change by GAN, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |