WebSVN – spacemission – Diff – /LevSource.pas


unit LevSource;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ShellAPI;
 
type
  TSourceForm = class(TForm)        
    ElLabel1: TLabel;
    ElLabel2: TLabel;
    ElPopupButton1: TButton;
    ListBox1: TListBox;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    procedure ElPopupButton1Click(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  public
    procedure Aktualisieren;
  end;
 
var
  SourceForm: TSourceForm;
 
 
 
 
implementation
 
uses
  Global, LevMain, LevSpeicherung;
 
{$R *.DFM}
 
procedure TSourceForm.ElPopupButton1Click(Sender: TObject);
begin
  close;
end;
 
procedure TSourceForm.Aktualisieren;
var
  i, j: integer;
  puffer: string;
begin
  ListBox1.Items := MainForm.Enemys;
  Memo1.lines.clear;
  for j := 0 to mainform.enemys.Count - 2 do
  begin
    for i := 0 to mainform.enemys.Count - 2 do
    begin
      if strtoint(speicherungform.filter(1, mainform.enemys.Strings[i])) > strtoint(speicherungform.filter(1, mainform.enemys.Strings[i + 1])) then
      begin
        puffer := mainform.enemys.Strings[i];
        mainform.enemys.Strings[i] := mainform.enemys.Strings[i + 1];
        mainform.enemys.Strings[i + 1] := puffer;
      end;
    end;
  end;
  Memo1.lines.add('; SpaceMission ' + FCompVersion);
  Memo1.lines.add('; LEV-File');
  Memo1.lines.add(inttostr(MainForm.ScrollBar.Max)); // --> Länge der Karte
  for i := 0 to mainform.enemys.count-1 do
  begin
    Memo1.lines.add(speicherungform.filter(3, mainform.enemys.Strings[i]));
    Memo1.lines.add(speicherungform.filter(1, mainform.enemys.Strings[i]));
    Memo1.lines.add(speicherungform.filter(2, mainform.enemys.Strings[i]));
    Memo1.lines.add(speicherungform.filter(4, mainform.enemys.Strings[i]));
  end;
end;
 
procedure TSourceForm.FormHide(Sender: TObject);
begin
  mainform.dxtimer.enabled := true;
end;
 
procedure TSourceForm.FormShow(Sender: TObject);
begin
  mainform.dxtimer.enabled := false;
end;
 
procedure TSourceForm.Label1Click(Sender: TObject);
begin
  if not fileexists(Fdirectory+'Dokumentation.pdf') then
  begin
    MessageDLG('Die Datei "Dokumentation.pdf" ist nicht mehr vorhanden. Die Aktion wird abgebrochen!',
      mtWarning, [mbOK], 0);
  end
  else
    shellexecute(handle, 'open', pchar(fdirectory+'Dokumentation.pdf'), '', '', 1);
end;
 
end.
 
 

Rev 1	Rev 2
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;
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	const	-
30	FCompVersion = '1.0';	-
31		-
32	implementation	29	implementation
33		30
34	uses	31	uses
35	LevMain, LevSpeicherung;	32	Global, LevMain, LevSpeicherung;
36		33
37	{$R *.DFM}	34	{$R *.DFM}
38		35
39	procedure TSourceForm.ElPopupButton1Click(Sender: TObject);	36	procedure TSourceForm.ElPopupButton1Click(Sender: TObject);
40	begin	37	begin
41	close;	38	close;
42	end;	39	end;
43		40
44	procedure TSourceForm.Aktualisieren;	41	procedure TSourceForm.Aktualisieren;
45	var	42	var
46	i, j: integer;	43	i, j: integer;
47	puffer: string;	44	puffer: string;
48	begin	45	begin
49	ListBox1.Items := MainForm.Enemys;	46	ListBox1.Items := MainForm.Enemys;
50	Memo1.lines.clear;	47	Memo1.lines.clear;
51	for j := 0 to mainform.enemys.Count - 2 do	48	for j := 0 to mainform.enemys.Count - 2 do
52	begin	49	begin
53	for i := 0 to mainform.enemys.Count - 2 do	50	for i := 0 to mainform.enemys.Count - 2 do
54	begin	51	begin
55	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
56	begin	53	begin
57	puffer := mainform.enemys.Strings[i];	54	puffer := mainform.enemys.Strings[i];
58	mainform.enemys.Strings[i] := mainform.enemys.Strings[i + 1];	55	mainform.enemys.Strings[i] := mainform.enemys.Strings[i + 1];
59	mainform.enemys.Strings[i + 1] := puffer;	56	mainform.enemys.Strings[i + 1] := puffer;
60	end;	57	end;
61	end;	58	end;
62	end;	59	end;
63	Memo1.lines.add('; SpaceMission ' + FCompVersion);	60	Memo1.lines.add('; SpaceMission ' + FCompVersion);
64	Memo1.lines.add('; LEV-File');	61	Memo1.lines.add('; LEV-File');
65	Memo1.lines.add(inttostr(MainForm.ScrollBar.Max)); // --> Länge der Karte	62	Memo1.lines.add(inttostr(MainForm.ScrollBar.Max)); // --> Länge der Karte
66	for i := 0 to mainform.enemys.count-1 do	63	for i := 0 to mainform.enemys.count-1 do
67	begin	64	begin
68	Memo1.lines.add(speicherungform.filter(3, mainform.enemys.Strings[i]));	65	Memo1.lines.add(speicherungform.filter(3, mainform.enemys.Strings[i]));
69	Memo1.lines.add(speicherungform.filter(1, mainform.enemys.Strings[i]));	66	Memo1.lines.add(speicherungform.filter(1, mainform.enemys.Strings[i]));
70	Memo1.lines.add(speicherungform.filter(2, mainform.enemys.Strings[i]));	67	Memo1.lines.add(speicherungform.filter(2, mainform.enemys.Strings[i]));
71	Memo1.lines.add(speicherungform.filter(4, mainform.enemys.Strings[i]));	68	Memo1.lines.add(speicherungform.filter(4, mainform.enemys.Strings[i]));
72	end;	69	end;
73	end;	70	end;
74		71
75	procedure TSourceForm.FormHide(Sender: TObject);	72	procedure TSourceForm.FormHide(Sender: TObject);
76	begin	73	begin
77	mainform.dxtimer.enabled := true;	74	mainform.dxtimer.enabled := true;
78	end;	75	end;
79		76
80	procedure TSourceForm.FormShow(Sender: TObject);	77	procedure TSourceForm.FormShow(Sender: TObject);
81	begin	78	begin
82	mainform.dxtimer.enabled := false;	79	mainform.dxtimer.enabled := false;
83	end;	80	end;
84		81
85	procedure TSourceForm.Label1Click(Sender: TObject);	82	procedure TSourceForm.Label1Click(Sender: TObject);
86	begin	83	begin
87	if not fileexists(mainform.fdirectory+'Dokumentation.pdf') then	84	if not fileexists(Fdirectory+'Dokumentation.pdf') then
88	begin	85	begin
89	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!',
90	mtWarning, [mbOK], 0);	87	mtWarning, [mbOK], 0);
91	end	88	end
92	else	89	else
93	shellexecute(handle, 'open', pchar(mainform.fdirectory+'Dokumentation.pdf'), '', '', 1);	90	shellexecute(handle, 'open', pchar(fdirectory+'Dokumentation.pdf'), '', '', 1);
94	end;	91	end;
95		92
96	end.	93	end.
97		94
98		95

Subversion Repositories spacemission

spacemission/LevSource.pas – Rev 1 → 2