Subversion Repositories spacemission

Rev

Rev 15 | Go to most recent revision | 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.     procedure ElPopupButton1Click(Sender: TObject);
  20.     procedure ElPopupButton2Click(Sender: TObject);
  21.     procedure FormHide(Sender: TObject);
  22.     procedure FormShow(Sender: TObject);
  23.   public
  24.     procedure Aktualisieren;
  25.   end;
  26.  
  27. var
  28.   LevelForm: TLevelForm;
  29.  
  30. implementation
  31.  
  32. uses LevMain;
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure TLevelForm.Aktualisieren;
  37. begin
  38.   Groesse.Value := MainForm.ScrollBar.Max;
  39. end;
  40.  
  41. procedure TLevelForm.ElPopupButton1Click(Sender: TObject);
  42. begin
  43.   MainForm.ScrollBar.Max := Groesse.Value;
  44.   MainForm.AnzeigeAct;
  45.   close;
  46. end;
  47.  
  48. procedure TLevelForm.ElPopupButton2Click(Sender: TObject);
  49. begin
  50.   close;
  51. end;
  52.  
  53. procedure TLevelForm.FormHide(Sender: TObject);
  54. begin
  55.   mainform.dxtimer.enabled := true;
  56. end;
  57.  
  58. procedure TLevelForm.FormShow(Sender: TObject);
  59. begin
  60.   mainform.dxtimer.enabled := false;
  61. end;
  62.  
  63. end.
  64.