Page 1 of 1
DEFINE SPLIT BOX casues havoc to EDIT/EDIT EXTENDED
Posted: Wed Mar 11, 2009 10:01 am
by CCH4CLIPPER
Hi Escigi/Rathinagiri
Why does adding DEFINE SPLITBOX cause havoc (lots of error messages, disappearing buttons etc as follows :-
Try it out yourself as in the following code snippet:-
Code: Select all
DEFINE WINDOW MainForm ;
AT 0,0 ;
WIDTH 600 ;
HEIGHT 480 ;
TITLE 'FAS4MiniGUI' ;
MAIN ;
MDI
DEFINE MAIN MENU
POPUP '&File'
ITEM 'Exit' ACTION FileExit() IMAGE 'Exit.Bmp'
END POPUP
END MENU
DEFINE STATUSBAR FONT 'MS Sans Serif' SIZE 9
KEYBOARD
DATE
CLOCK
END STATUSBAR
// VERY IMPORTANT, commenting away solves EDIT/EDITEXTENDED issue but cannot show 'coolbar effect'
DEFINE SPLITBOX
DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 25,25 FLAT BORDER
BUTTON Button_Close ;
PICTURE 'exit.bmp' ;
TOOLTIP 'Close this Window' ;
AUTOSIZE;
ACTION Exit();
SEPARATOR
END TOOLBAR
Regards
CCH
http://cch4clipper.blogspot.com
Re: DEFINE SPLIT BOX casues havoc to EDIT/EDIT EXTENDED
Posted: Wed Mar 11, 2009 1:55 pm
by esgici
CCH4CLIPPER wrote:
Why does adding DEFINE SPLITBOX cause havoc ... ?
...
Hi CCH
Because of missing END SPLITBOX .
Regards
PS : Being promoted anywhere by anyone doesn't matter for me.
--
Esgici
Re: DEFINE SPLIT BOX casues havoc to EDIT/EDIT EXTENDED
Posted: Thu Mar 12, 2009 2:18 am
by CCH4CLIPPER
Hi Escigi
Yup, silly mistake by me but on further testing I found that although EDIT/EDIT EXTENDED now works, my TOOLBAR on my Main Form will disappear once I chose to Print & Preview.
p/s I don't understand your p/s
Regards
CCH
http://cch4clipper.blogspot.com
Re: DEFINE SPLIT BOX casues havoc to EDIT/EDIT EXTENDED
Posted: Thu Mar 12, 2009 10:52 am
by esgici
CCH4CLIPPER wrote:
... my TOOLBAR on my Main Form will disappear once I chose to Print & Preview.
Regards
CCH
Hi CCH
I can't confirm your diagnosis. Here slightly modified your code and works perfect. What is difference ?
Code: Select all
#include "minigui.ch"
PROC Main()
DEFINE WINDOW MainForm ;
AT 0,0 ;
WIDTH 600 ;
HEIGHT 480 ;
TITLE 'FAS4MiniGUI' ;
MAIN ; // MDI
ON INIT OpNEdEx() ;
ON RELEASE DBCLOSEALL()
DEFINE MAIN MENU
POPUP '&File'
ITEM 'Exit' ACTION MainForm.Release
END POPUP
END MENU
DEFINE STATUSBAR FONT 'MS Sans Serif' SIZE 9
KEYBOARD
DATE
CLOCK
END STATUSBAR
// VERY IMPORTANT, commenting away solves EDIT/EDITEXTENDED issue but cannot show 'coolbar effect'
DEFINE SPLITBOX
DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 25,25 FLAT BORDER
BUTTON Button_Close ;
PICTURE 'exit.bmp' ;
TOOLTIP 'Close this Window' ;
AUTOSIZE ;
ACTION MainForm.Release ;
SEPARATOR
END TOOLBAR
END SPLITBOX
END WINDOW // MainForm()
CENTER WINDOW MainForm
ACTIVATE WINDOW MainForm
RETU // EdExHavoc.Main
PROC OpNEdEx()
USE TEST INDE TEST
EDIT EXTENDED
RETU
Regards
--
Esgici
Re: DEFINE SPLIT BOX casues havoc to EDIT/EDIT EXTENDED
Posted: Thu Mar 12, 2009 1:41 pm
by CCH4CLIPPER
Hi Escigi
OK Now. This issue is now closed
TQ
CCH
http://cch4clipper.blogspot.com