PureFORM 1.99 (yet another FORM designer)

[jassing]

When you rename a gadget (enumeration constant) in gadget properties, the code you added manually via code infusion is now also updated

Awesome change! thanks.

An additional note : since the infused code is plain text, PureFORM is performing a simple ReplaceString().

Yikes. So #ComboBox_1 is changed to #cboDatabase
and #ComboBox_11 is changed to #cboDatabase1
good to know; but as a simple replace, I think it will cause more grief to the unsuspecting

[gnozal]

I have updated PureFORM.

It now does some additional checks before replacing constants in code infusion to avoid the situation you have described in your previous post.

[puer]

hi
How to implement the interface documentation in other languages
For example: Japanese Chinese Korean

[gnozal]

How to implement the interface documentation in other languages
For example: Japanese Chinese Korean

Hi,
PureFORM itself is currently only available in english.
You may enable 'multilanguage support' in Preferences to prepare multilanguage support for your project.
However, it may not work well with Japanese / Chinese / Korean as PureFORM is an old project written in PB3.94 with no unicode support.

[jassing]

In pureform, you have the help menu item right aligned; can this be done w/in the pureform menu designer?

[skywalk]

Hi, I don't use a Visual Designer, but this is how I do it after I create a menu...
http://www.purebasic.fr/english/viewtop ... 57#p315457

[jassing]

Thanks -- I'm getting so much windows specific code in, I'm loosing grip/hopes of my ability to get out a linux version... So much that is normally 'standard faire' for a language/framework is ending up platform specific... Can't be the speed for delivery tho...

but thank you -- does exactly what's needed.
and it works with putting multiple menu's to the right.
Thank you for sharing.

[skywalk]

Very true. The slightest departure from the most vanilla GUI winds up involving some platform specific API or a contrived collection of basic gadgets.

[jassing]

Very true. The slightest departure from the most vanilla GUI winds up involving some platform specific API or a contrived collection of basic gadgets.

Don't suppose you have a linux version of the rightmenu?


Yes, I'm finding that out, either very basic, or a bunch of compilerif's.

[skywalk]

Sorry, no Linux development yet.

[IdeasVacuum]

Could you do it with fixed-length strings, padding the left hand side with spaces? The only snag there is that it limits you to fonts that work well in columns.

[puer]

Thank you for your reply.
look forward to the early support for Unicode.

[gnozal]

In pureform, you have the help menu item right aligned; can this be done w/in the pureform menu designer?

I am using #MFT_RIGHTJUSTIFY, like in skywalk's post.
This is currently not supported by the PureFORM menu designer.

[dobro]

from ; skywalk

; comment justifier une partie du menu a droite (ici le menu help)
Procedure menuRJustify(hwnd.l, menuindex.l)
         ; de skywalk
         ; menuindex is the index of the main menu, counting from 0.
        Define.l hMenu
        Define.MENUITEMINFO mnuIteminfo
        hMenu = GetMenu_ (hwnd)
         With mnuIteminfo
                \cbSize = sizeof (MENUITEMINFO)
                \fMask = #MIIM_FTYPE
                 GetMenuItemInfo_ (hMenu, menuindex, #True , mnuIteminfo)
                \fType = \fType | #MFT_RIGHTJUSTIFY
                 SetMenuItemInfo_ (hMenu, menuindex, #True , mnuIteminfo)
         EndWith
         ; This makes the changes stick!
         DrawMenuBar_ (hwnd) ; Repaint top level Menu
EndProcedure

If openwindow (0, 100, 200, 195, 260, "Help Menu Right Justified" , #PB_Window_SystemMenu | #PB_Window_SizeGadget )
        hwnd= windowid (0)
         If createmenu (0, windowid (0))
                 menutitle ( "Project" )
                 menuitem (0, "New" )
                 menuitem (1, "Open" )
                 menuitem (2, "Save" )
                 menutitle ( "Tool" )
                 menuitem (0, "1" )
                 menuitem (1, "2" )
                 menuitem (2, "3" )
                 menutitle ( "Help" )
                 menuitem (0, "1" )
                 menuitem (1, "2" )
                 menuitem (2, "3" )
         EndIf
        menuRJustify(hwnd, 2) ; 0-based index of main menu items to right justify
         Repeat
                Event = waitwindowevent ()
                 Select Event
                         Case #PB_Event_CloseWindow ; If the user has pressed on the close button
                                Quit = 1
                 EndSelect
         Until Quit = 1
EndIf
End

[jassing]

I have a formset where the main window has a menu. No problem.
On a child form, I wanted to add a menu;
I got as far as this: (note, I can't add another title, or menu item)