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