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

added TXMLCfg as component

Browse Source 
git-svn-id: trunk@9437 -
This commit is contained in:
mattias 2006-06-14 18:00:18 +00:00
parent ca930b7116
commit c466173ab3
5 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -1662,7 +1662,7 @@ images/components/ttrackbar.ico -text svneol=unset#image/x-icon
images/components/ttrackbar.xpm -text svneol=native#image/x-xpixmap
images/components/ttreeview.xpm -text svneol=native#image/x-xpixmap
images/components/tupdown.xpm -text svneol=native#image/x-xpixmap
images/components/txmlcfg.xpm svneol=native#text/plain
images/components/txmlconfig.xpm svneol=native#text/plain
images/components/txmlpropstorage.xpm -text svneol=native#image/x-xpixmap
images/components/unregisteredcomponent.xpm -text svneol=native#image/x-xpixmap
images/components_images.lrs svneol=native#text/pascal

0
images/components/txmlcfg.xpm → images/components/txmlconfig.xpm
View File

14
images/components_images.lrs
View File

@ -3579,6 +3579,20 @@ LazarusResources.Add('tupdown','XPM',[
+'....*-.....",'#10'".....,***********-.....",'#10'".....-------------.....",'
+#10'"......................."}'#10
]);
LazarusResources.Add('txmlconfig','XPM',[
'/* XPM */'#10'static char * txmlcfg_xpm[] = {'#10'"24 24 2 1",'#10'" '#9'c N'
+'one",'#10'".'#9'c #00DC24",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" ",'#10'"'
+' ",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" ",'#10'" '
+' ",'#10'" . . .. . . ",'#10'" .. . .. '
+' .. . ",'#10'" . . .. .. . ",'#10'" .. . . . . . '
+' ",'#10'" .. . . . . . ",'#10'" . . . ... . . ",'#10'" '
+'. . . . . . ",'#10'" . . . . ..... ",'#10'" '
+' ",'#10'" "};'#10
]);
LazarusResources.Add('txmlpropstorage','XPM',[
'/* XPM */'#10'static char *txmlstorage[]={'#10'"24 24 8 1",'#10'". c None",'
+#10'"d c #000000",'#10'"b c #000080",'#10'"f c #00ff00",'#10'"e c #00ffff",'

7
packager/packagesystem.pas
View File

@ -886,10 +886,9 @@ begin
'$(LazarusDir)/packager/units/$(TargetCPU)-$(TargetOS)');
// add registering units
AddFile(SetDirSeparators('db/db.pp'),'DB',pftUnit,
[pffHasRegisterProc],cpBase);
AddFile(SetDirSeparators('inc/process.pp'),'Process',pftUnit,
[pffHasRegisterProc],cpBase);
AddFile(SetDirSeparators('db/db.pp'),'DB',pftUnit,[],cpBase);
AddFile(SetDirSeparators('inc/process.pp'),'Process',pftUnit,[],cpBase);
AddFile(SetDirSeparators('fcl/xml/xmlcfg.pp'),'XMLCfg',pftUnit,[],cpBase);
// use the packager/units/lazaruspackageintf.o file as indicator,
// if FCL has been recompiled

8
packager/registerfcl.pas
View File

@ -39,7 +39,7 @@ interface
uses
LazarusPackageIntf,
Classes, SysUtils, Process, DB;
Classes, SysUtils, Process, DB, XMLCfg;
procedure Register;
@ -55,10 +55,16 @@ begin
RegisterComponents('Data Access',[TDatasource]);
end;
procedure RegisterXMLCfg;
begin
RegisterComponents('System',[TXMLConfig]);
end;
procedure Register;
begin
RegisterUnit('DB',@RegisterDB);
RegisterUnit('Process',@RegisterProcess);
RegisterUnit('XMLCfg',@RegisterXMLCfg);
end;
end.