Unit LResources

BeschreibungusesKlassen, Schnittstellen und ObjekteFunktionen und ProzedurenTypenKonstantenVariablen

Beschreibung

 

uses

Übersicht

Klassen, Schnittstellen und Objekte

Name Beschreibung
Klasse TLResource  
Klasse TLResourceList  
Klasse TLRSObjectReader  
Klasse TLRSObjectWriter  
record TLRPositionLink  
Klasse TLRPositionLinks  
Klasse TCustomLazComponentQueue  
Klasse TLazComponentQueue  

Funktionen und Prozeduren

function InitResourceComponent(Instance: TComponent; RootAncestor: TClass):Boolean;
function InitLazResourceComponent(Instance: TComponent; RootAncestor: TClass): Boolean;
function CreateLRSReader(s: TStream; var DestroyDriver: boolean): TReader;
function CreateLRSWriter(s: TStream; var DestroyDriver: boolean): TWriter;
function GetClassNameFromLRSStream(s: TStream; out IsInherited: Boolean): shortstring;
procedure GetComponentInfoFromLRSStream(s: TStream; out ComponentName, ComponentClassName: string; out IsInherited: Boolean);
procedure WriteComponentAsBinaryToStream(AStream: TStream; AComponent: TComponent);
procedure ReadComponentFromBinaryStream(AStream: TStream; var RootComponent: TComponent; OnFindComponentClass: TFindComponentClassEvent; TheOwner: TComponent = nil; Parent: TComponent = nil);
procedure WriteComponentAsTextToStream(AStream: TStream; AComponent: TComponent);
procedure ReadComponentFromTextStream(AStream: TStream; var RootComponent: TComponent; OnFindComponentClass: TFindComponentClassEvent; TheOwner: TComponent = nil; Parent: TComponent = nil);
procedure SaveComponentToConfig(Config: TConfigStorage; const Path: string; AComponent: TComponent);
procedure LoadComponentFromConfig(Config: TConfigStorage; const Path: string; var RootComponent: TComponent; OnFindComponentClass: TFindComponentClassEvent; TheOwner: TComponent = nil; Parent: TComponent = nil);
function CompareComponents(Component1, Component2: TComponent): boolean;
function CompareMemStreams(Stream1, Stream2: TCustomMemoryStream): boolean;
procedure BinaryToLazarusResourceCode(BinStream, ResStream: TStream; const ResourceName, ResourceType: String);
function LFMtoLRSfile(const LFMfilename: string): boolean;
function LFMtoLRSstream(LFMStream, LRSStream: TStream): boolean;
function FindLFMClassName(LFMStream: TStream):AnsiString;
procedure ReadLFMHeader(LFMStream: TStream; out LFMType, LFMComponentName, LFMClassName: String);
procedure ReadLFMHeader(const LFMSource: string; out LFMClassName: String; out LFMType: String);
function CreateLFMFile(AComponent: TComponent; LFMStream: TStream): integer;
procedure LRSObjectBinaryToText(Input, Output: TStream);
procedure LRSObjectTextToBinary(Input, Output: TStream; Links: TLRPositionLinks = nil);
procedure LRSObjectToText(Input, Output: TStream; var OriginalFormat: TLRSStreamOriginalFormat);
procedure LRSObjectResourceToText(Input, Output: TStream);
procedure LRSObjectResToText(Input, Output: TStream; var OriginalFormat: TLRSStreamOriginalFormat);
function TestFormStreamFormat(Stream: TStream): TLRSStreamOriginalFormat;
procedure FormDataToText(FormStream, TextStream: TStream);
procedure DefineRectProperty(Filer: TFiler; const Name: string; ARect, DefaultRect: PRect);
procedure ReverseBytes(p: Pointer; Count: integer);
procedure ReverseByteOrderInWords(p: PWord; Count: integer);
function ConvertLRSExtendedToDouble(p: Pointer): Double;
procedure ConvertEndianBigDoubleToLRSExtended(BigEndianDouble, LRSExtended: Pointer);
function ReadLRSShortInt(s: TStream): shortint;
function ReadLRSByte(s: TStream): byte;
function ReadLRSSmallInt(s: TStream): smallint;
function ReadLRSWord(s: TStream): word;
function ReadLRSInteger(s: TStream): integer;
function ReadLRSCardinal(s: TStream): cardinal;
function ReadLRSInt64(s: TStream): int64;
function ReadLRSSingle(s: TStream): Single;
function ReadLRSDouble(s: TStream): Double;
function ReadLRSExtended(s: TStream): Extended;
function ReadLRSCurrency(s: TStream): Currency;
function ReadLRSWideString(s: TStream): WideString;
function ReadLRSEndianLittleExtendedAsDouble(s: TStream): Double;
function ReadLRSValueType(s: TStream): TValueType;
function ReadLRSInt64MB(s: TStream): int64;
procedure WriteLRSSmallInt(s: TStream; const i: smallint);
procedure WriteLRSWord(s: TStream; const w: word);
procedure WriteLRSInteger(s: TStream; const i: integer);
procedure WriteLRSCardinal(s: TStream; const c: cardinal);
procedure WriteLRSSingle(s: TStream; const si: Single);
procedure WriteLRSDouble(s: TStream; const d: Double);
procedure WriteLRSExtended(s: TStream; const e: extended);
procedure WriteLRSInt64(s: TStream; const i: int64);
procedure WriteLRSCurrency(s: TStream; const c: Currency);
procedure WriteLRSWideStringContent(s: TStream; const w: WideString);
procedure WriteLRSInt64MB(s: TStream; const Value: integer);
procedure WriteLRSReversedWord(s: TStream; w: word);
procedure WriteLRS4BytesReversed(s: TStream; p: Pointer);
procedure WriteLRS8BytesReversed(s: TStream; p: Pointer);
procedure WriteLRS10BytesReversed(s: TStream; p: Pointer);
procedure WriteLRSNull(s: TStream; Count: integer);
procedure WriteLRSEndianBigDoubleAsEndianLittleExtended(s: TStream; EndBigDouble: PByte);
procedure WriteLRSReversedWords(s: TStream; p: Pointer; Count: integer);
function FloatToLFMStr(const Value: extended; Precision, Digits: Integer ): string;
function CompareLRPositionLinkWithLFMPosition(Item1, Item2: Pointer): integer;
function CompareLRPositionLinkWithLRSPosition(Item1, Item2: Pointer): integer;
procedure Register;

