-
Notifications
You must be signed in to change notification settings - Fork 1
/
DownloadQuestion_Events.prg
88 lines (49 loc) · 1.72 KB
/
DownloadQuestion_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
*-----------------------------------------------------------------------------*
PROCEDURE win_DownloadQuestion_btn_YES()
*-----------------------------------------------------------------------------*
CTK_DrawBorder( "win_DownloadQuestion" )
DO_Events()
win_Main_buttons_Disable()
DO_Events()
win_DownloadQuestion.Hide
Download()
#IFDEF __SQLITE__
DataBaseSqliteCreate()
// DataBaseInit()
DataBaseImport()
#ELSE
// DataBaseInit()
DataBaseImport()
#ENDIF
#IFDEF _HMG_3_
win_Main.Hide
win_Main.Show
#ENDIF
win_Main_buttons_Enable()
DO_Events()
aFrm := CTK_Release( aFrm )
ThisWindow.Release
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE win_DownloadQuestion_btn_NOT()
*-----------------------------------------------------------------------------*
#IFDEF __SQLITE__
DataBaseSqliteViewData( nPage )
#ELSE
ViewData( nPage )
#ENDIF
aFrm := CTK_Release( aFrm )
ThisWindow.Release
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
PROCEDURE win_DownloadQuestion_OnGotFocus()
*-----------------------------------------------------------------------------*
CenterModalWindow( "win_DownloadQuestion" )
AutoAdjustControls( "win_DownloadQuestion" )
CTK_DrawBorder( "win_DownloadQuestion" )
RETURN
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*