Subversion Repositories spacemission

Rev

Rev 24 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. unit LevOptions;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, Spin, ComCtrls;
  8.  
  9. type
  10.   TLevelForm = class(TForm)
  11.     ElPopupButton1: TButton;
  12.     ElPopupButton2: TButton;
  13.     GroupBox1: TGroupBox;
  14.     Label1: TLabel;
  15.     Panel1: TPanel;
  16.     ElLabel1: TLabel;
  17.     ElLabel2: TLabel;
  18.     Groesse: TSpinEdit;
  19.     Label2: TLabel;
  20.     Label3: TLabel;
  21.     LevName: TEdit;
  22.     LevAuthor: TEdit;
  23.     procedure ElPopupButton1Click(Sender: TObject);
  24.     procedure ElPopupButton2Click(Sender: TObject);
  25.     procedure FormHide(Sender: TObject);
  26.     procedure FormShow(Sender: TObject);
  27.   public
  28.     procedure Aktualisieren;
  29.   end;
  30.  
  31. var
  32.   LevelForm: TLevelForm;
  33.  
  34. implementation
  35.  
  36. uses LevMain;
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TLevelForm.Aktualisieren;
  41. begin
  42.   Groesse.Value := MainForm.ScrollBar.Max;
  43.   LevName.Text := MainForm.LevData.LevelName;
  44.   LevAuthor.Text := MainForm.LevData.LevelAuthor;
  45. end;
  46.  
  47. procedure TLevelForm.ElPopupButton1Click(Sender: TObject);
  48. begin
  49.   MainForm.ScrollBar.Max := Groesse.Value;
  50.   MainForm.LevData.LevelName := LevName.Text;
  51.   MainForm.LevData.LevelAuthor := LevAuthor.Text;
  52.   MainForm.AnzeigeAct;
  53.   close;
  54. end;
  55.  
  56. procedure TLevelForm.ElPopupButton2Click(Sender: TObject);
  57. begin
  58.   close;
  59. end;
  60.  
  61. procedure TLevelForm.FormHide(Sender: TObject);
  62. begin
  63.   mainform.dxtimer.enabled := true;
  64. end;
  65.  
  66. procedure TLevelForm.FormShow(Sender: TObject);
  67. begin
  68.   mainform.dxtimer.enabled := false;
  69. end;
  70.  
  71. end.
  72.