paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 20:17:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

package system: added simple ipc components

Browse Source 
git-svn-id: trunk@9993 -
This commit is contained in:
vincents 2006-09-27 15:02:10 +00:00
parent cb6738a553
commit af761c503e
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packager/packagesystem.pas
View File

@ -1103,6 +1103,7 @@ begin
// add registering units
AddFile(SetDirSeparators('db/db.pp'),'DB',pftUnit,[],cpBase);
AddFile(SetDirSeparators('inc/process.pp'),'Process',pftUnit,[],cpBase);
AddFile(SetDirSeparators('inc/simpleipc.pp'),'SimpleIPC',pftUnit,[],cpBase);
AddFile(SetDirSeparators('fcl/xml/xmlcfg.pp'),'XMLCfg',pftUnit,[],cpBase);
// use the packager/units/lazaruspackageintf.o file as indicator,

8
packager/registerfcl.pas
View File

@ -39,7 +39,7 @@ interface
uses
LazarusPackageIntf,
Classes, SysUtils, Process, DB, XMLCfg;
Classes, SysUtils, Process, DB, SimpleIPC, XMLCfg;
procedure Register;
@ -55,6 +55,11 @@ begin
RegisterComponents('Data Access',[TDatasource]);
end;
procedure RegisterSimpleIPC;
begin
RegisterComponents('System',[TSimpleIPCClient, TSimpleIPCServer]);
end;
procedure RegisterXMLCfg;
begin
RegisterComponents('System',[TXMLConfig]);
@ -64,6 +69,7 @@ procedure Register;
begin
RegisterUnit('DB',@RegisterDB);
RegisterUnit('Process',@RegisterProcess);
RegisterUnit('SimpleIPC', @RegisterSimpleIPC);
RegisterUnit('XMLCfg',@RegisterXMLCfg);
end;