[wxWidgets.git] / demos / dbbrowse / dbbrowse.cpp

//------------------------------------------------------------------------------
// Name:        dbbrowse.cpp
// Purpose:     Through ODBC - Databases Browsen
// Author:      Mark Johnson, mj10777@gmx.net
// Modified by:
// BJO        : Bart A.M. JOURQUIN
// Created:     19991127
// Copyright:   (c) Mark Johnson
// Licence:     wxWindows license
// RCS-ID:      $Id$
//------------------------------------------------------------------------------
//-- all #ifdefs that the whole Project needs. ------------------------------
//---------------------------------------------------------------------------
#ifdef __GNUG__
 #pragma implementation
 #pragma interface
#endif
//---------------------------------------------------------------------------
// For compilers that support precompilation, includes "wx/wx.h".
#include "wx/wxprec.h"
//---------------------------------------------------------------------------
#ifdef __BORLANDC__
 #pragma hdrstop
#endif
//---------------------------------------------------------------------------
#ifndef WX_PRECOMP
 #include "wx/wx.h"
#endif
//---------------------------------------------------------------------------
#ifndef __WXMSW__
#endif
 #include "bitmaps/logo.xpm"
//---------------------------------------------------------------------------
//-- all #includes that every .cpp needs             --- 19990807.mj10777 ---
//---------------------------------------------------------------------------
#include "std.h"    // sorgsam Pflegen !
#include <iostream>
//---------------------------------------------------------------------------
//-- Some Global Vars for this file ----------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
MainFrame *frame = NULL;      // The one and only MainFrame
// wxLogNull logNo;              // No Log messages
//---------------------------------------------------------------------------
// verify that the item is ok and insult the user if it is not
#define CHECK_ITEM(item)                                                \
 if (!item.IsOk())                                                      \
 {                                                                      \
  wxMessageBox(_("Please select some item first!"),_("Tree sample error"),      \
                 wxOK | wxICON_EXCLAMATION,this);                       \
  return;                                                               \
 }                                                                      \
//---------------------------------------------------------------------------
BEGIN_EVENT_TABLE(MainFrame, wxFrame)
 EVT_MENU(QUIT, MainFrame::OnQuit)
 EVT_MENU(ABOUT, MainFrame::OnAbout)
 EVT_MENU(HELP, MainFrame::OnHelp)
 EVT_SIZE(MainFrame::OnSize)
