gDesign - editor plugin v0.95

Developed or developing a new product in PureBasic? Tell the world about it.
Post Reply
chen
Enthusiast
Enthusiast
Posts: 338
Joined: Fri Dec 23, 2005 2:20 pm
Location: Quebec, Canada
Contact:
Contact chen

Post by chen »

Mischa,

gDesign inserts an extra ", )" in the OpenWindow() line every time
you press "accept" button....

Original Code:

Code: Select all

; gPreferences[460-5-1-1-1050-282-0-293-392]
  
Procedure Open_Window_About()
   
   
   x = WindowX(#window1)  + WindowWidth(#window1)/3
   y = WindowY(#window1)  + WindowHeight(#window1)/3
   
   
   FontID3 = LoadFont(2, "Arial", 12)
   If OpenWindow(#about_Window, x, y, 304, 436, "About...")
      If CreateGadgetList(WindowID(#about_Window))
         Frame3DGadget(#about_Frame3D_1, 10, 10, 284, 192, "", #PB_Frame3D_Single)
         mesg$ =  "KaizenSoft" + Cr(1)
         mesg$ = mesg$ + "By Chen Zarza" + Cr(2)
         mesg$ = mesg$ + "Commercial Software" + Cr(2)
         mesg$ = mesg$ + "Search and Replace Tool" + Cr(1)
         mesg$ = mesg$ + "Version 1.1 release"
         TextGadget(#about_Text_1, 15, 14, 275, 182, mesg$, #PB_Text_Center)
         SetGadgetFont(#about_Text_1, FontID3)
         SetGadgetColor(#about_Text_1, #PB_Gadget_BackColor, RGB(22,111,22))
         SetGadgetColor(#about_Text_1, #PB_Gadget_FrontColor, RGB(255,255,0))
         TextGadget(#about_tx_serialNumber, 22, 152, 74, 16, "Serial Number:")
         SetGadgetColor(#about_tx_serialNumber, #PB_Gadget_BackColor, RGB(22,111,22))
         SetGadgetColor(#about_tx_serialNumber, #PB_Gadget_FrontColor, RGB(255,255,0))
         StringGadget(#about_st_serialNumber, 95, 150, 140, 20, "")
         ButtonGadget(#about_bu_Verify, 241, 150, 44, 20, "Verify")
         HyperLinkGadget(#about_Kaizen, 7, 206, 135, 20, "http://www.kaizensoft.com", RGB(22,111,22), #PB_HyperLink_Underline)
         HyperLinkGadget(#about_email, 7, 226, 150, 20, "mailto:support@kaizensoft.com", RGB(22,111,22), #PB_HyperLink_Underline)
         mesg$ =  "                     <<<Disclaimer>>>" + Cr(2)
         mesg$ = mesg$ + "The Software is provided 'as is'. In no event shall KaizenSoft or " 
         mesg$ = mesg$ + "its creator Chen Zarza be liable for any consequential, special," 
         mesg$ = mesg$ + " incidental or indirect damages of any kind arising out of the delivery, " 
         mesg$ = mesg$ + "performance or use of this Software, "  + Cr(2)
         mesg$ = mesg$ + "This Software has been developed with care, but it is not possible" 
         mesg$ = mesg$ + " to warrant that the software is error free."
         TextGadget(#about_Text_2, 16, 252, 265, 141, mesg$)
         SetGadgetColor(#about_Text_2, #PB_Gadget_FrontColor, RGB(0,0,102))
         ButtonGadget(#about_bu_OK, 114, 400, 80, 30, "Ok")
         
      EndIf
   EndIf
EndProcedure
Result code after two "accept" actions:

Code: Select all


; gPreferences[460-5-1-1-1050-282-0-293-392]
  
Procedure Open_Window_About()
   
   
   x = WindowX(#window1)  + WindowWidth(#window1)/3
   y = WindowY(#window1)  + WindowHeight(#window1)/3
   
   
   FontID3 = LoadFont(2, "Arial", 12)
   If OpenWindow(#about_Window, x, y, 304, 436, "About..."), ), ) <- PROBLEM HERE
      If CreateGadgetList(WindowID(#about_Window))
         Frame3DGadget(#about_Frame3D_1, 10, 10, 284, 192, "", #PB_Frame3D_Single)
         mesg$ =  "KaizenSoft" + Cr(1)
         mesg$ = mesg$ + "By Chen Zarza" + Cr(2)
         mesg$ = mesg$ + "Commercial Software" + Cr(2)
         mesg$ = mesg$ + "Search and Replace Tool" + Cr(1)
         mesg$ = mesg$ + "Version 1.1 release"
         TextGadget(#about_Text_1, 15, 14, 275, 182, mesg$, #PB_Text_Center)
         SetGadgetFont(#about_Text_1, FontID3)
         SetGadgetColor(#about_Text_1, #PB_Gadget_BackColor, RGB(22,111,22))
         SetGadgetColor(#about_Text_1, #PB_Gadget_FrontColor, RGB(255,255,0))
         TextGadget(#about_tx_serialNumber, 22, 152, 74, 16, "Serial Number:")
         SetGadgetColor(#about_tx_serialNumber, #PB_Gadget_BackColor, RGB(22,111,22))
         SetGadgetColor(#about_tx_serialNumber, #PB_Gadget_FrontColor, RGB(255,255,0))
         StringGadget(#about_st_serialNumber, 95, 150, 140, 20, "")
         ButtonGadget(#about_bu_Verify, 241, 150, 44, 20, "Verify")
         HyperLinkGadget(#about_Kaizen, 7, 206, 135, 20, "http://www.kaizensoft.com", RGB(22,111,22), #PB_HyperLink_Underline)
         HyperLinkGadget(#about_email, 7, 226, 150, 20, "mailto:support@kaizensoft.com", RGB(22,111,22), #PB_HyperLink_Underline)
         mesg$ =  "                     <<<Disclaimer>>>" + Cr(2)
         mesg$ = mesg$ + "The Software is provided 'as is'. In no event shall KaizenSoft or " 
         mesg$ = mesg$ + "its creator Chen Zarza be liable for any consequential, special," 
         mesg$ = mesg$ + " incidental or indirect damages of any kind arising out of the delivery, " 
         mesg$ = mesg$ + "performance or use of this Software, "  + Cr(2)
         mesg$ = mesg$ + "This Software has been developed with care, but it is not possible" 
         mesg$ = mesg$ + " to warrant that the software is error free."
         TextGadget(#about_Text_2, 16, 252, 265, 141, mesg$)
         SetGadgetColor(#about_Text_2, #PB_Gadget_FrontColor, RGB(0,0,102))
         ButtonGadget(#about_bu_OK, 114, 400, 80, 30, "Ok")
         
      EndIf
   EndIf
EndProcedure
An additional question?

Why we can redo the changes made with gDesign...?
I want to say for example, if I change the height of a textGadget, then
press "accept" the change is done but if I change my mind pressing
Ctrl+Z does not work.....

This happens only if the modifications come from gDesign.

Working Win XP, jaPBe, PB4
Last edited by chen on Fri Jun 23, 2006 6:24 am, edited 1 time in total.
Top
User avatar
blueznl
PureBasic Expert
PureBasic Expert
Posts: 6166
Joined: Sat May 17, 2003 11:31 am
Contact:
Contact blueznl

Post by blueznl »

chen, that's because gdesign probably makes your editor save the code, then change it, then reload it, so the editor thinks it's new code just reloaded and there's in that case no 'edit history' for it

unless i got it wrong :-)
( 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
chen
Enthusiast
Enthusiast
Posts: 338
Joined: Fri Dec 23, 2005 2:20 pm
Location: Quebec, Canada
Contact:
Contact chen

Post by chen »

blueznl wrote:chen, that's because gdesign probably makes your editor save the code, then change it, then reload it, so the editor thinks it's new code just reloaded and there's in that case no 'edit history' for it

unless i got it wrong :-)
If you create code for the first time and its not saved, each time you make
changes and press "accept" in gDesign it creates a new window in your editor..

Then the first thing I do is save the file and then use gDesign, in this way
it does not open another file...

I have been using eDesign from the first post... this means is the
first time I found this problem...

BTW: blueznl, I use your survival guide.... I automated it (rustical way)
and help me a lot
:wink:
Top
PureBoy
User
User
Posts: 17
Joined: Mon May 01, 2006 8:13 pm
Location: Urumqi China
Contact:
Contact PureBoy

Post by PureBoy »

en:i like you tool very mach!
ch:我非常喜欢你的工具.
PureBasic Super Designer
http://www.purebasic.cn/pbsd
VB6--->PB4
make pb4 form in vb6
Top
PB
PureBasic Expert
PureBasic Expert
Posts: 7581
Joined: Fri Apr 25, 2003 5:24 pm

Post by PB »

Any updates coming for this? Needs some tweaking for v4.30 to work properly.
I compile using 5.31 (x86) on Win 7 Ultimate (64-bit).
"PureBasic won't be object oriented, period" - Fred.
Top
User avatar
HAnil
User
User
Posts: 87
Joined: Thu Feb 26, 2004 5:42 pm
Location: 28:58E 41:01N

Post by HAnil »

hi,
I want to download gDesign but domain is not working.
is there anyone have this tool ?
regards,
PureBasic v5.22 LTS & Mac & Windows8
Top
thanos
Enthusiast
Enthusiast
Posts: 423
Joined: Sat Jan 12, 2008 3:25 pm
Location: Greece
Contact:
Contact thanos

Post by thanos »

HAnil wrote:hi,
I want to download gDesign but domain is not working.
is there anyone have this tool ?
regards,
Are you still interesting for this tool?

Thanos
» myPersonal Banker :: Because you do not need to have a master degree in economics in order to organize your finances!
Top
User avatar
HAnil
User
User
Posts: 87
Joined: Thu Feb 26, 2004 5:42 pm
Location: 28:58E 41:01N

Post by HAnil »

yes, still searching ...
if you have, do you share ?
thanks...
PureBasic v5.22 LTS & Mac & Windows8
Top
Coolman
Enthusiast
Enthusiast
Posts: 103
Joined: Sat Sep 03, 2005 4:07 pm

Post by Coolman »

http://www.easy-share.com/1906665324/gdesign.zip

8)
*** Excuse my bad English, I uses has translating program ***
Top
Coolman
Enthusiast
Enthusiast
Posts: 103
Joined: Sat Sep 03, 2005 4:07 pm

Post by Coolman »

http://www.easy-share.com/1906665324/gdesign.zip

8)
*** Excuse my bad English, I uses has translating program ***
Top
User avatar
HAnil
User
User
Posts: 87
Joined: Thu Feb 26, 2004 5:42 pm
Location: 28:58E 41:01N

Post by HAnil »

Thanks you very much :)
PureBasic v5.22 LTS & Mac & Windows8
Top
User avatar
Vera
Addict
Addict
Posts: 858
Joined: Tue Aug 11, 2009 1:56 pm
Location: Essen (Germany)

Re: gDesign - editor plugin v0.95

Post by Vera »

*** bumped ***

In case someone might like to have a look at gdesign you can get gdesign097b2.zip
on RSBasic's Backup-Page.

Hint: whenever you come across a broken dl-link on one of the three PureBasic forums you might be lucky to find it being mirrored by RSBasic ... so maybe bookmark that link above ;-)

greets ~ Vera
Top
Poshu
Enthusiast
Enthusiast
Posts: 459
Joined: Tue Jan 25, 2005 7:01 pm
Location: Canada

Re: gDesign - editor plugin v0.95

Post by Poshu »

NECROMANCY! THIS IS FORUM NECROMANCY I SAY!
Top
Post Reply

Return to “Announcement”