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. |
