gDesign - editor plugin v0.95

Developed or developing a new product in PureBasic? Tell the world about it.
Post Reply
User avatar
blueznl
PureBasic Expert
PureBasic Expert
Posts: 6166
Joined: Sat May 17, 2003 11:31 am
Contact:
Contact blueznl

Post by blueznl »

nope
( PB6.00 LTS Win11 x64 Asrock AB350 Pro4 Ryzen 5 3600 32GB GTX1060 6GB)
( The path to enlightenment and the PureBasic Survival Guide right here... )
Top
User avatar
Mischa
Enthusiast
Enthusiast
Posts: 115
Joined: Fri Aug 15, 2003 7:43 pm

Post by Mischa »

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 8) )

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

Regards,
Mischa
Top
chen
Enthusiast
Enthusiast
Posts: 338
Joined: Fri Dec 23, 2005 2:20 pm
Location: Quebec, Canada
Contact:
Contact chen

Post by chen »

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)

Image Image

Thanks :wink:
Top
chen
Enthusiast
Enthusiast
Posts: 338
Joined: Fri Dec 23, 2005 2:20 pm
Location: Quebec, Canada
Contact:
Contact chen

Post by chen »

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:cry:
Top
User avatar
Mischa
Enthusiast
Enthusiast
Posts: 115
Joined: Fri Aug 15, 2003 7:43 pm

Post by Mischa »

@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. :wink:

Regards,
Mischa
Last edited by Mischa on Wed May 31, 2006 10:19 am, edited 1 time in total.
Top
Berikco
Administrator
Administrator
Posts: 1326
Joined: Wed Apr 23, 2003 7:57 pm
Location: Belgium
Contact:
Contact Berikco

Post by Berikco »

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 :)
Last edited by Berikco on Wed May 31, 2006 11:16 am, edited 1 time in total.
Top
User avatar
Shardik
Addict
Addict
Posts: 2058
Joined: Thu Apr 21, 2005 2:38 pm
Location: Germany

Post by Shardik »

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.
Top
ABBKlaus
Addict
Addict
Posts: 1143
Joined: Sat Apr 10, 2004 1:20 pm
Location: Germany

Post by ABBKlaus »

some more bugs Mischa :oops:
- 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
Image

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
Top
chen
Enthusiast
Enthusiast
Posts: 338
Joined: Fri Dec 23, 2005 2:20 pm
Location: Quebec, Canada
Contact:
Contact chen

Post by chen »

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 :wink:
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. :wink:


sure :wink:
Top
User avatar
Mischa
Enthusiast
Enthusiast
Posts: 115
Joined: Fri Aug 15, 2003 7:43 pm

Post by Mischa »

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
Top
chen
Enthusiast
Enthusiast
Posts: 338
Joined: Fri Dec 23, 2005 2:20 pm
Location: Quebec, Canada
Contact:
Contact chen

Post by chen »

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
Top
rsts
Addict
Addict
Posts: 2736
Joined: Wed Aug 24, 2005 8:39 am
Location: Southwest OH - USA

Post by rsts »

This is a wonderful tool.

Many thanks for your continuing development of it. It rocks :D

cheers
Top
User avatar
Flype
Addict
Addict
Posts: 1542
Joined: Tue Jul 22, 2003 5:02 pm
Location: In a long distant galaxy

Post by Flype »

yes - it's a very good tool.

please make hundreds backup of your sources. :P
No programming language is perfect. There is not even a single best language.
There are only languages well suited or perhaps poorly suited for particular purposes. Herbert Mayer
Top
User avatar
Mischa
Enthusiast
Enthusiast
Posts: 115
Joined: Fri Aug 15, 2003 7:43 pm

Post by Mischa »

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
Top
chen
Enthusiast
Enthusiast
Posts: 338
Joined: Fri Dec 23, 2005 2:20 pm
Location: Quebec, Canada
Contact:
Contact chen

Post by chen »

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
Top
Post Reply

Return to “Announcement”