ButtonImageGadget() image+Texte

[Chris]

Je l'ai fait sous XP, il faut activer le support des themes XP dans les options.

Mais je ne sais pas si ça fonctionnera sous 2000

Chris

[nico]

Fonctionne bien sous XP, excellent Chris!

@Dobro,
C'est Ibasic.

[Chris]

Fonctionne bien sous XP, excellent Chris!

@Dobro,
C'est Ibasic.

Ouais, bof !!!

Pas mal, tout au plus
Ce serait mieux si ça fonctionnait aussi sous 98!

Chris

[momo30]

Voila quelques améliorations du code de Chris

Code : Tout sélectionner

; il faut activer le suport XP pour voir l'image


#Window = 0 
#BCM_FIRST = $1600 
#BCM_SETIMAGELIST = #BCM_FIRST + $0002 
#BUTTON_IMAGELIST = $0002 ;        $0000 left, $0001 droite, $0002 haut, $0003 bas, $0004 centre


Enumeration 
  #Bouton1 
  #Bouton2
EndEnumeration 

Structure BUTTON_IMAGELIST 
  hImageList.l 
  margin.RECT 
  uAlign.l 
EndStructure 



Image.BUTTON_IMAGELIST 
SizeImage = 48     
hImg = ImageList_LoadImage_(#Null,"C:\Program Files\PureBasic\print3.bmp",SizeImage,1,#CLR_DEFAULT,#IMAGE_BITMAP,#LR_LOADFROMFILE) 

Image\hImageList = hImg 
;Image\uAlign = #BUTTON_IMAGELIST_ALIGN_TOP 
Image\uAlign = #BUTTON_IMAGELIST
;Image\margin\left = 1 ;donne la possition du bord 
;Image\margin\right = 10
Image\margin\top = 9

Image2.BUTTON_IMAGELIST
SizeImage = 48     
hImg2 = ImageList_LoadImage_(#Null,"C:\Program Files\PureBasic\sortir24.bmp",SizeImage,1,#CLR_DEFAULT,#IMAGE_BITMAP,#LR_LOADFROMFILE) 

Image2\hImageList = hImg2 
;Image\uAlign = #BUTTON_IMAGELIST_ALIGN_TOP 
Image2\uAlign = #BUTTON_IMAGELIST
;Image\margin\left = 1 ;donne la possition du bord 
;Image\margin\right = 10
Image2\margin\top = 9


If OpenWindow(#Window,0,0,200,200,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Bouton avec image") 
  CreateGadgetList(WindowID(#Window)) 
  hButton1 = ButtonGadget(#Bouton1,10,10,90,80,"Image") 
  hButton2 = ButtonGadget(#Bouton2,100,10,90,80,"Sortir") 
 
  SendMessage_(hButton1,#BCM_SETIMAGELIST,0,Image) 
  SendMessage_(hButton2,#BCM_SETIMAGELIST,0,Image2)
  
  Repeat 
    Select WindowEvent() 
      Case #PB_Event_Gadget 
        Select EventGadgetID() 
          Case #Bouton1 
            SetWindowTitle(#Window,"Bouton 1 cliqué") 
          Case #Bouton2 
            SetWindowTitle(#Window,"Bouton 2 cliqué") 
 
        EndSelect 
        
      Case #PB_Event_CloseWindow 
        quit = #True 
        
    EndSelect 
  Until quit 
  End 
EndIf

je suppose que Chris ne m'en voudra pas

momo30

[Chris]