END_EVENT_TABLE()
//---------------------------------------------------------------------------
IMPLEMENT_APP(MyApp)
//---------------------------------------------------------------------------
// `Main program' equivalent, creating windows and returning main app frame
//---------------------------------------------------------------------------
bool MyApp::OnInit(void)
{
 //---------------------------------------------------------------------------------------
 // set the language to use
 const char *langhelp = NULL;
 const char *language = NULL;
 const char *langid   = NULL;
 //---------------------------------------------------------------------------------------
#if wxUSE_LIBPNG
 wxImage::AddHandler( new wxPNGHandler );   // use only when needed, otherwise big .exe's
#endif
/*
#if wxUSE_LIBJPEG
 wxImage::AddHandler(new wxJPEGHandler );   // use only when needed, otherwise big .exe's
#endif
 wxImage::AddHandler( new wxGIFHandler );   // use only when needed, otherwise big .exe's
 wxImage::AddHandler( new wxPCXHandler );   // use only when needed, otherwise big .exe's
 wxImage::AddHandler( new wxPNMHandler );   // use only when needed, otherwise big .exe's
*/
#ifdef __WXMSW__
 // wxBitmap::AddHandler( new wxXPMFileHandler );   // use only when needed, otherwise big .exe's
 // wxBitmap::AddHandler( new wxXPMDataHandler );   // use only when needed, otherwise big .exe's
#endif
 //---------------------------------------------------------------------------------------
 langid = "std"; // BJO20000125 instead of ""
 switch ( argc )
 {
  default:
      // ignore the other args, fall through
  case 3:
      language = argv[2];
      langid   = argv[1];
      break;
  case 2:
      langid = argv[1];
      break;
  case 1:
      break;
 };
 //---------------------------------------------------------------------------------------
 // we're using wxConfig's "create-on-demand" feature: it will create the
 // config object when it's used for the first time. It has a number of
 // advantages compared with explicitly creating our wxConfig:
 //  1) we don't pay for it if we don't use it
 //  2) there is no danger to create it twice

 // application and vendor name are used by wxConfig to construct the name
 // of the config file/registry key and must be set before the first call
 // to Get() if you want to override the default values (the application
 // name is the name of the executable and the vendor name is the same)
 //---------------------------------------------------------------------------------------
 SetVendorName("mj10777");
 SetAppName("DBBrowser"); // not needed, it's the default value
 p_ProgramCfg = wxConfigBase::Get();
 // p_ProgramCfg->DeleteAll();
 p_ProgramCfg->SetPath("/");
 wxString Temp0, Temp1;
 Temp0.Empty();

 //---------------------------------------------------------------------------------------
 //-- Set the Language and remember it for the next time. --------------------------------
 //---------------------------------------------------------------------------------------
 langhelp = "help.std/dbbrowse.hhp";
 if (langid == "std")
 {
  p_ProgramCfg->Read("/Local/langid",&Temp0); // >const char *langid< can't be used here
  if (Temp0 == "")
   langid = "std";
  else
   langid = Temp0;
 }
 Temp0 = langid;
 p_ProgramCfg->Write("/Local/langid",Temp0); // >const char *langid< can't be used here
 //---------------------------------------------------------------------------------------
 // Support the following languages
 if (Temp0 != "std")
 {
  if (Temp0 == "cz")
  {
   language = "czech";  // csy or czech
   langhelp = "help.cz/dbbrowse.hhp";
  }
  if ((Temp0 == "de") || (Temp0 == "a"))
  {
   language = "german";  // deu or german
   langhelp = "help.de/dbbrowse.hhp";
  }
  if (Temp0 == "fr")
  {
   language = "french";  // fra or french
   langhelp = "help.fr/dbbrowse.hhp";
  }
  if (Temp0 == "pl")
  {
   language = "polish";  // plk or polish
   langhelp = "help.pl/dbbrowse.hhp";
  }
  if (!m_locale.Init(language, langid, language))      // setlocale(LC_ALL,""); does not work
   wxMessageBox("SetLocale error");
  m_locale.AddCatalog("PgmText");
  m_locale.AddCatalog("Help");
  Temp0 = language;
  p_ProgramCfg->Write("/Local/language",Temp0);
 }
 else
 {
  Temp0 = "english";
  p_ProgramCfg->Write("/Local/language",Temp0);
  Temp0 = "std";    // allways english if not german or french (at the moment austrian)
 }

 Temp0 = "NONE";
 p_ProgramCfg->Write("/NONE",Temp0);
 p_ProgramCfg->Write("/Paths/NONE",Temp0);
 p_ProgramCfg->Write("/MainFrame/NONE",Temp0);
 //-----------------------------------------------------------------------------
 p_ProgramCfg->Write("/Paths/Work",wxGetCwd());
 p_ProgramCfg->SetPath("/");
 //-----------------------------------------------------------------------------
 // or you could also write something like this:
 //  wxFileConfig *p_ProgramCfg = new wxFileConfig("conftest");
 //  wxConfigBase::Set(p_ProgramCfg);
 // where you can also specify the file names explicitly if you wish.
 // Of course, calling Set() is optional and you only must do it if
 // you want to later retrieve this pointer with Get().
 //----------------------------------------------------------------------------
 // SetPath() understands ".."
 // restore frame position and size
 int x = p_ProgramCfg->Read("/MainFrame/x", 1), y = p_ProgramCfg->Read("/MainFrame/y", 1),
     w = p_ProgramCfg->Read("/MainFrame/w", 600), h = p_ProgramCfg->Read("/MainFrame/h", 450);
 //---------------------------------------------------------------------------------------
 // Create the main frame window
 frame = new MainFrame((wxFrame *) NULL, (char *) _("DBBrowser - mj10777"),x,y,w,h);
 //---------------------------------------------------------------------------------------
 // This reduces flicker effects - even better would be to define OnEraseBackground
 // to do Temp0. When the list control's scrollbars are show or hidden, the
 // frame is sent a background erase event.
 //---------------------------------------------------------------------------------------
 frame->SetBackgroundColour( *wxWHITE );
 // frame->SetBackgroundColour(wxColour(255, 255, 255));

 //---------------------------------------------------------------------------------------
 // Make a menubar
 wxMenu *file_menu = new wxMenu;
 wxMenu *help_menu = new wxMenu;

 help_menu->Append(HELP, _("&Help"));
 help_menu->AppendSeparator();
 help_menu->Append(ABOUT, _("&About"));
 file_menu->Append(QUIT, _("E&xit"));

 wxMenuBar *menu_bar = new wxMenuBar;
 menu_bar->Append(file_menu, _("&File"));
 menu_bar->Append(help_menu, _("&Help"));
 frame->SetMenuBar(menu_bar);
 frame->CreateStatusBar(1);
 Temp0.Printf(_("%s has started !"),p_ProgramCfg->GetAppName().c_str());
 frame->SetStatusText(Temp0, 0);
 //---------------------------------------------------------------------------------------
 int width, height;
 frame->GetClientSize(&width, &height);

 frame->p_Splitter = new DocSplitterWindow(frame, SPLITTER_WINDOW);

 // p_Splitter->SetCursor(wxCursor(wxCURSOR_PENCIL));
 frame->pDoc                       = new mjDoc();
 frame->pDoc->p_MainFrame          = frame;
 frame->pDoc->p_Splitter           = frame->p_Splitter;
 frame->pDoc->p_Splitter->pDoc     = frame->pDoc;       // ControlBase: saving the Sash
 if (!frame->pDoc->OnNewDocument())
  frame->Close(TRUE);
 // frame->Maximize();
 // frame->SetSize(-1,-1);               // the wxSplitter does not show correctly without this !
 frame->SetClientSize(width, height);    // the wxSplitter does not show correctly without this !
 //---------------------------------------------------------------------------------------
 //-- Problem : GetClientSize(Width,Hight) are not the same as the values given in the ---
 //--            construction of the Frame.                                            ---
 //-- Solved  : GetClientSize is called here and the difference is noted. When the     ---
 //--           Window is closed the diff. is added to the result of GetClientSize.    ---
 //---------------------------------------------------------------------------------------
 frame->GetClientSize(&frame->DiffW, &frame->DiffH); frame->DiffW-=w; frame->DiffH-=h;
 //----------------------------------------------------------------------------
 //-- Help    :                                                                        ---
 //----------------------------------------------------------------------------

 frame->help.UseConfig(p_ProgramCfg);
 frame->help.AddBook(langhelp);
 /*
 if (!frame->help.AddBook("helpfiles/dbbrowse.hhp"))
  wxMessageBox("Failed adding book helpfiles/dbbrowse.hhp");
 if (!frame->help.AddBook("helpfiles/testing.hhp"))
  wxMessageBox("Failed adding book helpfiles/testing.hhp");
 if (!frame->help.AddBook("helpfiles/another.hhp"))
   wxMessageBox("Failed adding book helpfiles/another.hhp");
 */


 //---------------------------------------------------------------------------------------
 p_ProgramCfg->Flush(TRUE);        // sicher Objekt

 //---------------------------------------------------------------------------------------
 // Show the frame
 frame->Show(TRUE);
 SetTopWindow(frame);


 return TRUE;
}
//---------------------------------------------------------------------------
// My frame constructor
//---------------------------------------------------------------------------
MainFrame::MainFrame(wxFrame *frame, char *title, int x, int y, int w, int h):
  wxFrame(frame, SPLITTER_FRAME, title, wxPoint(x, y), wxSize(w, h))
{
 InitializeMenu();
 // This reduces flicker effects - even better would be to define OnEraseBackground
 // to do Temp0. When the list control's scrollbars are show or hidden, the
 // frame is sent a background erase event.
 SetBackgroundColour( *wxWHITE );
 // frame->SetBackgroundColour(wxColour(255, 255, 255));
 //---------------------------------------------------------------------------------------
 // Give it an icon
 SetIcon( wxICON(Logo) );
 //---------------------------------------------------------------------------------------
}
//---------------------------------------------------------------------------
MainFrame::~MainFrame(void)
{
 // save the control's values to the config
 if ( p_ProgramCfg == NULL )
   return;
 // save the frame position
 int x, y, w, h;
 GetPosition(&x, &y);
 GetClientSize(&w, &h); w -= DiffW; h -= DiffH;
 p_ProgramCfg->Write("/MainFrame/x", (long) x);
 p_ProgramCfg->Write("/MainFrame/y", (long) y);
 p_ProgramCfg->Write("/MainFrame/w", (long) w);
 p_ProgramCfg->Write("/MainFrame/h", (long) h);
 p_ProgramCfg->Write("/MainFrame/Sash", (long) pDoc->Sash);
 // clean up: Set() returns the active config object as Get() does, but unlike
 // Get() it doesn't try to create one if there is none (definitely not what
 // we want here!)
 // delete wxConfigBase::Set((wxConfigBase *) NULL);
 p_ProgramCfg->Flush(TRUE);        // sichert Objekt
 delete frame->pDoc;
}
//--------------------------------------------------------------------------------------
void MainFrame::InitializeMenu()
{
 //---------------------------------------------------------------------------------------
 // Make a menubar
 //---------------------------------------------------------------------------------------
 wxMenu *file_menu = new wxMenu;

 file_menu->Append(ABOUT, _("&About"));
 file_menu->AppendSeparator();
 file_menu->Append(QUIT, _("E&xit"));


 wxMenuBar *menu_bar = new wxMenuBar;
 menu_bar->Append(file_menu, _("&File"));
 SetMenuBar(menu_bar);
}
//---------------------------------------------------------------------------
void MainFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
{
 // Close the help frame; this will cause the config data to
 // get written.
 if (help.GetFrame()) // returns NULL if no help frame active
  help.GetFrame()->Close(TRUE);
 Close(TRUE);
}
//---------------------------------------------------------------------------
void MainFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
{
 wxMessageDialog dialog(this, _("DBBrowser\nMark Johnson\nBerlin, Germany\nmj10777@gmx.net\n (c) 1999"),
      _("About DBBrowser"), wxOK|wxCANCEL);

 dialog.ShowModal();
}
//---------------------------------------------------------------------------
void MainFrame::OnHelp(wxCommandEvent& WXUNUSED(event))
{
 help.Display("Main page");
}
//---------------------------------------------------------------------------
Commit	Line	Data
b5ffecfc GT	1	//------------------------------------------------------------------------------
	2	// Name: dbbrowse.cpp
	3	// Purpose: Through ODBC - Databases Browsen
	4	// Author: Mark Johnson, mj10777@gmx.net
	5	// Modified by:
	6	// BJO : Bart A.M. JOURQUIN
	7	// Created: 19991127
	8	// Copyright: (c) Mark Johnson
	9	// Licence: wxWindows license
