examples/services/LimboTransactionsUnit.lfm

object LimboTransactionsForm: TLimboTransactionsForm
  Left = 592
  Height = 535
  Top = 346
  Width = 822
  Caption = 'Limbo Transactions'
  ClientHeight = 535
  ClientWidth = 822
  OnClose = FormClose
  OnShow = FormShow
  Position = poMainFormCenter
  LCLVersion = '1.8.3.0'
  object Button1: TButton
    Left = 16
    Height = 25
    Top = 501
    Width = 100
    Action = CommitAll
    Anchors = [akLeft, akBottom]
    TabOrder = 0
  end
  object Button2: TButton
    Left = 128
    Height = 25
    Top = 501
    Width = 100
    Action = RollbackAll
    Anchors = [akLeft, akBottom]
    TabOrder = 1
  end
  object Button3: TButton
    Left = 368
    Height = 25
    Top = 501
    Width = 144
    Action = ApplySelectedAction
    Anchors = [akLeft, akBottom]
    TabOrder = 2
  end
  object Button4: TButton
    Left = 233
    Height = 25
    Top = 501
    Width = 127
    Action = Commit2PhaseAll
    Anchors = [akLeft, akBottom]
    TabOrder = 3
  end
  object Label38: TLabel
    Left = 12
    Height = 14
    Top = 8
    Width = 74
    Caption = 'Transactions'
    ParentColor = False
  end
  object IBDynamicGrid3: TIBDynamicGrid
    Left = 12
    Height = 242
    Top = 24
    Width = 804
    Anchors = [akTop, akLeft, akRight]
    Color = clWindow
    Columns = <    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'ID'
        Width = 60
        FieldName = 'TransactionID'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'Type'
        Width = 80
        FieldName = 'TransactionType'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'Host Site'
        Width = 100
        FieldName = 'HostSite'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'Remote Site'
        Width = 100
        FieldName = 'RemoteSite'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'Database Path'
        Width = 150
        FieldName = 'DatabasePath'
        AutoSizeColumn = True
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'State'
        Width = 80
        FieldName = 'State'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'Rec. Action'
        Width = 100
        FieldName = 'RecommendedAction'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        PickList.Strings = (
          'Commit'
          'Rollback'
        )
        Title.Alignment = taCenter
        Title.Caption = 'Req. Action'
        Width = 100
        FieldName = 'RequestedAction'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end>
    DataSource = LimboListSource
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
    Scrollbars = ssAutoVertical
    TabOrder = 4
    ExpandEditorPanelBelowRow = False
    Descending = False
    EditorBorderStyle = bsSingle
    DefaultPositionAtEnd = False
  end
  object Label39: TLabel
    Left = 12
    Height = 14
    Top = 280
    Width = 104
    Caption = 'Resolution Report'
    ParentColor = False
  end
  object LimboReport: TMemo
    Left = 12
    Height = 200
    Top = 296
    Width = 804
    Anchors = [akTop, akLeft, akRight, akBottom]
    Lines.Strings = (
      'LimboReport'
    )
    TabOrder = 5
  end
  object Button5: TButton
    Left = 736
    Height = 25
    Top = 501
    Width = 75
    Anchors = [akTop, akRight]
    Caption = 'Close'
    ModalResult = 11
    TabOrder = 6
  end
  object LimboListSource: TDataSource
    DataSet = InLimboList
    left = 580
    top = 204
  end
  object ActionList1: TActionList
    left = 576
    top = 304
    object CommitAll: TAction
      Caption = 'Commit All'
      OnExecute = CommitAllExecute
      OnUpdate = CommitAllUpdate
    end
    object RollbackAll: TAction
      Caption = 'Rollback All'
      OnExecute = RollbackAllExecute
      OnUpdate = CommitAllUpdate
    end
    object Commit2PhaseAll: TAction
      Caption = 'Commit 2 Phase All'
      OnExecute = Commit2PhaseAllExecute
      OnUpdate = CommitAllUpdate
    end
    object ApplySelectedAction: TAction
      Caption = 'Apply Selected Action'
      OnExecute = ApplySelectedActionExecute
      OnUpdate = CommitAllUpdate
    end
  end
  object IBXLimboTransactionResolutionService1: TIBXLimboTransactionResolutionService
    ServicesConnection = MainForm.IBXServicesConnection1
    TraceFlags = []
    GlobalAction = CommitGlobal
    left = 656
    top = 104
  end
  object InLimboList: TIBXServicesLimboTransactionsList
    FieldDefs = <    
      item
        Name = 'TransactionID'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'TransactionType'
        DataType = ftString
        Precision = -1
        Size = 16
      end    
      item
        Name = 'HostSite'
        DataType = ftString
        Precision = -1
        Size = 256
      end    
      item
        Name = 'RemoteSite'
        DataType = ftString
        Precision = -1
        Size = 256
      end    
      item
        Name = 'DatabasePath'
        DataType = ftString
        Precision = -1
        Size = 256
      end    
      item
        Name = 'State'
        DataType = ftString
        Precision = -1
        Size = 32
      end    
      item
        Name = 'RecommendedAction'
        DataType = ftString
        Precision = -1
        Size = 32
      end    
      item
        Name = 'RequestedAction'
        DataType = ftString
        Precision = -1
        Size = 32
      end>
    Source = IBXLimboTransactionResolutionService1
    left = 660
    top = 163
  end
