Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1 | daniel-mar | 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 |