-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathtoe_hmg_Events.prg
152 lines (99 loc) · 4.44 KB
/
toe_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
141
142
143
144
145
146
147
148
149
150
151
152
*-----------------------------------------------------------------------------*
* TableOfEaster | toe_hmg_Events.prg
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE win_main_OnInit()
*-----------------------------------------------------------------------------*
win_Main.Hide
SetAdjustControls( aFrmControls )
SetCenterMainWindow()
CTK_DrawBorder( "win_Main" )
win_Main_buttons_Disable()
DO_Events()
MakeTableOfEasterSunday()
MakeNavigation()
win_Main.Label_Menu_01.BackColor := GRAY
win_Main.Label_Menu_02.BackColor := GRAY
win_Main.Label_Menu_03.BackColor := GRAY
win_Main.Label_Menu_04.BackColor := GRAY
win_Main.Label_Menu_05.BackColor := GRAY
win_Main.Label_Menu_06.BackColor := GRAY
win_Main.Label_Menu_07.BackColor := BLUE
win_Main.Label_Menu_08.BackColor := GRAY
win_Main.Label_Menu_09.BackColor := GRAY
win_Main.Label_Menu_10.BackColor := GRAY
win_Main.Label_Menu_11.BackColor := GRAY
win_Main.Label_Menu_12.BackColor := GRAY
win_Main.Show
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
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*