PureBasic Forums - English

Posted: **Tue May 30, 2006 11:11 pm**

Update:

-UTF-8 should work now
-fixed some minor bugs

Download:
http://www.thinkrelative.de/gdesign.zip

Thanks for the nice replies!

Remark:

It's a pointless diskussion. to find out who had first an good idea,
don't you think? :roll:
Good Ideas are always in the air, you only have to catch them.
gDesign is only a logical consequence of gDesign and comes out of my mind.
Its not stolen. (possibly its a kind of thought-reading

)

You should better give feedback to the tool, or not?

Regards,
Mischa

Posted: **Wed May 31, 2006 1:07 am**

Hi Mischa,

I dont think Bericko means you stole the idea, Bericko like a bunch of
people here are smart and intelligent (You are in this group) and for
nothing help newbies like me.

It was only a remembrance.... anyway you should continue with the
development of this tool... is a great tool and very useful.

Going back to gDesign:

Is it posible the name of the gadget appears in the gDesign Window?
I dont know what this involve talking about effort...

- - - - - - - - - - - - - - - - - - - - - - - - - -gDesign Proposal
- -- - gDesign Original - - - - - - - - - - -(something like this)

Thanks

Posted: **Wed May 31, 2006 1:20 am**

BTW in PB IDE Im not allowed use XP Skin with gDesign... I dont kow if Im
missing something obvious... there are no messages....

I put gDesign in PB root and followed all the steps and format specified
in the instructions

Posted: **Wed May 31, 2006 10:10 am**

@chen

If you toggle XP Skin in PB IDE, gDesign should tell
you, that you have to restart it.
You see no messagerequester?

gDesign searches for a line inside source called
; EnableXP
(Normaly this line is hidden in IDE)

With this information g extracts, or delete its own
manifest file. named 'gDesign.exe.manifest'.
(should be found also in PB root when enable XP Skin)
I hope you have not renamed gDesign.exe.

Here it works with both IDEs perfectly.
I don't know, whats going wrong there.

Hm, maybe you should set the working directory in
the tool settings to gDesign path? Don't know.

But we will find out.

Regards,
Mischa

Posted: **Wed May 31, 2006 10:17 am**

Mischa wrote:It's a pointless diskussion. to find out who had first an good idea,
don't you think? :roll:

It was just to point out that even Blueznl was not the first with this idea

And ppl can have the same idea!

So keep on making nice tools! it's good for PureBasic!

Edit: hehe, bluznl was not the first http://www.purebasic.fr/english/viewtop ... ight=cr0wn
in fact this thread was the start of the official PureBasic Visual Designer

Posted: **Wed May 31, 2006 11:13 am**

Hi Mischa,

thank you for your work on the new gDesign as plugin. I would appreciate very much, if you could also build in support for other fonts set with SetGadgetFont() and display the gadgets correctly with their chosen font.

Posted: **Wed May 31, 2006 2:41 pm**

some more bugs Mischa

- textgadgets are missing
- UTF-8 is not translated correctly
- fonts are missing (hard to get because i load them in an includefile)
- menu is missing

Code: Select all

