When my program does some functions like envoke an email message, when I return to my program, one of my toolbars has dissappeared.
If I minimise and maximise the program it reappears. Where is my problem?
Ollie,
Are you using a MDI window ? is it a toolbar or a buttonbar ?
MDICHILD
Buttonbar
Ollie,
Could you take a screenshot and upload it to www.imageshack.us and copy here the URL to review it ? thanks,
done.
I send a mail using TMAIL
Then when the program returns, buttonbar is gone.
Ollie,
How are you placing the controls on the MdiChild ? Are you using a dialog on top of it ?
Yes I am.
Ollie,
When you create the buttonbar, does it belong to the mdichild or to the dialog ? ( CLAUSE "OF ..." )
//Main application window:
DEFINE WINDOW Win_Main FROM 0, 0 TO 600, 800 PIXEL TITLE 'SubsPro' MDI ICON oIcon MENU mainmenu() //ICON FILENAME "..\RESOURCE\SUBSPRO.BMP" //BACKCOLOR aBackcolor ON RELEASE quitprog()
//Button Bar at top:
DEFINE BUTTONBAR oMain_Toolbar OF Win_Main SIZE 70, 50 3D // Microsoft Standard: 24,26 3D bitmaps to be 18pix high by 19pix wide
DEFINE BUTTON of oMain_Toolbar PROMPT "Subscribers" TOP ACTION DBMAIN() TOOLTIP "Current / Active Subscribers" RESOURCE "LED_GREEN"
DEFINE BUTTON of oMain_Toolbar PROMPT "Prospective" TOP ACTION DBPROS() TOOLTIP "Prospective Subscribers" RESOURCE "LED_YELLOW"
DEFINE BUTTON of oMain_Toolbar PROMPT "Free" TOP ACTION DBFREE() TOOLTIP "Voucher/Free Copies" RESOURCE "LED_RED"
// DEFINE BUTTON of oMain_Toolbar PROMPT "Report" TOP ACTION makertf() RESOURCE "LETTER" //report2() GROUP //puts a little space before this button
// DEFINE BUTTON of oMain_Toolbar PROMPT "Open DBFs" TOP ACTION opendbfs() RESOURCE "tools"
DEFINE BUTTON of oMain_Toolbar PROMPT "Exit" TOP ACTION quitprog() TOOLTIP "Exit" RESOURCE "exit"
//MDICHILD
DEFINE WINDOW Win_Dbmain TITLE "Subscribers Database" MDICHILD ICON oIcon //NOMINIMIZE NOMAXIMIZE //VSCROLL HSCROLL
//Button bar of MDICHILD
DEFINE BUTTONBAR oButton_Bar OF Win_Dbmain SIZE 40, 40 3DI get : System Error: Cannot create a top-level child window.
Lets recap:
//Application's main window - Win_main
DEFINE WINDOW Win_Main FROM 0, 0 TO 600, 800 PIXEL TITLE 'SubsPro' MDI ICON oIcon MENU mainmenu() ON RELEASE quitprog()
//Buttonbar of Win_main
DEFINE BUTTONBAR oMain_Toolbar OF Win_Main SIZE 70, 50 3D
//One of the buttons creates a MDI Child window: Win_Dbmain
DEFINE WINDOW Win_Dbmain TITLE "Subscribers Database" MDICHILD ICON oIcon
//I define its button bar
DEFINE BUTTONBAR oButton_Bar OF Win_Dbmain SIZE 40, 40 3D
//I then define the Dlg - Dlg_Dbmain (it has folders/Tabs)
DEFINE DIALOG Dlg_Dbmain RESOURCE "DBMAIN" OF Win_Dbmain ICON oIcon
//These dlgs and windows are activated as follows (so that they behave "as one"
ACTIVATE DIALOG Dlg_Dbmain NOWAIT ; // It has to be NonModal
ON INIT ( Dlg_Dbmain:Move( 0, 0 ) ) ;
VALID ( Win_Dbmain:End(), .T. )
ACTIVATE WINDOW Win_Dbmain MAXIMIZED ;
ON RESIZE ( WNDSETSIZE( Dlg_Dbmain, WNDHEIGHT( Win_Dbmain ), WNDWIDTH( Win_Dbmain ) ) ) ;
VALID ( IF( save_MAIN_data(), ( close_tables(), Win_Dbmain := NIL, .T. ), .F. ) )
If I remove the line:
DEFINE BUTTONBAR oButton_Bar OF Win_Dbmain SIZE 40, 40 3D
and move it to the line * above
DEFINE BUTTONBAR oButton_Bar OF Dlg_Dbmain SIZE 40, 40 3D
I get : System Error: Cannot create a top-level child window.
I have a better screen shot with annotations that explains it nicely:
ACTIVATE DIALOG Dlg_Dbmain NOWAIT ; // It has to be NonModal
ON INIT ( Dlg_Dbmain:Move( 0, 0 ), BuildButtonBar( Dlg_Dbmain ) ) ;
VALID ( Win_Dbmain:End(), .T. )
ACTIVATE WINDOW Win_Dbmain MAXIMIZED ;
ON RESIZE ( WNDSETSIZE( Dlg_Dbmain, WNDHEIGHT( Win_Dbmain ), WNDWIDTH( Win_Dbmain ) ) ) ;
VALID ( IF( save_MAIN_data(), ( close_tables(), Win_Dbmain := NIL, .T. ), .F. ) )
...
function BuildButtonBar( oDlg )
local oButton_Bar
DEFINE BUTTONBAR oButton_Bar OF oDlg SIZE 40, 40 3D
... add the buttons here
return nilExcellent !!
Thank you.
ACTIVATE DIALOG Dlg_Dbmain NOWAIT ; // It has to be NonModal
ON INIT ( Dlg_Dbmain:Move( 0, 0 ), BuildButtonBar( Dlg_Dbmain ) ) ;
VALID ( Win_Dbmain:End(), .T. )
ACTIVATE WINDOW Win_Dbmain MAXIMIZED ;
ON RESIZE ( WNDSETSIZE( Dlg_Dbmain, WNDHEIGHT( Win_Dbmain ), WNDWIDTH( Win_Dbmain ) ) ) ;
VALID ( IF( save_MAIN_data(), ( close_tables(), Win_Dbmain := NIL, .T. ), .F. ) )