[Delphi] mettre une image dans une combobox

Marsh Posté le 20-04-2004 à 11:43:53

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...

Reply

Marsh Posté le 20-04-2004 à 11:43:53

Reply

Marsh Posté le 21-04-2004 à 15:39:03

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

Reply

Marsh Posté le 22-04-2004 à 10:23:41

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...

Reply

Marsh Posté le 22-04-2004 à 10:50:21

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

Reply

Marsh Posté le 23-04-2004 à 11:36:31

merci je vais étudier tous ca ! :jap:

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

Reply

[Delphi] mettre une image dans une combobox

Sujets relatifs:

Leave a Replay