Subversion Repositories spacemission

Rev

Rev 2 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

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