ViewVC Help

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

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

Comparing ibx/trunk/design/IBSQLEditFrame.pas (file contents):
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 380 by tony, Mon Jan 10 10:13:17 2022 UTC

#	Line 33 | Line 33 | uses
33		Classes, SysUtils, FileUtil, SynEdit, SynHighlighterSQL, LResources, Forms,
34		Controls, ActnList, Menus, Dialogs, ComCtrls, ExtCtrls, StdCtrls, IBQuery,
35		IBSQL, IBDatabase, IBUpdate, IBDatabaseInfo,
36	<	IBCustomDataset, db, LazSynTextArea, IB;
36	>	IBCustomDataSet, db, LazSynTextArea, IB;
37
38		type
39
#	Line 206 | Line 206 | type
206
207		implementation
208
209	<	Uses IBUtils, FBMessages, Variants;
209	>	Uses IBUtils, IBMessages, Variants;
210
211		{$R *.lfm}
212
#	Line 381 | Line 381 | begin
381		SQLTransaction.Active := false;
382		SQLTransaction.DefaultDatabase := FDatabase;
383		for i := 0 to ComponentCount - 1 do
384	<	if Components[i] is TIBCustomDataset then
385	<	TIBCustomDataset(Components[i]).Database := FDatabase
384	>	if Components[i] is TIBCustomDataSet then
385	>	TIBCustomDataSet(Components[i]).Database := FDatabase
386		else
387		if Components[i] is TIBSQL then
388		TIBSQL(Components[i]).Database := FDatabase

Comparing ibx/trunk/design/IBSQLEditFrame.pas (property svn:eol-style):
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 380 by tony, Mon Jan 10 10:13:17 2022 UTC

#	Line 0 | Line 1
1	+	native

Diff Legend

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