forked from kurowskicisa/EIB-HMG
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathDownloadQuestion.prg
64 lines (34 loc) · 1.83 KB
/
DownloadQuestion.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
*-----------------------------------------------------------------------------*
#include "eib_hmg.ch"
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE DownloadQuestion( xlbl_0 )
*-----------------------------------------------------------------------------*
DECLARE WINDOW win_Main
DECLARE WINDOW win_DownloadQuestion
IF !IsWIndowDefined( win_DownloadQuestion )
#IFDEF _HMG_2_
LOAD WINDOW DownloadQuestion2 AS win_DownloadQuestion
win_DownloadQuestion.TitleBar := .F.
win_DownloadQuestion.SysMenu := .T.
win_DownloadQuestion.Sizable := .F.
#ENDIF
#IFDEF _HMG_3_
LOAD WINDOW DownloadQuestion3 AS win_DownloadQuestion
#ENDIF
SetProperty( "win_DownloadQuestion" , "btn_YES" , "Action" , { || win_DownloadQuestion_btn_YES() } )
SetProperty( "win_DownloadQuestion" , "btn_NOT" , "Action" , { || win_DownloadQuestion_btn_NOT() } )
SetProperty( "win_DownloadQuestion" , "lbl_0" , "Value" , xlbl_0 )
SetProperty( "win_DownloadQuestion" , "lbl_1" , "Value" , "Pobraæ dane?" )
ON KEY ALT+F4 OF win_DownloadQuestion ACTION { || NIL }
AADD( aFrm , { "win_DownloadQuestion" , win_DownloadQuestion.Row , win_DownloadQuestion.Col } )
win_DownloadQuestion.img_APPTitle.Picture := "APP_MAIN"
win_DownloadQuestion.Activate
ENDIF
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
#include "DownloadQuestion_Events.prg"
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*