Page 74 of 103
Posted: Wed Apr 15, 2009 11:22 am
by gnozal
1. PureFORM doesn't need PB to work. It only calls the PBCompiler to detect the PB version (to adapt the generated code) or to compile a form.
It uses PB's scintilla dll if found, else it uses a RichEdit control.
2. Memory leaks in Vista64 : I don't undestand why it should only leak on 64 bits OS's !? No problems here on 98 / NT4 / XP. If there were some more specific issues reproductible on 32 bits systems I could investigate.
Posted: Wed Apr 15, 2009 12:46 pm
by swan
Gnozal: S..T happens !
Thanx ...
Posted: Mon May 18, 2009 1:13 pm
by hm
I just recently discovered this piece of gold. Nice work.
But there seems to be a bug in the generated code for PureBasic v4.30, using "PureFORM 1.99 build 365" and option "Generate PB4 compatible code":
Create a window containing a PanelGadget with two tabs and some controls on the tabs. In the generated code, there are two calls to "CloseGadgetList()". The debugger always vomits on the second call to "CloseGadgetList()" giving the following error:
[ERROR] OpenGadgetList() must be successfully called before calling CloseGadgetList().
I can continue program execution without errors.
There is no problem when executing the code with debugger deactivated.
If there is need I can post example code.
I think this could possibly be a PureBasic bug since the debugger has to give error on the first call to "CloseGadgetList()" but it did not (according to the debugger error message, the calling of "OpenGadgetList()" is not an option but a requirement before calling "CloseGadgetList()").
I will post to the "Bugs" forums if this is not a PureFORM bug but a PureBasic bug but I'm not sure about it.
Posted: Mon May 18, 2009 2:14 pm
by gnozal
hm wrote:... there seems to be a bug in the generated code for PureBasic v4.30, using "PureFORM 1.99 build 365" and option "Generate PB4 compatible code"
Hmm, seems to work here.
Using this form
Code: Select all
;{[PureFORM Project]
;PureFORM_Project_Begin
;Project¶PureFORM_Clipboard2
;Window¶1¶#Window_0¶13500416¶#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar¶Window_0¶450¶200¶400¶400¶0¶10¶10¶0¶5000¶5000¶0¶-1¶0¶¶¶
;PanelGadget¶1¶#Panel_0¶1¶-1¶-1¶2¶0¶19¶0¶0¶¶¶¶-1¶0¶¶¶0¶0¶1¶1¶3¶20¶60¶330¶250¶0¶0¶0¶0¶0¶0·0·0·0·0·0·0¶0¶-1¶-1¶-1¶-1¶Tab #1¸¸·Tab #2¸¸¶0¶¶0¶0
;ButtonGadget¶2¶#Button_1_Gadget1¶1¶1¶19¶1¶0¶0¶0¶0¶¶Gadget_1¶¶-1¶0¶¶¶0¶0¶0¶0¶0¶30¶30¶120¶30¶0¶0¶0¶0¶0¶0·0·0·0·0·0·0¶0¶-1¶-1¶-1¶-1¶¶0¶¶0¶0
;ButtonGadget¶3¶#Button_2_Gadget2¶1¶1¶19¶1¶1¶0¶0¶0¶¶Gadget_2¶¶-1¶0¶¶¶0¶0¶0¶0¶0¶20¶10¶110¶40¶0¶0¶0¶0¶0¶0·0·0·0·0·0·0¶0¶-1¶-1¶-1¶-1¶¶0¶¶0¶0
;PureFORM_Project_End
;}
I get this code with PB 4.30 :
Code: Select all
Enumeration
#Window_0
EndEnumeration
Enumeration
#Panel_0
#Button_1_Gadget1
#Button_2_Gadget2
EndEnumeration
Procedure OpenWindow_Window_0()
If OpenWindow(#Window_0, 450, 200, 400, 400, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
PanelGadget(#Panel_0, 20, 60, 330, 250)
AddGadgetItem(#Panel_0, -1, "Tab #1")
ButtonGadget(#Button_1_Gadget1, 30, 30, 120, 30, "Gadget_1")
AddGadgetItem(#Panel_0, -1, "Tab #2")
ButtonGadget(#Button_2_Gadget2, 20, 10, 110, 40, "Gadget_2")
CloseGadgetList()
EndIf
EndProcedure
OpenWindow_Window_0()
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case #Panel_0
Case #Button_1_Gadget1
Case #Button_2_Gadget2
EndSelect
Case #PB_Event_CloseWindow
Select EventWindow()
Case #Window_0
CloseWindow(#Window_0)
Break
EndSelect
EndSelect
Forever
which is correct.
1. What compiler version does PureFORM report in the 'About' window ?
2. Does the compiler path in Preferences points to a v4.30 compiler ?
3. Could you post your form [Menu -> Edit -> Copy project to clipboard] between code tags ?
Posted: Mon May 18, 2009 4:30 pm
by hm
ok i have to post example code. here it is.
project:
Code: Select all
PureFORM_Project_Begin
Project¶ak
Window¶1¶#Window_Main¶13500416¶#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar¶AK¶416¶58¶700¶525¶1¶300¶400¶0¶0¶0¶0¶-1¶1¶¶\6¸¸1·\7¸¸2·\8¸¸3·\9¸¸3·\1¸¸5·\2¸¸6·\9¸¸4·\B¸¸4¶...¸100¸LS¸
TreeGadget¶1¶#Tree_Websites¶1¶-1¶-1¶0¶0¶28¶0¶32¶#PB_Tree_AlwaysShowSelection¶¶¶-1¶3¶¶¶0¶0¶0¶0¶0¶5¶25¶115¶490¶0¶0¶0¶0¶0¶0·0·0·0·0·0·0¶0¶-1¶-1¶-1¶-1¶¶0¶¶0¶0
PanelGadget¶2¶#Panel_AK¶1¶-1¶-1¶0¶0¶19¶0¶0¶¶¶¶1¶3¶¶¶0¶0¶1¶1¶3¶125¶25¶470¶490¶0¶0¶0¶0¶0¶0·0·0·0·0·0·0¶0¶-1¶-1¶-1¶-1¶* <Neu>¸¸0·Tab #2¸¸0¶0¶¶0¶0
WebGadget¶4¶#Web_3¶1¶2¶19¶1¶0¶29¶0¶0¶¶about:mozilla¶¶-1¶0¶¶¶0¶0¶0¶0¶0¶10¶200¶470¶250¶1¶1¶0¶1¶1¶1·0·0·0·0·0·0¶0¶-1¶-1¶-1¶-1¶¶0¶¶0¶0
SplitterGadget¶3¶#Splitter_Main¶1¶-1¶-1¶0¶0¶24¶200¶3¶#PB_Splitter_Separator|#PB_Splitter_Vertical¶¶¶-1¶0¶#Tree_Websites¶#Panel_AK¶1¶2¶0¶0¶0¶0¶25¶700¶480¶1¶1¶1¶1¶1¶0·0·0·0·0·0·0¶0¶-1¶-1¶100¶-1¶¶0¶¶0¶0
PureFORM_Project_End
generated code:
Code: Select all
;{- Enumerations / DataSections
;:PureFORM:Init:Start:
; PureFORM V1.99 ~ 18.05.2009 17:24:14
;{ Windows
Enumeration
#Window_Main
EndEnumeration
;}
;{ Toolbars
Enumeration
#Toolbar_Window_Main
EndEnumeration
;}
;{ Menu/Toolbar items
Enumeration
#Toolbar_Window_Main_New
#Toolbar_Window_Main_Open
#Toolbar_Window_Main_Save
#Toolbar_Window_Main_Copy
#Toolbar_Window_Main_Paste
#Toolbar_Window_Main_Help
EndEnumeration
;}
;{ Status bars
Enumeration
#StatusBar_Window_Main
EndEnumeration
;}
;{ Gadgets
Enumeration
#Tree_Websites
#Panel_AK
#Web_3
#Splitter_Main
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;
Structure AKList
Name$
EndStructure
Global NewList GAKList.AKList()
;
;:PureFORM:Init:End:
;}
;:PureFORM:Windows:Start:
;:PureFORM:Window_0_1:Start:
Procedure OpenWindow_Window_Main()
If OpenWindow(#Window_Main, 416, 58, 700, 525, "AK", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
If CreateToolBar(#Toolbar_Window_Main, WindowID(#Window_Main))
ToolBarStandardButton(#Toolbar_Window_Main_New, #PB_ToolBarIcon_New)
ToolBarStandardButton(#Toolbar_Window_Main_Open, #PB_ToolBarIcon_Open)
ToolBarStandardButton(#Toolbar_Window_Main_Save, #PB_ToolBarIcon_Save)
ToolBarSeparator()
ToolBarStandardButton(#Toolbar_Window_Main_Copy, #PB_ToolBarIcon_Copy)
ToolBarStandardButton(#Toolbar_Window_Main_Paste, #PB_ToolBarIcon_Paste)
ToolBarSeparator()
ToolBarStandardButton(#Toolbar_Window_Main_Help, #PB_ToolBarIcon_Help)
EndIf
If CreateStatusBar(#StatusBar_Window_Main, WindowID(#Window_Main))
AddStatusBarField(100)
StatusBarText(#StatusBar_Window_Main, 0, "...")
EndIf
TreeGadget(#Tree_Websites, 5, 25, 115, 490, #PB_Tree_AlwaysShowSelection)
PanelGadget(#Panel_AK, 125, 25, 470, 490)
; * <Neu>
AddGadgetItem(#Panel_AK, -1, "* <Neu>")
WebGadget(#Web_3, 10, 200, 470, 250, "about:mozilla")
; Tab #2
AddGadgetItem(#Panel_AK, -1, "Tab #2")
CloseGadgetList()
SplitterGadget(#Splitter_Main, 0, 25, 700, 480, #Tree_Websites, #Panel_AK, #PB_Splitter_Separator|#PB_Splitter_Vertical)
CloseGadgetList()
SetGadgetAttribute(#Splitter_Main, #PB_Splitter_FirstMinimumSize, 100)
SetGadgetAttribute(#Splitter_Main, #PB_Splitter_SecondMinimumSize, -1)
SetGadgetState(#Splitter_Main, 200)
; Gadget Resizing
PureRESIZE_SetGadgetResize(#Web_3, 1, 0, 1, 1, #Panel_AK)
PureRESIZE_SetGadgetResize(#Splitter_Main, 1, 1, 1, 1)
; Window Minimum Size
PureRESIZE_SetWindowMinimumSize(#Window_Main, 400, 300)
;:PureFORM:Window_0_1:End:
; Your code here ...
;
;:PureFORM:Window_0_2:Start:
EndIf
EndProcedure
;:PureFORM:Window_0_2:End:
;:PureFORM:Windows:End:
;
;:PureFORM:Gadgets:Start:
;:PureFORM:Gadgets:End:
OpenWindow_Window_Main()
;:PureFORM:Main:Start:
;:PureFORM:Main:End:
;{- Event loop
Repeat
Event = WaitWindowEvent()
;:PureFORM:Loop:Start:
Select Event
; ///////////////////
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
If EventGadget = #Tree_Websites
ElseIf EventGadget = #Panel_AK
ElseIf EventGadget = #Web_3
ElseIf EventGadget = #Splitter_Main
EndIf
; /////////////////
Case #PB_Event_Menu
EventMenu = EventMenu()
If EventMenu = #Toolbar_Window_Main_New
ElseIf EventMenu = #Toolbar_Window_Main_Open
ElseIf EventMenu = #Toolbar_Window_Main_Save
ElseIf EventMenu = #Toolbar_Window_Main_Copy
ElseIf EventMenu = #Toolbar_Window_Main_Paste
ElseIf EventMenu = #Toolbar_Window_Main_Help
EndIf
; ////////////////////////
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Window_Main
CloseWindow(#Window_Main)
Break
EndIf
EndSelect
;:PureFORM:Loop:End:
Forever
;
;}
;:PureFORM:AfterLoop:Start:
;:PureFORM:AfterLoop:End:
i don't have controls on second tab but debug error still occurs when having a button on second tab. i don't know why...
Posted: Mon May 18, 2009 4:48 pm
by gnozal
hm wrote:ok i have to post example code. here it is.
Confirmed.
Posted: Tue May 19, 2009 8:53 am
by gnozal
Update (build 366)
Changes :
- this build should fix the code generation issue posted by Hm.
Posted: Tue May 26, 2009 10:30 am
by Klonk
Two things I found:
* When opening PureForm without a filename provided it starts with an empty project. I changed nothing. then I wanted to load an existing project and am always priompted whether the changed project should be saved. This is a bit annoying.
* Disabling a gadget is not saved within the project.
* When a gadget is disabled no apropriate source code is generated
Posted: Wed May 27, 2009 8:49 am
by gnozal
Klonk wrote:* When opening PureForm without a filename provided it starts with an empty project. I changed nothing. then I wanted to load an existing project and am always priompted whether the changed project should be saved.
Changed in build 368. Note that PureFORM may open the last used project if you choose so in preferences.
Klonk wrote:* Disabling a gadget is not saved within the project.
* When a gadget is disabled no apropriate source code is generated
From the help file :
http://freenet-homepage.de/gnozal/PureFORM/GadgetPropertiesWindow.htm wrote:Special properties
- Not in event loop :
If checked, no code is generated in the event-loop for this gadget.
- Disable / Hide :
You can hide and/or disable the gadget in the form. This can be handy if you have several layers of gadgets.
The hidden or disabled state is not saved with the form nor translated during code generation.
Posted: Wed May 27, 2009 8:50 am
by gnozal
Update (build 368)
Changes :
- the toolbar builder now supports 'icon+text' buttons in window or container toolbars.
Posted: Fri May 29, 2009 8:28 am
by Kurzer
Hello Gnozal, thank you for the updates.
Since a few weeks I use PB on a netbook with a screen resolution of 1024 x 600.
Is it posible to make the Integrator Windows (alternativ UI mode) resizeable?
The minimum size is higher than 600 pixels and the Titelbar is outside the screen. So I cannot drag the window. :-/
I'm obliged to use not the alternative UI mode with all the seperate windows. On 1024 x 600 this is not amusing. ;-D
Posted: Fri May 29, 2009 1:41 pm
by gnozal
kurzer wrote:Since a few weeks I use PB on a netbook with a screen resolution of 1024 x 600.
The minimum size is higher than 600 pixels and the Titelbar is outside the screen. So I cannot drag the window. :-/
Yes, the minimum size is the minimum _usable_ size. With the Integrator, the minimum screen resolution should be 1024 x
768. I tried 800 x 600 before setting the minimum size.
I think 1024 x 600 is not very reasonable to design windows.
Maybe I will make the Integrator height resizable. Will see ...
Posted: Fri May 29, 2009 2:05 pm
by Kurzer
Thanks for thinking about it, Gnozal.
btw: The window in 566 pixels height looks like this (I reserved some pixels for the taskbar):
(this is a retouched image)
I can live with this height. What do you think? It's not so unusable as expected.
And yes, designing UIs on a netbook is also not an amusing job, but if I want to change some minor parts in a UI I have to use the designer.
Posted: Fri May 29, 2009 2:51 pm
by gnozal
Ok, ok, ...
I have uploaded build 369. You can specify the Integrator minimum height in PureFORM.INI using the 'Window_Integrator_H_Min' key in the 'Windows' section :
Code: Select all
...
[Windows]
...
Window_Integrator_H_Min = 499
...
(Default value is 599).
Posted: Fri May 29, 2009 4:03 pm
by Kurzer
Thank you very much!
(A picture is worth a thousand words.)
edit: Looks nice now on 1024 x 600.
