-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathAbout.prg
138 lines (79 loc) · 3.46 KB
/
About.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
*-----------------------------------------------------------------------------*
* TableOfLeapYear | About.prg
*-----------------------------------------------------------------------------*
#include "tly_hmg.ch"
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE About()
*-----------------------------------------------------------------------------*
LOCAL aControls
PRIVATE aFrmControls
PRIVATE aFormProperty
DECLARE WINDOW win_Main
DECLARE WINDOW win_About
aControls := {}
aFrmControls := {}
aFormProperty := {}
IF !IsWIndowDefined( win_About )
#IFDEF _HMG_2_
LOAD WINDOW about2 AS win_About
win_About.TitleBar := .F.
win_About.SysMenu := .T.
win_About.Sizable := .F.
#ENDIF
#IFDEF _HMG_3_
LOAD WINDOW about3 AS win_About
#ENDIF
SetProperty( "win_About" , "frm_Main" , "Caption" , "" )
SetProperty( "win_About" , "lbl_0" , "Value" , WERSJA_PR )
SetProperty( "win_About" , "lbl_0_" , "Value" , WERSJA_DB )
SetProperty( "win_About" , "lbl_1" , "Value" , "Christian T. Kurowski" )
SetProperty( "win_About" , "lbl_2" , "Value" , MiniGUIVersion() )
IF "MiniGUI" $ MiniGUIVersion()
SetProperty( "win_About" , "lbl_3" , "Value" , "http://hmgextended.com" )
ELSE
SetProperty( "win_About" , "lbl_3" , "Value" , "http://www.hmgforum.com/" )
ENDIF
SetProperty( "win_About" , "lbl_4" , "Value" , HB_Version() )
SetProperty( "win_About" , "lbl_5" , "Value" , "http://harbour.github.io" )
SetProperty( "win_About" , "lbl_6" , "Value" , HB_COMPILER() )
IF "Borland" $ HB_COMPILER()
SetProperty( "win_About" , "lbl_7" , "Value" , "https://www.embarcadero.com/free-tools/ccompiler/free-download" )
ELSE
SetProperty( "win_About" , "lbl_7" , "Value" , "https://sourceforge.net/projects/mingw-w64/" )
ENDIF
ON KEY ALT + F4 OF win_About ACTION { || Nil }
AADD( aFrm, { "win_About" , win_About.Row , win_About.Col } )
#IFDEF _HMG_2_
aControls := _GetAllControlsInForm( "win_About" )
#ENDIF
#IFDEF _HMG_3_
aControls := _GetArrayOfAllControlsForForm( "win_About" )
#ENDIF
FOR nI := 1 TO LEN( aControls )
AADD( aFrmControls ,;
{ "win_About" ,;
aControls[ nI ] ,;
GetProperty( "win_About" , aControls[ nI ] , "Row" ) ,;
GetProperty( "win_About" , aControls[ nI ] , "Col" ) ,;
GetProperty( "win_About" , aControls[ nI ] , "Width" ) ,;
GetProperty( "win_About" , aControls[ nI ] , "Height" ) ,;
GetProperty( "win_About" , aControls[ nI ] , "FontSize" ) ;
} )
NEXT nI
AADD( aFormProperty ,;
{ "win_About" ,;
GetProperty( "win_About" , "Row" ) ,;
GetProperty( "win_About" , "Col" ) ,;
GetProperty( "win_About" , "Width" ) ,;
GetProperty( "win_About" , "Height" ) ;
} )
win_About.Activate
ENDIF
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
#include "About_Events.prg"
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*