; Title : Voici une petite procédure qui te permet d'utiliser les commandes Loadimage
;          ou Catchimage et qui te donne le format, icône ou bmp (sachant que LES jpg etc
;          s'assimilent au bmp) ce qui te permet d'utiliser l'API correspondante.
; Autor : Denis


Procedure GetImageType(ImageID.l)
   ; retourne -1 si c'est ni une icône ni un Bitmap
   ; sinon retourne 0 si c'est une icône et 1 si c'est un Bitmap
   
   If ImageID
      ObjectType = GetObjectType_(ImageID)
      If ObjectType = #OBJ_BITMAP
         ProcedureReturn 1
      ElseIf ObjectType = 0 ; objectype a échoué
         ; c'est un format ico
         ObjectType = GetIconInfo_(ImageID, ico.ICONINFO)
         If ObjectType And ico\fIcon
            ProcedureReturn 0
         EndIf
      EndIf
   EndIf
   ProcedureReturn - 1
EndProcedure