1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
| program Mot_cache;
uses App, Objects, Menus, Drivers, Views, TutConst;
type
TTutorApp = object(TApplication)
procedure InitMenuBar; virtual;
procedure InitStatusLine; virtual;
end;
procedure TTutorApp.InitMenuBar;
var
R: TRect;
begin
GetExtent(R);
R.B.Y := R.A.Y +1;
MenuBar := New(PMenuBar, Init(R, NewMenu(
NewItem('~P~artie', '', kbNoKey, cmNew, hcNew,
NewItem('~J~oueur', 'F3', kbF3, cmOpen, hcOpen,
NewItem('~G~rille', 'F2', kbF2, cmSave, hcSave,
NewItem('~D~ictionaire', '', kbNoKey, cmSaveAs, hcSaveAs,
NewItem('~O~ption', '', kbNoKey, cmSaveAs, hcSaveAs,
NewLine(
NewItem('E~x~it', 'Alt+X', kbAltX, cmQuit, hcExit,
nil))))))))));
end;
procedure TTutorApp.InitStatusLine;
var
R: TRect;
begin
GetExtent(R);
R.A.Y := R.B.Y-1;
New(StatusLine, Init(R,
NewStatusDef(8, $EFFF,
NewStatusKey('', kbF3, cmOpen,
NewStatusKey('', kbF4, cmNew,
NewStatusKey('', kbAltF3, cmClose,
StdStatusKeys(nil)))),
NewStatusDef($F050, $FFFF,
NewStatusKey('', kbF6, cmOrderNext,
NewStatusKey(' ', kbShiftF6, cmOrderPrev,
StdStatusKeys(nil))), nil))));
end;
var
TutorApp: TTutorApp;
begin
TutorApp.Init;
TutorApp.Run;
TutorApp.Done;
end. |
Partager