Form Designer 5.10

[captain_skank]

Nice

[spacebuddy]

A compile/preview mode would be an awesome feature

[Arctic Fox]

Great tool, Polo!
*thumbs up*

I think there is a bug in the undo feature:
When deleting a gadget and undoing this particular action, the list of objects does not update properly.

[VB6_to_PBx]

i'm using "Courier New" font in the PureBasic IDE
and i know i can Copy + Paste your Form Designer's code into PureBasic IDE
and it will convert to "Courier New" or whatever Font i desire in the IDE ,

but the default "Courier" Font in Form Designer would look much better
using "Courier New" font instead of just plain "Courier" font like it has now.

Maybe adding ability to choose your own Fonts inside Form Designer' code viewer would be a nice option

[Polo]

Thanks all!
I wont add preferences for the source viewer but I can change the font on windows to courier new

[harry04]

Great done, I think it has the potential to become the best of all pb designer sw.
Most of all I love its clarity and structure.

Please look at this: It's a window with statusbar and an editorgadget locked to all 4 sides.
StatiusbarHeight isn't correct, first in line with editor_0 = ...., second in ResizeGdaget(..

Code: Select all

Global Window_0

Global Editor_0

Declare ResizeGadgetsWindow_0()

Procedure InitWindow_0()
  Protected WindowWidth, WindowHeight
  Window_0 = OpenWindow(#PB_Any, 0, 0, 600, 400, "", #PB_Window_SystemMenu)
  WindowWidth = WindowWidth(Window_0)
  WindowHeight = WindowHeight(Window_0)
  CreateStatusBar(0, WindowID(Window_0))
  AddStatusBarField(50)
  StatusBarText(0, 0, "Label")
  Editor_0 = EditorGadget(#PB_Any, 0, 55, WindowWidth - 0, StatusBarHeight(0)WindowHeight - 55)
EndProcedure

Procedure ResizeGadgetsWindow_0()
  Protected WindowWidth, WindowHeight
  WindowWidth = WindowWidth(Window_0)
  WindowHeight = WindowHeight(Window_0)
  ResizeGadget(Editor_0, 0, 55, WindowWidth - 0, StatusBarHeight(0)WindowHeight - 55)
EndProcedure

Procedure Window_0_Events(event)
  Select event
    Case #PB_Event_Gadget
      Select EventGadget()
      EndSelect
  EndSelect
EndProcedure

Thanks
harry

[harry04]

Hi, polo, I stumbled just now, on playing around with the designer, over some possible bug.
Look at the code, i did the buttons with "Dublicate".

Code: Select all

Procedure InitWindow_0()
  Protected WindowWidth, WindowHeight
  Window_0 = OpenWindow(#PB_Any, 0, 0, 600, 400, "", #PB_Window_SystemMenu)
  WindowWidth = WindowWidth(Window_0)
  WindowHeight = WindowHeight(Window_0)
  ButtonImage_0 = ButtonImageGadget(#PB_Any, 0, 0, 25, 25, ImageID())
  ButtonImage_0_1 = ButtonImageGadget(#PB_Any, 0, 25, 25, 25, ImageID())
  ButtonImage_0_2 = ButtonImageGadget(#PB_Any, 0, 50, 25, 25, ImageID())
  ButtonImage_0_3 = ButtonImageGadget(#PB_Any, 0, 75, 25, 25, ImageID())
  ButtonImage_0_4 = ButtonImageGadget(#PB_Any, 0, 100, 25, 25, ImageID())
  ButtonImage_0_5 = ButtonImageGadget(#PB_Any, 0, 125, 25, 25, ImageID())
  ButtonImage_0_6 = ButtonImageGadget(#PB_Any, 0, 150, 25, 25, ImageID())
  ButtonImage_0_7 = ButtonImageGadget(#PB_Any, 0, 175, 25, 25, ImageID())
  ButtonImage_0_8 = ButtonImageGadget(#PB_Any, 0, 200, 25, 25, ImageID())
  ButtonImage_0_9 = ButtonImageGadget(#PB_Any, 0, 225, 25, 25, ImageID())
  ButtonImage_0_10 = ButtonImageGadget(#PB_Any, 0, 250, 25, 25, ImageID())
  ButtonImage_0_10_11 = ButtonImageGadget(#PB_Any, 0, 275, 25, 25, ImageID())
  ButtonImage_0_10_11_12 = ButtonImageGadget(#PB_Any, 0, 300, 25, 25, ImageID())
  ButtonImage_0_10_11_12_13 = ButtonImageGadget(#PB_Any, 0, 325, 25, 25, ImageID())
EndProcedure

btw: it would be a nice feature to choose wether the dublicated gadget is arranged below the original (like now) or on the right side, to create bars...!? Only a thought.

thanks
Harry

[michel51]

Thanks all!
I wont add preferences for the source viewer but I can change the font on windows to courier new

If you are changing the preferences, please add the following:
Save the position, width and hight of the Form Designer window before closing.
The designer now will be opened with the last parameters on screen.

[Polo]

The actual FD window or the drawing window?

[Bisonte]

Both, so you can't forgot some

[Polo]

Well the FD window position and size are already saved - need to add the same for the drawing area

[Polo]

- When scrolling in the Properties box, the contents do not scroll along with the scroll bar.

As said live scrolling won't be added right now, as it requires specific workarounds for each platforms and it's rather messy

Other then that the toolbox could use some more fancy touches to make things a bit more user friendly (visually). After that its only cosmetics like coming up with a re-size gadgets function etc.

Sure, any ideas of what it should look like?
What do you mean by a re-size gadget function?

All reported bugs should be fixed for next beta, thanks a lot for testing!

[michel51]

Well the FD window position and size are already saved - need to add the same for the drawing area

Hmm...it seems not. On my Mac FD always starts with the same (default) size (compiled application).

Another question: where I have to store the translated german catalog file? If I run the PB-version from IDE, it works, because this file is stored within the folder PB is using.
But the compiled application is missing such folder.
EDIT: DONE! Found the location (a folder "Catalogs" has to be created)

Generally: this is a great tool. Thanks for sharing.

[Mindphazer]

Hmm...it seems not. On my Mac FD always starts with the same (default) size (compiled application).

Working for me.
Window position and size are saved.

[Warmonger]

One more major flaw is the code the designer generates. The two functions for events and re-size don't even work, let alone we prefer to code our own event loops. Something simple like a GUI with a listicongadget results in long messy code like so.

Code: Select all

Global Window_0

Global ListIcon_0

Declare ResizeGadgetsWindow_0()

Procedure InitWindow_0()
  Protected WindowWidth, WindowHeight
  Window_0 = OpenWindow(#PB_Any, 0, 0, 600, 400, "", #PB_Window_SystemMenu)
  WindowWidth = WindowWidth(Window_0)
  WindowHeight = WindowHeight(Window_0)
  ListIcon_0 = ListIconGadget(#PB_Any, 40, 60, 480, 220, "Column 1", 100, #PB_ListIcon_GridLines)
EndProcedure

Procedure ResizeGadgetsWindow_0()
  Protected WindowWidth, WindowHeight
  WindowWidth = WindowWidth(Window_0)
  WindowHeight = WindowHeight(Window_0)
  ResizeGadget(ListIcon_0, 40, 60, 480, 220)
EndProcedure

Procedure Window_0_Events(event)
  Select event
    Case #PB_Event_Gadget
      Select EventGadget()
      EndSelect
  EndSelect
EndProcedure

When it should only be this simple. Utilize Enumeration, and there isn't really a need to set variables for every single gadget.

Code: Select all

Enumeration
  #Window_0
  #ListIcon_0
EndEnumeration
  
Procedure InitWindow_0()
  OpenWindow(#Window_0, 0, 0, 600, 400, "", #PB_Window_SystemMenu)
  ListIconGadget(#ListIcon_0, 40, 60, 480, 220, "Column 1", 100, #PB_ListIcon_GridLines)
EndProcedure