Rev 1 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 1 | Rev 2 | ||
---|---|---|---|
1 | unit SplSpeicherung; |
1 | unit SplSpeicherung; |
2 | 2 | ||
3 | interface |
3 | interface |
4 | 4 | ||
5 | uses |
5 | uses |
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
7 | StdCtrls, ExtCtrls, Spin; |
7 | StdCtrls, ExtCtrls, Spin; |
8 | 8 | ||
9 | type |
9 | type |
10 | TSpeicherungForm = class(TForm) |
10 | TSpeicherungForm = class(TForm) |
11 | Bevel1: TBevel; |
11 | Bevel1: TBevel; |
12 | LadenBtn: TButton; |
12 | LadenBtn: TButton; |
13 | LoeschenBtn: TButton; |
13 | LoeschenBtn: TButton; |
14 | AktualisierenBtn: TButton; |
14 | AktualisierenBtn: TButton; |
15 | SpeichernBtn: TButton; |
15 | SpeichernBtn: TButton; |
16 | AbbrechenBtn: TButton; |
16 | AbbrechenBtn: TButton; |
17 | LevelListBox: TListBox; |
17 | LevelListBox: TListBox; |
18 | Label2: TLabel; |
18 | Label2: TLabel; |
19 | Label3: TLabel; |
19 | Label3: TLabel; |
20 | Label1: TLabel; |
20 | Label1: TLabel; |
21 | LevelName: TEdit; |
21 | LevelName: TEdit; |
22 | ElPanel1: TPanel; |
22 | ElPanel1: TPanel; |
23 | li4a: TLabel; |
23 | li4a: TLabel; |
24 | li1: TLabel; |
24 | li1: TLabel; |
25 | li3b: TLabel; |
25 | li3b: TLabel; |
26 | li3a: TLabel; |
26 | li3a: TLabel; |
27 | li4b: TLabel; |
27 | li4b: TLabel; |
28 | liu: TLabel; |
28 | liu: TLabel; |
29 | liw: TLabel; |
29 | liw: TLabel; |
30 | li2a: TLabel; |
30 | li2a: TLabel; |
31 | li2b: TLabel; |
31 | li2b: TLabel; |
32 | procedure LoeschenBtnClick(Sender: TObject); |
32 | procedure LoeschenBtnClick(Sender: TObject); |
33 | procedure LadenBtnClick(Sender: TObject); |
33 | procedure LadenBtnClick(Sender: TObject); |
34 | procedure SpeichernBtnClick(Sender: TObject); |
34 | procedure SpeichernBtnClick(Sender: TObject); |
35 | procedure LevelListBoxClick(Sender: TObject); |
35 | procedure LevelListBoxClick(Sender: TObject); |
36 | procedure LevelNameChange(Sender: TObject); |
36 | procedure LevelNameChange(Sender: TObject); |
37 | procedure Button4Click(Sender: TObject); |
37 | procedure Button4Click(Sender: TObject); |
38 | procedure FormShow(Sender: TObject); |
38 | procedure FormShow(Sender: TObject); |
39 | procedure DsFancyButton2Click(Sender: TObject); |
39 | procedure DsFancyButton2Click(Sender: TObject); |
40 | procedure AbbrechenBtnClick(Sender: TObject); |
40 | procedure AbbrechenBtnClick(Sender: TObject); |
41 | procedure FormHide(Sender: TObject); |
41 | procedure FormHide(Sender: TObject); |
42 | procedure LevelListBoxDblClick(Sender: TObject); |
42 | procedure LevelListBoxDblClick(Sender: TObject); |
43 | public |
43 | public |
44 | procedure SearchSaves; |
44 | procedure SearchSaves; |
45 | end; |
45 | end; |
46 | 46 | ||
47 | var |
47 | var |
48 | SpeicherungForm: TSpeicherungForm; |
48 | SpeicherungForm: TSpeicherungForm; |
49 | 49 | ||
50 | const |
- | |
51 | FCompVersion = '1.0'; |
- | |
52 | - | ||
53 | implementation |
50 | implementation |
54 | 51 | ||
55 | uses |
52 | uses |
56 | SplMain; |
53 | Global, SplMain; |
57 | 54 | ||
58 | {$R *.DFM} |
55 | {$R *.DFM} |
59 | 56 | ||
60 | procedure TSpeicherungForm.SearchSaves; |
57 | procedure TSpeicherungForm.SearchSaves; |
61 | var |
58 | var |
62 | sr: TSearchRec; |
59 | sr: TSearchRec; |
63 | res: integer; |
60 | res: integer; |
64 | begin |
61 | begin |
65 | LevelName.text := ''; |
62 | LevelName.text := ''; |
66 | LevelListBox.items.clear; |
63 | LevelListBox.items.clear; |
67 | li1.visible := false; |
64 | li1.visible := false; |
68 | li2a.visible := false; |
65 | li2a.visible := false; |
69 | li2b.visible := false; |
66 | li2b.visible := false; |
70 | li3a.visible := false; |
67 | li3a.visible := false; |
71 | li3b.visible := false; |
68 | li3b.visible := false; |
72 | li4a.visible := false; |
69 | li4a.visible := false; |
73 | li4b.visible := false; |
70 | li4b.visible := false; |
74 | liu.visible := false; |
71 | liu.visible := false; |
75 | liw.visible := true; |
72 | liw.visible := true; |
76 | li1.caption := 'n/a'; |
73 | li1.caption := 'n/a'; |
77 | li2b.caption := 'n/a'; |
74 | li2b.caption := 'n/a'; |
78 | li3b.caption := 'n/a'; |
75 | li3b.caption := 'n/a'; |
79 | li4b.caption := 'n/a'; |
76 | li4b.caption := 'n/a'; |
80 | LadenBtn.enabled := false; |
77 | LadenBtn.enabled := false; |
81 | LoeschenBtn.enabled := false; |
78 | LoeschenBtn.enabled := false; |
82 | res := FindFirst(mainform.fdirectory+'Spielstände\*.sav', 0, sr); |
79 | res := FindFirst(fdirectory+'Spielstände\*.sav', 0, sr); |
83 | try |
80 | try |
84 | while (res = 0) do |
81 | while (res = 0) do |
85 | begin |
82 | begin |
86 | if (sr.name <> '.') and (sr.name <> '..') then |
83 | if (sr.name <> '.') and (sr.name <> '..') then |
87 | LevelListBox.items.Add(copy(sr.Name, 0, length(sr.name)-4)); |
84 | LevelListBox.items.Add(copy(sr.Name, 0, length(sr.name)-4)); |
88 | res := FindNext(sr); |
85 | res := FindNext(sr); |
89 | end; |
86 | end; |
90 | finally |
87 | finally |
91 | FindClose(sr); |
88 | FindClose(sr); |
92 | end; |
89 | end; |
93 | end; |
90 | end; |
94 | 91 | ||
95 | procedure TSpeicherungForm.LoeschenBtnClick(Sender: TObject); |
92 | procedure TSpeicherungForm.LoeschenBtnClick(Sender: TObject); |
96 | var |
93 | var |
97 | Markiert: boolean; |
94 | Markiert: boolean; |
98 | i: integer; |
95 | i: integer; |
99 | begin |
96 | begin |
100 | Markiert := false; |
97 | Markiert := false; |
101 | for i := 0 to LevelListBox.items.Count-1 do |
98 | for i := 0 to LevelListBox.items.Count-1 do |
102 | begin |
99 | begin |
103 | if LevelListBox.Selected[i] then Markiert := true; |
100 | if LevelListBox.Selected[i] then Markiert := true; |
104 | end; |
101 | end; |
105 | if not Markiert then exit; |
102 | if not Markiert then exit; |
106 | if MessageDlg('Diesen Spielstand wirklich löschen?', |
103 | if MessageDlg('Diesen Spielstand wirklich löschen?', |
107 | mtConfirmation, [mbYes, mbNo], 0) = mrYes then |
104 | mtConfirmation, [mbYes, mbNo], 0) = mrYes then |
108 | begin |
105 | begin |
109 | li1.visible := false; |
106 | li1.visible := false; |
110 | li2a.visible := false; |
107 | li2a.visible := false; |
111 | li2b.visible := false; |
108 | li2b.visible := false; |
112 | li3a.visible := false; |
109 | li3a.visible := false; |
113 | li3b.visible := false; |
110 | li3b.visible := false; |
114 | li4a.visible := false; |
111 | li4a.visible := false; |
115 | li4b.visible := false; |
112 | li4b.visible := false; |
116 | liu.visible := false; |
113 | liu.visible := false; |
117 | liw.visible := false; |
114 | liw.visible := false; |
118 | li1.caption := 'n/a'; |
115 | li1.caption := 'n/a'; |
119 | li2b.caption := 'n/a'; |
116 | li2b.caption := 'n/a'; |
120 | li3b.caption := 'n/a'; |
117 | li3b.caption := 'n/a'; |
121 | li4b.caption := 'n/a'; |
118 | li4b.caption := 'n/a'; |
122 | LadenBtn.enabled := false; |
119 | LadenBtn.enabled := false; |
123 | LoeschenBtn.enabled := false; |
120 | LoeschenBtn.enabled := false; |
124 | deletefile(mainform.FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav'); |
121 | deletefile(FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav'); |
125 | searchsaves; |
122 | searchsaves; |
126 | end; |
123 | end; |
127 | end; |
124 | end; |
128 | 125 | ||
129 | procedure TSpeicherungForm.LadenBtnClick(Sender: TObject); |
126 | procedure TSpeicherungForm.LadenBtnClick(Sender: TObject); |
130 | var |
127 | var |
131 | Markiert: boolean; |
128 | Markiert: boolean; |
132 | i: integer; |
129 | i: integer; |
133 | SavGame: textfile; |
130 | SavGame: textfile; |
134 | begin |
131 | begin |
135 | Markiert := false; |
132 | Markiert := false; |
136 | for i := 0 to LevelListBox.items.Count-1 do |
133 | for i := 0 to LevelListBox.items.Count-1 do |
137 | begin |
134 | begin |
138 | if LevelListBox.Selected[i] then Markiert := true; |
135 | if LevelListBox.Selected[i] then Markiert := true; |
139 | end; |
136 | end; |
140 | if not Markiert then exit; |
137 | if not Markiert then exit; |
141 | if LevelListBox.items.count = 0 then |
138 | if LevelListBox.items.count = 0 then |
142 | begin |
139 | begin |
143 | li1.visible := false; |
140 | li1.visible := false; |
144 | li2a.visible := false; |
141 | li2a.visible := false; |
145 | li2b.visible := false; |
142 | li2b.visible := false; |
146 | li3a.visible := false; |
143 | li3a.visible := false; |
147 | li3b.visible := false; |
144 | li3b.visible := false; |
148 | li4a.visible := false; |
145 | li4a.visible := false; |
149 | li4b.visible := false; |
146 | li4b.visible := false; |
150 | liu.visible := false; |
147 | liu.visible := false; |
151 | liw.visible := false; |
148 | liw.visible := false; |
152 | li1.caption := 'n/a'; |
149 | li1.caption := 'n/a'; |
153 | li2b.caption := 'n/a'; |
150 | li2b.caption := 'n/a'; |
154 | li3b.caption := 'n/a'; |
151 | li3b.caption := 'n/a'; |
155 | li4b.caption := 'n/a'; |
152 | li4b.caption := 'n/a'; |
156 | LadenBtn.enabled := false; |
153 | LadenBtn.enabled := false; |
157 | LoeschenBtn.enabled := false; |
154 | LoeschenBtn.enabled := false; |
158 | end; |
155 | end; |
159 | {if liu.visible or (LevelListBox.items.count=0) then |
156 | {if liu.visible or (LevelListBox.items.count=0) then |
160 | exit;} |
157 | exit;} |
161 | AssignFile(SavGame, mainform.FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav'); |
158 | AssignFile(SavGame, FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav'); |
162 | Reset(SavGame); |
159 | Reset(SavGame); |
163 | ReadLN(SavGame); |
160 | ReadLN(SavGame); |
164 | ReadLN(SavGame); |
161 | ReadLN(SavGame); |
165 | ReadLN(SavGame, mainform.FScore); |
162 | ReadLN(SavGame, mainform.FScore); |
166 | ReadLN(SavGame, mainform.FLife); |
163 | ReadLN(SavGame, mainform.FLife); |
167 | ReadLN(SavGame, mainform.Flevel); |
164 | ReadLN(SavGame, mainform.Flevel); |
168 | ReadLN(SavGame, mainform.FMenuItem); |
165 | ReadLN(SavGame, mainform.FMenuItem); |
169 | CloseFile(SavGame); |
166 | CloseFile(SavGame); |
170 | mainform.playsound('SceneMov', false); |
167 | mainform.playsound('SceneMov', false); |
171 | mainform.FNextScene := gsNewLevel; |
168 | mainform.FNextScene := gsNewLevel; |
172 | mainform.FCheat := false; |
169 | mainform.FCheat := false; |
173 | close; |
170 | close; |
174 | end; |
171 | end; |
175 | 172 | ||
176 | procedure TSpeicherungForm.SpeichernBtnClick(Sender: TObject); |
173 | procedure TSpeicherungForm.SpeichernBtnClick(Sender: TObject); |
177 | var |
174 | var |
178 | SavGame: textfile; |
175 | SavGame: textfile; |
179 | i: integer; |
176 | i: integer; |
180 | begin |
177 | begin |
181 | if Levelname.text = '' then |
178 | if Levelname.text = '' then |
182 | begin |
179 | begin |
183 | MessageDlg('Dies ist kein gültiger Spielstandname!', mtError, [mbOK], 0); |
180 | MessageDlg('Dies ist kein gültiger Spielstandname!', mtError, [mbOK], 0); |
184 | LevelName.setfocus; |
181 | LevelName.setfocus; |
185 | exit; |
182 | exit; |
186 | end; |
183 | end; |
187 | for i := 0 to length(LevelName.text) do |
184 | for i := 0 to length(LevelName.text) do |
188 | begin |
185 | begin |
189 | if (copy(LevelName.text, i, 1) = '\') or |
186 | if (copy(LevelName.text, i, 1) = '\') or |
190 | (copy(LevelName.text, i, 1) = '/') or |
187 | (copy(LevelName.text, i, 1) = '/') or |
191 | (copy(LevelName.text, i, 1) = ':') or |
188 | (copy(LevelName.text, i, 1) = ':') or |
192 | (copy(LevelName.text, i, 1) = '*') or |
189 | (copy(LevelName.text, i, 1) = '*') or |
193 | (copy(LevelName.text, i, 1) = '?') or |
190 | (copy(LevelName.text, i, 1) = '?') or |
194 | (copy(LevelName.text, i, 1) = '"') or |
191 | (copy(LevelName.text, i, 1) = '"') or |
195 | (copy(LevelName.text, i, 1) = '<') or |
192 | (copy(LevelName.text, i, 1) = '<') or |
196 | (copy(LevelName.text, i, 1) = '>') or |
193 | (copy(LevelName.text, i, 1) = '>') or |
197 | (copy(LevelName.text, i, 1) = '|') then |
194 | (copy(LevelName.text, i, 1) = '|') then |
198 | begin |
195 | begin |
199 | MessageDlg('Dies ist kein gültiger Spielstandname!', mtError, [mbOK], 0); |
196 | MessageDlg('Dies ist kein gültiger Spielstandname!', mtError, [mbOK], 0); |
200 | LevelName.setfocus; |
197 | LevelName.setfocus; |
201 | exit; |
198 | exit; |
202 | end; |
199 | end; |
203 | end; |
200 | end; |
204 | if LevelListBox.items.IndexOf(LevelName.text) > -1 then |
201 | if LevelListBox.items.IndexOf(LevelName.text) > -1 then |
205 | begin |
202 | begin |
206 | if MessageDlg('Spielstand ist bereits vorhanden. Ersetzen?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then |
203 | if MessageDlg('Spielstand ist bereits vorhanden. Ersetzen?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then |
207 | exit; |
204 | exit; |
208 | end; |
205 | end; |
209 | AssignFile(SavGame, mainform.FDirectory+'Spielstände\'+LevelName.text+'.sav'); |
206 | AssignFile(SavGame, FDirectory+'Spielstände\'+LevelName.text+'.sav'); |
210 | Rewrite(SavGame); |
207 | Rewrite(SavGame); |
211 | WriteLN(SavGame, '; SpaceMission '+FCompVersion); |
208 | WriteLN(SavGame, '; SpaceMission '+FCompVersion); |
212 | WriteLN(SavGame, '; SAV-File'); |
209 | WriteLN(SavGame, '; SAV-File'); |
213 | WriteLN(SavGame, mainform.FScore); |
210 | WriteLN(SavGame, mainform.FScore); |
214 | WriteLN(SavGame, mainform.FLife); |
211 | WriteLN(SavGame, mainform.FLife); |
215 | WriteLN(SavGame, mainform.FLevel); |
212 | WriteLN(SavGame, mainform.FLevel); |
216 | WriteLN(SavGame, mainform.FMenuItem); |
213 | WriteLN(SavGame, mainform.FMenuItem); |
217 | CloseFile(SavGame); |
214 | CloseFile(SavGame); |
218 | SearchSaves; |
215 | SearchSaves; |
219 | end; |
216 | end; |
220 | 217 | ||
221 | procedure TSpeicherungForm.LevelListBoxClick(Sender: TObject); |
218 | procedure TSpeicherungForm.LevelListBoxClick(Sender: TObject); |
222 | var |
219 | var |
223 | Ergebniss: String; |
220 | Ergebniss: String; |
224 | SavGame: textfile; |
221 | SavGame: textfile; |
225 | Punkte, Leben, Level, Art: integer; |
222 | Punkte, Leben, Level, Art: integer; |
226 | begin |
223 | begin |
227 | ladenbtn.enabled := true; |
224 | ladenbtn.enabled := true; |
228 | loeschenbtn.enabled := true; |
225 | loeschenbtn.enabled := true; |
229 | li1.visible := false; |
226 | li1.visible := false; |
230 | li2a.visible := false; |
227 | li2a.visible := false; |
231 | li2b.visible := false; |
228 | li2b.visible := false; |
232 | li3a.visible := false; |
229 | li3a.visible := false; |
233 | li3b.visible := false; |
230 | li3b.visible := false; |
234 | li4a.visible := false; |
231 | li4a.visible := false; |
235 | li4b.visible := false; |
232 | li4b.visible := false; |
236 | liu.visible := false; |
233 | liu.visible := false; |
237 | liw.visible := false; |
234 | liw.visible := false; |
238 | li1.caption := 'n/a'; |
235 | li1.caption := 'n/a'; |
239 | li2b.caption := 'n/a'; |
236 | li2b.caption := 'n/a'; |
240 | li3b.caption := 'n/a'; |
237 | li3b.caption := 'n/a'; |
241 | li4b.caption := 'n/a'; |
238 | li4b.caption := 'n/a'; |
242 | if (LevelListBox.items.count=0) or (LevelListBox.itemindex = -1) then |
239 | if (LevelListBox.items.count=0) or (LevelListBox.itemindex = -1) then |
243 | begin |
240 | begin |
244 | ladenbtn.enabled := false; |
241 | ladenbtn.enabled := false; |
245 | loeschenbtn.enabled := false; |
242 | loeschenbtn.enabled := false; |
246 | liw.visible := true; |
243 | liw.visible := true; |
247 | exit; |
244 | exit; |
248 | end; |
245 | end; |
249 | LevelName.Text := LevelListBox.Items.strings[LevelListBox.itemindex]; |
246 | LevelName.Text := LevelListBox.Items.strings[LevelListBox.itemindex]; |
250 | AssignFile(SavGame, mainform.FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav'); |
247 | AssignFile(SavGame, FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav'); |
251 | Reset(SavGame); |
248 | Reset(SavGame); |
252 | ReadLN(SavGame, Ergebniss); |
249 | ReadLN(SavGame, Ergebniss); |
253 | if Ergebniss <> '; SpaceMission '+FCompVersion then |
250 | if Ergebniss <> '; SpaceMission '+FCompVersion then |
254 | begin |
251 | begin |
255 | liu.visible := true; |
252 | liu.visible := true; |
256 | ladenbtn.enabled := false; |
253 | ladenbtn.enabled := false; |
257 | CloseFile(SavGame); |
254 | CloseFile(SavGame); |
258 | exit; |
255 | exit; |
259 | end; |
256 | end; |
260 | ReadLN(SavGame, Ergebniss); |
257 | ReadLN(SavGame, Ergebniss); |
261 | if Ergebniss <> '; SAV-File' then |
258 | if Ergebniss <> '; SAV-File' then |
262 | begin |
259 | begin |
263 | liu.visible := true; |
260 | liu.visible := true; |
264 | ladenbtn.enabled := false; |
261 | ladenbtn.enabled := false; |
265 | CloseFile(SavGame); |
262 | CloseFile(SavGame); |
266 | exit; |
263 | exit; |
267 | end; |
264 | end; |
268 | ReadLN(SavGame, Punkte); |
265 | ReadLN(SavGame, Punkte); |
269 | ReadLN(SavGame, Leben); |
266 | ReadLN(SavGame, Leben); |
270 | ReadLN(SavGame, Level); |
267 | ReadLN(SavGame, Level); |
271 | ReadLN(SavGame, Art); |
268 | ReadLN(SavGame, Art); |
272 | CloseFile(SavGame); |
269 | CloseFile(SavGame); |
273 | li1.visible := true; |
270 | li1.visible := true; |
274 | li2a.visible := true; |
271 | li2a.visible := true; |
275 | li2b.visible := true; |
272 | li2b.visible := true; |
276 | li3a.visible := true; |
273 | li3a.visible := true; |
277 | li3b.visible := true; |
274 | li3b.visible := true; |
278 | li4a.visible := true; |
275 | li4a.visible := true; |
279 | li4b.visible := true; |
276 | li4b.visible := true; |
280 | if Art = 1 then |
277 | if Art = 1 then |
281 | li1.caption := 'Das Level ist ein normales Level.' |
278 | li1.caption := 'Das Level ist ein normales Level.' |
282 | else |
279 | else |
283 | li1.caption := 'Das Level ist ein Zufallslevel.'; |
280 | li1.caption := 'Das Level ist ein Zufallslevel.'; |
284 | li3b.caption := inttostr(Level); |
281 | li3b.caption := inttostr(Level); |
285 | li4b.caption := inttostr(Leben); |
282 | li4b.caption := inttostr(Leben); |
286 | li2b.caption := inttostr(Punkte); |
283 | li2b.caption := inttostr(Punkte); |
287 | end; |
284 | end; |
288 | 285 | ||
289 | procedure TSpeicherungForm.LevelNameChange(Sender: TObject); |
286 | procedure TSpeicherungForm.LevelNameChange(Sender: TObject); |
290 | begin |
287 | begin |
291 | //listbox1.Items.indexof('Level '+spinedit1.text); |
288 | //listbox1.Items.indexof('Level '+spinedit1.text); |
292 | end; |
289 | end; |
293 | 290 | ||
294 | procedure TSpeicherungForm.Button4Click(Sender: TObject); |
291 | procedure TSpeicherungForm.Button4Click(Sender: TObject); |
295 | begin |
292 | begin |
296 | mainform.dxtimer.enabled := not mainform.gamepause.checked; |
293 | mainform.dxtimer.enabled := not mainform.gamepause.checked; |
297 | close; |
294 | close; |
298 | end; |
295 | end; |
299 | 296 | ||
300 | procedure TSpeicherungForm.FormShow(Sender: TObject); |
297 | procedure TSpeicherungForm.FormShow(Sender: TObject); |
301 | begin |
298 | begin |
302 | mainform.dxtimer.enabled := false; |
299 | mainform.dxtimer.enabled := false; |
303 | SearchSaves; |
300 | SearchSaves; |
304 | if mainform.FNotSave then |
301 | if mainform.FNotSave then |
305 | begin |
302 | begin |
306 | label1.enabled := false; |
303 | label1.enabled := false; |
307 | LevelName.enabled := false; |
304 | LevelName.enabled := false; |
308 | SpeichernBtn.enabled := false; |
305 | SpeichernBtn.enabled := false; |
309 | end |
306 | end |
310 | else |
307 | else |
311 | begin |
308 | begin |
312 | label1.enabled := true; |
309 | label1.enabled := true; |
313 | LevelName.enabled := true; |
310 | LevelName.enabled := true; |
314 | SpeichernBtn.enabled := true; |
311 | SpeichernBtn.enabled := true; |
315 | end; |
312 | end; |
316 | end; |
313 | end; |
317 | 314 | ||
318 | procedure TSpeicherungForm.DsFancyButton2Click(Sender: TObject); |
315 | procedure TSpeicherungForm.DsFancyButton2Click(Sender: TObject); |
319 | begin |
316 | begin |
320 | SearchSaves; |
317 | SearchSaves; |
321 | end; |
318 | end; |
322 | 319 | ||
323 | procedure TSpeicherungForm.AbbrechenBtnClick(Sender: TObject); |
320 | procedure TSpeicherungForm.AbbrechenBtnClick(Sender: TObject); |
324 | begin |
321 | begin |
325 | close; |
322 | close; |
326 | end; |
323 | end; |
327 | 324 | ||
328 | procedure TSpeicherungForm.FormHide(Sender: TObject); |
325 | procedure TSpeicherungForm.FormHide(Sender: TObject); |
329 | begin |
326 | begin |
330 | if not mainform.gamepause.checked then mainform.dxtimer.enabled := true; |
327 | if not mainform.gamepause.checked then mainform.dxtimer.enabled := true; |
331 | end; |
328 | end; |
332 | 329 | ||
333 | procedure TSpeicherungForm.LevelListBoxDblClick(Sender: TObject); |
330 | procedure TSpeicherungForm.LevelListBoxDblClick(Sender: TObject); |
334 | begin |
331 | begin |
335 | LadenBtn.click; |
332 | LadenBtn.click; |
336 | end; |
333 | end; |
337 | 334 | ||
338 | end. |
335 | end. |
339 | 336 | ||
340 | 337 |