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

examples: xmlresource

Browse Source 
git-svn-id: trunk@40337 -
This commit is contained in:
mattias 2013-02-17 10:58:14 +00:00
parent 0daa193e70
commit e7dfd26785
4 changed files with 1523 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -4649,6 +4649,9 @@ examples/xmlreader/TestXMLReder.rc svneol=native#text/plain
examples/xmlreader/test.xml svneol=native#text/plain
examples/xmlreader/testxmlreaderunit.lfm svneol=native#text/plain
examples/xmlreader/testxmlreaderunit.pas svneol=native#text/plain
examples/xmlresource/xmlresource.lpk svneol=native#text/plain
examples/xmlresource/xmlresource.pas svneol=native#text/plain
examples/xmlresource/xmlresourcefile.pas svneol=native#text/plain
examples/xmlstreaming/mainunit.lfm svneol=native#text/plain
examples/xmlstreaming/mainunit.lrs svneol=native#text/pascal
examples/xmlstreaming/mainunit.pas svneol=native#text/plain

94
examples/xmlresource/xmlresource.lpk Normal file
View File

@ -0,0 +1,94 @@
<?xml version="1.0"?>
<CONFIG>
<Package Version="4">
<Name Value="xmlresource"/>
<Author Value="Joost van der Sluis / CNOC"/>
<CompilerOptions>
<Version Value="11"/>
<SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Description Value="Example package on how to register another resource-format into the Lazarus IDE. With this package the IDE is able to stream forms to an xml-format, instead of the usual lfm format.
Note that this example only works at design-time. At run-time loading the form from the xml-resource will fail."/>
<Version Major="1"/>
<Files Count="1">
<Item1>
<Filename Value="xmlresourcefile.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="xmlresourcefile"/>
</Item1>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="3">
<Item1>
<PackageName Value="IDEIntf"/>
</Item1>
<Item2>
<PackageName Value="CodeTools"/>
</Item2>
<Item3>
<PackageName Value="FCL"/>
</Item3>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
</Package>
</CONFIG>
<?xml version="1.0"?>
<CONFIG>
<Package Version="4">
<Name Value="xmlresource"/>
<Author Value="Joost van der Sluis / CNOC"/>
<CompilerOptions>
<Version Value="11"/>
<SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Description Value="Example package on how to register another resource-format into the Lazarus IDE. With this package the IDE is able to stream forms to an xml-format, instead of the usual lfm format.
Note that this example only works at design-time. At run-time loading the form from the xml-resource will fail."/>
<Version Major="1"/>
<Files Count="1">
<Item1>
<Filename Value="xmlresourcefile.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="xmlresourcefile"/>
</Item1>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="3">
<Item1>
<PackageName Value="IDEIntf"/>
</Item1>
<Item2>
<PackageName Value="CodeTools"/>
</Item2>
<Item3>
<PackageName Value="FCL"/>
</Item3>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
</Package>
</CONFIG>

42
examples/xmlresource/xmlresource.pas Normal file
View File

@ -0,0 +1,42 @@
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
}
unit xmlresource;
interface
uses
xmlresourcefile, LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('xmlresourcefile', @xmlresourcefile.Register);
end;
initialization
RegisterPackage('xmlresource', @Register);
end.
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
}
unit xmlresource;
interface
uses
xmlresourcefile, LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('xmlresourcefile', @xmlresourcefile.Register);
end;
initialization
RegisterPackage('xmlresource', @Register);
end.

1384
examples/xmlresource/xmlresourcefile.pas Normal file
View File

File diff suppressed because it is too large Load Diff