examples/services/LimboTransactionsUnit.lfm

object LimboTransactionsForm: TLimboTransactionsForm
  Left = 3303
  Height = 386
  Top = 324
  Width = 798
  Caption = 'Limbo Transactions'
  ClientHeight = 386
  ClientWidth = 798
  OnShow = FormShow
  LCLVersion = '1.8.0.5'
  object Label1: TLabel
    Left = 14
    Height = 14
    Top = 12
    Width = 74
    Caption = 'Transactions'
    ParentColor = False
  end
  object StringGrid1: TStringGrid
    Left = 16
    Height = 316
    Top = 28
    Width = 764
    Anchors = [akTop, akLeft, akRight, akBottom]
    AutoFillColumns = True
    ColCount = 8
    Columns = <    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Transaction ID'
        Width = 95
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Type'
        Width = 95
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Host Site'
        Width = 95
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Remote Site'
        Width = 95
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Database Path'
        Width = 95
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'State'
        Width = 95
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Rec. Action'
        Width = 95
      end    
      item
        PickList.Strings = (
          'Commit'
          'Rollback'
        )
        Title.Alignment = taCenter
        Title.Caption = 'Action'
        Width = 97
      end>
    FixedCols = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
    ScrollBars = ssAutoVertical
    TabOrder = 0
    OnEditingDone = StringGrid1EditingDone
    ColWidths = (
      95
      95
      95
      95
      95
      95
      95
      97
    )
  end
  object Button1: TButton
    Left = 16
    Height = 25
    Top = 352
    Width = 100
    Anchors = [akLeft, akBottom]
    Caption = 'Commit All'
    OnClick = Button1Click
    TabOrder = 1
  end
  object Button2: TButton
    Left = 128
    Height = 25
    Top = 352
    Width = 100
    Anchors = [akLeft, akBottom]
    Caption = 'Rollback All'
    OnClick = Button2Click
    TabOrder = 2
  end
  object Button3: TButton
    Left = 368
    Height = 25
    Top = 352
    Width = 144
    Anchors = [akLeft, akBottom]
    Caption = 'Apply Selected Action'
    OnClick = Button3Click
    TabOrder = 3
  end
  object Button4: TButton
    Left = 233
    Height = 25
    Top = 352
    Width = 127
    Anchors = [akLeft, akBottom]
    Caption = 'Commit 2 Phase All'
    OnClick = Button4Click
    TabOrder = 4
  end
  object IBValidationService1: TIBValidationService
    ServerName = 'localhost'
    Protocol = TCP
    TraceFlags = []
    DatabaseName = 'employee'
    Options = [LimboTransactions]
    GlobalAction = CommitGlobal
    left = 726
    top = 302
  end
end
Revision:	80
Committed:	Mon Jan 1 11:31:07 2018 UTC (6 years, 11 months ago) by tony
File size:	2962 byte(s)
Log Message:	Fixes merged into public release
#	User	Rev	Content
1	tony	45	object LimboTransactionsForm: TLimboTransactionsForm
2	tony	80	Left = 3303
3	tony	45	Height = 386
4	tony	80	Top = 324
5	tony	45	Width = 798
6			Caption = 'Limbo Transactions'
7			ClientHeight = 386
8			ClientWidth = 798
9			OnShow = FormShow
10	tony	80	LCLVersion = '1.8.0.5'
11	tony	45	object Label1: TLabel
12			Left = 14
13	tony	80	Height = 14
14	tony	45	Top = 12
15			Width = 74
16			Caption = 'Transactions'
17			ParentColor = False
18			end
19			object StringGrid1: TStringGrid
20			Left = 16
21			Height = 316
22			Top = 28
23			Width = 764
24			Anchors = [akTop, akLeft, akRight, akBottom]
25			AutoFillColumns = True
26			ColCount = 8
27			Columns = <
28			item
29			Title.Alignment = taCenter
30			Title.Caption = 'Transaction ID'
31			Width = 95
32			end
33			item
34			Title.Alignment = taCenter
35			Title.Caption = 'Type'
36			Width = 95
37			end
38			item
39			Title.Alignment = taCenter
40			Title.Caption = 'Host Site'
41			Width = 95
42			end
43			item
44			Title.Alignment = taCenter
45			Title.Caption = 'Remote Site'
46			Width = 95
47			end
48			item
49			Title.Alignment = taCenter
50			Title.Caption = 'Database Path'
51			Width = 95
52			end
53			item
54			Title.Alignment = taCenter
55			Title.Caption = 'State'
56			Width = 95
57			end
58			item
59			Title.Alignment = taCenter
60			Title.Caption = 'Rec. Action'
61			Width = 95
62			end
63			item
64			PickList.Strings = (
65			'Commit'
66			'Rollback'
67			)
68			Title.Alignment = taCenter
69			Title.Caption = 'Action'
70			Width = 97
71			end>
72			FixedCols = 0
73			Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
74			ScrollBars = ssAutoVertical
75			TabOrder = 0
76			OnEditingDone = StringGrid1EditingDone
77			ColWidths = (
78			95
79			95
80			95
81			95
82			95
83			95
84			95
85			97
86			)
87			end
88			object Button1: TButton
89			Left = 16
90			Height = 25
91			Top = 352
92			Width = 100
93			Anchors = [akLeft, akBottom]
94			Caption = 'Commit All'
95			OnClick = Button1Click
96			TabOrder = 1
97			end
98			object Button2: TButton
99			Left = 128
100			Height = 25
101			Top = 352
102			Width = 100
103			Anchors = [akLeft, akBottom]
104			Caption = 'Rollback All'
105			OnClick = Button2Click
106			TabOrder = 2
107			end
108			object Button3: TButton
109			Left = 368
110			Height = 25
111			Top = 352
112			Width = 144
113			Anchors = [akLeft, akBottom]
114			Caption = 'Apply Selected Action'
115			OnClick = Button3Click
116			TabOrder = 3
117			end
118			object Button4: TButton
119			Left = 233
120			Height = 25
121			Top = 352
122			Width = 127
123			Anchors = [akLeft, akBottom]
124			Caption = 'Commit 2 Phase All'
125			OnClick = Button4Click
126			TabOrder = 4
127			end
128			object IBValidationService1: TIBValidationService
129			ServerName = 'localhost'
130			Protocol = TCP
131			TraceFlags = []
132			DatabaseName = 'employee'
133			Options = [LimboTransactions]
134			GlobalAction = CommitGlobal
135			left = 726
136			top = 302
137			end
138			end