end
Revision:	209
Committed:	Wed Mar 14 12:48:51 2018 UTC (6 years, 8 months ago) by tony
File size:	7855 byte(s)
Log Message:	Fixes Merged
#	Content
1	object LimboTransactionsForm: TLimboTransactionsForm
2	Left = 592
3	Height = 535
4	Top = 346
5	Width = 822
6	Caption = 'Limbo Transactions'
7	ClientHeight = 535
8	ClientWidth = 822
9	OnClose = FormClose
10	OnShow = FormShow
11	Position = poMainFormCenter
12	LCLVersion = '1.8.3.0'
13	object Button1: TButton
14	Left = 16
15	Height = 25
16	Top = 501
17	Width = 100
18	Action = CommitAll
19	Anchors = [akLeft, akBottom]
20	TabOrder = 0
21	end
22	object Button2: TButton
23	Left = 128
24	Height = 25
25	Top = 501
26	Width = 100
27	Action = RollbackAll
28	Anchors = [akLeft, akBottom]
29	TabOrder = 1
30	end
31	object Button3: TButton
32	Left = 368
33	Height = 25
34	Top = 501
35	Width = 144
36	Action = ApplySelectedAction
37	Anchors = [akLeft, akBottom]
38	TabOrder = 2
39	end
40	object Button4: TButton
41	Left = 233
42	Height = 25
43	Top = 501
44	Width = 127
45	Action = Commit2PhaseAll
46	Anchors = [akLeft, akBottom]
47	TabOrder = 3
48	end
49	object Label38: TLabel
50	Left = 12
51	Height = 14
52	Top = 8
53	Width = 74
54	Caption = 'Transactions'
55	ParentColor = False
56	end
57	object IBDynamicGrid3: TIBDynamicGrid
58	Left = 12
59	Height = 242
60	Top = 24
61	Width = 804
62	Anchors = [akTop, akLeft, akRight]
63	Color = clWindow
64	Columns = <
65	item
66	ReadOnly = True
67	Title.Alignment = taCenter
68	Title.Caption = 'ID'
69	Width = 60
70	FieldName = 'TransactionID'
71	AutoSizeColumn = False
72	InitialSortColumn = False
73	DBLookupProperties.ItemHeight = 0
74	DBLookupProperties.ItemWidth = 0
75	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
76	end
77	item
78	ReadOnly = True
79	Title.Alignment = taCenter
80	Title.Caption = 'Type'
81	Width = 80
82	FieldName = 'TransactionType'
83	AutoSizeColumn = False
84	InitialSortColumn = False
85	DBLookupProperties.ItemHeight = 0
86	DBLookupProperties.ItemWidth = 0
87	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
88	end
89	item
90	ReadOnly = True
91	Title.Alignment = taCenter
92	Title.Caption = 'Host Site'
93	Width = 100
94	FieldName = 'HostSite'
95	AutoSizeColumn = False
96	InitialSortColumn = False
97	DBLookupProperties.ItemHeight = 0
98	DBLookupProperties.ItemWidth = 0
99	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
100	end
101	item
102	ReadOnly = True
103	Title.Alignment = taCenter
104	Title.Caption = 'Remote Site'
105	Width = 100
106	FieldName = 'RemoteSite'
107	AutoSizeColumn = False
108	InitialSortColumn = False
109	DBLookupProperties.ItemHeight = 0
110	DBLookupProperties.ItemWidth = 0
111	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
112	end
113	item
114	ReadOnly = True
115	Title.Alignment = taCenter
116	Title.Caption = 'Database Path'
117	Width = 150
118	FieldName = 'DatabasePath'
119	AutoSizeColumn = True
120	InitialSortColumn = False
121	DBLookupProperties.ItemHeight = 0
122	DBLookupProperties.ItemWidth = 0
123	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
124	end
125	item
126	ReadOnly = True
127	Title.Alignment = taCenter
128	Title.Caption = 'State'
129	Width = 80
130	FieldName = 'State'
131	AutoSizeColumn = False
132	InitialSortColumn = False
133	DBLookupProperties.ItemHeight = 0
134	DBLookupProperties.ItemWidth = 0
135	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
136	end
137	item
138	ReadOnly = True
139	Title.Alignment = taCenter
140	Title.Caption = 'Rec. Action'
141	Width = 100
142	FieldName = 'RecommendedAction'
143	AutoSizeColumn = False
144	InitialSortColumn = False
145	DBLookupProperties.ItemHeight = 0
146	DBLookupProperties.ItemWidth = 0
147	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
148	end
149	item
150	PickList.Strings = (
151	'Commit'
152	'Rollback'
153	)
154	Title.Alignment = taCenter
155	Title.Caption = 'Req. Action'
156	Width = 100
157	FieldName = 'RequestedAction'
158	AutoSizeColumn = False
159	InitialSortColumn = False
160	DBLookupProperties.ItemHeight = 0
161	DBLookupProperties.ItemWidth = 0
162	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
163	end>
164	DataSource = LimboListSource
165	Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
166	Scrollbars = ssAutoVertical
167	TabOrder = 4
168	ExpandEditorPanelBelowRow = False
169	Descending = False
170	EditorBorderStyle = bsSingle
171	DefaultPositionAtEnd = False
172	end
173	object Label39: TLabel
174	Left = 12
175	Height = 14
176	Top = 280
177	Width = 104
178	Caption = 'Resolution Report'
179	ParentColor = False
180	end
181	object LimboReport: TMemo
182	Left = 12
183	Height = 200
184	Top = 296
185	Width = 804
186	Anchors = [akTop, akLeft, akRight, akBottom]
187	Lines.Strings = (
188	'LimboReport'
189	)
190	TabOrder = 5
191	end
192	object Button5: TButton
193	Left = 736
194	Height = 25
195	Top = 501
196	Width = 75
197	Anchors = [akTop, akRight]
198	Caption = 'Close'
199	ModalResult = 11
200	TabOrder = 6
201	end
202	object LimboListSource: TDataSource
203	DataSet = InLimboList
204	left = 580
205	top = 204
206	end
207	object ActionList1: TActionList
208	left = 576
209	top = 304
210	object CommitAll: TAction
211	Caption = 'Commit All'
212	OnExecute = CommitAllExecute
213	OnUpdate = CommitAllUpdate
214	end
215	object RollbackAll: TAction
216	Caption = 'Rollback All'
217	OnExecute = RollbackAllExecute
218	OnUpdate = CommitAllUpdate
219	end
220	object Commit2PhaseAll: TAction
221	Caption = 'Commit 2 Phase All'
222	OnExecute = Commit2PhaseAllExecute
223	OnUpdate = CommitAllUpdate
224	end
225	object ApplySelectedAction: TAction
226	Caption = 'Apply Selected Action'
227	OnExecute = ApplySelectedActionExecute
228	OnUpdate = CommitAllUpdate
229	end
230	end
231	object IBXLimboTransactionResolutionService1: TIBXLimboTransactionResolutionService
232	ServicesConnection = MainForm.IBXServicesConnection1
233	TraceFlags = []
234	GlobalAction = CommitGlobal
235	left = 656
236	top = 104
237	end
238	object InLimboList: TIBXServicesLimboTransactionsList
239	FieldDefs = <
240	item
241	Name = 'TransactionID'
242	DataType = ftInteger
243	Precision = -1
244	end
245	item
246	Name = 'TransactionType'
247	DataType = ftString
248	Precision = -1
249	Size = 16
250	end
251	item
252	Name = 'HostSite'
253	DataType = ftString
254	Precision = -1
255	Size = 256
256	end
257	item
258	Name = 'RemoteSite'
259	DataType = ftString
260	Precision = -1
261	Size = 256
262	end
263	item
264	Name = 'DatabasePath'
265	DataType = ftString
266	Precision = -1
267	Size = 256
268	end
269	item
270	Name = 'State'
271	DataType = ftString
272	Precision = -1
273	Size = 32
274	end
275	item
276	Name = 'RecommendedAction'
277	DataType = ftString
278	Precision = -1
279	Size = 32
280	end
281	item
282	Name = 'RequestedAction'
283	DataType = ftString
284	Precision = -1
285	Size = 32
286	end>
287	Source = IBXLimboTransactionResolutionService1
288	left = 660
289	top = 163
290	end
291	end