Unit mclasses

Description
Classes, Interfaces, Objects and Records
Functions and Procedures
Types
Constants

Description

Copy of the Free Pascal Classes unit, modified for MSEgui. It declares its own versions of the basic classes, under the same names as in Classes: tpersistent, tcomponent, tcollection, tstream, tfilestream, tmemorystream, tfiler, treader, twriter, tstrings, tstringlist, etc. These are distinct types, not aliases: for example, mclasses.tstream does not descend from classes.TStream. Some simple types, such as TValueType, are reused from Classes.

Many MSEgui units are based on these classes, for example the streams of msestream, the text/binary form conversion of mseobjecttext and the components of mseclasses. A unit or program using them must therefore put mclasses after classes in its uses clause, since the last unit listed wins when two units declare the same identifier. Otherwise, the compiler reports errors such as Incompatible type for arg no. 2: Got "TMemoryStream", expected "tstream". A type of the original unit can still be used by qualifying it, e.g. classes.TStringList. Objects of the two hierarchies must not be mixed: a classes.TMemoryStream is not an mclasses.tstream.

Overview

Classes, Interfaces, Objects and Records

Name Description
Class tpersistent  
Class tcomponent  
Class TCollectionItem  
Class TCollectionEnumerator  
Class TCollection  
Class TOwnedCollection  
Class tfiler  
Class TAbstractObjectReader  
Class TBinaryObjectReader  
Class treader  
Class TAbstractObjectWriter  
Class TBinaryObjectWriter  
Class twriter  
Class TStringsEnumerator  
Class tstrings  
Class tstringlist  
Class TStream  
Class THandleStream  
Class TFileStream  
Class TCustomMemoryStream  
Class TMemoryStream  
Class TStringStream  
Class TOwnerStream  

Functions and Procedures

procedure RegisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);
procedure UnregisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);
function FindGlobalComponent(const Name: string): TComponent;
function InitInheritedComponent(Instance: TComponent; RootAncestor: TClass): Boolean;
function InitComponentRes(const ResName: string; Instance: TComponent): Boolean;
function ReadComponentRes(const ResName: string; Instance: TComponent): TComponent;
function ReadComponentResEx(HInstance: THandle; const ResName: string): TComponent;
function ReadComponentResFile(const FileName: string; Instance: TComponent): TComponent;
procedure WriteComponentResFile(const FileName: string; Instance: TComponent);
procedure RegisterInitComponentHandler(ComponentClass: TComponentClass; Handler: TInitComponentHandler);
procedure GlobalFixupReferences;
procedure GetFixupReferenceNames(Root: TComponent; Names: TStrings);
procedure GetFixupInstanceNames(Root: TComponent; const ReferenceRootName: string; Names: TStrings);
procedure RedirectFixupReferences(Root: TComponent; const OldRootName, NewRootName: string);
procedure RemoveFixupReferences(Root: TComponent; const RootName: string);
procedure RemoveFixups(Instance: TPersistent);
Function FindNestedComponent(Root : TComponent; APath : String; CStyle : Boolean = True) : TComponent;
procedure BeginGlobalLoading;
procedure NotifyGlobalLoading;
procedure EndGlobalLoading;
procedure beginsuspendgloballoading;
procedure endsuspendgloballoading;
function CollectionsEqual(C1, C2: TCollection): Boolean; overload;
function CollectionsEqual(C1, C2: TCollection; Owner1, Owner2: TComponent): Boolean; overload;
procedure RegisterClass(AClass: TPersistentClass);
procedure RegisterClasses(AClasses: array of TPersistentClass);
procedure RegisterClassAlias(AClass: TPersistentClass; const Alias: string);
procedure UnRegisterClass(AClass: TPersistentClass);
procedure UnRegisterClasses(AClasses: array of TPersistentClass);
procedure UnRegisterModuleClasses(Module: HMODULE);
function FindClass(const AClassName: string): TPersistentClass;
function GetClass(const AClassName: string): TPersistentClass;
function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;
function ExtendedToDouble(e : pointer) : double;
procedure DoubleToExtended(d : double; e : pointer);

