Verfasst: 17.04.2005 19:09
Fixed, a new beta will be available in couple of hours125 hat geschrieben:Stimmt. Er erzeugt nur Source wenn man auf "Project"->"PureBasic Editor" klickt.
Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Fixed, a new beta will be available in couple of hours125 hat geschrieben:Stimmt. Er erzeugt nur Source wenn man auf "Project"->"PureBasic Editor" klickt.
I'm still working on the new VD, this is just the 3.90 version, wich i did a bugfix on last saturday. And yes, The new VD is almost a complete rewrite of the core application, that's the reason it takes so much time.Lars hat geschrieben:@Berikco
War es nicht mal im Gespräch, dass der VD komplett neu geschrieben und
sehr viel flexibler wird, sodass er der VB IDE ähnelt (Steuercode direkt in
der Gadgetoptionen etc.)?
Ich meine, da hätte es mal ein Gerücht gegeben, aber ich lasse mich auch
eines Besseren belehren
Thanks, i wasn't quite sure if this was just a bugfix release or a sign for aBerikco hat geschrieben:I'm still working on the new VD, this is just the 3.90 version.
Code: Alles auswählen
; PureBasic Visual Designer v3.91 BETA 2 build 1428
;- Window Constants
;
Enumeration
#Window_0
#Window_1
EndEnumeration
;- Gadget Constants
;
Enumeration
#Button_0
#Button_1
#Button_2
#Button_3
#Button_4
#Button_5
#String_0
#String_1
#String_2
#ListIcon_0
#ListIcon_1
EndEnumeration
Procedure Open_Window_0()
If OpenWindow(#Window_0, 458, 379, 600, 300, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
If CreateGadgetList(WindowID())
ButtonGadget(#Button_4, 210, 130, 110, 30, "")
ButtonGadget(#Button_5, 370, 180, 40, 10, "")
StringGadget(#String_0, 80, 40, 100, 30, "")
StringGadget(#String_1, 90, 180, 130, 70, "")
StringGadget(#String_2, 360, 250, 70, 20, "")
;-
ListIconGadget(#ListIcon_0, 420, 40, 140, 100, "Column0", 100)
EndIf
EndIf
EndProcedure
Procedure Open_Window_1()
If OpenWindow(#Window_1, 236, 20, 600, 300, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 1 )")
If CreateGadgetList(WindowID())
ButtonGadget(#Button_0, 500, 250, 80, 30, "")
ButtonGadget(#Button_1, 290, 120, 140, 50, "")
ButtonGadget(#Button_2, 80, 150, 110, 70, "")
ButtonGadget(#Button_3, 270, 240, 120, 30, "")
;-
ListIconGadget(#ListIcon_1, 60, 10, 130, 100, "Column0", 100)
EndIf
EndIf
EndProcedure
und die loop
; PureBasic Visual Designer v3.91 BETA 2 build 1428
IncludeFile "GeneratedIncludeFile.pb"
Open_Window_0()
Open_Window_1()
Repeat ; Start of the event loop
Event = WaitWindowEvent() ; This line waits until an event is received from Windows
WindowID = EventWindowID() ; The Window where the event is generated, can be used in the gadget procedures
GadgetID = EventGadgetID() ; Is it a gadget event?
EventType = EventType() ; The event type
;You can place code here, and use the result as parameters for the procedures
If Event = #PB_EventGadget
EndIf
Until Event = #PB_Event_CloseWindow ; End of the event loop
End