ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/services/ShutdownDatabaseDlgUnit.lfm
Revision: 143
Committed: Fri Feb 23 12:11:21 2018 UTC (6 years, 8 months ago) by tony
File size: 1033 byte(s)
Log Message:
Fixes Merged

File Contents

# User Rev Content
1 tony 143 object ShutdownDatabaseDlg: TShutdownDatabaseDlg
2     Left = 2067
3     Height = 113
4     Top = 326
5     Width = 338
6     BorderStyle = bsNone
7     Caption = 'ShutdownDatabaseDlg'
8     ClientHeight = 113
9     ClientWidth = 338
10     OnShow = FormShow
11     Position = poScreenCenter
12     LCLVersion = '1.8.1.0'
13     object StatusMsg: TLabel
14     Left = 24
15     Height = 14
16     Top = 16
17     Width = 304
18     Alignment = taCenter
19     AutoSize = False
20     Caption = 'StatusMsg'
21     ParentColor = False
22     end
23     object ProgressBar1: TProgressBar
24     Left = 58
25     Height = 20
26     Top = 41
27     Width = 237
28     Style = pbstMarquee
29     TabOrder = 0
30     end
31     object CloseBtn: TButton
32     Left = 139
33     Height = 28
34     Top = 72
35     Width = 75
36     Cancel = True
37     Caption = 'Cancel'
38     ModalResult = 11
39     OnClick = CloseBtnClick
40     TabOrder = 1
41     end
42     object Bevel1: TBevel
43     Left = 0
44     Height = 113
45     Top = 0
46     Width = 338
47     Align = alClient
48     end
49     object IBConfigService: TIBConfigService
50     Protocol = TCP
51     TraceFlags = []
52     left = 253
53     top = 64
54     end
55     end