Types

ar8ty = array[0..7] of byte;
TTextLineBreakStyle = (...);
TValueType = (...);
TReaderProc = procedure(Reader: treader) of object;
TWriterProc = procedure(Writer: twriter) of object;
TStreamProc = procedure(Stream: TStream) of object;
TPersistentClass = class of TPersistent;
TGetChildProc = procedure (Child: TComponent) of object;
TComponentClass = class of TComponent;
pcomponent = ˆtcomponent;
TCollectionItemClass = class of TCollectionItem;
TCollectionSortCompare = function (Item1, Item2: TCollectionItem): Integer;
TFindMethodEvent = procedure(Reader: TReader; const MethodName: string; var Address: Pointer; var Error: Boolean) of object;
TSetMethodPropertyEvent = procedure(Reader: TReader; Instance: TPersistent; PropInfo: PPropInfo; const TheMethodName: string; var Handled: boolean) of object;
TSetNameEvent = procedure(Reader: TReader; Component: TComponent; var Name: string) of object;
TReferenceNameEvent = procedure(Reader: TReader; var Name: string) of object;
TAncestorNotFoundEvent = procedure(Reader: TReader; const ComponentName: string; ComponentClass: TPersistentClass; var Component: TComponent) of object;
TReadComponentsProc = procedure(Component: TComponent) of object;
TReaderError = procedure(Reader: TReader; const Message: string; var Handled: Boolean) of object;
TPropertyNotFoundEvent = procedure(Reader: TReader; Instance: TPersistent; var PropName: string; IsPath: boolean; var Handled, Skip: Boolean) of object;
TFindComponentClassEvent = procedure(Reader: TReader; const ClassName: string; var ComponentClass: TComponentClass) of object;
TCreateComponentEvent = procedure(Reader: TReader; ComponentClass: TComponentClass; var Component: TComponent) of object;
TReadWriteStringPropertyEvent = procedure(Sender:TObject; const Instance: TPersistent; PropInfo: PPropInfo; var Content:string) of object;
TFindAncestorEvent = procedure (Writer: TWriter; Component: TComponent; const Name: string; var Ancestor, RootAncestor: TComponent) of object;
TWriteMethodPropertyEvent = procedure (Writer: TWriter; Instance: TPersistent; PropInfo: PPropInfo; const MethodValue, DefMethodValue: TMethod; var Handled: boolean) of object;
enumerroreventty = procedure (const reader: treader; const atype: ptypeinfo; const aenumname: string; var avalue: longword) of object;
seterroreventty = procedure (const reader: treader; const atype: ptypeinfo; const aitemname: string; var avalue: integer) of object;
TStringListSortCompare = function(List: tstringlist; Index1, Index2: Integer): Integer;
TFindGlobalComponent = function(const Name: string): TComponent;
TInitComponentHandler = function(Instance: TComponent; RootAncestor : TClass): boolean;

Constants

feInvalidHandle : THandle = THandle(-1);
SStreamNoReading = 'Reading from %s is not supported';
SStreamNoWriting = 'Writing to %s is not supported';
SRangeError = 'Range error';
SStreamInvalidSeek = 'Invalid stream operation %s.Seek';
SEmptyStreamIllegalReader = 'Illegal Nil stream for TReader constructor';
SEmptyStreamIllegalWriter = 'Illegal Nil stream for TWriter constructor';
SErrNoVariantSupport = 'No variant support for properties. Please use the variants unit in your project and recompile';
SUnsupportedPropertyVariantType = 'Unsupported property variant type %d';
SUnknownPropertyType = 'Unknown property type %d';
FilerSignature : Array[1..4] of char = 'TPF0';

Description

Functions and Procedures

procedure RegisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);

This item has no description.

