PureBoard

Code: Alles auswählen

;
; by Danilo, modified 26.06.2003
;
If OpenWindow(0,0,0,455,335,"PB - SkinWin Example 4",#PB_Window_BorderLess|#PB_Window_ScreenCentered|#PB_Window_Invisible)
  CreateGadgetList(WindowID(0))
    ProgressBarGadget(0,70,150,293,15,0,100)
;    ButtonGadget(1, 300, 240, 60, 25, "EXIT")

    SkinWin(WindowID(0),CatchImage(0,?SkinPicture))
  HideWindow(0,0)
  ButtonImageGadget(1,200,200,100,25,CatchImage(0,?Button1))

  Repeat
    SetGadgetState(0,Random(100))

    Select WaitWindowEvent()
      ; IF LeftMouseButton pressed...
      Case #WM_LBUTTONDOWN
        SendMessage_(WindowID(0),#WM_NCLBUTTONDOWN, #HTCAPTION,0)
      ; Check Buttons...
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1 ; EXIT
            End
        EndSelect
      ; pressed ALT+F4 ??
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf
End

DataSection
  SkinPicture:
    IncludeBinary "PB.bmp"
      Button1:
    IncludeBinary "c:\Button1.bmp"
EndDataSection

Code: Alles auswählen

  ButtonImageGadget(1,200,200,100,25,CatchImage(0,?Button1))

Code: Alles auswählen

  CreateGadgetList(WindowID(0))
    ProgressBarGadget(0,70,150,293,15,0,100)
;    ButtonGadget(1, 300, 240, 60, 25, "EXIT")

    SkinWin(WindowID(0),CatchImage(0,?SkinPicture))
  HideWindow(0,0)
  ButtonImageGadget(1,200,200,100,25,CatchImage(0,?Button1))

Code: Alles auswählen

  CreateGadgetList(WindowID(0))
    ProgressBarGadget(0,70,150,293,15,0,100)
;    ButtonGadget(1, 300, 240, 60, 25, "EXIT")
  ButtonImageGadget(1,200,200,100,25,CatchImage(0,?Button1))
    SkinWin(WindowID(0),CatchImage(0,?SkinPicture))
  HideWindow(0,0)

Code: Alles auswählen

;
; by Danilo, modified 26.06.2003
;
If OpenWindow(0,0,0,455,335,"PB - SkinWin Example 4",#PB_Window_BorderLess|#PB_Window_ScreenCentered|#PB_Window_Invisible)
  CreateGadgetList(WindowID(0))
    ProgressBarGadget(0,70,150,293,15,0,100)
;    ButtonGadget(1, 300, 240, 60, 25, "EXIT")

    SkinWin(WindowID(0),CatchImage(0,?SkinPicture))
  HideWindow(0,0)
  ButtonImageGadget(1,200,200,100,25,CatchImage(1,?Button1))

  Repeat
    SetGadgetState(0,Random(100))

    Select WaitWindowEvent()
      ; IF LeftMouseButton pressed...
      Case #WM_LBUTTONDOWN
        SendMessage_(WindowID(0),#WM_NCLBUTTONDOWN, #HTCAPTION,0)
      ; Check Buttons...
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1 ; EXIT
            End
        EndSelect
      ; pressed ALT+F4 ??
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf
End

DataSection
  SkinPicture:
    IncludeBinary "PB.bmp"
      Button1:
    IncludeBinary "c:\Button1.bmp"
EndDataSection

Code: Alles auswählen

Enumeration ;Fenster
  #frm_Main
  #frm_Dialog
EndEnumeration

Enumeration ;Gadgets
  #btn_Stop
  #btn_End
EndEnumeration

Enumeration ;Images
  #img_Skin
  #img_Button1
EndEnumeration