examples/services/Unit3.lfm

object Form3: TForm3
  Left = 401
  Height = 270
  Top = 193
  Width = 358
  Caption = 'Restore Database'
  ClientHeight = 270
  ClientWidth = 358
  OnClose = FormClose
  OnShow = FormShow
  Position = poMainFormCenter
  LCLVersion = '1.6.0.4'
  object Bevel1: TBevel
    Left = 3
    Height = 230
    Top = 2
    Width = 347
  end
  object Label2: TLabel
    Left = 12
    Height = 15
    Top = 7
    Width = 39
    Caption = 'Server'
    ParentColor = False
  end
  object Edit1: TEdit
    Left = 12
    Height = 25
    Top = 24
    Width = 180
    ReadOnly = True
    TabOrder = 0
  end
  object Label1: TLabel
    Left = 12
    Height = 15
    Top = 64
    Width = 95
    Caption = 'Database Name'
    ParentColor = False
  end
  object Edit2: TEdit
    Left = 12
    Height = 25
    Top = 80
    Width = 296
    TabOrder = 1
  end
  object RadioButton1: TRadioButton
    Left = 12
    Height = 22
    Top = 122
    Width = 93
    Caption = 'Server Side'
    Checked = True
    TabOrder = 2
    TabStop = True
  end
  object RadioButton2: TRadioButton
    Left = 134
    Height = 22
    Top = 122
    Width = 88
    Caption = 'Client Side'
    TabOrder = 3
  end
  object Label3: TLabel
    Left = 12
    Height = 15
    Top = 160
    Width = 68
    Caption = 'Backup File'
    ParentColor = False
  end
  object Edit3: TEdit
    Left = 12
    Height = 25
    Top = 176
    Width = 288
    TabOrder = 4
  end
  object SpeedButton1: TSpeedButton
    Left = 310
    Height = 25
    Top = 176
    Width = 25
    Glyph.Data = {
      36040000424D3604000000000000360000002800000010000000100000000100
      2000000000000004000064000000640000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00002D88D8FF2D87D8FF2D88D8FF2D88D8FF2D88D8FF2D88D8FF2D88D8FF2D88
      D8FF2D88D8FF2D88D8FF2D87D8FF2D88D8FF2C86D8FF0000000000000000338E
      D9FFDCF0FAFFA7DDF4FF9EDBF4FF96DAF3FF8ED8F3FF86D7F3FF7FD4F2FF79D3
      F2FF72D2F1FF6CD0F1FF69CFF1FFC2EAF8FF338ED9FF00000000000000003594
      DAFFEFFAFEFFA1E9F9FF91E5F8FF81E1F7FF72DEF6FF63DAF5FF54D7F4FF47D3
      F3FF39D0F2FF2ECDF1FF26CBF0FFCAF2FBFF3594DAFF0000000000000000369A
      DAFFF2FAFDFFB3EDFAFFA4E9F9FF95E6F8FF85E2F7FF76DEF6FF65DBF5FF57D7
      F4FF49D4F3FF3BD1F2FF30CEF1FFCCF2FBFF3598DAFF000000000000000036A1
      DAFFF6FCFEFFC8F2FCFFB9EFFBFFACECFAFF9CE8F9FF8BE3F7FF7CE0F6FF6CDC
      F6FF5DD9F5FF4FD6F4FF44D3F3FFD0F3FCFF359FDAFF000000000000000037A6
      DAFFFEFFFFFFF8FDFFFFF6FDFFFFF5FCFFFFF3FCFEFFD8F6FCFF94E6F8FF85E3
      F7FF76DFF6FF68DBF5FF5CD8F4FFD7F4FCFF35A4DAFF000000000000000035AB
      DAFFE8F6FBFF94D4EFFF88CEEEFF73C1E9FFC9E9F6FFF2FCFEFFF3FCFEFFF2FC
      FEFFF0FCFEFFEFFBFEFFEEFBFEFFFEFFFFFF36ABDAFF000000000000000036AA
      DAFFF1FAFDFF94DEF5FF93DCF4FF81D5F2FF6ACAEDFF6CCBEAFF85D3EFFF80D2
      EFFF7AD0EFFF76CFEEFF72CFEEFFE9F7FBFF34AEDAFF000000000000000035AF
      DAFFF7FCFEFF8EE4F8FF91DEF5FF9FE0F5FFACE1F6FFEFFBFEFFF4FDFEFFF3FC
      FEFFF1FCFEFFEFFBFEFFEEFBFEFFFAFDFFFF36AFDAFF000000000000000036B3
      DAFFFDFEFEFFFEFFFFFFFEFEFFFFFDFEFFFFFEFFFFFFEAF7FBFF6BC7E4FF6BC7
      E3FF6BC7E3FF6BC7E3FF79CDE6FF74CAE5FF00000000000000000000000034B4
      D9FF5EC2E1FF60C3E2FF60C3E2FF60C3E2FF5FC3E2FF3CB6DBFF000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000
    }
    OnClick = SpeedButton1Click
  end
  object Button1: TButton
    Left = 96
    Height = 25
    Top = 236
    Width = 75
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 5
  end
  object Button2: TButton
    Left = 191
    Height = 25
    Top = 236
    Width = 75
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 6
  end
  object CheckBox1: TCheckBox
    Left = 12
    Height = 22
    Top = 208
    Width = 182
    Caption = 'Replace Existing Database'
    TabOrder = 7
  end
  object OpenDialog1: TOpenDialog
    Title = 'Open existing backup file'
    DefaultExt = '.gbk'
    Filter = 'Backup Files|*.gbk|All Files|*.*'
    Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
    left = 312
    top = 136
  end
  object IBRestoreService1: TIBRestoreService
    ServerName = 'localhost'
    Protocol = TCP
    Params.Strings = (
      'user_name=SYSDBA'
    )
    TraceFlags = []
    Verbose = True
    DatabaseName.Strings = (
      '/tmp/mytest.fdb'
    )
    PageSize = 0
    PageBuffers = 0
    left = 306
    top = 232
  end