Typen

TLRSObjectReaderClass = class of TLRSObjectReader;
TLRSObjectWriterClass = class of TLRSObjectWriter;
PLRPositionLink = ˆTLRPositionLink;
TLRSStreamOriginalFormat = (...);

Variablen

LazarusResources: TLResourceList;
LRSObjectReaderClass: TLRSObjectReaderClass=TLRSObjectReader;
LRSObjectWriterClass: TLRSObjectWriterClass=TLRSObjectWriter;

Beschreibung

Funktionen und Prozeduren

function InitResourceComponent(Instance: TComponent; RootAncestor: TClass):Boolean;
 
function InitLazResourceComponent(Instance: TComponent; RootAncestor: TClass): Boolean;
 
function CreateLRSReader(s: TStream; var DestroyDriver: boolean): TReader;
 
function CreateLRSWriter(s: TStream; var DestroyDriver: boolean): TWriter;
 
function GetClassNameFromLRSStream(s: TStream; out IsInherited: Boolean): shortstring;
 
procedure GetComponentInfoFromLRSStream(s: TStream; out ComponentName, ComponentClassName: string; out IsInherited: Boolean);
 
procedure WriteComponentAsBinaryToStream(AStream: TStream; AComponent: TComponent);
 
procedure ReadComponentFromBinaryStream(AStream: TStream; var RootComponent: TComponent; OnFindComponentClass: TFindComponentClassEvent; TheOwner: TComponent = nil; Parent: TComponent = nil);
 
procedure WriteComponentAsTextToStream(AStream: TStream; AComponent: TComponent);
 
procedure ReadComponentFromTextStream(AStream: TStream; var RootComponent: TComponent; OnFindComponentClass: TFindComponentClassEvent; TheOwner: TComponent = nil; Parent: TComponent = nil);
 
procedure SaveComponentToConfig(Config: TConfigStorage; const Path: string; AComponent: TComponent);
 
procedure LoadComponentFromConfig(Config: TConfigStorage; const Path: string; var RootComponent: TComponent; OnFindComponentClass: TFindComponentClassEvent; TheOwner: TComponent = nil; Parent: TComponent = nil);
 
function CompareComponents(Component1, Component2: TComponent): boolean;
 
function CompareMemStreams(Stream1, Stream2: TCustomMemoryStream): boolean;
 
procedure BinaryToLazarusResourceCode(BinStream, ResStream: TStream; const ResourceName, ResourceType: String);
 
function LFMtoLRSfile(const LFMfilename: string): boolean;
 
function LFMtoLRSstream(LFMStream, LRSStream: TStream): boolean;
 
function FindLFMClassName(LFMStream: TStream):AnsiString;
 
procedure ReadLFMHeader(LFMStream: TStream; out LFMType, LFMComponentName, LFMClassName: String);
 
