[Delphi] mettre une image dans une combobox

mettre une image dans une combobox [Delphi] - Delphi/Pascal - Programmation

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 :
  1. function GetIcon(const FileName: string; const Large: Boolean): TIcon;
  2. var
  3.   sfi: TSHFileInfo;
  4.   i: Integer;
  5. begin
  6.   Result := nil;
  7.   try
  8.     Result := TIcon.Create;
  9.     if Large then
  10.       i := SHGFI_LARGEICON
  11.     else
  12.       i := SHGFI_SMALLICON;
  13.     SHGetFileInfo(PChar(FileName), FILE_ATTRIBUTE_NORMAL, sfi, SizeOf(sfi), SHGFI_ICON or SHGFI_USEFILEATTRIBUTES or i);
  14.     if sfi.hIcon = 0 then
  15.       FreeAndNil(Result)
  16.     else
  17.       Result.Handle := sfi.hIcon;
  18.   except
  19.     FreeAndNil(Result);
  20.   end;
  21. 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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed