-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathGUI.au3
112 lines (104 loc) · 3.43 KB
/
GUI.au3
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
; Script Start
#include<ButtonConstants.au3>
#include<GUIConstantsEx.au3>
#include<GUIConstants.au3>
#include<Array.au3>
Opt("GUIOnEventMode", 1)
HotKeySet("{ESC}", "specialEvents") ; Âûõîä èç ñêðèïòà ïî íàæàòèþ ESC
Global $iGuiNumb,$hGUI, $fileWay
Const $iIndent = 15 ; Îòñòóï ñëåâà â ïèêñåëÿõ
Const $iMargin = 20 ; Îòñòóï ñâåðõó â ïèêñåëÿõ
Const $iSpasing = 30 ; Øàã ñåòêè
$iTmpHgt = $iMargin + $iSpasing ; Ïîçèöèÿ n-ãî åëåìåíòà ïî âåðòèêàëè ( ïåðâîå çíà÷åíè - ïîçèöèÿ 2-ãî åëåìåíòà)
;-----------Main Window--------------------
Func MW()
GUIDelete($hGUI)
$iGuiNumb = 0
$hGUI = GUICreate("Backuper", 280, 115)
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetState(@SW_SHOW)
GUICtrlCreateLabel("What backup you want to do?", $iIndent, $iMargin, 240)
GUICtrlSetFont(-1, 14)
GUICtrlCreateButton("Cancel", $iIndent-10, $iTmpHgt , 90,50)
GUICtrlSetOnEvent(-1, "specialEvents")
GUICtrlCreateButton("Regular Backup", $iIndent+80, $iTmpHgt , 90,50)
;~ GUICtrlSetOnEvent(-1, "backupPressed")
GUICtrlCreateButton("Manual Backup", $iIndent+170, $iTmpHgt , 90,50)
GUICtrlSetOnEvent(-1, "FMB")
GUICtrlCreateLabel( "Created by Derun Vitaliy", 170, 104)
GUICtrlSetFont(-1, 7)
EndFunc
;-------------------------------------------
;-----First page of Manual Backup(FMB)------
Func FMB()
GUIDelete($hGUI)
$iGuiNumb = 1
$hGUI = GUICreate("Backuper", 280, 115)
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetState(@SW_SHOW)
$btnNext = GUICtrlCreateButton("Next", $iIndent+170, $iTmpHgt , 90,50)
GUICtrlSetOnEvent(-1, "SMB")
GUICtrlCreateButton("Back", $iIndent+80, $iTmpHgt , 90,50)
GUICtrlSetOnEvent(-1, "BackBt")
EndFunc
;-------------------------------------------
;-----Second page of Manual Backup(SMB)-----
Func SMB()
GUIDelete($hGUI)
$iGuiNumb = 2
$hGUI = GUICreate("Backuper", 280, 115)
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetState(@SW_SHOW)
GUICtrlCreateButton("Next", $iIndent+170, $iTmpHgt , 90,50)
GUICtrlSetOnEvent(-1, "TMB")
GUICtrlCreateButton("Back", $iIndent+80, $iTmpHgt , 90,50)
GUICtrlSetOnEvent(-1, "BackBt")
EndFunc
;-------------------------------------------
;-----Third page of Manual Backup(TMB)------
Func TMB()
GUIDelete($hGUI)
$iGuiNumb = 3
$hGUI = GUICreate("Backuper", 450, 145)
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetState(@SW_SHOW)
GUICtrlCreateLabel("Choose the destination folder", $iIndent+90, $iMargin, 240)
GUICtrlSetFont(-1, 14)
$fileWay = GUICtrlCreateInput("", $iIndent, $iTmpHgt, 380, 20)
GUICtrlCreateButton("...", $iIndent+390, $iTmpHgt , 40,20)
GUICtrlSetOnEvent(-1, "FOD")
$btnStart = GUICtrlCreateButton("Start", $iIndent+330, $iTmpHgt+40 , 90,50)
$btnCancel = GUICtrlCreateButton("Cancel", $iIndent+240, $iTmpHgt+40 , 90,50)
GUICtrlSetOnEvent(-1, "specialEvents")
GUICtrlCreateButton("Back", $iIndent+150, $iTmpHgt+40 , 90,50)
GUICtrlSetOnEvent(-1, "BackBt")
EndFunc
;-------------------------------------------
;---------File Open Dialog (FOD)-----------
Func FOD()
$hFOD = FileSelectFolder("Choose file...",GUICtrlRead($fileWay))
If @error Then
Else
GUICtrlSetData($fileWay, $hFOD)
EndIf
EndFunc
;-------------------------------------------
;----------------Back button----------------
Func BackBt()
Select
Case $iGuiNumb=1
MW()
Case $iGuiNumb=2
FMB()
Case $iGuiNumb=3
SMB()
EndSelect
EndFunc
;-------------------------------------------
MW() ; Âûçîâ ãëàâíîãî îêíà
While 1
Sleep(500) ; Öèêë îæèäàíèÿ
WEnd
Func specialEvents()
Exit
EndFunc