Subversion Repositories spacemission

Rev

Rev 15 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15 Rev 24
Line 13... Line 13...
13 
    GroupBox1: TGroupBox;
 13 
    GroupBox1: TGroupBox;
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 
    GroesseEdt: TEdit;
 18 
    Groesse: TSpinEdit;
19 
    Groesse: TUpDown;
 - 
 
20 
    procedure ElPopupButton1Click(Sender: TObject);
 19 
    procedure ElPopupButton1Click(Sender: TObject);
21 
    procedure ElPopupButton2Click(Sender: TObject);
 20 
    procedure ElPopupButton2Click(Sender: TObject);
22 
    procedure FormHide(Sender: TObject);
 21 
    procedure FormHide(Sender: TObject);
23 
    procedure FormShow(Sender: TObject);
 22 
    procedure FormShow(Sender: TObject);
24 
    procedure GroesseClick(Sender: TObject; Button: TUDBtnType);
 - 
 
25 
    procedure GroesseEdtKeyPress(Sender: TObject; var Key: Char);
 - 
 
26 
    procedure GroesseEdtChange(Sender: TObject);
 - 
 
27 
  public
 23 
  public
28 
    procedure Aktualisieren;
 24 
    procedure Aktualisieren;
29 
  end;
 25 
  end;
30 
 
 26 
 
31 
var
 27 
var
Line 37... Line 33...
37 
 
 33 
 
38 
{$R *.DFM}
 34 
{$R *.DFM}
39 
 
 35 
 
40 
procedure TLevelForm.Aktualisieren;
 36 
procedure TLevelForm.Aktualisieren;
41 
begin
 37 
begin
42 
  Groesse.Position := MainForm.ScrollBar.Max;
 38 
  Groesse.Value := MainForm.ScrollBar.Max;
43 
end;
 39 
end;
44 
 
 40 
 
45 
procedure TLevelForm.ElPopupButton1Click(Sender: TObject);
 41 
procedure TLevelForm.ElPopupButton1Click(Sender: TObject);
46 
begin
 42 
begin
47 
  MainForm.ScrollBar.Max := Groesse.Position;
 43 
  MainForm.ScrollBar.Max := Groesse.Value;
48 
  MainForm.AnzeigeAct;
 44 
  MainForm.AnzeigeAct;
49 
  close;
 45 
  close;
50 
end;
 46 
end;
51 
 
 47 
 
52 
procedure TLevelForm.ElPopupButton2Click(Sender: TObject);
 48 
procedure TLevelForm.ElPopupButton2Click(Sender: TObject);
Line 62... Line 58...
62 
procedure TLevelForm.FormShow(Sender: TObject);
 58 
procedure TLevelForm.FormShow(Sender: TObject);
63 
begin
 59 
begin
64 
  mainform.dxtimer.enabled := false;
 60 
  mainform.dxtimer.enabled := false;
65 
end;
 61 
end;
66 
 
 62 
 
67 
procedure TLevelForm.GroesseClick(Sender: TObject; Button: TUDBtnType);
 - 
 
68 
begin
 - 
 
69 
  groesseedt.Text := inttostr(groesse.position);
 - 
 
70 
end;
 - 
 
71 
 
 - 
 
72 
procedure TLevelForm.GroesseEdtKeyPress(Sender: TObject; var Key: Char);
 - 
 
73 
begin
 - 
 
74 
  {$IFDEF UNICODE}
 - 
 
75 
  if not CharInSet(Key, [#13, #08, '0'..'9']) then
 - 
 
76 
  {$ELSE}
 - 
 
77 
  if not (Key in [#13, #08, '0'..'9']) then
 - 
 
78 
  {$ENDIF}
 - 
 
79 
    Key := #0;
 - 
 
80 
end;
 - 
 
81 
 
 - 
 
82 
procedure TLevelForm.GroesseEdtChange(Sender: TObject);
 - 
 
83 
begin
 - 
 
84 
  groesse.Position := strtoint(groesseedt.text);
 - 
 
85 
end;
 - 
 
86 
 
 - 
 
87 
end.
 63 
end.