Affichage d'une icône

(Suite à mon intervention dans 'Présentation et bavardage')
Pour afficher une icône (format .ICO, avec gestion de la transparence) dans un objet Panoramic (Picture),
il suffit d'utiliser une fonction de KGF.dll de l'ami Klaus, bien pratique.

Cette fonction copie l'icône dans le presse-papier, en respectant les zones de transparence.
On peut ensuite soit enregistrer le presse-papier en bmp, soit le coller dans un picture.

Code:

SUB IcoToBmp(f$,fr$)
  ' conversion ICO en BMP (ou clipboard si fr$ = "")
  ' avec respect de la transparence (KGF.dll)
  DIM_LOCAL i%
  DLL_ON "C:\PANORAMIC\KGF\KGF.dll": ' <======= à ajuster !
      i% = DLL_CALL1("LoadAnyImageFile",ADR(f$)): ' icône -> clipboard
  DLL_OFF
  IF fr$ <> "": ' enregistrement dans fr$ en bmp
      PICTURE 990: HIDE 990: CLIPBOARD_PASTE 990: FILE_SAVE 990,fr$: DELETE 990
  END_IF
END_SUB

Ce qui permet d'utiliser de véritables icônes windows, qu'on trouve facilement sur internet sur tous les sujets, dans un programme Panoramic.

Exemple, dans un picture panoramic:

En haut les icônes après conversion au format bmp par un utilitaire externe (ici IrfanView)
Dessous, les mêmes icônes affichées depuis le presse-papier après appel de la fonction 'LoadAnyImageFile' de KGF.dll.
Y'a pas photo...