ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/services/ShutdownRegDlgUnit.lfm
Revision: 218
Committed: Fri Mar 16 11:08:20 2018 UTC (6 years, 9 months ago) by tony
File size: 2143 byte(s)
Log Message:
Fixes Merged

File Contents

# User Rev Content
1 tony 143 object ShutdownReqDlg: TShutdownReqDlg
2 tony 218 Left = 1350
3 tony 143 Height = 198
4 tony 218 Top = 612
5 tony 143 Width = 425
6     BorderStyle = bsDialog
7     Caption = 'Database Shutdown'
8     ClientHeight = 198
9     ClientWidth = 425
10     OnShow = FormShow
11     Position = poMainFormCenter
12 tony 218 LCLVersion = '1.8.3.0'
13 tony 143 object Bevel1: TBevel
14     Left = 8
15     Height = 176
16     Top = 8
17     Width = 328
18     Shape = bsFrame
19     end
20     object Label1: TLabel
21     Left = 24
22     Height = 14
23     Top = 24
24     Width = 95
25     Caption = 'Database Name'
26     ParentColor = False
27     end
28     object Label2: TLabel
29     Left = 24
30     Height = 14
31     Top = 152
32     Width = 119
33     Caption = '&Delay Shutdown for'
34     FocusControl = Delay
35     ParentColor = False
36     end
37     object Label3: TLabel
38     Left = 208
39     Height = 14
40     Top = 152
41     Width = 51
42     Caption = 'Seconds'
43     ParentColor = False
44     end
45     object OKBtn: TButton
46     Left = 344
47     Height = 28
48     Top = 8
49     Width = 75
50     Caption = 'OK'
51     Default = True
52     ModalResult = 1
53     TabOrder = 0
54     end
55     object CancelBtn: TButton
56     Left = 344
57     Height = 28
58     Top = 40
59     Width = 75
60     Cancel = True
61     Caption = 'Cancel'
62     ModalResult = 2
63     TabOrder = 1
64     end
65     object DatabaseName: TEdit
66     Left = 24
67     Height = 24
68     Top = 40
69     Width = 296
70     TabOrder = 2
71     Text = 'DatabaseName'
72     end
73     object ShutdownOptions: TRadioGroup
74     Left = 24
75     Height = 65
76     Top = 72
77     Width = 304
78     AutoFill = True
79     Caption = 'Options'
80     ChildSizing.LeftRightSpacing = 6
81     ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
82     ChildSizing.EnlargeVertical = crsHomogenousChildResize
83     ChildSizing.ShrinkHorizontal = crsScaleChilds
84     ChildSizing.ShrinkVertical = crsScaleChilds
85     ChildSizing.Layout = cclLeftToRightThenTopToBottom
86     ChildSizing.ControlsPerLine = 2
87     ClientHeight = 50
88     ClientWidth = 302
89     Columns = 2
90     ItemIndex = 0
91     Items.Strings = (
92     '&Forced '
93     'Deny &Transactions '
94     'Deny &Attachments '
95     )
96     TabOrder = 3
97     end
98     object Delay: TEdit
99     Left = 152
100     Height = 24
101     Top = 148
102     Width = 49
103     NumbersOnly = True
104     TabOrder = 4
105     Text = 'Delay'
106     end
107     end