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

File Contents

# User Rev Content
1 tony 143 object ShutdownDatabaseDlg: TShutdownDatabaseDlg
2 tony 218 Left = 1320
3 tony 143 Height = 113
4 tony 218 Top = 339
5 tony 143 Width = 338
6     BorderStyle = bsNone
7     Caption = 'ShutdownDatabaseDlg'
8     ClientHeight = 113
9     ClientWidth = 338
10     OnShow = FormShow
11     Position = poScreenCenter
12 tony 209 LCLVersion = '1.8.3.0'
13 tony 143 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 tony 209 object IBConfigService: TIBXConfigService
50     ServicesConnection = MainForm.IBXServicesConnection1
51 tony 143 TraceFlags = []
52 tony 209 left = 258
53     top = 63
54 tony 143 end
55     end