PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

gDesign - editor plugin v0.95

https://www.purebasic.fr/english/viewtopic.php?t=22018

Page 4 of 4

Posted: Wed Jun 21, 2006 6:42 pm
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

Posted: Thu Jun 22, 2006 5:16 pm
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 :-)

Posted: Thu Jun 22, 2006 6:32 pm
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:

Posted: Thu Aug 24, 2006 3:59 am
by PureBoy
en:i like you tool very mach!
ch:我非常喜欢你的工具.

Posted: Sun Oct 19, 2008 12:44 pm
by PB
Any updates coming for this? Needs some tweaking for v4.30 to work properly.

Posted: Wed Jun 10, 2009 9:11 pm
by HAnil
hi,
I want to download gDesign but domain is not working.
is there anyone have this tool ?
regards,

Posted: Tue Jul 07, 2009 4:28 pm
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

Posted: Tue Jul 07, 2009 10:18 pm
by HAnil
yes, still searching ...
if you have, do you share ?
thanks...

Posted: Wed Jul 08, 2009 1:52 pm
by Coolman
http://www.easy-share.com/1906665324/gdesign.zip

8)

Posted: Wed Jul 08, 2009 1:53 pm
by Coolman
http://www.easy-share.com/1906665324/gdesign.zip

8)

Posted: Thu Jul 09, 2009 10:03 am
by HAnil
Thanks you very much :)

Re: gDesign - editor plugin v0.95

Posted: Wed Oct 29, 2014 6:06 pm
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

Re: gDesign - editor plugin v0.95

Posted: Wed Oct 29, 2014 10:36 pm
by Poshu
NECROMANCY! THIS IS FORUM NECROMANCY I SAY!
All times are UTC+01:00
Page 4 of 4

Powered by phpBB® Forum Software © phpBB Limited