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 1 by tony, Mon Jul 31 16:43:00 2000 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

# Line 28 | Line 28
28  
29   unit IBTransactionEdit;
30  
31 + {$MODE Delphi}
32 +
33   interface
34  
35   uses
36 <  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
37 <  StdCtrls, IBDatabase, IB, ExtCtrls, IBXConst;
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;
40 –    HelpBtn: TButton;
45      Cancelbtn: TButton;
46      OKBtn: TButton;
47 +    rbOtherButton: TRadioButton;
48      rbSnapShot: TRadioButton;
49      rbReadCommitted: TRadioButton;
50      rbReadOnlyTableStability: TRadioButton;
# Line 75 | Line 80 | var
80  
81   implementation
82  
83 < {$R *.DFM}
83 > uses FBMessages;
84  
85 < uses
81 <  LibHelp;
85 > {$R *.lfm}
86  
87   function EditIBtransaction(ATransaction: TIBtransaction): Boolean;
88   begin
# Line 148 | 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 173 | Line 179 | end;
179  
180   procedure TIBTransactionEditForm.FormCreate(Sender: TObject);
181   begin
182 <  HelpContext := hcDIBTransactionEdit;
182 > //  HelpContext := hcDIBTransactionEdit;
183   end;
184  
185   procedure TIBTransactionEditForm.HelpBtnClick(Sender: TObject);
# Line 220 | Line 226 | begin
226    ParseParams;
227   end;
228  
229 +
230   end.

Diff Legend

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