examples/services/LimboTransactionsUnit.lfm

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