PureFORM 1.99 (yet another FORM designer)

mskuma · Post by **mskuma** » Wed Oct 04, 2006 1:09 pm

gnozal wrote: And soon there will be another one : WiDe

Needs .NET framework to run... :roll:

gnozal · Post by **gnozal** » Thu Oct 05, 2006 8:50 am

Update

Changes :
- some fixes for Preview mode

Post by **Kiffi** » Thu Oct 05, 2006 10:46 am

gnozal wrote:And soon there will be another one : WiDe

why do you laugh about WiDe?

Greetings ... Kiffi

gnozal · Post by **gnozal** » Thu Oct 05, 2006 10:56 am

Kiffi wrote:
gnozal wrote:And soon there will be another one : WiDe
why do you laugh about WiDe?

Not about WiDe (looks very good), but about poor Bericko

: soon there will be more visual designers than any other tool for PB.

Molchyn · Post by **Molchyn** » Fri Oct 06, 2006 8:06 am

gnozal
same problem with panelgadget in Gadget list window (freezing)

Code: Select all

PureFORM_Project_Begin
Project¶one more
Window¶1¶#Window_0¶13500416¶#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar¶#Window_0¶423¶155¶400¶400¶0¶10¶10¶0¶5000¶5000¶0¶-1¶0¶
WebGadget¶1¶#WebGadget_0¶1¶-1¶-1¶0¶0¶29¶0¶0¶¶about:WebGadget_0¶¶-1¶0¶¶¶0¶0¶0¶0¶0¶5¶0¶375¶165¶0¶0¶0¶0¶0¶0¶0¶-1¶-1¶-1¶-1¶¶0¶¶0¶0
PanelGadget¶2¶#PanelGadget_1¶1¶-1¶-1¶4¶0¶19¶0¶0¶¶¶¶-1¶0¶¶¶0¶0¶1¶1¶5¶10¶185¶370¶165¶0¶0¶0¶0¶0¶0¶0¶-1¶-1¶-1¶-1¶Tab #1·Tab #2·Tab #3·Tab #4¶0¶¶0¶0
PureFORM_Project_End

your program -the best

gnozal · Post by **gnozal** » Fri Oct 06, 2006 9:14 am

Molchyn wrote:gnozal
same problem with panelgadget in Gadget list window (freezing)

It's not a freezing, it's a feature.
If you click on a [Tab] in the gadget list, it switches to the appropriate tab in the form and selects the parent panelgadget.
The tab is not a gadget, only an element of a gadget, so it's not the [Tab] line that is selected in the gadget list but the [PanelGadget] line.

Trond · Post by **Trond** » Fri Oct 06, 2006 10:31 am

Things I noticed in build 53:

Create a new project. Click File -> Load project. The window from the new project is lost.

When you modify the properties of a gadget it gets selected even though you just deselected it.

When in design mode a button doesn't show #PB_Button_Default.

I enabled and disabled PureCOLOR and could not get the design window to show XP-themes afterwards.

When you change to preview mode the window isn't redrawn.

Turning on #PB_Hyperlink_Underline didn't affect the preview.

gnozal · Post by **gnozal** » Fri Oct 06, 2006 11:54 am

Trond wrote:Create a new project. Click File -> Load project. The window from the new project is lost.

Projects with no gadgets are not saved (but you can save them if you like)

Trond wrote:When you modify the properties of a gadget it gets selected even though you just deselected it.

Only if you change the flags I think, because the gadget is erased/recreated, and PureFORM selects the last created gadget. Is this problem ?

Trond wrote:When in design mode a button doesn't show #PB_Button_Default.

Yes, and it doesn't appear in the code too. Fixed, thanks.

Trond wrote:I enabled and disabled PureCOLOR and could not get the design window to show XP-themes afterwards.

I don't have XP.
If Purecolor is disabled, I call PureCOLOR_ClearGadgetColor(CurrentGadget). This removes the gadget from the coloring list, sets the old #GWL_STYLE if applicable and resets the subclassing (sets #GWL_WNDPROC to OldPROC).
So the gadget is in the same state than before. I don't know what to do more.

