paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 07:58:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 65432 #b6a0c5b23d from trunk:

Browse Source 
IDE: add unit DB to uses when TBufDataset or TCSVDataset are added. Issue #29733, patch from Sven Barth
........

git-svn-id: branches/fixes_2_2@65445 -
This commit is contained in:
maxim 2021-07-13 21:41:23 +00:00
parent 8cd0a0724b
commit ecf86397ec
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packager/pkgregisterbase.pas
View File

@ -42,16 +42,28 @@ uses
ServiceManager,
{$endif}
Classes, SysUtils, Process, DB, BufDataset, csvdataset, SimpleIPC, XMLConf, EventLog,
UTF8Process;
UTF8Process, ComponentEditors;
procedure RegisterFCLBaseComponents;
procedure RegisterLazUtilsComponents;
implementation
type
TDatasetRequirements = class(TComponentRequirements)
procedure RequiredUnits(Units: TStrings); override;
end;
procedure TDatasetRequirements.RequiredUnits(Units: TStrings);
begin
{ the DB unit is nearly always required for working comfortably with datasets }
Units.Add('DB');
end;
procedure RegisterDB;
begin // this bites dbflaz
RegisterComponents('Data Access',[TDatasource, TBufDataset, TCSVDataset]);
RegisterComponentRequirements([TBufDataset, TCSVDataset], TDatasetRequirements);
end;
procedure RegisterSimpleIPC;