-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathmpt_hmg_Events.prg
140 lines (87 loc) · 3.95 KB
/
mpt_hmg_Events.prg
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
*-----------------------------------------------------------------------------*
* MultiplicationTable | mpt_hmg_Events.prg
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE win_main_OnInit()
*-----------------------------------------------------------------------------*
win_Main.Hide
SetAdjustControls( aFrmControls )
MakeNavigation( 1 )
MakeMultiplicationTable( 1 )
SetCenterMainWindow()
CTK_DrawBorder( "win_Main" )
win_Main.Show
DO_Events()
win_Main_buttons_Disable()
DO_Events()
win_Main_buttons_Enable()
DO_Events()
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE win_main_OnPaint()
*-----------------------------------------------------------------------------*
Show_TitleBar()
DO_Events()
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE win_main_OnMouseClick()
*-----------------------------------------------------------------------------*
MoveActiveWindow( this.Name )
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE win_main_OnGotFocus()
*-----------------------------------------------------------------------------*
MoveActiveWindow( this.Name )
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE win_main_OnLostFocus()
*-----------------------------------------------------------------------------*
MoveActiveWindow( this.Name )
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE win_Main_btn_About_Action()
*-----------------------------------------------------------------------------*
About()
DO_Events()
win_Main.SetFocus()
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE win_Main_btn_ExitPR()
*-----------------------------------------------------------------------------*
EndTheProgram()
Do_Events()
win_Main.SetFocus()
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE win_Main_btn_MinPR()
*-----------------------------------------------------------------------------*
aFrm := CTK_Minimize( aFrm )
Do_Events()
win_Main.SetFocus()
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE win_Main_buttons_Disable()
*-----------------------------------------------------------------------------*
win_Main.btn_About.Enabled := FALSE
win_Main.btn_MinPR.Enabled := FALSE
win_Main.btn_ExitPR.Enabled := FALSE
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE win_Main_buttons_Enable()
*-----------------------------------------------------------------------------*
win_Main.btn_About.Enabled := TRUE
win_Main.btn_MinPR.Enabled := TRUE
win_Main.btn_ExitPR.Enabled := TRUE
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*