; Auteur : Dr.Dri
; Fonctions Bitmap

Procedure.l IsImageBitmap(Image.l)
  Protected IsBitmap.l = #False, bm.Bitmap
 
  If IsImage(Image) And GetObject_(ImageID(Image), SizeOf(Bitmap), bm) = SizeOf(Bitmap)
    IsBitmap = #True
  EndIf
 
  ProcedureReturn IsBitmap
EndProcedure

Procedure.l IsImageDIBSection(Image.l)
  Protected IsDIBSection.l = #False, ds.DIBSection
 
  If IsImage(Image) And GetObject_(ImageID(Image), SizeOf(DIBSection), ds) = SizeOf(DIBSection)
    IsDIBSection = #True
  EndIf
 
  ProcedureReturn IsDIBSection
EndProcedure

Procedure.l IsImageIcon(Image.l)
  Protected IsIcon.l = #False, ic.IconInfo
 
  If IsImage(Image) And GetIconInfo_(ImageID(Image), ic) And ic\fIcon
    IsIcon = #True
  EndIf
 
  ProcedureReturn IsIcon
EndProcedure

Procedure.l IsImageCursor(Image.l)
  Protected IsCursor.l = #False, ic.IconInfo
 
  If IsImage(Image) And GetIconInfo_(ImageID(Image), ic) And Not ic\fIcon
    IsCursor = #True
  EndIf
 
  ProcedureReturn IsCursor
EndProcedure