Rev 24 | Show entire file | Ignore 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); |