procedure ReadLFMHeader(const LFMSource: string; out LFMClassName: String; out LFMType: String);
 
function CreateLFMFile(AComponent: TComponent; LFMStream: TStream): integer;
 
procedure LRSObjectBinaryToText(Input, Output: TStream);
 
procedure LRSObjectTextToBinary(Input, Output: TStream; Links: TLRPositionLinks = nil);
 
procedure LRSObjectToText(Input, Output: TStream; var OriginalFormat: TLRSStreamOriginalFormat);
 
procedure LRSObjectResourceToText(Input, Output: TStream);
 
procedure LRSObjectResToText(Input, Output: TStream; var OriginalFormat: TLRSStreamOriginalFormat);
 
function TestFormStreamFormat(Stream: TStream): TLRSStreamOriginalFormat;
 
procedure FormDataToText(FormStream, TextStream: TStream);
 
procedure DefineRectProperty(Filer: TFiler; const Name: string; ARect, DefaultRect: PRect);
 
procedure ReverseBytes(p: Pointer; Count: integer);
 
procedure ReverseByteOrderInWords(p: PWord; Count: integer);
 
function ConvertLRSExtendedToDouble(p: Pointer): Double;
 
procedure ConvertEndianBigDoubleToLRSExtended(BigEndianDouble, LRSExtended: Pointer);
 
function ReadLRSShortInt(s: TStream): shortint;
 
function ReadLRSByte(s: TStream): byte;
 
function ReadLRSSmallInt(s: TStream): smallint;
 
function ReadLRSWord(s: TStream): word;
 
function ReadLRSInteger(s: TStream): integer;
 
function ReadLRSCardinal(s: TStream): cardinal;
 
function ReadLRSInt64(s: TStream): int64;
 
function ReadLRSSingle(s: TStream): Single;
 
function ReadLRSDouble(s: TStream): Double;
 
function ReadLRSExtended(s: TStream): Extended;
 
function ReadLRSCurrency(s: TStream): Currency;
 
function ReadLRSWideString(s: TStream): WideString;
 
function ReadLRSEndianLittleExtendedAsDouble(s: TStream): Double;
 
function ReadLRSValueType(s: TStream): TValueType;
 
function ReadLRSInt64MB(s: TStream): int64;
 
procedure WriteLRSSmallInt(s: TStream; const i: smallint);
 
procedure WriteLRSWord(s: TStream; const w: word);
 
procedure WriteLRSInteger(s: TStream; const i: integer);
 
procedure WriteLRSCardinal(s: TStream; const c: cardinal);
 
procedure WriteLRSSingle(s: TStream; const si: Single);
 
procedure WriteLRSDouble(s: TStream; const d: Double);
 
procedure WriteLRSExtended(s: TStream; const e: extended);
 
procedure WriteLRSInt64(s: TStream; const i: int64);
 
procedure WriteLRSCurrency(s: TStream; const c: Currency);
 
procedure WriteLRSWideStringContent(s: TStream; const w: WideString);
 
procedure WriteLRSInt64MB(s: TStream; const Value: integer);
 
procedure WriteLRSReversedWord(s: TStream; w: word);
 
procedure WriteLRS4BytesReversed(s: TStream; p: Pointer);
 
procedure WriteLRS8BytesReversed(s: TStream; p: Pointer);
 
procedure WriteLRS10BytesReversed(s: TStream; p: Pointer);
 
procedure WriteLRSNull(s: TStream; Count: integer);
 
procedure WriteLRSEndianBigDoubleAsEndianLittleExtended(s: TStream; EndBigDouble: PByte);
 
procedure WriteLRSReversedWords(s: TStream; p: Pointer; Count: integer);
 
function FloatToLFMStr(const Value: extended; Precision, Digits: Integer ): string;
 
function CompareLRPositionLinkWithLFMPosition(Item1, Item2: Pointer): integer;
 
function CompareLRPositionLinkWithLRSPosition(Item1, Item2: Pointer): integer;
 
procedure Register;
 

Typen

TLRSObjectReaderClass = class of TLRSObjectReader;
 
TLRSObjectWriterClass = class of TLRSObjectWriter;
 
PLRPositionLink = ˆTLRPositionLink;
 
TLRSStreamOriginalFormat = (...);
 
Values
  • sofUnknown:
  • sofBinary:
  • sofText:

Variablen

LazarusResources: TLResourceList;
 
LRSObjectReaderClass: TLRSObjectReaderClass=TLRSObjectReader;
 
LRSObjectWriterClass: TLRSObjectWriterClass=TLRSObjectWriter;
 

Erstellt mit PasDoc 0.10.0 am 2007-03-27 23:03:02