c09d434d	10	// RCS-ID: $Id$
b5ffecfc GT	11	//------------------------------------------------------------------------------
	12	//-- all #ifdefs that the whole Project needs. ------------------------------
	13	//---------------------------------------------------------------------------
	14	#ifdef __GNUG__
	15	#pragma implementation
	16	#pragma interface
	17	#endif
	18	//---------------------------------------------------------------------------
	19	// For compilers that support precompilation, includes "wx/wx.h".
	20	#include "wx/wxprec.h"
	21	//---------------------------------------------------------------------------
	22	#ifdef __BORLANDC__
	23	#pragma hdrstop
	24	#endif
	25	//---------------------------------------------------------------------------
	26	#ifndef WX_PRECOMP
	27	#include "wx/wx.h"
	28	#endif
	29	//---------------------------------------------------------------------------
	30	#ifndef __WXMSW__
	31	#endif
	32	#include "bitmaps/logo.xpm"
	33	//---------------------------------------------------------------------------
	34	//-- all #includes that every .cpp needs --- 19990807.mj10777 ---
	35	//---------------------------------------------------------------------------
	36	#include "std.h" // sorgsam Pflegen !
	37	#include <iostream>
	38	//---------------------------------------------------------------------------
	39	//-- Some Global Vars for this file ----------------------------------------
	40	//---------------------------------------------------------------------------
	41	//---------------------------------------------------------------------------
	42	MainFrame *frame = NULL; // The one and only MainFrame
	43	// wxLogNull logNo; // No Log messages
	44	//---------------------------------------------------------------------------
	45	// verify that the item is ok and insult the user if it is not
	46	#define CHECK_ITEM(item) \
	47	if (!item.IsOk()) \
	48	{ \
	49	wxMessageBox(_("Please select some item first!"),_("Tree sample error"), \
	50	wxOK \| wxICON_EXCLAMATION,this); \
	51	return; \
	52	} \
	53	//---------------------------------------------------------------------------
	54	BEGIN_EVENT_TABLE(MainFrame, wxFrame)
	55	EVT_MENU(QUIT, MainFrame::OnQuit)
	56	EVT_MENU(ABOUT, MainFrame::OnAbout)
	57	EVT_MENU(HELP, MainFrame::OnHelp)
	58	EVT_SIZE(MainFrame::OnSize)
	59	END_EVENT_TABLE()
	60	//---------------------------------------------------------------------------
	61	IMPLEMENT_APP(MyApp)
	62	//---------------------------------------------------------------------------
	63	// `Main program' equivalent, creating windows and returning main app frame
	64	//---------------------------------------------------------------------------
	65	bool MyApp::OnInit(void)
	66	{
	67	//---------------------------------------------------------------------------------------
	68	// set the language to use
	69	const char *langhelp = NULL;
	70	const char *language = NULL;
	71	const char *langid = NULL;
	72	//---------------------------------------------------------------------------------------
	73	#if wxUSE_LIBPNG
	74	wxImage::AddHandler( new wxPNGHandler ); // use only when needed, otherwise big .exe's
75	#endif
76	/*
77	#if wxUSE_LIBJPEG
78	wxImage::AddHandler(new wxJPEGHandler ); // use only when needed, otherwise big .exe's
79	#endif
80	wxImage::AddHandler( new wxGIFHandler ); // use only when needed, otherwise big .exe's
81	wxImage::AddHandler( new wxPCXHandler ); // use only when needed, otherwise big .exe's
82	wxImage::AddHandler( new wxPNMHandler ); // use only when needed, otherwise big .exe's
83	*/
84	#ifdef __WXMSW__
85	// wxBitmap::AddHandler( new wxXPMFileHandler ); // use only when needed, otherwise big .exe's
86	// wxBitmap::AddHandler( new wxXPMDataHandler ); // use only when needed, otherwise big .exe's
87	#endif
88	//---------------------------------------------------------------------------------------
89	langid = "std"; // BJO20000125 instead of ""
90	switch ( argc )
91	{
92	default:
93	// ignore the other args, fall through
94	case 3:
95	language = argv[2];
96	langid = argv[1];
97	break;
98	case 2:
99	langid = argv[1];
100	break;
101	case 1:
102	break;
103	};
104	//---------------------------------------------------------------------------------------
105	// we're using wxConfig's "create-on-demand" feature: it will create the
106	// config object when it's used for the first time. It has a number of
107	// advantages compared with explicitly creating our wxConfig:
108	// 1) we don't pay for it if we don't use it
109	// 2) there is no danger to create it twice
110
111	// application and vendor name are used by wxConfig to construct the name
112	// of the config file/registry key and must be set before the first call
113	// to Get() if you want to override the default values (the application
114	// name is the name of the executable and the vendor name is the same)
115	//---------------------------------------------------------------------------------------
116	SetVendorName("mj10777");
117	SetAppName("DBBrowser"); // not needed, it's the default value
118	p_ProgramCfg = wxConfigBase::Get();
119	// p_ProgramCfg->DeleteAll();
120	p_ProgramCfg->SetPath("/");
121	wxString Temp0, Temp1;
122	Temp0.Empty();
123
124	//---------------------------------------------------------------------------------------
125	//-- Set the Language and remember it for the next time. --------------------------------
126	//---------------------------------------------------------------------------------------
127	langhelp = "help.std/dbbrowse.hhp";
128	if (langid == "std")
129	{
130	p_ProgramCfg->Read("/Local/langid",&Temp0); // >const char *langid< can't be used here
131	if (Temp0 == "")
132	langid = "std";
133	else
134	langid = Temp0;
135	}
136	Temp0 = langid;
137	p_ProgramCfg->Write("/Local/langid",Temp0); // >const char *langid< can't be used here
138	//---------------------------------------------------------------------------------------
139	// Support the following languages
140	if (Temp0 != "std")
141	{
142	if (Temp0 == "cz")
143	{
144	language = "czech"; // csy or czech
145	langhelp = "help.cz/dbbrowse.hhp";
146	}
147	if ((Temp0 == "de") \|\| (Temp0 == "a"))
148	{
149	language = "german"; // deu or german
150	langhelp = "help.de/dbbrowse.hhp";
151	}
152	if (Temp0 == "fr")
153	{
154	language = "french"; // fra or french
155	langhelp = "help.fr/dbbrowse.hhp";
156	}
157	if (Temp0 == "pl")
158	{
159	language = "polish"; // plk or polish
160	langhelp = "help.pl/dbbrowse.hhp";
161	}
162	if (!m_locale.Init(language, langid, language)) // setlocale(LC_ALL,""); does not work
163	wxMessageBox("SetLocale error");
164	m_locale.AddCatalog("PgmText");
165	m_locale.AddCatalog("Help");
166	Temp0 = language;
167	p_ProgramCfg->Write("/Local/language",Temp0);
168	}
169	else
170	{
171	Temp0 = "english";
172	p_ProgramCfg->Write("/Local/language",Temp0);
173	Temp0 = "std"; // allways english if not german or french (at the moment austrian)
174	}
175
176	Temp0 = "NONE";
177	p_ProgramCfg->Write("/NONE",Temp0);
178	p_ProgramCfg->Write("/Paths/NONE",Temp0);
179	p_ProgramCfg->Write("/MainFrame/NONE",Temp0);
180	//-----------------------------------------------------------------------------
181	p_ProgramCfg->Write("/Paths/Work",wxGetCwd());
182	p_ProgramCfg->SetPath("/");
183	//-----------------------------------------------------------------------------
184	// or you could also write something like this:
185	// wxFileConfig *p_ProgramCfg = new wxFileConfig("conftest");
186	// wxConfigBase::Set(p_ProgramCfg);
187	// where you can also specify the file names explicitly if you wish.
188	// Of course, calling Set() is optional and you only must do it if
189	// you want to later retrieve this pointer with Get().
190	//----------------------------------------------------------------------------
191	// SetPath() understands ".."
192	// restore frame position and size
193	int x = p_ProgramCfg->Read("/MainFrame/x", 1), y = p_ProgramCfg->Read("/MainFrame/y", 1),
194	w = p_ProgramCfg->Read("/MainFrame/w", 600), h = p_ProgramCfg->Read("/MainFrame/h", 450);
195	//---------------------------------------------------------------------------------------
196	// Create the main frame window
197	frame = new MainFrame((wxFrame ) NULL, (char ) _("DBBrowser - mj10777"),x,y,w,h);
198	//---------------------------------------------------------------------------------------
199	// This reduces flicker effects - even better would be to define OnEraseBackground
200	// to do Temp0. When the list control's scrollbars are show or hidden, the
201	// frame is sent a background erase event.
202	//---------------------------------------------------------------------------------------
203	frame->SetBackgroundColour( *wxWHITE );
204	// frame->SetBackgroundColour(wxColour(255, 255, 255));
205
206	//---------------------------------------------------------------------------------------
207	// Make a menubar
208	wxMenu *file_menu = new wxMenu;
209	wxMenu *help_menu = new wxMenu;
210
211	help_menu->Append(HELP, _("&Help"));
212	help_menu->AppendSeparator();
213	help_menu->Append(ABOUT, _("&About"));
214	file_menu->Append(QUIT, _("E&xit"));
215
216	wxMenuBar *menu_bar = new wxMenuBar;
217	menu_bar->Append(file_menu, _("&File"));
218	menu_bar->Append(help_menu, _("&Help"));
219	frame->SetMenuBar(menu_bar);
220	frame->CreateStatusBar(1);
221	Temp0.Printf(_("%s has started !"),p_ProgramCfg->GetAppName().c_str());
222	frame->SetStatusText(Temp0, 0);
223	//---------------------------------------------------------------------------------------
224	int width, height;
225	frame->GetClientSize(&width, &height);
226
227	frame->p_Splitter = new DocSplitterWindow(frame, SPLITTER_WINDOW);
228
229	// p_Splitter->SetCursor(wxCursor(wxCURSOR_PENCIL));
230	frame->pDoc = new mjDoc();
231	frame->pDoc->p_MainFrame = frame;
232	frame->pDoc->p_Splitter = frame->p_Splitter;
233	frame->pDoc->p_Splitter->pDoc = frame->pDoc; // ControlBase: saving the Sash
234	if (!frame->pDoc->OnNewDocument())
235	frame->Close(TRUE);
236	// frame->Maximize();
237	// frame->SetSize(-1,-1); // the wxSplitter does not show correctly without this !
238	frame->SetClientSize(width, height); // the wxSplitter does not show correctly without this !
239	//---------------------------------------------------------------------------------------
240	//-- Problem : GetClientSize(Width,Hight) are not the same as the values given in the ---
241	//-- construction of the Frame. ---
242	//-- Solved : GetClientSize is called here and the difference is noted. When the ---
243	//-- Window is closed the diff. is added to the result of GetClientSize. ---
244	//---------------------------------------------------------------------------------------
245	frame->GetClientSize(&frame->DiffW, &frame->DiffH); frame->DiffW-=w; frame->DiffH-=h;
246	//----------------------------------------------------------------------------
247	//-- Help : ---
248	//----------------------------------------------------------------------------
249
250	frame->help.UseConfig(p_ProgramCfg);
251	frame->help.AddBook(langhelp);
252	/*
253	if (!frame->help.AddBook("helpfiles/dbbrowse.hhp"))
254	wxMessageBox("Failed adding book helpfiles/dbbrowse.hhp");
255	if (!frame->help.AddBook("helpfiles/testing.hhp"))
256	wxMessageBox("Failed adding book helpfiles/testing.hhp");
257	if (!frame->help.AddBook("helpfiles/another.hhp"))
258	wxMessageBox("Failed adding book helpfiles/another.hhp");
259	*/
260
261
262	//---------------------------------------------------------------------------------------
263	p_ProgramCfg->Flush(TRUE); // sicher Objekt
264
265	//---------------------------------------------------------------------------------------
266	// Show the frame
267	frame->Show(TRUE);
268	SetTopWindow(frame);
269
270
271
272	return TRUE;
273	}
274	//---------------------------------------------------------------------------
275	// My frame constructor
276	//---------------------------------------------------------------------------
277	MainFrame::MainFrame(wxFrame frame, char title, int x, int y, int w, int h):
278	wxFrame(frame, SPLITTER_FRAME, title, wxPoint(x, y), wxSize(w, h))
279	{
280	InitializeMenu();
281	// This reduces flicker effects - even better would be to define OnEraseBackground
282	// to do Temp0. When the list control's scrollbars are show or hidden, the
283	// frame is sent a background erase event.
284	SetBackgroundColour( *wxWHITE );
285	// frame->SetBackgroundColour(wxColour(255, 255, 255));
286	//---------------------------------------------------------------------------------------
287	// Give it an icon
288	SetIcon( wxICON(Logo) );
289	//---------------------------------------------------------------------------------------
290	}
291	//---------------------------------------------------------------------------
292	MainFrame::~MainFrame(void)
293	{
294	// save the control's values to the config
295	if ( p_ProgramCfg == NULL )
296	return;
297	// save the frame position
298	int x, y, w, h;
299	GetPosition(&x, &y);
300	GetClientSize(&w, &h); w -= DiffW; h -= DiffH;
301	p_ProgramCfg->Write("/MainFrame/x", (long) x);
302	p_ProgramCfg->Write("/MainFrame/y", (long) y);
303	p_ProgramCfg->Write("/MainFrame/w", (long) w);
304	p_ProgramCfg->Write("/MainFrame/h", (long) h);
305	p_ProgramCfg->Write("/MainFrame/Sash", (long) pDoc->Sash);
306	// clean up: Set() returns the active config object as Get() does, but unlike
307	// Get() it doesn't try to create one if there is none (definitely not what
308	// we want here!)
309	// delete wxConfigBase::Set((wxConfigBase *) NULL);
310	p_ProgramCfg->Flush(TRUE); // sichert Objekt
311	delete frame->pDoc;
312	}
313	//--------------------------------------------------------------------------------------
314	void MainFrame::InitializeMenu()
315	{
316	//---------------------------------------------------------------------------------------
317	// Make a menubar
318	//---------------------------------------------------------------------------------------
319	wxMenu *file_menu = new wxMenu;
320
321	file_menu->Append(ABOUT, _("&About"));
322	file_menu->AppendSeparator();
323	file_menu->Append(QUIT, _("E&xit"));
324
325
326	wxMenuBar *menu_bar = new wxMenuBar;
327	menu_bar->Append(file_menu, _("&File"));
328	SetMenuBar(menu_bar);
329	}
330	//---------------------------------------------------------------------------
331	void MainFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
332	{
333	// Close the help frame; this will cause the config data to
334	// get written.
335	if (help.GetFrame()) // returns NULL if no help frame active
336	help.GetFrame()->Close(TRUE);
337	Close(TRUE);
338	}
339	//---------------------------------------------------------------------------
340	void MainFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
341	{
342	wxMessageDialog dialog(this, _("DBBrowser\nMark Johnson\nBerlin, Germany\nmj10777@gmx.net\n (c) 1999"),
343	_("About DBBrowser"), wxOK\|wxCANCEL);
344
345	dialog.ShowModal();
346	}
347	//---------------------------------------------------------------------------
348	void MainFrame::OnHelp(wxCommandEvent& WXUNUSED(event))
349	{
350	help.Display("Main page");
351	}
352	//---------------------------------------------------------------------------