Rev 90 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 90 | Rev 94 | ||
---|---|---|---|
Line 198... | Line 198... | ||
198 | end; |
198 | end; |
199 | 199 | ||
200 | procedure TMainForm.FormCreate(Sender: TObject); |
200 | procedure TMainForm.FormCreate(Sender: TObject); |
201 | resourcestring |
201 | resourcestring |
202 | SFileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!'; |
202 | SFileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!'; |
203 | SCaption = 'SpaceMission %s - Leveleditor'; |
203 | SCaption = 'SpaceMission %s - Level-Editor'; |
204 | begin |
204 | begin |
205 | { VCL-Ersatz start } |
205 | { VCL-Ersatz start } |
206 | dxtimer := tdxtimer.create(self); |
206 | dxtimer := tdxtimer.create(self); |
207 | dxtimer.Interval := 100; |
207 | dxtimer.Interval := 100; |
208 | dxtimer.ActiveOnly := false; |
208 | dxtimer.ActiveOnly := false; |