demos/forty/forty.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        forty.cpp
   3 // Purpose:     Forty Thieves patience game
   4 // Author:      Chris Breeze
   5 // Modified by:
   6 // Created:     21/07/97
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) 1993-1998 Chris Breeze
   9 // Licence:     wxWindows licence
  10 //---------------------------------------------------------------------------
  11 // Last modified: 22nd July 1998 - ported to wxWindows 2.0
  12 /////////////////////////////////////////////////////////////////////////////
  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 #include "canvas.h"
  31 #include "forty.h"
  32 #include "card.h"
  33 #include "scoredg.h"
  34
  35 #if wxUSE_HTML
  36 #include "wx/file.h"
  37 #include "wx/html/htmlwin.h"
  38 #endif
  39
  40 BEGIN_EVENT_TABLE(FortyFrame, wxFrame)
  41         EVT_MENU(NEW_GAME, FortyFrame::NewGame)
  42         EVT_MENU(EXIT, FortyFrame::Exit)
  43         EVT_MENU(ABOUT, FortyFrame::About)
  44         EVT_MENU(UNDO, FortyFrame::Undo)
  45         EVT_MENU(REDO, FortyFrame::Redo)
  46         EVT_MENU(SCORES, FortyFrame::Scores)
  47         EVT_MENU(RIGHT_BUTTON_UNDO, FortyFrame::ToggleRightButtonUndo)
  48         EVT_MENU(HELPING_HAND, FortyFrame::ToggleHelpingHand)
  49         EVT_MENU(LARGE_CARDS, FortyFrame::ToggleCardSize)
  50     EVT_CLOSE(FortyFrame::OnCloseWindow)
  51 END_EVENT_TABLE()
  52
  53 // Create a new application object
  54 IMPLEMENT_APP   (FortyApp)
  55
  56 wxColour* FortyApp::m_backgroundColour = 0;
  57 wxColour* FortyApp::m_textColour = 0;
  58 wxBrush*  FortyApp::m_backgroundBrush = 0;
  59
  60 FortyApp::FortyApp()
  61 {
  62 }
  63
  64 FortyApp::~FortyApp()
  65 {
  66     delete m_backgroundColour;
  67     delete m_textColour;
  68     delete m_backgroundBrush;
  69     delete Card::m_symbolBmap;
  70     delete Card::m_pictureBmap;
  71
  72 }
  73
  74 bool FortyApp::OnInit()
  75 {
  76         bool largecards = FALSE;
  77         wxSize size(668,510);
  78
  79         if ((argc > 1) && (!wxStrcmp(argv[1],_T("-L"))))
  80         {
  81             largecards = TRUE;
  82             size = wxSize(1000,750);
  83         }
  84
  85         FortyFrame* frame = new FortyFrame(
  86                         0,
  87                         _T("Forty Thieves"),
  88                         -1, -1, size.x, size.y,largecards
  89                         );
  90
  91         // Show the frame
  92         frame->Show(TRUE);
  93
  94         frame->GetCanvas()->ShowPlayerDialog();
  95
  96         return TRUE;
  97 }
  98
  99 const wxColour& FortyApp::BackgroundColour()
 100 {
 101         if (!m_backgroundColour)
 102         {
 103                 m_backgroundColour = new wxColour(0, 128, 0);
 104         }
 105
 106         return *m_backgroundColour;
 107 }
 108
 109 const wxBrush& FortyApp::BackgroundBrush()
 110 {
 111         if (!m_backgroundBrush)
 112         {
 113                 m_backgroundBrush = new wxBrush(BackgroundColour(), wxSOLID);
 114         }
 115
 116         return *m_backgroundBrush;
 117 }
 118
 119 const wxColour& FortyApp::TextColour()
 120 {
 121         if (!m_textColour)
 122         {
 123                 m_textColour = new wxColour(_T("BLACK"));
 124         }
 125
 126         return *m_textColour;
 127 }
 128
 129 // My frame constructor
 130 FortyFrame::FortyFrame(wxFrame* frame, const wxString& title, int x, int y, int w, int h,bool largecards):
 131         wxFrame(frame, -1, title, wxPoint(x, y), wxSize(w, h))
 132 {
 133 #ifdef __WXMAC__
 134         // we need this in order to allow the about menu relocation, since ABOUT is not the default id of the about menu
 135         wxApp::s_macAboutMenuItemId = ABOUT ;
 136 #endif
 137         // set the icon
 138 #ifdef __WXMSW__
 139         SetIcon(wxIcon(_T("CardsIcon")));
 140 #else
 141 #ifdef GTK_TBD
 142         SetIcon(wxIcon(Cards_bits, Cards_width, Cards_height));
 143 #endif
 144 #endif
 145
 146         // Make a menu bar
 147         wxMenu* gameMenu = new wxMenu;
 148         gameMenu->Append(NEW_GAME, _T("&New"), _T("Start a new game"));
 149         gameMenu->Append(SCORES, _T("&Scores..."), _T("Displays scores"));
 150         gameMenu->Append(EXIT, _T("E&xit"), _T("Exits Forty Thieves"));
 151
 152         wxMenu* editMenu = new wxMenu;
 153         editMenu->Append(UNDO, _T("&Undo"), _T("Undo the last move"));
 154         editMenu->Append(REDO, _T("&Redo"), _T("Redo a move that has been undone"));
 155
 156         wxMenu* optionsMenu = new wxMenu;
 157         optionsMenu->Append(RIGHT_BUTTON_UNDO,
 158                         _T("&Right button undo"),
 159                         _T("Enables/disables right mouse button undo and redo"),
 160                         TRUE
 161                         );
 162         optionsMenu->Append(HELPING_HAND,
 163                         _T("&Helping hand"),
 164                         _T("Enables/disables hand cursor when a card can be moved"),
 165                         TRUE
 166                         );
 167         optionsMenu->Append(LARGE_CARDS,
 168                         _T("&Large cards"),
 169                         _T("Enables/disables large cards for high resolution displays"),
 170                         TRUE
 171                         );
 172         optionsMenu->Check(HELPING_HAND, TRUE);
 173         optionsMenu->Check(RIGHT_BUTTON_UNDO, TRUE);
 174         optionsMenu->Check(LARGE_CARDS, largecards ? TRUE : FALSE);
 175
 176         wxMenu* helpMenu = new wxMenu;
 177         helpMenu->Append(ABOUT, _T("&About..."), _T("Displays information about the game"));
 178
 179         m_menuBar = new wxMenuBar;
 180         m_menuBar->Append(gameMenu,    _T("&Game"));
 181         m_menuBar->Append(editMenu,    _T("&Edit"));
 182         m_menuBar->Append(optionsMenu, _T("&Options"));
 183         m_menuBar->Append(helpMenu,    _T("&Help"));
 184
 185         SetMenuBar(m_menuBar);
 186
 187         if (largecards)
 188             Card::SetScale(1.3);
 189
 190         m_canvas = new FortyCanvas(this, 0, 0, 400, 400);
 191         wxLayoutConstraints* constr = new wxLayoutConstraints;
 192         constr->left.SameAs(this, wxLeft);
 193         constr->top.SameAs(this, wxTop);
 194         constr->right.SameAs(this, wxRight);
 195         constr->height.SameAs(this, wxHeight);
 196         m_canvas->SetConstraints(constr);
 197
 198         CreateStatusBar();
 199 }
 200
 201 FortyFrame::~FortyFrame()
 202 {
 203 }
 204
 205 void FortyFrame::OnCloseWindow(wxCloseEvent& event)
 206 {
 207     if (m_canvas->OnCloseCanvas() )
 208     {
 209         this->Destroy();
 210     }
 211     else
 212         event.Veto();
 213 }
 214
 215 void
 216 FortyFrame::NewGame(wxCommandEvent&)
 217 {
 218         m_canvas->NewGame();
 219 }
 220
 221 void
 222 FortyFrame::Exit(wxCommandEvent&)
 223 {
 224 #ifdef __WXGTK__
 225         // wxGTK doesn't call OnClose() so we do it here
 226 //      if (OnClose())
 227 #endif
 228         Close(TRUE);
 229 }
 230
 231 void
 232 FortyFrame::About(wxCommandEvent&)
 233 {
 234 #if wxUSE_HTML
 235     if (wxFileExists(wxT("about.htm")))
 236     {
 237         FortyAboutDialog dialog(this, -1, wxT("About Forty Thieves"));
 238         if (dialog.ShowModal() == wxID_OK)
 239         {
 240         }
 241     }
 242     else
 243 #endif
 244     {
 245         wxMessageBox(
 246             _T("Forty Thieves\n\n")
 247             _T("A freeware program using the wxWindows\n")
 248             _T("portable C++ GUI toolkit.\n")
 249             _T("http://www.wxwindows.org\n")
 250             _T("http://www.freiburg.linux.de/~wxxt\n\n")
 251             _T("Author: Chris Breeze (c) 1992-1998\n")
 252             _T("email: chris.breeze@iname.com"),
 253             _T("About Forty Thieves"),
 254             wxOK, this
 255             );
 256     }
 257 }
 258
 259 void
 260 FortyFrame::Undo(wxCommandEvent&)
 261 {
 262         m_canvas->Undo();
 263 }
 264
 265 void
 266 FortyFrame::Redo(wxCommandEvent&)
 267 {
 268         m_canvas->Redo();
 269 }
 270
 271 void
 272 FortyFrame::Scores(wxCommandEvent&)
 273 {
 274         m_canvas->UpdateScores();
 275         ScoreDialog scores(this, m_canvas->GetScoreFile());
 276         scores.Display();
 277 }
 278
 279 void
 280 FortyFrame::ToggleRightButtonUndo(wxCommandEvent& event)
 281 {
 282         bool checked = m_menuBar->IsChecked(event.GetId());
 283         m_canvas->EnableRightButtonUndo(checked);
 284 }
 285
 286 void
 287 FortyFrame::ToggleHelpingHand(wxCommandEvent& event)
 288 {
 289         bool checked = m_menuBar->IsChecked(event.GetId());
 290         m_canvas->EnableHelpingHand(checked);
 291 }
 292
 293 void
 294 FortyFrame::ToggleCardSize(wxCommandEvent& event)
 295 {
 296         bool checked = m_menuBar->IsChecked(event.GetId());
 297         Card::SetScale(checked ? 1.3 : 1);
 298         m_canvas->LayoutGame();
 299         m_canvas->Refresh();
 300 }
 301
 302 //----------------------------------------------------------------------------
 303 // stAboutDialog
 304 //----------------------------------------------------------------------------
 305
 306 BEGIN_EVENT_TABLE(FortyAboutDialog,wxDialog)
 307 END_EVENT_TABLE()
 308
 309 FortyAboutDialog::FortyAboutDialog( wxWindow *parent, wxWindowID id, const wxString &title,
 310     const wxPoint &position, const wxSize& size, long style ) :
 311     wxDialog( parent, id, title, position, size, style )
 312 {
 313     AddControls(this);
 314
 315     Centre(wxBOTH);
 316 }
 317
 318 bool FortyAboutDialog::AddControls(wxWindow* parent)
 319 {
 320 #if wxUSE_HTML
 321     wxString htmlText;
 322     wxString htmlFile(wxT("about.htm"));
 323
 324     //if (!wxGetApp().GetMemoryTextResource(wxT("about.htm"), htmlText))
 325     {
 326 //        wxSetWorkingDirectory(wxGetApp().GetAppDir());
 327 //        wxString htmlFile(wxGetApp().GetFullAppPath(wxT("about.htm")));
 328
 329         if (wxFileExists(htmlFile))
 330         {
 331             wxFile file;
 332             file.Open(htmlFile, wxFile::read);
 333             long len = file.Length();
 334             wxChar* buf = htmlText.GetWriteBuf(len + 1);
 335             file.Read(buf, len);
 336             buf[len] = 0;
 337             htmlText.UngetWriteBuf();
 338         }
 339     }
 340
 341     if (htmlText.IsEmpty())
 342     {
 343         htmlText.Printf(wxT("<html><head><title>Warning</title></head><body><P>Sorry, could not find resource for About dialog<P></body></html>"));
 344     }
 345
 346     // Customize the HTML
 347 #if 0
 348     wxString verString;
 349     verString.Printf("%.2f", stVERSION_NUMBER);
 350     htmlText.Replace(wxT("$VERSION$"), verString);
 351 #endif
 352     htmlText.Replace(wxT("$DATE$"), _T(__DATE__));
 353
 354     wxSize htmlSize(400, 290);
 355
 356     // Note: in later versions of wxWin this will be fixed so wxRAISED_BORDER
 357     // does the right thing. Meanwhile, this is a workaround.
 358 #ifdef __WXMSW__
 359     long borderStyle = wxDOUBLE_BORDER;
 360 #else
 361     long borderStyle = wxRAISED_BORDER;
 362 #endif
 363
 364     wxHtmlWindow* html = new wxHtmlWindow(this, ID_ABOUT_HTML_WINDOW, wxDefaultPosition, htmlSize, borderStyle);
 365     html -> SetBorders(10);
 366     html -> SetPage(htmlText);
 367
 368     //// Start of sizer-based control creation
 369
 370     wxSizer *item0 = new wxBoxSizer( wxVERTICAL );
 371
 372     wxWindow *item1 = parent->FindWindow( ID_ABOUT_HTML_WINDOW );
 373     wxASSERT( item1 );
 374     item0->Add( item1, 0, wxALIGN_CENTRE|wxALL, 5 );
 375
 376     wxButton *item2 = new wxButton( parent, wxID_CANCEL, _T("&Close"), wxDefaultPosition, wxDefaultSize, 0 );
 377     item2->SetDefault();
 378     item2->SetFocus();
 379
 380     item0->Add( item2, 0, wxALIGN_RIGHT|wxALL, 5 );
 381
 382     parent->SetAutoLayout( TRUE );
 383     parent->SetSizer( item0 );
 384     parent->Layout();
 385     item0->Fit( parent );
 386     item0->SetSizeHints( parent );
 387 #endif
 388
 389     return TRUE;
 390 }
 391