Subversion Repositories spacemission

Rev

Rev 8 | Rev 15 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8 Rev 14
Line 107... Line 107...
107 
  MainForm: TMainForm;
 107 
  MainForm: TMainForm;
108 
 
 108 
 
109 
implementation
 109 
implementation
110 
 
 110 
 
111 
uses
 111 
uses
112 
  Global, LevSplash, LevSpeicherung, ComInfo, LevSource, LevOptions;
 112 
  Global, LevSplash, LevSpeicherung, ComInfo, LevSource, LevOptions,
- 
 
 113 
  ComLevelReader;
113 
 
 114 
 
114 
const
 115 
const
115 
  FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';
 116 
  FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';
116 
  status_info = ' Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigenschaften anzuzeigen...';
 117 
  status_info = ' Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigenschaften anzuzeigen...';
117 
  status_lives = ' Leben: ';
 118 
  status_lives = ' Leben: ';
Line 183... Line 184...
183 
  PixelCheck := True;
 184 
  PixelCheck := True;
184 
end;
 185 
end;
185 
 
 186 
 
186 
procedure TMainForm.FormCreate(Sender: TObject);
 187 
procedure TMainForm.FormCreate(Sender: TObject);
187 
var
 188 
var
188 
  Ergebnis: string;
 - 
 
189 
  daten: textfile;
 189 
  LevelData: TLevelData;
190 
  ok: boolean;
 - 
 
191 
begin
 190 
begin
192 
  { VCL-Ersatz start }
 191 
  { VCL-Ersatz start }
193 
  dxtimer := tdxtimer.create(self);
 192 
  dxtimer := tdxtimer.create(self);
194 
  dxtimer.Interval := 100;
 193 
  dxtimer.Interval := 100;
195 
  dxtimer.ActiveOnly := false;
 194 
  dxtimer.ActiveOnly := false;
Line 236... Line 235...
236 
  //Application.Title := 'SpaceMission '+ProgramVersion+' - Leveleditor';
 235 
  //Application.Title := 'SpaceMission '+ProgramVersion+' - Leveleditor';
237 
  Caption := 'SpaceMission '+ProgramVersion+' - Leveleditor';
 236 
  Caption := 'SpaceMission '+ProgramVersion+' - Leveleditor';
238 
  DXInit;
 237 
  DXInit;
239 
  if (paramcount > 0) and (fileexists(paramstr(1))) then
 238 
  if (paramcount > 0) and (fileexists(paramstr(1))) then
240 
  begin
 239 
  begin
241 
    AssignFile(daten, paramstr(1));
 240 
    LevelData := TLevelData.Create;
242 
    Reset(daten);
 241 
    try
243 
    ok := true;
 242 
      try
244 
    ReadLN(daten, Ergebnis);
 243 
        LevelData.Load(paramstr(1));
245 
    if Ergebnis <> '; SpaceMission '+FCompVersion then ok := false;
 - 
 
246 
    ReadLN(daten, Ergebnis);
 - 
 
247 
    if ergebnis <> '; LEV-File' then ok := false;
 - 
 
248 
    if not ok then
 - 
 
249 
    begin
 244 
      except
250 
      showmessage(FileError);
 245 
        showmessage(FileError);
251 
      CloseFile(daten);
 - 
 
252 
      ProgramInit;
 246 
        ProgramInit;
253 
      exit;
 247 
        exit;
254 
    end;
 248 
      end;
- 
 
 249 
    finally
- 
 
 250 
      FreeAndNil(LevelData);
- 
 
 251 
    end;
255 
    { Laden }
 252 
    { Laden }
256 
    CloseFile(daten);
 - 
 
257 
    exit;
 253 
    exit;
258 
  end;
 254 
  end;
259 
  if fileexists(fdirectory+'Bilder\Auswahl.bmp') then
 255 
  if fileexists(fdirectory+'Bilder\Auswahl.bmp') then
260 
    Image1.Picture.LoadFromFile(fdirectory+'Bilder\Auswahl.bmp');
 256 
    Image1.Picture.LoadFromFile(fdirectory+'Bilder\Auswahl.bmp');
261 
  {else
 257 
  {else