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

examples: xmlresource

Browse Source 
git-svn-id: trunk@42864 -
This commit is contained in:
mattias 2013-09-18 15:14:28 +00:00
parent bf148ad189
commit dfb5099c23
2 changed files with 6 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
examples/xmlresource/xmlresource.pas
View File

@ -19,24 +19,3 @@ end;
initialization initialization
RegisterPackage('xmlresource', @Register); RegisterPackage('xmlresource', @Register);
end. 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.

10
examples/xmlresource/xmlresourcefile.pas
View File

@ -21,11 +21,12 @@ type
public public
class function FindResourceDirective(Source: TObject): boolean; override; class function FindResourceDirective(Source: TObject): boolean; override;
class function ResourceDirectiveFilename: string; override; class function ResourceDirectiveFilename: string; override;
class function GetUnitResourceFilename(AUnitFilenae: string): string; override; class function GetUnitResourceFilename(AUnitFilename: string;
{%H-}Loading: boolean): string; override;
class procedure TextStreamToBinStream(ATxtStream, ABinStream: TExtMemoryStream); override; class procedure TextStreamToBinStream(ATxtStream, ABinStream: TExtMemoryStream); override;
class procedure BinStreamToTextStream(ABinStream, ATextStream: TExtMemoryStream); override; class procedure BinStreamToTextStream(ABinStream, ATextStream: TExtMemoryStream); override;
class function GetClassNameFromStream(s: TStream; out IsInherited: Boolean): shortstring; override; class function GetClassNameFromStream(s: TStream; out IsInherited: Boolean): shortstring; override;
class function CreateReader(s: TStream; var DestroyDriver: boolean): TReader; override; class function CreateReader(s: TStream; var {%H-}DestroyDriver: boolean): TReader; override;
class function CreateWriter(s: TStream; var DestroyDriver: boolean): TWriter; override; class function CreateWriter(s: TStream; var DestroyDriver: boolean): TWriter; override;
class function QuickCheckResourceBuffer(PascalBuffer, LFMBuffer: TObject; class function QuickCheckResourceBuffer(PascalBuffer, LFMBuffer: TObject;
out LFMType, LFMComponentName, LFMClassName: string; out out LFMType, LFMComponentName, LFMClassName: string; out
@ -624,9 +625,9 @@ begin
end; end;
class function TXMLUnitResourcefileFormat.GetUnitResourceFilename( class function TXMLUnitResourcefileFormat.GetUnitResourceFilename(
AUnitFilenae: string): string; AUnitFilename: string; Loading: boolean): string;
begin begin
result := ChangeFileExt(AUnitFilenae,'.xml'); result := ChangeFileExt(AUnitFilename,'.xml');
end; end;
class procedure TXMLUnitResourcefileFormat.TextStreamToBinStream(ATxtStream, class procedure TXMLUnitResourcefileFormat.TextStreamToBinStream(ATxtStream,
@ -677,6 +678,7 @@ class function TXMLUnitResourcefileFormat.QuickCheckResourceBuffer(
var var
ms: TStringStream; ms: TStringStream;
begin begin
Result:=mrOk;
ms := TStringStream.Create((LFMBuffer as TCodeBuffer).Source); ms := TStringStream.Create((LFMBuffer as TCodeBuffer).Source);
try try
QuickReadXML(ms, LFMComponentName, LFMClassName, LCLVersion); QuickReadXML(ms, LFMComponentName, LFMClassName, LCLVersion);