ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/examples/services/LimboTransactionsUnit.lfm

Comparing ibx/trunk/examples/services/LimboTransactionsUnit.lfm (file contents):
Revision 86 by tony, Mon Jan 1 11:31:23 2018 UTC vs.
Revision 147 by tony, Mon Feb 26 11:14:30 2018 UTC

#	Line 1 | Line 1
1		object LimboTransactionsForm: TLimboTransactionsForm
2	<	Left = 236
3	<	Height = 386
4	<	Top = 485
5	<	Width = 798
2	>	Left = 592
3	>	Height = 535
4	>	Top = 346
5	>	Width = 822
6		Caption = 'Limbo Transactions'
7	<	ClientHeight = 386
8	<	ClientWidth = 798
7	>	ClientHeight = 535
8	>	ClientWidth = 822
9	>	OnClose = FormClose
10		OnShow = FormShow
11		Position = poMainFormCenter
12		LCLVersion = '1.8.1.0'
13	<	object Label1: TLabel
14	<	Left = 14
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 = 12
52	>	Top = 8
53		Width = 74
54		Caption = 'Transactions'
55		ParentColor = False
56		end
57	<	object StringGrid1: TStringGrid
58	<	Left = 16
59	<	Height = 316
60	<	Top = 28
61	<	Width = 764
62	<	Anchors = [akTop, akLeft, akRight, akBottom]
63	<	AutoFillColumns = True
27	<	ColCount = 8
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 = 'Transaction ID'
69	<	Width = 95
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 = 95
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 = 95
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 = 95
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 = 95
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 = 95
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 = 95
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 = (
#	Line 67 | Line 152 | object LimboTransactionsForm: TLimboTran
152		'Rollback'
153		)
154		Title.Alignment = taCenter
155	<	Title.Caption = 'Action'
156	<	Width = 97
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	<	FixedCols = 0
165	<	Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
166	<	ScrollBars = ssAutoVertical
167	<	TabOrder = 0
168	<	OnEditingDone = StringGrid1EditingDone
169	<	ColWidths = (
170	<	95
171	<	95
81	<	95
82	<	95
83	<	95
84	<	95
85	<	95
86	<	97
87	<	)
88	<	end
89	<	object Button1: TButton
90	<	Left = 16
91	<	Height = 25
92	<	Top = 352
93	<	Width = 100
94	<	Anchors = [akLeft, akBottom]
95	<	Caption = 'Commit All'
96	<	OnClick = Button1Click
97	<	TabOrder = 1
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 Button2: TButton
174	<	Left = 128
175	<	Height = 25
176	<	Top = 352
177	<	Width = 100
178	<	Anchors = [akLeft, akBottom]
179	<	Caption = 'Rollback All'
106	<	OnClick = Button2Click
107	<	TabOrder = 2
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 Button3: TButton
182	<	Left = 368
183	<	Height = 25
184	<	Top = 352
185	<	Width = 144
186	<	Anchors = [akLeft, akBottom]
187	<	Caption = 'Apply Selected Action'
188	<	OnClick = Button3Click
189	<	TabOrder = 3
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 Button4: TButton
193	<	Left = 233
192	>	object Button5: TButton
193	>	Left = 736
194		Height = 25
195	<	Top = 352
196	<	Width = 127
197	<	Anchors = [akLeft, akBottom]
198	<	Caption = 'Commit 2 Phase All'
199	<	OnClick = Button4Click
200	<	TabOrder = 4
195	>	Top = 501
196	>	Width = 75
197	>	Anchors = [akTop, akRight]
198	>	Caption = 'Close'
199	>	ModalResult = 11
200	>	TabOrder = 6
201		end
202	<	object IBValidationService1: TIBValidationService
202	>	object LimboTransactionValidation: TIBValidationService
203		ServerName = 'localhost'
204		Protocol = TCP
205		TraceFlags = []
#	Line 136 | Line 209 | object LimboTransactionsForm: TLimboTran
209		left = 726
210		top = 302
211		end
212	+	object LimboListSource: TDataSource
213	+	DataSet = InLimboList
214	+	left = 580
215	+	top = 204
216	+	end
217	+	object InLimboList: TMemDataset
218	+	FieldDefs = <
219	+	item
220	+	Name = 'TransactionID'
221	+	DataType = ftInteger
222	+	end
223	+	item
224	+	Name = 'TransactionType'
225	+	DataType = ftString
226	+	Size = 16
227	+	end
228	+	item
229	+	Name = 'HostSite'
230	+	DataType = ftString
231	+	Size = 256
232	+	end
233	+	item
234	+	Name = 'RemoteSite'
235	+	DataType = ftString
236	+	Size = 256
237	+	end
238	+	item
239	+	Name = 'DatabasePath'
240	+	DataType = ftString
241	+	Size = 256
242	+	end
243	+	item
244	+	Name = 'State'
245	+	DataType = ftString
246	+	Size = 32
247	+	end
248	+	item
249	+	Name = 'RecommendedAction'
250	+	DataType = ftString
251	+	Size = 32
252	+	end
253	+	item
254	+	Name = 'RequestedAction'
255	+	DataType = ftString
256	+	Size = 32
257	+	end>
258	+	AfterOpen = InLimboListAfterOpen
259	+	BeforeClose = InLimboListBeforeClose
260	+	BeforePost = InLimboListBeforePost
261	+	left = 680
262	+	top = 208
263	+	end
264	+	object ActionList1: TActionList
265	+	left = 576
266	+	top = 304
267	+	object CommitAll: TAction
268	+	Caption = 'Commit All'
269	+	OnExecute = CommitAllExecute
270	+	OnUpdate = CommitAllUpdate
271	+	end
272	+	object RollbackAll: TAction
273	+	Caption = 'Rollback All'
274	+	OnExecute = RollbackAllExecute
275	+	OnUpdate = CommitAllUpdate
276	+	end
277	+	object Commit2PhaseAll: TAction
278	+	Caption = 'Commit 2 Phase All'
279	+	OnExecute = Commit2PhaseAllExecute
280	+	OnUpdate = CommitAllUpdate
281	+	end
282	+	object ApplySelectedAction: TAction
283	+	Caption = 'Apply Selected Action'
284	+	OnExecute = ApplySelectedActionExecute
285	+	OnUpdate = CommitAllUpdate
286	+	end
287	+	end
288		end

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines