PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

PureFORM 1.99 (yet another FORM designer)

https://www.purebasic.fr/english/viewtopic.php?t=23529

Page 12 of 103

Posted: Wed Oct 04, 2006 1:09 pm
by mskuma
gnozal wrote: And soon there will be another one : WiDe :lol:
Needs .NET framework to run... :roll:

Posted: Thu Oct 05, 2006 8:50 am
by gnozal
Update

Changes :
- some fixes for Preview mode

Posted: Thu Oct 05, 2006 10:46 am
by Kiffi
gnozal wrote:And soon there will be another one : WiDe :lol:
why do you laugh about WiDe?

Greetings ... Kiffi

Posted: Thu Oct 05, 2006 10:56 am
by gnozal
Kiffi wrote:
gnozal wrote:And soon there will be another one : WiDe :lol:
why do you laugh about WiDe?
Not about WiDe (looks very good), but about poor Bericko :wink: : soon there will be more visual designers than any other tool for PB.

Posted: Fri Oct 06, 2006 8:06 am
by Molchyn
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 :wink:

Posted: Fri Oct 06, 2006 9:14 am
by gnozal
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.

Posted: Fri Oct 06, 2006 10:31 am
by Trond
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.

Posted: Fri Oct 06, 2006 11:54 am
by gnozal
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

Posted: Mon Oct 09, 2006 1:08 am
by mskuma
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.

Posted: Mon Oct 09, 2006 3:50 am
by Molchyn
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
;}

Posted: Mon Oct 09, 2006 9:09 am
by gnozal
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.

Posted: Mon Oct 09, 2006 9:10 am
by gnozal
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

Posted: Mon Oct 09, 2006 10:07 am
by mskuma
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.

Posted: Mon Oct 09, 2006 11:01 am
by gnozal
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 ...

Posted: Wed Oct 18, 2006 12:25 am
by Molchyn
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
All times are UTC+01:00
Page 12 of 103

Powered by phpBB® Forum Software © phpBB Limited