If OpenWindow(#Window_Main,0,0,400,280,"EP-Viewer (PB4 Final)",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
    If CreateMenu(#MenuBar_0, WindowID(#Window_Main))
      MenuTitle("Bearbeiten")
        MenuItem(#MENU_1,"Einstellungen")
        MenuBar()
        MenuItem(#MENU_2,"Beenden")
      MenuTitle("?")
        MenuItem(#MENU_3,"Info...")
    EndIf
    If CreateGadgetList(WindowID(#Window_Main))
      StringGadget (#M_String_L1       , 10, 20,150, 30,"",#PB_String_UpperCase)
      StringGadget (#M_String_L2       , 10, 80,150, 30,"",#PB_String_UpperCase)
      StringGadget (#M_String_L3       , 10,140,150, 30,"",#PB_String_UpperCase)
      SendMessage_ (GadgetID(#M_String_L1),#EM_SETLIMITTEXT,10,0)
      SendMessage_ (GadgetID(#M_String_L2),#EM_SETLIMITTEXT,10,0)
      SendMessage_ (GadgetID(#M_String_L3),#EM_SETLIMITTEXT,10,0)
      dType=0
      ButtonGadget (#M_Button_EP       , 10,190, 40, 20,"EP",#PB_Button_Default)
      ButtonGadget (#M_Button_VI       , 70,190, 40, 20,"VI")
      ButtonGadget (#M_Button_PR       ,130,190, 40, 20,"PR")
      ;DisableGadget(#M_Button_PR       ,#True)
      ButtonGadget (#M_Button_OK       , 40,225, 90, 30,"OK")
      ButtonGadget (#M_Button_Loeschen ,155,225, 90, 30,"Löschen")
      ButtonGadget (#M_Button_Beenden  ,270,225, 90, 30,"Beenden")
      
      Frame3DGadget(#M_Frame3D_L1      ,  5,  0,390, 60,"Polteil L1")
      Frame3DGadget(#M_Frame3D_L2      ,  5, 60,390, 60,"Polteil L2")
      Frame3DGadget(#M_Frame3D_L3      ,  5,120,390, 60,"Polteil L3")
      Frame3DGadget(#M_Frame3D_Port    ,335,180, 60, 40,"Scanner")
      TextGadget(#M_Text_1             ,160, 15, 80, 15,"Kammer-Nr",#PB_Text_Right)
      TextGadget(#M_Text_2             ,160, 38, 80, 15,"Polteil-GCE",#PB_Text_Right)
      TextGadget(#M_Text_3             ,160, 75, 80, 15,"Kammer-Nr",#PB_Text_Right)
      TextGadget(#M_Text_4             ,160, 98, 80, 15,"Polteil-GCE",#PB_Text_Right)
      TextGadget(#M_Text_5             ,160,135, 80, 15,"Kammer-Nr",#PB_Text_Right)
      TextGadget(#M_Text_6             ,160,158, 80, 15,"Polteil-GCE",#PB_Text_Right)
      TextGadget(#M_Text_Kammer_L1     ,245, 12,140, 20,"",#PB_Text_Border|#PB_Text_Center)
      TextGadget(#M_Text_GCE_L1        ,245, 35,140, 20,"",#PB_Text_Border|#PB_Text_Center)
      TextGadget(#M_Text_Kammer_L2     ,245, 72,140, 20,"",#PB_Text_Border|#PB_Text_Center)
      TextGadget(#M_Text_GCE_L2        ,245, 95,140, 20,"",#PB_Text_Border|#PB_Text_Center)
      TextGadget(#M_Text_Kammer_L3     ,245,132,140, 20,"",#PB_Text_Border|#PB_Text_Center)
      TextGadget(#M_Text_GCE_L3        ,245,155,140, 20,"",#PB_Text_Border|#PB_Text_Center)
      TextGadget(#M_Text_Port          ,340,195, 50, 18,"",#PB_Text_Border|#PB_Text_Center) ; Com-Port
      SetGadgetFont(#M_String_L1,FontID(FontID8)) ; Eingabefeld L1
      SetGadgetFont(#M_String_L2,FontID(FontID8)) ; Eingabefeld L2
      SetGadgetFont(#M_String_L3,FontID(FontID8)) ; Eingabefeld L3
      SetGadgetFont(#M_Button_EP,FontID(FontID3)) ; EP-Button
      SetGadgetFont(#M_Button_VI,FontID(FontID3)) ; VI-Button
      SetGadgetFont(#M_Button_PR,FontID(FontID3)) ; PR-Button
      SetGadgetFont(#M_Button_OK,FontID(FontID3)) ; OK
      SetGadgetFont(#M_Button_Loeschen,FontID(FontID3)) ; Löschen
      SetGadgetFont(#M_Button_Beenden,FontID(FontID3)) ; Beenden
      SetGadgetFont(#M_Frame3D_L1,FontID(FontID3)) ; Text Polteil L1
      SetGadgetFont(#M_Frame3D_L2,FontID(FontID3)) ; Text Polteil L2
      SetGadgetFont(#M_Frame3D_L3,FontID(FontID3)) ; Text Polteil L3
      SetGadgetFont(#M_Frame3D_Port,FontID(FontID16)) ; Barcode Scanner
      SetGadgetFont(#M_Text_1,FontID(FontID17)) ; Text
      SetGadgetFont(#M_Text_2,FontID(FontID17)) ; Text
      SetGadgetFont(#M_Text_3,FontID(FontID17)) ; Text
      SetGadgetFont(#M_Text_4,FontID(FontID17)) ; Text
      SetGadgetFont(#M_Text_5,FontID(FontID17)) ; Text
      SetGadgetFont(#M_Text_6,FontID(FontID17)) ; Text
      SetGadgetFont(#M_Text_Kammer_L1,FontID(FontID3)) ; Kammer-Type Kammer-Nr (L1)
      SetGadgetFont(#M_Text_GCE_L1,FontID(FontID3)) ; Polteil-GCE (L1)
      SetGadgetFont(#M_Text_Kammer_L2,FontID(FontID3)) ; Kammer-Type Kammer-Nr (L2)
      SetGadgetFont(#M_Text_GCE_L2,FontID(FontID3)) ; Polteil-GCE (L2)
      SetGadgetFont(#M_Text_Kammer_L3,FontID(FontID3)) ; Kammer-Type Kammer-Nr (L3)
      SetGadgetFont(#M_Text_GCE_L3,FontID(FontID3)) ; Polteil-GCE (L3)
      SetGadgetFont(#M_Text_Port,FontID(FontID17)) ; COM-Port oder AUS
      AddKeyboardShortcut(#Window_Main, #PB_Shortcut_Return , #MRETURN)
      SetTimer_(WindowID(#Window_Main),1,100,0)
    EndIf

Posted: **Wed May 31, 2006 7:34 pm**

Mischa wrote:
If you toggle XP Skin in PB IDE, gDesign should tell
you, that you have to restart it.
You see no messagerequester?

This happens in jaPBe... not messages in PB IDE

gDesign searches for a line inside source called
; EnableXP
(Normaly this line is hidden in IDE)

Hidden in IDE....and for me

With this information g extracts, or delete its own
manifest file. named 'gDesign.exe.manifest'.
(should be found also in PB root when enable XP Skin)
I hope you have not renamed gDesign.exe.

The file 'gDesign.exe.manifest' never appears... I checked
the directory where gDesign is every moment amongs several
tests.. it does not come into view, even by error!

gDesing.exe is not renamed.. because it works with no XP Skin.

Here it works with both IDEs perfectly.
I don't know, whats going wrong there.

Here works OK with jaPBe
and here exist 'gDesign.exe.manifest' ... why not in PBIDE?
I checked the jaPBe and PB directories access and are similar
this means there are no restrictions in PB directory.

Hm, maybe you should set the working directory in
the tool settings to gDesign path? Don't know.

I moved gDesign deep in PB directory... nothing happened
I moved gDesign out of PB structure... nothing happened

But we will find out.

sure

Posted: **Thu Jun 01, 2006 9:12 am**

gDesign - version 0.93
-bug fixed: (i hope) UTF-8
-bug fixed: faked menus, tool- and statusbar should work again
-bug fixed: TextGadget() flags
-Improved: Search for XP-Style in PB-IDE now includes *.cfg files
-Improved: Move and resize gadgets inside ScrollAreaGadget()
-Changed: Frame3DGadget is now only markable by frame

Download: http://www.thinkrelative.de/gdesign.zip

..fonts and colors will come in one of the next beta versions.
First i do some editing improvements.

Regards,
Mischa

Posted: **Thu Jun 01, 2006 4:35 pm**

Mischa wrote:gDesign - version 0.93
-Improved: Search for XP-Style in PB-IDE now includes *.cfg files

XP Skin is Working in both jaPBe and PB IDE

Posted: **Thu Jun 01, 2006 6:31 pm**

This is a wonderful tool.

Many thanks for your continuing development of it. It rocks

cheers

Posted: **Thu Jun 01, 2006 10:40 pm**

yes - it's a very good tool.

please make hundreds backup of your sources.

Posted: **Sun Jun 04, 2006 6:31 pm**

gDesign - version 0.94
-Added: Includes (wasn't easy)
-Improved: Multi-selection also possible by selection-rect (right mousekey)
-Improved: Parser can read (but not write) colors and fonts, now
-Changed: SplitterGadget is now only markable by frame, too

Download: http://www.thinkrelative.de/gdesign.zip

Please test!

Regards,
Mischa

Posted: **Wed Jun 07, 2006 1:37 am**

Mischa,

The next code creates a window with several gadgets, but the last part is not detected for gDesign... in the first tries I couldnt detect what is happening here.

The gadgets no detected by gDesign start in the frame with title "New Gadget Based in Model"

Code: Select all

Procedure Open_Window_Gadgets() ; window to get Gadget Data
   Window_Gadgets = OpenWindow(#PB_Any, 140, 35, 220, 525, "Gadget Dimensions: Right-Down Design" )
   If Window_Gadgets
      If CreateGadgetList(WindowID(Window_Gadgets))
         Tx_GType = TextGadget(#PB_Any, 10, 20, 80, 20, "Gadget: ", #PB_Text_Right)
         Cb_TypeG = ComboBoxGadget(#PB_Any, 95, 15, 120, 25)
         Result = AddGadgetItem(Cb_TypeG, -1, "ButtonGadget" ) 
         Result = AddGadgetItem(Cb_TypeG, -1, "ButtonImageGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "CalendarGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "CheckBoxGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "ComboBoxGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "ContainerGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "DateGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "EditorGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "ExplorerComboGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "ExplorerListGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "ExplorerTreeGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "Frame3DGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "HyperLinkGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "ImageGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "IPAddressGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "ListIconGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "ListViewGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "OptionGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "PanelGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "ProgressBarGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "ScrollAreaGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "ScrollBarGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "SpinGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "SplitterGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "StringGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "TextGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "TrackBarGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "TreeGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "WebGadget" )
         Result = AddGadgetItem(Cb_TypeG, -1, "MDIGadget" ) 
         Tx_PbAny = TextGadget(#PB_Any, 10, 39, 80, 20, "#PB_Any: ", #PB_Text_Right)
         St_PbAnyG = StringGadget(#PB_Any, 95, 38, 120, 20, "")
         Tx_Constant = TextGadget(#PB_Any, 10, 63, 80, 20, "#Constant: ", #PB_Text_Right)
         St_ConstantG = StringGadget(#PB_Any, 95, 61, 120, 20, "")
         Tx_x = TextGadget(#PB_Any, 10, 86, 80, 20, "X: ", #PB_Text_Right)
         St_XG = StringGadget(#PB_Any, 95, 84, 50, 20, "")
         Tx_Y = TextGadget(#PB_Any, 155, 87, 10, 20, "Y: ", #PB_Text_Right)
         St_YG = StringGadget(#PB_Any, 170, 85, 45, 20, "")
         Tx_W = TextGadget(#PB_Any, 10, 108, 80, 20, "W: ", #PB_Text_Right)
         St_WG = StringGadget(#PB_Any, 95, 108, 50, 20, "")
         Tx_H = TextGadget(#PB_Any, 150, 108, 20, 20, "H: ", #PB_Text_Right)
         St_HG = StringGadget(#PB_Any, 170, 108, 45, 20, "")
         Tx_Text = TextGadget(#PB_Any, 10, 131, 80, 20, "Text: ", #PB_Text_Right)
         St_TextG = StringGadget(#PB_Any, 95, 131, 120, 20, "")
         Tx_ImageOther = TextGadget(#PB_Any, 5, 154, 85, 20, "ImageID: ", #PB_Text_Right)
         St_ImageOtherG = StringGadget(#PB_Any, 95, 154, 120, 20, "")
         Tx_Extra = TextGadget(#PB_Any, 10, 179, 80, 20, "Reserved:", #PB_Text_Right)
         St_ExtraG = StringGadget(#PB_Any, 95, 177, 120, 20, "")
         DisableGadget(St_ExtraG, 1)
         Li_Flags = ListIconGadget(#PB_Any, 5, 201, 210, 125, "", 20, #PB_ListIcon_CheckBoxes|#PB_ListIcon_MultiSelect)
         AddGadgetColumn(Li_Flags, 1, "              Flags ", 250)
         Bu_CreateGadget = ButtonGadget(#PB_Any, 5, 329, 50, 75, "*Create   And   Get*", #PB_Button_MultiLine)
         Bu_CopyCurrent = ButtonGadget(#PB_Any, 55, 329, 80, 25, "Get Object")
         Bu_CopyAllObjects = ButtonGadget(#PB_Any, 135, 329, 80, 25, "Get Objects")
         Bu_GetGlobals = ButtonGadget(#PB_Any, 55, 354, 80, 25, "Get Globals")
         Bu_GetConstants = ButtonGadget(#PB_Any, 135, 354, 80, 25, "Get Constants")
         Bu_Toggle = ButtonGadget(#PB_Any, 55, 379, 45, 25, "any<->#")
         Bu_ResetData = ButtonGadget(#PB_Any, 100, 379, 35, 25, "Reset")
         Bu_ClearAll = ButtonGadget(#PB_Any, 135, 379, 44, 25, "ClearAll")
         Bu_CloseWindow1 = ButtonGadget(#PB_Any, 180, 379, 35, 25, "Close")
         St_pos = StringGadget(#PB_Any, 20, 425, 25, 20,"",#PB_String_ReadOnly)
         Tx_Of = TextGadget(#PB_Any, 10, 445, 35, 25, "Object:", #PB_Text_Right)
         Bu_Previous = ButtonGadget(#PB_Any, 50, 430, 20, 25,"P")
         Bu_Next = ButtonGadget(#PB_Any, 50, 455, 20, 25,"N")
         Tx_Offset = TextGadget(#PB_Any, 75, 445, 30, 25, "Offset:", #PB_Text_Right)
         St_Offset = StringGadget(#PB_Any, 110, 440, 30, 25,"0")
         Tx_Duplicate = TextGadget(#PB_Any, 150, 425, 30, 25, "At:", #PB_Text_Right)
         Bu_Right = ButtonGadget(#PB_Any, 145, 440, 40, 25,"Right")
         Bu_Down = ButtonGadget(#PB_Any, 185, 425, 20, 60,"D o w n",#PB_Button_MultiLine)
         Fr_frame = Frame3DGadget(#PB_Any, 5, 405, 210, 110, "New Gadget Based in Model")
         
         DisableGadget(Bu_Next,1)
         DisableGadget(Bu_Previous,1)
         
         Tx_msg = TextGadget(#PB_Any, 8, 495, 300, 25, "Object->Offset->R-D->Sel Gadget->Adjust")
         CloseGadgetList() 
         
      EndIf
   EndIf
EndProcedure

Open_Window_Gadgets()
Repeat
   Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow

Thanks

PureBasic Forums - English

gDesign - editor plugin v0.95