Subversion Repositories spacemission

Rev

Rev 24 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 24 Rev 43
Line 14... Line 14...
14 
    Label1: TLabel;
 14 
    Label1: TLabel;
15 
    Panel1: TPanel;
 15 
    Panel1: TPanel;
16 
    ElLabel1: TLabel;
 16 
    ElLabel1: TLabel;
17 
    ElLabel2: TLabel;
 17 
    ElLabel2: TLabel;
18 
    Groesse: TSpinEdit;
 18 
    Groesse: TSpinEdit;
- 
 
 19 
    Label2: TLabel;
- 
 
 20 
    Label3: TLabel;
- 
 
 21 
    LevName: TEdit;
- 
 
 22 
    LevAuthor: TEdit;
19 
    procedure ElPopupButton1Click(Sender: TObject);
 23 
    procedure ElPopupButton1Click(Sender: TObject);
20 
    procedure ElPopupButton2Click(Sender: TObject);
 24 
    procedure ElPopupButton2Click(Sender: TObject);
21 
    procedure FormHide(Sender: TObject);
 25 
    procedure FormHide(Sender: TObject);
22 
    procedure FormShow(Sender: TObject);
 26 
    procedure FormShow(Sender: TObject);
23 
  public
 27 
  public
Line 34... Line 38...
34 
{$R *.DFM}
 38 
{$R *.DFM}
35 
 
 39 
 
36 
procedure TLevelForm.Aktualisieren;
 40 
procedure TLevelForm.Aktualisieren;
37 
begin
 41 
begin
38 
  Groesse.Value := MainForm.ScrollBar.Max;
 42 
  Groesse.Value := MainForm.ScrollBar.Max;
- 
 
 43 
  LevName.Text := MainForm.LevData.LevelName;
- 
 
 44 
  LevAuthor.Text := MainForm.LevData.LevelAuthor;
39 
end;
 45 
end;
40 
 
 46 
 
41 
procedure TLevelForm.ElPopupButton1Click(Sender: TObject);
 47 
procedure TLevelForm.ElPopupButton1Click(Sender: TObject);
42 
begin
 48 
begin
43 
  MainForm.ScrollBar.Max := Groesse.Value;
 49 
  MainForm.ScrollBar.Max := Groesse.Value;
- 
 
 50 
  MainForm.LevData.LevelName := LevName.Text;
- 
 
 51 
  MainForm.LevData.LevelAuthor := LevAuthor.Text;
44 
  MainForm.AnzeigeAct;
 52 
  MainForm.AnzeigeAct;
45 
  close;
 53 
  close;
46 
end;
 54 
end;
47 
 
 55 
 
48 
procedure TLevelForm.ElPopupButton2Click(Sender: TObject);
 56 
procedure TLevelForm.ElPopupButton2Click(Sender: TObject);