Layout of Final CheckBook Program
program FourthWindow;
{$R SAMPLE.RES}
uses
WObjects, WinProcs, WinTypes, WinDos, StdDlgs, Strings, ChkList;
const
menu_file_new = 101; menu_file_open = 102;
menu_file_save = 103; menu_file_saveAs = 104;
menu_file_exit = 105;
id_ListBox = 11;
id_Button_Edit = 12; id_Button_Delete = 13;
id_Button_Insert = 14; id_Button_Find = 15;
id_Dlg_Okay = 51; id_Dlg_Cancel = 52;
id_Dlg_ID = 53; id_Dlg_Date = 54;
id_Dlg_Amount = 55; id_Dlg_PayTo = 56;
id_Dlg_Comment = 57;
type
pStrType = array[0..255] of Char;
TMyApp = object(TApplication)
procedure InitMainWindow; virtual;
end;
PMyWin = ^TMyWin;
TMyWin = object(TWindow)
myFontBig, myFontSml : HFont;
myBrush : HBrush;
isDirty, isSaved, isNewFile: boolean;
FileName: array[0..fsPathName] of Char;
LB : PListBox;
constructor Init(aParent: PWindowsObject; aTitle: PChar);
procedure HandleBox(var Msg: TMessage); virtual id_First + id_ListBox;
procedure RedoListBox;
procedure HandleButtonInsert(var Msg: TMessage); virtual id_First + id_Button_insert;
procedure HandleButtonDelete(var Msg: TMessage); virtual id_First + id_Button_delete;
procedure HandleButtonEdit(var Msg: TMessage); virtual id_First + id_Button_edit;
procedure HandleButtonFind(var Msg: TMessage); virtual id_First + id_Button_find;
procedure MenuFileNew(var Msg: TMessage); virtual cm_First + menu_file_new;
procedure MenuFileOpen(var Msg: TMessage); virtual cm_First + menu_file_open;
procedure MenuFileSave(var Msg: TMessage); virtual cm_First + menu_file_save;
procedure MenuFileSaveAs(var Msg: TMessage); virtual cm_First + menu_file_saveAs;
procedure MenuFileExit(var Msg: TMessage); virtual cm_First + menu_file_exit;
function CanClose: boolean; virtual;
procedure Paint(PaintDC: HDC; var PaintInfo: TPaintStruct); virtual;
destructor done; virtual;
end;
PMyDialog = ^ TMyDialog;
TMyDialog = object(TDialog)
Date, ID, Amount, PayTo, Comment : PEdit;
constructor Init(aParent: PWindowsObject; aTitle: PChar);
procedure SetupWindow; virtual;
procedure HandleOkay(var Msg: TMessage); virtual id_first + id_Dlg_Okay;
procedure HandleCancel(var Msg: TMessage); virtual id_first + id_Dlg_Cancel;
end;
var
MyApp : TMyApp;
gCheck : Check;
CheckBook : CheckList;