procedure UnregisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);

This item has no description.

function FindGlobalComponent(const Name: string): TComponent;

This item has no description.

function InitInheritedComponent(Instance: TComponent; RootAncestor: TClass): Boolean;

This item has no description.

function InitComponentRes(const ResName: string; Instance: TComponent): Boolean;

This item has no description.

function ReadComponentRes(const ResName: string; Instance: TComponent): TComponent;

This item has no description.

function ReadComponentResEx(HInstance: THandle; const ResName: string): TComponent;

This item has no description.

function ReadComponentResFile(const FileName: string; Instance: TComponent): TComponent;

This item has no description.

procedure WriteComponentResFile(const FileName: string; Instance: TComponent);

This item has no description.

procedure RegisterInitComponentHandler(ComponentClass: TComponentClass; Handler: TInitComponentHandler);

This item has no description.

procedure GlobalFixupReferences;

This item has no description.

procedure GetFixupReferenceNames(Root: TComponent; Names: TStrings);

This item has no description.

procedure GetFixupInstanceNames(Root: TComponent; const ReferenceRootName: string; Names: TStrings);

This item has no description.

procedure RedirectFixupReferences(Root: TComponent; const OldRootName, NewRootName: string);

This item has no description.

procedure RemoveFixupReferences(Root: TComponent; const RootName: string);

This item has no description.

procedure RemoveFixups(Instance: TPersistent);

This item has no description.

Function FindNestedComponent(Root : TComponent; APath : String; CStyle : Boolean = True) : TComponent;

This item has no description.

procedure BeginGlobalLoading;

This item has no description.

procedure NotifyGlobalLoading;

This item has no description.

procedure EndGlobalLoading;

This item has no description.

procedure beginsuspendgloballoading;

This item has no description.

procedure endsuspendgloballoading;

This item has no description.

function CollectionsEqual(C1, C2: TCollection): Boolean; overload;

This item has no description.

function CollectionsEqual(C1, C2: TCollection; Owner1, Owner2: TComponent): Boolean; overload;

This item has no description.

procedure RegisterClass(AClass: TPersistentClass);

This item has no description.

procedure RegisterClasses(AClasses: array of TPersistentClass);

This item has no description.

procedure RegisterClassAlias(AClass: TPersistentClass; const Alias: string);

This item has no description.

procedure UnRegisterClass(AClass: TPersistentClass);

This item has no description.

procedure UnRegisterClasses(AClasses: array of TPersistentClass);

This item has no description.

procedure UnRegisterModuleClasses(Module: HMODULE);

This item has no description.

function FindClass(const AClassName: string): TPersistentClass;

This item has no description.

function GetClass(const AClassName: string): TPersistentClass;

This item has no description.

function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;

This item has no description.

function ExtendedToDouble(e : pointer) : double;

This item has no description.

procedure DoubleToExtended(d : double; e : pointer);

This item has no description.

Types

ar8ty = array[0..7] of byte;

This item has no description.

TTextLineBreakStyle = (...);

This item has no description.

Values
  • tlbsLF
  • tlbsCRLF
  • tlbsCR
TValueType = (...);

This item has no description.

Values
  • vaNull
  • vaList
  • vaInt8
  • vaInt16
  • vaInt32
  • vaExtended
  • vaString
  • vaIdent
  • vaFalse
  • vaTrue
  • vaBinary
  • vaSet
  • vaLString
  • vaNil
  • vaCollection
  • vaSingle
  • vaCurrency
  • vaDate
  • vaWString
  • vaInt64
  • vaUTF8String
  • vaUString
  • vaQWord
TReaderProc = procedure(Reader: treader) of object;

This item has no description.

TWriterProc = procedure(Writer: twriter) of object;

This item has no description.

TStreamProc = procedure(Stream: TStream) of object;

This item has no description.

TPersistentClass = class of TPersistent;

This item has no description.

TGetChildProc = procedure (Child: TComponent) of object;

