PureBoard

Code: Alles auswählen

; www.purearea.net (Sourcecode collection by cnesm)
; Author:
; Date: 22. November 2003
; erweitert durch nen platten Knopf


Procedure.l MyImage(ImageNumber.l, Width.l, Height.l, Color.l)
  ImageID.l = CreateImage(ImageNumber, Width, Height)
  StartDrawing(ImageOutput())
  LoadImage(0,"bg.bmp")
  DrawImage(UseImage(0), 0, 0) 
  StopDrawing()
  ProcedureReturn ImageID
EndProcedure

#BS_FLAT=$8000
;
; Main starts here
;
If OpenWindow(0, 200, 200, 150, 100, #PB_Window_SystemMenu, "zZzzzZzZzZzzzZzzz")

  If CreateGadgetList(WindowID())
    ButtonImageGadget(105, 10, 10, 40, 20, MyImage(1,40,20,$0000FF))
    ButtonImageGadget(106, 60, 10, 40, 20, MyImage(2,40,20,$FF00BB))
    s.l=GetWindowLong_(GadgetID(106), #GWL_STYLE)
    SetWindowLong_(GadgetID(106), #GWL_STYLE, #BS_FLAT | s)
  EndIf

  Repeat
    Select WaitWindowEvent()
      Case #PB_EventCloseWindow : End
      Case #PB_EventGadget
        Select EventGadgetID()
          Case 105 ; Button 1
            SetGadgetState(106,MyImage(2,40,20,Random($FFFFFF)))
          Case 106 ; Button 2
          Debug hallo
        EndSelect
    EndSelect
  ForEver

EndIf 

Code: Alles auswählen

;Pseudocode

LoadImage(#normal, "button.png")
LoadImage(#hover, "button_hover.png")
LoadImage(#down, "button_down.png")

ImageGadget(#imagebuttongadget, ImageID(1))

If EventGadget() = #imagebuttongadget
   ;Gadgetbild je nach dem ändern und/oder Gadget als angeklickt melden
EndIf