CoolButton Lib

[frederic]

Voici une lib pour faire un bouton avec une stockimage (utilise les constantes de gtk)



http://fredme.free.fr/cbutton/coolbutton.zip

exemple :

Code : Tout sélectionner

NewList StockImage.s()

If OpenWindow(0, 0, 0, 230, 90, "Coolbutton", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

          AddElement(StockImage())
          StockImage() = #GTK_STOCK_OK
          AddElement(StockImage())
          StockImage() = #GTK_STOCK_ADD
          AddElement(StockImage())
          StockImage() = #GTK_STOCK_APPLY
          AddElement(StockImage())
          StockImage() = #GTK_STOCK_BOLD
          AddElement(StockImage())
          StockImage() = #GTK_STOCK_CANCEL
          AddElement(StockImage())
          StockImage() = #GTK_STOCK_CDROM
          ResetList(StockImage())
          NextElement(StockImage())
          
          If CreateGadgetList(WindowID(0))

                    CoolButtonGadget(1, 10, 10, 200,50, StockImage(), StockImage())

          EndIf


          Repeat
                    Event = WaitWindowEvent()
     
                    Select Event
     
                    Case #PB_Event_Gadget
                              Select EventGadget()
                                        Case 1
                                                  NextElement(StockImage())
                                                  CoolButton_SetGadgetText(1, StockImage())
                                                  CoolButton_SetGadgetImage(1, StockImage())
                                                  If ListIndex(StockImage()) = CountList(StockImage()) -1 
                                                            ResetList(StockImage())
                                                  EndIf
                              EndSelect
       
                    EndSelect
          Until Event = #PB_Event_CloseWindow
EndIf