Beschreibung | uses | Klassen, Schnittstellen und Objekte | Funktionen und Prozeduren | Typen | Konstanten | Variablen |
Name | Beschreibung |
---|---|
Klasse TLResource |
|
Klasse TLResourceList |
|
Klasse TLRSObjectReader |
|
Klasse TLRSObjectWriter |
|
record TLRPositionLink |
|
Klasse TLRPositionLinks |
|
Klasse TCustomLazComponentQueue |
|
Klasse TLazComponentQueue |
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; |
TLRSObjectReaderClass = class of TLRSObjectReader; |
TLRSObjectWriterClass = class of TLRSObjectWriter; |
PLRPositionLink = ˆTLRPositionLink; |
TLRSStreamOriginalFormat = (...); |
LazarusResources: TLResourceList; |
LRSObjectReaderClass: TLRSObjectReaderClass=TLRSObjectReader; |
LRSObjectWriterClass: TLRSObjectWriterClass=TLRSObjectWriter; |
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; |
TLRSObjectReaderClass = class of TLRSObjectReader; |
TLRSObjectWriterClass = class of TLRSObjectWriter; |
PLRPositionLink = ˆTLRPositionLink; |
TLRSStreamOriginalFormat = (...); |
Values
|
LazarusResources: TLResourceList; |
LRSObjectReaderClass: TLRSObjectReaderClass=TLRSObjectReader; |
LRSObjectWriterClass: TLRSObjectWriterClass=TLRSObjectWriter; |