Teach Yourself Borland C++ in 14 Days - portal

256 Day 7
Listing 7.2. SPMAIN.CPP.
1: //------------------------------------------------------------
2: #include
3: #pragma hdrstop
4: #include “SPMain.h”
5: //------------------------------------------------------------
6: #pragma resource “*.dfm”
7: TScratchPad *ScratchPad;
8: //------------------------------------------------------------
9: __fastcall TScratchPad::TScratchPad(TComponent* Owner)
10: : TForm(Owner)
11: {
12: }
13: //------------------------------------------------------------
14: void __fastcall TScratchPad::FileNewClick(TObject *Sender)
15: {
16: //
17: // Open a file. First check to see if the current file
18: // needs to be saved.
19: //
20: if (Memo->Modified) {
21: //
22: // Display a message box.
23: //
24: int result = Application->MessageBox(
25: “The current file has changed. Save changes?”,
26: “ScratchPad Message”, MB_YESNOCANCEL);
27: //
28: // If Yes was clicked then save the current file.
29: //
30: if (result == IDYES) FileSaveClick(Sender);
31: //
32: // If No was clicked then do nothing.
33: //
34: if (result == IDCANCEL) return;
35: }
36: //
37: // Delete the strings in the memo, if any.
38: //
39: if (Memo->Lines->Count > 0) Memo->Clear();
40: //
41: // Set the FileName property of the Save Dialog to a
42: // blank string. This lets us know that the file has
43: // not yet been saved.
44: //
45: SaveDialog->FileName = “”;
46: }
47: //---------------------------------------------------- -- -- -- --
48: void __fastcall TScratchPad::FileOpenClick(TObject *Sender)
49: {
50: //
51: // Open a file. First check to see if the current file needs
52: // to be saved. Same logic as in FileNewClick() above.
53: //