ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/design/IBTransactionEdit.pas

Comparing ibx/trunk/design/IBTransactionEdit.pas (file contents):
Revision 7 by tony, Sun Aug 5 18:28:19 2012 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		{$R *.lfm}
86
87		function EditIBtransaction(ATransaction: TIBtransaction): Boolean;
#	Line 147 | 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;

Diff Legend

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