Subversion Repositories spacemission

Rev

Blame | Last modification | View Log | RSS feed

  1. unit LevSource;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ShellAPI;
  8.  
  9. type
  10.   TSourceForm = class(TForm)        
  11.     ElLabel1: TLabel;
  12.     ElLabel2: TLabel;
  13.     ElPopupButton1: TButton;
  14.     ListBox1: TListBox;
  15.     Memo1: TMemo;
  16.     Label1: TLabel;
  17.     Label2: TLabel;
  18.     procedure ElPopupButton1Click(Sender: TObject);
  19.     procedure FormHide(Sender: TObject);
  20.     procedure FormShow(Sender: TObject);
  21.     procedure Label1Click(Sender: TObject);
  22.   public
  23.     procedure Aktualisieren;
  24.   end;
  25.  
  26. var
  27.   SourceForm: TSourceForm;
  28.  
  29. const
  30.   FCompVersion = '1.0';
  31.  
  32. implementation
  33.  
  34. uses
  35.   LevMain, LevSpeicherung;
  36.  
  37. {$R *.DFM}
  38.  
  39. procedure TSourceForm.ElPopupButton1Click(Sender: TObject);
  40. begin
  41.   close;
  42. end;
  43.  
  44. procedure TSourceForm.Aktualisieren;
  45. var
  46.   i, j: integer;
  47.   puffer: string;
  48. begin
  49.   ListBox1.Items := MainForm.Enemys;
  50.   Memo1.lines.clear;
  51.   for j := 0 to mainform.enemys.Count - 2 do
  52.   begin
  53.     for i := 0 to mainform.enemys.Count - 2 do
  54.     begin
  55.       if strtoint(speicherungform.filter(1, mainform.enemys.Strings[i])) > strtoint(speicherungform.filter(1, mainform.enemys.Strings[i + 1])) then
  56.       begin
  57.         puffer := mainform.enemys.Strings[i];
  58.         mainform.enemys.Strings[i] := mainform.enemys.Strings[i + 1];
  59.         mainform.enemys.Strings[i + 1] := puffer;
  60.       end;
  61.     end;
  62.   end;
  63.   Memo1.lines.add('; SpaceMission ' + FCompVersion);
  64.   Memo1.lines.add('; LEV-File');
  65.   Memo1.lines.add(inttostr(MainForm.ScrollBar.Max)); // --> Länge der Karte
  66.   for i := 0 to mainform.enemys.count-1 do
  67.   begin
  68.     Memo1.lines.add(speicherungform.filter(3, mainform.enemys.Strings[i]));
  69.     Memo1.lines.add(speicherungform.filter(1, mainform.enemys.Strings[i]));
  70.     Memo1.lines.add(speicherungform.filter(2, mainform.enemys.Strings[i]));
  71.     Memo1.lines.add(speicherungform.filter(4, mainform.enemys.Strings[i]));
  72.   end;
  73. end;
  74.  
  75. procedure TSourceForm.FormHide(Sender: TObject);
  76. begin
  77.   mainform.dxtimer.enabled := true;
  78. end;
  79.  
  80. procedure TSourceForm.FormShow(Sender: TObject);
  81. begin
  82.   mainform.dxtimer.enabled := false;
  83. end;
  84.  
  85. procedure TSourceForm.Label1Click(Sender: TObject);
  86. begin
  87.   if not fileexists(mainform.fdirectory+'Dokumentation.pdf') then
  88.   begin
  89.     MessageDLG('Die Datei "Dokumentation.pdf" ist nicht mehr vorhanden. Die Aktion wird abgebrochen!',
  90.       mtWarning, [mbOK], 0);
  91.   end
  92.   else
  93.     shellexecute(handle, 'open', pchar(mainform.fdirectory+'Dokumentation.pdf'), '', '', 1);
  94. end;
  95.  
  96. end.
  97.  
  98.