| 15,15 → 15,15 |
|---|
| Panel1: TPanel; |
| ElLabel1: TLabel; |
| ElLabel2: TLabel; |
| Groesse: TSpinEdit; |
| Label2: TLabel; |
| Label3: TLabel; |
| LevName: TEdit; |
| LevAuthor: TEdit; |
| GroesseEdt: TEdit; |
| Groesse: TUpDown; |
| procedure ElPopupButton1Click(Sender: TObject); |
| procedure ElPopupButton2Click(Sender: TObject); |
| procedure FormHide(Sender: TObject); |
| procedure FormShow(Sender: TObject); |
| procedure GroesseClick(Sender: TObject; Button: TUDBtnType); |
| procedure GroesseEdtKeyPress(Sender: TObject; var Key: Char); |
| procedure GroesseEdtChange(Sender: TObject); |
| public |
| procedure Aktualisieren; |
| end; |
| 39,16 → 39,12 |
|---|
| |
| procedure TLevelForm.Aktualisieren; |
| begin |
| Groesse.Value := MainForm.ScrollBar.Max; |
| LevName.Text := MainForm.LevData.LevelName; |
| LevAuthor.Text := MainForm.LevData.LevelAuthor; |
| Groesse.Position := MainForm.ScrollBar.Max; |
| end; |
| |
| procedure TLevelForm.ElPopupButton1Click(Sender: TObject); |
| begin |
| MainForm.ScrollBar.Max := Groesse.Value; |
| MainForm.LevData.LevelName := LevName.Text; |
| MainForm.LevData.LevelAuthor := LevAuthor.Text; |
| MainForm.ScrollBar.Max := Groesse.Position; |
| MainForm.AnzeigeAct; |
| close; |
| end; |
| 68,4 → 64,20 |
|---|
| mainform.dxtimer.enabled := false; |
| end; |
| |
| procedure TLevelForm.GroesseClick(Sender: TObject; Button: TUDBtnType); |
| begin |
| groesseedt.Text := inttostr(groesse.position); |
| end; |
| |
| procedure TLevelForm.GroesseEdtKeyPress(Sender: TObject; var Key: Char); |
| begin |
| if not (Key in [#13, #08, '0'..'9']) then |
| Key := #0; |
| end; |
| |
| procedure TLevelForm.GroesseEdtChange(Sender: TObject); |
| begin |
| groesse.Position := strtoint(groesseedt.text); |
| end; |
| |
| end. |