[Delphi] mettre une image dans une combobox

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Delphi] mettre une image dans une combobox

stef_dobermann

Personne n'est parfait ...

Bonjour,

tout est dans le titre, je ne sais pas comment faire !
j'ai regardé l'objet ComboBoxEx mais je ne trouve ps d'exemple pour me guider ! :sweat:

meme dans le livre Delphi 7 Studio écrit par Olivier Dahan et Paul Toth je n'ai rien trouvé :sweat:

merci d'avance pour votre aide !
SteF

---------------
Tout à commencé par un rêve...

Publicité

antp

Super Administrateur
Champion des excuses bidons

Si je me souviens bien tu dois mettre tes images dans une TImageList, reliée à la TComboboxEx
C'est quoi le problème exactement ?

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

stef_dobermann

Personne n'est parfait ...

j'ai fait un prog qui liste des fichiers ce trouvant dans un répertoire précis et je les affiche dans une combobox, mon but serait de mettre à coté de chaque fichier son icone attaché pour que mes clients aye une meilleur visibilité !

---------------
Tout à commencé par un rêve...

antp

Super Administrateur
Champion des excuses bidons

Code :

function GetIcon(const FileName: string; const Large: Boolean): TIcon;
var
sfi: TSHFileInfo;
i: Integer;
begin
Result := nil;
try
Result := TIcon.Create;
if Large then
i := SHGFI_LARGEICON
else
i := SHGFI_SMALLICON;
SHGetFileInfo(PChar(FileName), FILE_ATTRIBUTE_NORMAL, sfi, SizeOf(sfi), SHGFI_ICON or SHGFI_USEFILEATTRIBUTES or i);
if sfi.hIcon = 0 then
FreeAndNil(Result)
else
Result.Handle := sfi.hIcon;
except
FreeAndNil(Result);
end;
end;

Lorsque tu ajoutes un item à ta combobox, tu fais un appel à GetIcon.
Pour l'ajouter à la TImageList l'icône obtenue, il suffit d'utiliser la fonction AddIcon de l'ImageList, et d'ensuite assigner à la propriété ImageIndex de l'élément de la combobox l'index retourné par la fonction AddIcon.
Ensuite tu fais un Free de l'icône retournée par la fonction GetIcon.

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

stef_dobermann

Personne n'est parfait ...

merci je vais étudier tous ca ! :jap:

---------------
Tout à commencé par un rêve...

FORUM HardWare.fr

Programmation

Delphi/Pascal

[Delphi] mettre une image dans une combobox

Sujets relatifs
(Access 2000) mettre a jour un champ	Image dans Lien hypertexte
Appel de modules en C à partir d'une appli Delphi	afficher une image par lien !! aide please
Radial blur sur bmp en delphi	[php] Forcer le téléchargement d'une image
[Delphi] Détection d'un process : ch routine	combobox
[Delphi] Boite de dialogue "Patientez"	[HTML] Place d'une image
Plus de sujets relatifs à : [Delphi] mettre une image dans une combobox

Page générée en 0.050 secondes