end
Revision:	45
Committed:	Tue Dec 6 10:33:46 2016 UTC (7 years, 4 months ago) by tony
File size:	5030 byte(s)
Log Message:	Committing updates for Release R2-0-0
#	User	Rev	Content
1	tony	45	object Form3: TForm3
2			Left = 401
3			Height = 270
4			Top = 193
5			Width = 358
6			Caption = 'Restore Database'
7			ClientHeight = 270
8			ClientWidth = 358
9			OnClose = FormClose
10			OnShow = FormShow
11			Position = poMainFormCenter
12			LCLVersion = '1.6.0.4'
13			object Bevel1: TBevel
14			Left = 3
15			Height = 230
16			Top = 2
17			Width = 347
18			end
19			object Label2: TLabel
20			Left = 12
21			Height = 15
22			Top = 7
23			Width = 39
24			Caption = 'Server'
25			ParentColor = False
26			end
27			object Edit1: TEdit
28			Left = 12
29			Height = 25
30			Top = 24
31			Width = 180
32			ReadOnly = True
33			TabOrder = 0
34			end
35			object Label1: TLabel
36			Left = 12
37			Height = 15
38			Top = 64
39			Width = 95
40			Caption = 'Database Name'
41			ParentColor = False
42			end
43			object Edit2: TEdit
44			Left = 12
45			Height = 25
46			Top = 80
47			Width = 296
48			TabOrder = 1
49			end
50			object RadioButton1: TRadioButton
51			Left = 12
52			Height = 22
53			Top = 122
54			Width = 93
55			Caption = 'Server Side'
56			Checked = True
57			TabOrder = 2
58			TabStop = True
59			end
60			object RadioButton2: TRadioButton
61			Left = 134
62			Height = 22
63			Top = 122
64			Width = 88
65			Caption = 'Client Side'
66			TabOrder = 3
67			end
68			object Label3: TLabel
69			Left = 12
70			Height = 15
71			Top = 160
72			Width = 68
73			Caption = 'Backup File'
74			ParentColor = False
75			end
76			object Edit3: TEdit
77			Left = 12
78			Height = 25
79			Top = 176
80			Width = 288
81			TabOrder = 4
82			end
83			object SpeedButton1: TSpeedButton
84			Left = 310
85			Height = 25
86			Top = 176
87			Width = 25
88			Glyph.Data = {
89			36040000424D3604000000000000360000002800000010000000100000000100
90			2000000000000004000064000000640000000000000000000000000000000000
91			0000000000000000000000000000000000000000000000000000000000000000
92			0000000000000000000000000000000000000000000000000000000000000000
93			0000000000000000000000000000000000000000000000000000000000000000
94			0000000000000000000000000000000000000000000000000000000000000000
95			00002D88D8FF2D87D8FF2D88D8FF2D88D8FF2D88D8FF2D88D8FF2D88D8FF2D88
96			D8FF2D88D8FF2D88D8FF2D87D8FF2D88D8FF2C86D8FF0000000000000000338E
97			D9FFDCF0FAFFA7DDF4FF9EDBF4FF96DAF3FF8ED8F3FF86D7F3FF7FD4F2FF79D3
98			F2FF72D2F1FF6CD0F1FF69CFF1FFC2EAF8FF338ED9FF00000000000000003594
99			DAFFEFFAFEFFA1E9F9FF91E5F8FF81E1F7FF72DEF6FF63DAF5FF54D7F4FF47D3
100			F3FF39D0F2FF2ECDF1FF26CBF0FFCAF2FBFF3594DAFF0000000000000000369A
101			DAFFF2FAFDFFB3EDFAFFA4E9F9FF95E6F8FF85E2F7FF76DEF6FF65DBF5FF57D7
102			F4FF49D4F3FF3BD1F2FF30CEF1FFCCF2FBFF3598DAFF000000000000000036A1
103			DAFFF6FCFEFFC8F2FCFFB9EFFBFFACECFAFF9CE8F9FF8BE3F7FF7CE0F6FF6CDC
104			F6FF5DD9F5FF4FD6F4FF44D3F3FFD0F3FCFF359FDAFF000000000000000037A6
105			DAFFFEFFFFFFF8FDFFFFF6FDFFFFF5FCFFFFF3FCFEFFD8F6FCFF94E6F8FF85E3
106			F7FF76DFF6FF68DBF5FF5CD8F4FFD7F4FCFF35A4DAFF000000000000000035AB
107			DAFFE8F6FBFF94D4EFFF88CEEEFF73C1E9FFC9E9F6FFF2FCFEFFF3FCFEFFF2FC
108			FEFFF0FCFEFFEFFBFEFFEEFBFEFFFEFFFFFF36ABDAFF000000000000000036AA
109			DAFFF1FAFDFF94DEF5FF93DCF4FF81D5F2FF6ACAEDFF6CCBEAFF85D3EFFF80D2
110			EFFF7AD0EFFF76CFEEFF72CFEEFFE9F7FBFF34AEDAFF000000000000000035AF
111			DAFFF7FCFEFF8EE4F8FF91DEF5FF9FE0F5FFACE1F6FFEFFBFEFFF4FDFEFFF3FC
112			FEFFF1FCFEFFEFFBFEFFEEFBFEFFFAFDFFFF36AFDAFF000000000000000036B3
113			DAFFFDFEFEFFFEFFFFFFFEFEFFFFFDFEFFFFFEFFFFFFEAF7FBFF6BC7E4FF6BC7
114			E3FF6BC7E3FF6BC7E3FF79CDE6FF74CAE5FF00000000000000000000000034B4
115			D9FF5EC2E1FF60C3E2FF60C3E2FF60C3E2FF5FC3E2FF3CB6DBFF000000000000
116			0000000000000000000000000000000000000000000000000000000000000000
117			0000000000000000000000000000000000000000000000000000000000000000
118			0000000000000000000000000000000000000000000000000000000000000000
119			0000000000000000000000000000000000000000000000000000000000000000
120			0000000000000000000000000000000000000000000000000000000000000000
121			0000000000000000000000000000000000000000000000000000000000000000
122			0000000000000000000000000000000000000000000000000000
123			}
124			OnClick = SpeedButton1Click
125			end
126			object Button1: TButton
127			Left = 96
128			Height = 25
129			Top = 236
130			Width = 75
131			Caption = 'OK'
132			Default = True
133			ModalResult = 1
134			TabOrder = 5
135			end
136			object Button2: TButton
137			Left = 191
138			Height = 25
139			Top = 236
140			Width = 75
141			Cancel = True
142			Caption = 'Cancel'
143			ModalResult = 2
144			TabOrder = 6
145			end
146			object CheckBox1: TCheckBox
147			Left = 12
148			Height = 22
149			Top = 208
150			Width = 182
151			Caption = 'Replace Existing Database'
152			TabOrder = 7
153			end
154			object OpenDialog1: TOpenDialog
155			Title = 'Open existing backup file'
156			DefaultExt = '.gbk'
157			Filter = 'Backup Files\|.gbk\|All Files\|.*'
158			Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
159			left = 312
160			top = 136
161			end
162			object IBRestoreService1: TIBRestoreService
163			ServerName = 'localhost'
164			Protocol = TCP
165			Params.Strings = (
166			'user_name=SYSDBA'
167			)
168			TraceFlags = []
169			Verbose = True
170			DatabaseName.Strings = (
171			'/tmp/mytest.fdb'
172			)
173			PageSize = 0
174			PageBuffers = 0
175			left = 306
176			top = 232
177			end
178			end