examples/services/LimboTransactionsUnit.lfm

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