PureBoard

Code: Alles auswählen

Enumeration
#Window_0
#txt1
#txt2
#txt3
#buttonEnd
#buttonNew
#web
#frame
#img
EndEnumeration

Define.l Event, EventWindow, EventGadget, EventMenu

Global width.i = 960
Global height.i = 768

Global W_dscrx.i = 80
Global W_dscry.i = 20
Global W_dscrw.i = 700
Global W_dscrh.i = 570
W_dscrx = (width - W_dscrw)/2
    
#pathTxt = "text\fr\"
UseJPEGImageDecoder()

imgBack = CatchImage (1,?imgBack)


If OpenWindow(#Window_0, 0, 0, width, height, "Titel", #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
  hWnd = GetActiveWindow()
  ;-      ImageGadget(#img, 0,0,width,height-300,imgBack)

  TextGadget(#txt1, 0, height-120, width, 120, "");
  SetGadgetColor(#txt1, #PB_Gadget_BackColor, RGB($99, $CC, $CD))
  
  TextGadget(#txt2, 0, height-30, width, 25, "text ... ", #PB_Text_Center)

  SetGadgetColor(#txt2, #PB_Gadget_BackColor, RGB($99, $CC, $CD))
  SetGadgetColor(#txt2, #PB_Gadget_FrontColor, RGB($33, $66, $CC))
  
  ButtonGadget(#buttonEnd,      width -100, height-100, 70, 30, "end")
  
  WebGadget(#web, W_dscrx, W_dscry, W_dscrw, W_dscrh, "")
  Global dscr.s=PeekS(?dscr, ?W_1_end-?dscr)
  SetGadgetItemText (#web, #PB_Web_HtmlCode, dscr.s)
  Frame3DGadget(#frame, W_dscrx-1, W_dscry-1, W_dscrw+2, W_dscrh+2, "xxxxxxx", #PB_Frame3D_Flat)
     
  ButtonGadget(#buttonNew,      width/2 + 50, height-100, 70, 30, "new")
EndIf

isTxt3=#False
stateTxt3 = 0;
Repeat
  Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      
      If EventGadget = #buttonEnd
        CloseWindow(#Window_0)
        Break
      ElseIf EventGadget = #buttonNew
        If isTxt3 = #False
          TextGadget(#txt3, 10, height-200, 50, 25, "text3 ... ")
          Debug("TextGadget")
          ;HideGadget(#txt3,stateTxt3)
          isTxt3 = #True
        Else
          If stateTxt3 = 1
            stateTxt3 = 0
          Else
            stateTxt3 = 1
          EndIf
          HideGadget(#txt3,stateTxt3)
        EndIf
      

      EndIf
      
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver

DataSection
  imgBack: IncludeBinary "imgBack.jpg"
  dscr: IncludeBinary #pathTxt + "W_1_dscr.html" : W_1_end:
EndDataSection 

Code: Alles auswählen

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
  #Image_0
  #Button_0
EndEnumeration
;- Image Globals
Global Image0
;- Catch Images
Image0 = CreateImage(0,400,400)
StartDrawing(ImageOutput(0))
  Box(0,0,400,400,RGB(255,222,192))
  DrawText(0,100,"Das Image ist nach dem Start Disabled")
  DrawText(0,120,"und der Knopf wuppt wie er soll")
StopDrawing()
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If UseGadgetList(WindowID(#Window_0))
      ImageGadget(#Image_0, 40, 50, 1280, 960, Image0)
      ButtonGadget(#Button_0, 30, 20, 180, 100, "WATT FÜRN BATTN")
      DisableGadget(#Image_0,1)
    EndIf
  EndIf
EndProcedure
Open_Window_0()
Repeat ; Start of the event loop
  Event = WaitWindowEvent() ; This line waits until an event is received from Windows
  WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
  GadgetID = EventGadget() ; Is it a gadget event?
  EventType = EventType() ; The event type
  If Event = #PB_Event_Gadget
    If GadgetID = #Image_0
    ElseIf GadgetID = #Button_0
      DisableGadget(#Image_0,0)
      StartDrawing(ImageOutput(0))
        Box(0,0,400,400,RGB(192,222,255))
        DrawText(0,100,"Das Image ist nun nicht mehr Disabled")
        DrawText(0,120,"und der Knopf wuppt gar nicht mehr wie er soll")
        DrawText(0,120,"der Knopf geht nun vermutlich nur noch da, wo kein Imagegadget dahinter liegt.")
      StopDrawing()
      SetGadgetState(#Image_0,ImageID(0))
    EndIf
  EndIf
Until Event = #PB_Event_CloseWindow ; End of the event loop
End