-
Notifications
You must be signed in to change notification settings - Fork 19
/
unInputEx.pas
76 lines (64 loc) · 1.38 KB
/
unInputEx.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
unit unInputEx;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TntStdCtrls, ExtCtrls, TntForms;
type
TfmInputEx = class(TTntForm)
lab1: TTntLabel;
ed1: TTntEdit;
lab2: TTntLabel;
ed2: TTntEdit;
lab3: TTntLabel;
ed3: TTntEdit;
lab4: TTntLabel;
ed4: TTntEdit;
lab5: TTntLabel;
ed5: TTntEdit;
lab6: TTntLabel;
ed6: TTntEdit;
lab7: TTntLabel;
ed7: TTntEdit;
lab8: TTntLabel;
ed8: TTntEdit;
lab9: TTntLabel;
ed9: TTntEdit;
lab10: TTntLabel;
ed10: TTntEdit;
Panel1: TPanel;
btnOK: TTntButton;
btnCancel: TTntButton;
private
{ Private declarations }
public
{ Public declarations }
procedure SetSize(N: Integer);
end;
implementation
{$R *.dfm}
{ TfmInputEx }
procedure TfmInputEx.SetSize(N: Integer);
begin
if not ((N>=1) and (N<=10)) then
N:= 1;
ed2.Visible:= N>=2;
ed3.Visible:= N>=3;
ed4.Visible:= N>=4;
ed5.Visible:= N>=5;
ed6.Visible:= N>=6;
ed7.Visible:= N>=7;
ed8.Visible:= N>=8;
ed9.Visible:= N>=9;
ed10.Visible:= N>=10;
lab2.Visible:= N>=2;
lab3.Visible:= N>=3;
lab4.Visible:= N>=4;
lab5.Visible:= N>=5;
lab6.Visible:= N>=6;
lab7.Visible:= N>=7;
lab8.Visible:= N>=8;
lab9.Visible:= N>=9;
lab10.Visible:= N>=10;
ClientHeight:= (ed1.Top+ed1.Height) * N + Panel1.Height;
end;
end.