Trond wrote:When you change to preview mode the window isn't redrawn.

Fixed, thanks.

Trond wrote:Turning on #PB_Hyperlink_Underline didn't affect the preview.

Yes, because PB3.94 doesn't support it. But it's in the generated code (only if PB4 code is checked).

Download updated

mskuma · Post by **mskuma** » Mon Oct 09, 2006 1:08 am

I can't seem to do anything with the Items tab for a ListIconGadget. I enter something in the text box, and press 'Update' button, but I get nothing. Is it working, or maybe I need some instruction about how to use it. Thanks.

Molchyn · Post by **Molchyn** » Mon Oct 09, 2006 3:50 am

gnozal
if I check in prefrences-code-#PB_Any for window/gadget mark and if I use Pureresize check and relative check it's produce some error like can't find #PanelGadget_0 in string 60:

Form:

Code: Select all

PureFORM_Project_Begin
Project¶coloredTXT
Window¶1¶#Window_0¶349110272¶#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_MaximizeGadget¶ColoredHTML 0.1¶213¶73¶800¶597¶1¶400¶600¶0¶5000¶5000¶0¶-1¶0¶
PanelGadget¶1¶#PanelGadget_0¶1¶-1¶-1¶3¶0¶19¶0¶0¶¶¶¶-1¶8¶¶¶0¶0¶1¶1¶4¶0¶0¶0¶0¶1¶1¶1¶1¶1¶0¶0¶-1¶-1¶-1¶-1¶Pic·WEB·HTML¶0¶¶0¶0
PanelGadget¶2¶#PanelGadget_1¶1¶-1¶-1¶0¶0¶19¶0¶0¶¶¶¶8¶8¶¶¶0¶0¶1¶1¶2¶0¶0¶0¶0¶1¶1¶1¶1¶1¶0¶0¶-1¶-1¶-1¶-1¶Tab #1¶0¶¶0¶0
WebGadget¶7¶#WebGadget_6¶1¶1¶19¶1¶1¶29¶0¶0¶¶about:WebGadget_6¶¶-1¶0¶¶¶0¶0¶0¶0¶0¶0¶0¶790¶244¶1¶1¶1¶1¶1¶0¶0¶-1¶-1¶-1¶-1¶¶0¶¶0¶0
SplitterGadget¶8¶#SplitterGadget_7¶1¶-1¶-1¶0¶0¶24¶299¶2¶#PB_Splitter_Separator¶Gadget_7¶¶2¶0¶#PanelGadget_0¶#PanelGadget_1¶1¶2¶0¶0¶0¶0¶0¶800¶600¶1¶1¶1¶1¶1¶0¶0¶-1¶-1¶0¶0¶¶0¶¶0¶0
EditorGadget¶9¶#EditorGadget_8¶1¶1¶19¶1¶2¶7¶0¶0¶¶¶¶-1¶0¶¶¶0¶0¶0¶0¶0¶0¶0¶795¶270¶1¶1¶1¶1¶1¶1¶0¶-1¶-1¶-1¶-1¶¶0¶¶0¶0
ExplorerTreeGadget¶10¶#ExplorerTreeGadget_9¶1¶1¶19¶1¶0¶10¶0¶0¶¶Gadget_9¶¶-1¶13¶c:\¶¶0¶0¶0¶0¶0¶0¶0¶0¶0¶1¶0¶1¶1¶1¶0¶0¶-1¶-1¶-1¶-1¶¶0¶¶0¶0
ScrollAreaGadget¶11¶#ScrollAreaGadget_10¶1¶1¶19¶1¶0¶21¶0¶4¶#PB_ScrollArea_Single¶Gadget_10¶¶13¶13¶580¶534¶580¶534¶1¶0¶0¶0¶0¶0¶0¶0¶0¶0¶0¶0¶0¶0¶-1¶-1¶-1¶-1¶¶0¶¶0¶0
ButtonImageGadget¶12¶#ButtonImageGadget_11¶1¶11¶21¶0¶0¶1¶0¶0¶¶¶¶-1¶0¶¶#Image_ButtonImageGadget_11¶0¶0¶0¶0¶0¶0¶0¶555¶240¶0¶0¶0¶0¶0¶0¶0¶-1¶-1¶-1¶-1¶¶0¶¶0¶0
SplitterGadget¶13¶#SplitterGadget_12¶1¶1¶19¶1¶0¶24¶150¶3¶#PB_Splitter_Separator|#PB_Splitter_Vertical¶Gadget_12¶¶11¶0¶#ExplorerTreeGadget_9¶#ScrollAreaGadget_10¶10¶11¶0¶0¶0¶0¶0¶795¶270¶1¶1¶1¶0¶0¶1¶0¶-1¶-1¶0¶0¶¶0¶¶0¶0
PureFORM_Project_End