This item has no description.

TComponentClass = class of TComponent;

This item has no description.

pcomponent = ˆtcomponent;

This item has no description.

TCollectionItemClass = class of TCollectionItem;

This item has no description.

TCollectionSortCompare = function (Item1, Item2: TCollectionItem): Integer;

This item has no description.

TFindMethodEvent = procedure(Reader: TReader; const MethodName: string; var Address: Pointer; var Error: Boolean) of object;

This item has no description.

TSetMethodPropertyEvent = procedure(Reader: TReader; Instance: TPersistent; PropInfo: PPropInfo; const TheMethodName: string; var Handled: boolean) of object;

This item has no description.

TSetNameEvent = procedure(Reader: TReader; Component: TComponent; var Name: string) of object;

This item has no description.

TReferenceNameEvent = procedure(Reader: TReader; var Name: string) of object;

This item has no description.

TAncestorNotFoundEvent = procedure(Reader: TReader; const ComponentName: string; ComponentClass: TPersistentClass; var Component: TComponent) of object;

This item has no description.

TReadComponentsProc = procedure(Component: TComponent) of object;

This item has no description.

TReaderError = procedure(Reader: TReader; const Message: string; var Handled: Boolean) of object;

This item has no description.

TPropertyNotFoundEvent = procedure(Reader: TReader; Instance: TPersistent; var PropName: string; IsPath: boolean; var Handled, Skip: Boolean) of object;

This item has no description.

TFindComponentClassEvent = procedure(Reader: TReader; const ClassName: string; var ComponentClass: TComponentClass) of object;

This item has no description.

TCreateComponentEvent = procedure(Reader: TReader; ComponentClass: TComponentClass; var Component: TComponent) of object;

This item has no description.

TReadWriteStringPropertyEvent = procedure(Sender:TObject; const Instance: TPersistent; PropInfo: PPropInfo; var Content:string) of object;

This item has no description.

TFindAncestorEvent = procedure (Writer: TWriter; Component: TComponent; const Name: string; var Ancestor, RootAncestor: TComponent) of object;

This item has no description.

TWriteMethodPropertyEvent = procedure (Writer: TWriter; Instance: TPersistent; PropInfo: PPropInfo; const MethodValue, DefMethodValue: TMethod; var Handled: boolean) of object;

This item has no description.

enumerroreventty = procedure (const reader: treader; const atype: ptypeinfo; const aenumname: string; var avalue: longword) of object;

This item has no description.

seterroreventty = procedure (const reader: treader; const atype: ptypeinfo; const aitemname: string; var avalue: integer) of object;

This item has no description.

TStringListSortCompare = function(List: tstringlist; Index1, Index2: Integer): Integer;

This item has no description.

TFindGlobalComponent = function(const Name: string): TComponent;

This item has no description.

TInitComponentHandler = function(Instance: TComponent; RootAncestor : TClass): boolean;

This item has no description.

Constants

feInvalidHandle : THandle = THandle(-1);

This item has no description.

SStreamNoReading = 'Reading from %s is not supported';

This item has no description.

SStreamNoWriting = 'Writing to %s is not supported';

This item has no description.

SRangeError = 'Range error';

This item has no description.

SStreamInvalidSeek = 'Invalid stream operation %s.Seek';

This item has no description.

SEmptyStreamIllegalReader = 'Illegal Nil stream for TReader constructor';

This item has no description.

SEmptyStreamIllegalWriter = 'Illegal Nil stream for TWriter constructor';

This item has no description.

SErrNoVariantSupport = 'No variant support for properties. Please use the variants unit in your project and recompile';

This item has no description.

SUnsupportedPropertyVariantType = 'Unsupported property variant type %d';

This item has no description.

SUnknownPropertyType = 'Unknown property type %d';

This item has no description.

FilerSignature : Array[1..4] of char = 'TPF0';

This item has no description.

Generated by PasDoc 1.0.4.