-
Notifications
You must be signed in to change notification settings - Fork 1
/
About.prg
95 lines (49 loc) · 2.5 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
*-----------------------------------------------------------------------------*
#include "eib_hmg.ch"
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE About()
*-----------------------------------------------------------------------------*
DECLARE WINDOW win_Main
DECLARE WINDOW win_About
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
SetProperty( "win_About" , "btn_OK" , "Caption" , 'OK' )
ON KEY ALT+F4 OF win_About ACTION { || NIL }
AADD( aFrm, { "win_About" , win_About.Row , win_About.Col } )
win_About.img_APPTitle.Picture := "APP_MAIN"
win_About.Activate
ENDIF
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
#include "About_Events.prg"
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*