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 ago) by tony
File size: 2143 byte(s)
Log Message:
Fixes Merged

File Contents

# Content
1 object ShutdownReqDlg: TShutdownReqDlg
2 Left = 1350
3 Height = 198
4 Top = 612
5 Width = 425
6 BorderStyle = bsDialog
7 Caption = 'Database Shutdown'
8 ClientHeight = 198
9 ClientWidth = 425
10 OnShow = FormShow
11 Position = poMainFormCenter
12 LCLVersion = '1.8.3.0'
13 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