54 |
|
|
55 |
|
uses SysUtils, Classes, Graphics, Dialogs, Controls, Forms, TypInfo, |
56 |
|
DB, IBTable, IBDatabase, IBEventsEditor, LazarusPackageIntf, |
57 |
< |
IBUpdateSQL, ComponentEditors, PropEdits, DBPropEdits, FieldsEditor, |
57 |
> |
IBUpdateSQL, IBUpdate, ComponentEditors, PropEdits, DBPropEdits, FieldsEditor, |
58 |
|
dbFieldLinkPropEditor, dbFieldListPropEditor, IBDialogs; |
59 |
|
|
60 |
|
type |
389 |
|
IBInsertSQLEditor, IBGeneratorEditor, IBUpdateSQLEditor, IBDataSetEditor, |
390 |
|
IBSQLEditor, ibserviceeditor, LCLVersion, IBDynamicGrid, IBLookupComboEditBox, |
391 |
|
IBTreeView, DBControlGrid, ibxscript, IBLocalDBSupport, IBDSDialogs, |
392 |
< |
IBArrayGrid; |
392 |
> |
IBArrayGrid, IBVersion, IBDataOutput; |
393 |
|
|
394 |
|
const |
395 |
|
IBPalette1 = 'Firebird'; {do not localize} |
397 |
|
IBPalette3 = 'Firebird Data Controls'; {do not localize} |
398 |
|
|
399 |
|
resourcestring |
400 |
< |
SInterbaseExpressVersion = 'Firebird Express for Lazarus 2.0.0'; |
400 |
> |
SInterbaseExpressVersion = 'Firebird Express for Lazarus ' + IBX_VERSION; |
401 |
|
SEditSQL = 'Edit SQL'; |
402 |
|
SIBSQLEditor = 'IBSQL Editor'; |
403 |
|
SIBServiceEditor = 'Edit IB Service'; |
422 |
|
RegisterNoIcon([TIntegerField]); |
423 |
|
{$endif} |
424 |
|
RegisterComponents(IBPalette1, [ TIBQuery, TIBDataSet, |
425 |
< |
TIBDatabase, TIBTransaction, TIBUpdateSQL, TIBEvents, |
425 |
> |
TIBDatabase, TIBTransaction, TIBUpdateSQL, TIBUpdate, TIBEvents, |
426 |
|
TIBSQL, TIBDatabaseInfo, TIBSQLMonitor, |
427 |
< |
TIBStoredProc,TIBBatchMove, TIBTable,TIBExtract, TIBXScript, TIBLocalDBSupport]); |
427 |
> |
TIBStoredProc,TIBBatchMove, TIBTable,TIBExtract, TIBXScript, TIBLocalDBSupport, |
428 |
> |
TIBBlockFormatOut,TIBCSVDataOut,TIBInsertStmtsOut]); |
429 |
|
if FirebirdAPI.HasServiceAPI then |
430 |
|
RegisterComponents(IBPalette2, [TIBConfigService, TIBBackupService, |
431 |
|
TIBRestoreService, TIBValidationService, TIBStatisticalService, |
835 |
|
IBSQL: TIBSQL; |
836 |
|
begin |
837 |
|
IBSQL := GetComponent(0) as TIBSQL; |
838 |
< |
if IBSQLEditor.EditIBSQL(IBSQL) then Modified; |
838 |
> |
if IBSQLEditor.EditSQL(IBSQL) then Modified; |
839 |
|
end; |
840 |
|
|
841 |
|
{ TIBUpdateSQLEditor } |
1201 |
|
|
1202 |
|
procedure TIBSQLEditor.ExecuteVerb(Index: Integer); |
1203 |
|
begin |
1204 |
< |
if IBSQLEditor.EditIBSQL(TIBSQL(Component)) then Modified; |
1204 |
> |
if IBSQLEditor.EditSQL(TIBSQL(Component)) then Modified; |
1205 |
|
end; |
1206 |
|
|
1207 |
|
function TIBSQLEditor.GetVerb(Index: Integer): string; |
1224 |
|
IBSQL: TIBSQL; |
1225 |
|
begin |
1226 |
|
IBSQL := GetComponent(0) as TIBSQL; |
1227 |
< |
if IBSQLEditor.EditIBSQL(IBSQL) then Modified; |
1227 |
> |
if IBSQLEditor.EditSQL(IBSQL) then Modified; |
1228 |
|
end; |
1229 |
|
|
1230 |
|
initialization |