Can we get FireDac component on the IDE Palette ?
uses
Data.DB,
Data.Win.ADODB,
FireDAC.Stan.Intf,
FireDAC.Stan.Option,
FireDAC.Stan.Error,
FireDAC.UI.Intf,
FireDAC.Phys.Intf,
FireDAC.Stan.Def,
FireDAC.Stan.Pool,
FireDAC.Stan.Async,
FireDAC.Phys,
FireDAC.VCLUI.Wait,
FireDAC.Stan.Param,
FireDAC.DatS,
FireDAC.DApt.Intf,
FireDAC.DApt,
FireDAC.Comp.DataSet,
FireDAC.Comp.Client,
FireDAC.Comp.UI,
FireDAC.Phys.MSSQLDef,
FireDAC.Phys.ODBCBase,
FireDAC.Phys.MSSQL
….
procedure TForm1.IDERegisterFDTab(AEngine: TIDEEngine);
begin
With AEngine do
begin
BeginRegisterComponents;
try
RegisterComponent('DBCONN', TFDConnection, '');
RegisterComponent('DBCONN', TFDQuery, '');
RegisterComponent('DBCONN', TFDStoredProc, '');
RegisterComponent('DBCONN', TFDMemTable, '');
finally
EndRegisterComponents;
end;
end;
end;
begin
IDEScripter := TIDEScripter.Create ( self );
IDEEngine := TIDEEngine.Create ( self );
IDEDialog := TIDEDialog.Create ( self );
IDEEngine.Scripter := IDEScripter;
IDEDialog.Engine := IDEEngine;
IDEDialog.Title := 'My title';
//IDEScripter.OnRuntimeError := RuntimeErrorEvent;
//IDERegisterDataAccessTab ( IDEEngine );
//IDERegisterDataControlsTab ( IDEEngine );
//IDERegisterADOTab ( IDEEngine );
IDERegisterFDTab ( IDEEngine );
IDEDialog.show;
end;
