ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/IBTransactionEdit.pas
(Generate patch)

Comparing ibx/trunk/design/IBTransactionEdit.pas (file contents):
Revision 5 by tony, Fri Feb 18 16:26:16 2011 UTC vs.
Revision 33 by tony, Sat Jul 18 12:30:52 2015 UTC

# Line 37 | Line 37 | uses
37    StdCtrls, IBDataBase, IB, ExtCtrls, IBXConst, LResources;
38  
39   type
40 +
41 +  { TIBTransactionEditForm }
42 +
43    TIBTransactionEditForm = class(TForm)
44      GroupBox1: TGroupBox;
45      HelpBtn: TButton;
46      Cancelbtn: TButton;
47      OKBtn: TButton;
48 +    rbOtherButton: TRadioButton;
49      rbSnapShot: TRadioButton;
50      rbReadCommitted: TRadioButton;
51      rbReadOnlyTableStability: TRadioButton;
# Line 77 | Line 81 | var
81  
82   implementation
83  
84 <
81 < {uses
82 <  LibHelp;}
84 > {$R *.lfm}
85  
86   function EditIBtransaction(ATransaction: TIBtransaction): Boolean;
87   begin
# Line 149 | Line 151 | begin
151    else if Value = [read, consistency] then
152      rbReadOnlyTableStability.Checked := True
153    else if Value = [write, consistency] then
154 <    rbReadWriteTableStability.Checked := True;
154 >    rbReadWriteTableStability.Checked := True
155 >  else
156 >    rbOtherButton.Checked := true
157   end;
158  
159   procedure TIBTransactionEditForm.ClearParamSelection;
# Line 221 | Line 225 | begin
225    ParseParams;
226   end;
227  
224 – initialization
225 –  {$i IBTransactionEdit.lrs}
228  
229 < end.
229 > end.

Diff Legend

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