PureBasic

Code : Tout sélectionner

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