Code:

Code: Select all

;{- Enumerations
;{ Windows
Global Window_0
;}
;{ Gadgets
Global PanelGadget_0
Global PanelGadget_1
Global WebGadget_6
Global SplitterGadget_7
Global EditorGadget_8
Global ExplorerTreeGadget_9
Global ScrollAreaGadget_10
Global ButtonImageGadget_11
Global SplitterGadget_12
;}
;{ Images
Enumeration
  #Image_ButtonImageGadget_11
EndEnumeration
;}
;}
;{ Included Images
DataSection ;>
  Image_ButtonImageGadget_11:
 ; ORIGINAL FILE NOT FOUND : ""
  IncludeBinary "c:\Program Files\pb4\Examples\Sources\Data\PureBasic.bmp"
EndDataSection ;<
;}
Procedure OpenWindow_Window_0()
  Window_0 = OpenWindow(#PB_Any, 213, 73, 800, 597, "ColoredHTML 0.1", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_MaximizeGadget)
  If Window_0
    If CreateGadgetList(WindowID(Window_0))
      PanelGadget_0 = PanelGadget(#PB_Any, 0, 0, 0, 0) ;>
        ; Pic
        AddGadgetItem(PanelGadget_0, -1, "Pic")
        ExplorerTreeGadget_9 = ExplorerTreeGadget(#PB_Any, 0, 0, 0, 0, "c:\")
        ScrollAreaGadget_10 = ScrollAreaGadget(#PB_Any, 0, 0, 0, 0, 580, 534, 10, #PB_ScrollArea_Single) ;>
          ButtonImageGadget_11 = ButtonImageGadget(#PB_Any, 0, 0, 555, 240, CatchImage(#Image_ButtonImageGadget_11, ?Image_ButtonImageGadget_11))
        CloseGadgetList() ;<
        SplitterGadget_12 = SplitterGadget(#PB_Any, 0, 0, 795, 270, ExplorerTreeGadget_9, ScrollAreaGadget_10, #PB_Splitter_Separator|#PB_Splitter_Vertical)
        ; WEB
        AddGadgetItem(PanelGadget_0, -1, "WEB")
        WebGadget_6 = WebGadget(#PB_Any, 0, 0, 790, 244, "about:WebGadget_6")
        ; HTML
        AddGadgetItem(PanelGadget_0, -1, "HTML")
        EditorGadget_8 = EditorGadget(#PB_Any, 0, 0, 795, 270)
      CloseGadgetList() ;<
      PanelGadget_1 = PanelGadget(#PB_Any, 0, 0, 0, 0) ;>
        ; Tab #1
        AddGadgetItem(PanelGadget_1, -1, "Tab #1")
      CloseGadgetList() ;<
      SplitterGadget_7 = SplitterGadget(#PB_Any, 0, 0, 800, 600, PanelGadget_0, PanelGadget_1, #PB_Splitter_Separator)
      SetGadgetState(SplitterGadget_7, 299)
      SetGadgetState(SplitterGadget_12, 150)
      ; Gadget Resizing
      PureRESIZE_SetGadgetResize(PanelGadget_0, 1, 1, 1, 1)
      PureRESIZE_SetGadgetResize(PanelGadget_1, 1, 1, 1, 1)
      PureRESIZE_SetGadgetResize(WebGadget_6, 1, 1, 1, 1)
      PureRESIZE_SetGadgetResize(SplitterGadget_7, 1, 1, 1, 1)
     [color=red] PureRESIZE_SetGadgetResize(EditorGadget_8, 1, 1, 1, 1, #PanelGadget_0)[/color]      
PureRESIZE_SetGadgetResize(ExplorerTreeGadget_9, 0, 1, 1, 1)
      PureRESIZE_SetGadgetResize(SplitterGadget_12, 1, 1, 0, 0, #PanelGadget_0)
      ; Window Minimum Size
      PureRESIZE_SetWindowMinimumSize(Window_0, 600, 400)
    EndIf
  EndIf
EndProcedure

OpenWindow_Window_0()

;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
    ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = PanelGadget_0
      ElseIf EventGadget = PanelGadget_1
      ElseIf EventGadget = WebGadget_6
      ElseIf EventGadget = SplitterGadget_7
      ElseIf EventGadget = EditorGadget_8
      ElseIf EventGadget = ExplorerTreeGadget_9
      ElseIf EventGadget = ScrollAreaGadget_10
      ElseIf EventGadget = ButtonImageGadget_11
      ElseIf EventGadget = SplitterGadget_12
      EndIf
    ; //////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = Window_0
        Break
      EndIf
  EndSelect
Forever
;}

gnozal · Post by **gnozal** » Mon Oct 09, 2006 9:09 am

mskuma wrote:I can't seem to do anything with the Items tab for a ListIconGadget. I enter something in the text box, and press 'Update' button, but I get nothing. Is it working, or maybe I need some instruction about how to use it. Thanks.

In the case of a ListIconGadget, the 'Items' tab is for renaming the columns.
The first column can be renamed in the 'general' tab with the StringGadget 'First Column Text'. The second, third, ... columns can be renamed in the 'Items' tab. If your ListIconGadget only has one column, there is nothing is the 'Items' list.

gnozal · Post by **gnozal** » Mon Oct 09, 2006 9:10 am

Molchyn wrote:gnozal
if I check in prefrences-code-#PB_Any for window/gadget mark and if I use Pureresize check and relative check it's produce some error like can't find #PanelGadget_0 in string 60:

Thanks for the report, fixed.
Download updated

mskuma · Post by **mskuma** » Mon Oct 09, 2006 10:07 am

gnozal wrote:In the case of a ListIconGadget, the 'Items' tab is for renaming the columns.

Thanks. I finally stumbled upon how to specify a column (via right-mouse click on the gadget itself) - which was the missing bit for me. As a suggestion, I think it's more intuitive for the user to add a 'create column' button or similar to the 'items' tab area.

gnozal · Post by **gnozal** » Mon Oct 09, 2006 11:01 am

mskuma wrote:
gnozal wrote:In the case of a ListIconGadget, the 'Items' tab is for renaming the columns.
Thanks. I finally stumbled upon how to specify a column (via right-mouse click on the gadget itself) - which was the missing bit for me. As a suggestion, I think it's more intuitive for the user to add a 'create column' button or similar to the 'items' tab area.

The help file is still to do ...

Molchyn · Post by **Molchyn** » Wed Oct 18, 2006 12:25 am

gnozal
just small remark if you start selection for SplitterGadget from bottom-right of form it's produce code something like that

Code: Select all

SplitterGadget(#SplitterGadget_8, [u]395, 395, 5, 5,[/u] #PanelGadget_6, #WebGadget_7, #PB_Splitter_Separator|#PB_Splitter_Vertical)

Probably not so difficult add checks for swap it ?
BR