This repository has been archived by the owner on Apr 29, 2022. It is now read-only.
/
frmDeleteConfirm.frm
executable file
·147 lines (144 loc) · 4.46 KB
/
frmDeleteConfirm.frm
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
139
140
141
142
143
144
145
146
147
VERSION 5.00
Begin VB.Form frmDeleteConfirm
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 3 'Fixed Dialog
Caption = "Form1"
ClientHeight = 3150
ClientLeft = 45
ClientTop = 390
ClientWidth = 4530
Icon = "frmDeleteConfirm.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3150
ScaleWidth = 4530
ShowInTaskbar = 0 'False
StartUpPosition = 3 '´°¿Úȱʡ
Begin VB.Label Label3
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "ËÎÌå"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 2440
TabIndex = 2
Top = 2280
Width = 1695
End
Begin VB.Label Label2
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "ËÎÌå"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 240
TabIndex = 1
Top = 2280
Width = 1695
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "ËÎÌå"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 1455
Left = 240
TabIndex = 0
Top = 240
Width = 4095
End
Begin VB.Image NoButton
Appearance = 0 'Flat
Height = 495
Left = 2400
Top = 2280
Width = 1815
End
Begin VB.Image YesButton
Appearance = 0 'Flat
Height = 495
Left = 240
Top = 2280
Width = 1815
End
End
Attribute VB_Name = "frmDeleteConfirm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Const a& = -1
Private Const b& = &H1
Private Const c& = &H2
Private Sub Form_Load()
SetWindowPos Me.hWnd, a, 0, 0, 0, 0, b Or c
frmDeleteConfirm.Caption = ConstStr(4)
frmDeleteConfirm.BackColor = RGB(250, 228, 192)
Label1.Font.Name = "DinkieBitmap 9pxDemo"
Label2.Font.Name = "DinkieBitmap 9pxDemo"
Label3.Font.Name = "DinkieBitmap 9pxDemo"
Label1.ForeColor = RGB(89, 15, 16)
Label2.ForeColor = RGB(89, 15, 16)
Label3.ForeColor = RGB(89, 15, 16)
Label1.Caption = ConstStr(5) & frmLevel.LevelName.Caption & ConstStr(6)
Label2.Caption = ConstStr(7)
Label3.Caption = ConstStr(8)
YesButton.Picture = StdPictureEx.LoadPicture(App.Path & "\Assets\btn-blank.png")
NoButton.Picture = StdPictureEx.LoadPicture(App.Path & "\Assets\btn-blank.png")
End Sub
Private Sub Form_Initialize()
InitCommonControls
End Sub
Private Sub Label2_Click()
YesButton_Click
End Sub
Private Sub Label3_Click()
NoButton_Click
End Sub
Private Sub NoButton_Click()
PlaySFX "snd_close_guardabot.ogg"
Unload Me
End Sub
Private Sub YesButton_Click()
PlaySFX "snd_delete_level.ogg"
Kill LevelFolder & "\" & frmLevel.LevelName.Caption & ".swe"
frmMain.LocalLevelsRefresh
ShowMsgBox "DELETE"
frmMain.SetFocus
Unload frmLevel
Unload Me
End Sub