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 45 by tony, Tue Dec 6 10:33:46 2016 UTC

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

Diff Legend

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