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 33 by tony, Sat Jul 18 12:30:52 2015 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,} Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
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 75 | Line 81 | var
81  
82   implementation
83  
84 < {$R *.DFM}
79 <
80 < uses
81 <  LibHelp;
84 > {$R *.lfm}
85  
86   function EditIBtransaction(ATransaction: TIBtransaction): Boolean;
87   begin
# Line 148 | 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 173 | Line 178 | end;
178  
179   procedure TIBTransactionEditForm.FormCreate(Sender: TObject);
180   begin
181 <  HelpContext := hcDIBTransactionEdit;
181 > //  HelpContext := hcDIBTransactionEdit;
182   end;
183  
184   procedure TIBTransactionEditForm.HelpBtnClick(Sender: TObject);
# Line 220 | Line 225 | begin
225    ParseParams;
226   end;
227  
228 < end.
228 >
229 > end.

Diff Legend

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