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

lazutils: compwriter virtual methiods

Browse Source 
git-svn-id: trunk@60630 -
This commit is contained in:
mattias 2019-03-09 12:12:41 +00:00
parent aab3418c8c
commit 59f5c68e94
1 changed files with 40 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
components/lazutils/compwriterpas.pas
View File

@ -120,47 +120,48 @@ type
FSignatureBegin: String; FSignatureBegin: String;
FSignatureEnd: String; FSignatureEnd: String;
FStream: TStream; FStream: TStream;
procedure AddToAncestorList(Component: TComponent); protected
procedure DetermineAncestor(Component: TComponent); procedure AddToAncestorList(Component: TComponent); virtual;
procedure SetNeededUnits(const AValue: TStrings); procedure DetermineAncestor(Component: TComponent); virtual;
procedure SetRoot(const AValue: TComponent); procedure SetNeededUnits(const AValue: TStrings); virtual;
procedure WriteComponentData(Instance: TComponent); procedure SetRoot(const AValue: TComponent); virtual;
procedure WriteChildren(Component: TComponent; Step: TCWPChildrenStep); procedure WriteComponentData(Instance: TComponent); virtual;
procedure WriteProperty(Instance: TPersistent; PropInfo: PPropInfo); procedure WriteChildren(Component: TComponent; Step: TCWPChildrenStep); virtual;
procedure WriteProperties(Instance: TPersistent); procedure WriteProperty(Instance: TPersistent; PropInfo: PPropInfo); virtual;
procedure WriteDefineProperties(Instance: TPersistent); procedure WriteProperties(Instance: TPersistent); virtual;
procedure WriteCollection(PropName: string; Collection: TCollection); procedure WriteDefineProperties(Instance: TPersistent); virtual;
function ShortenFloat(s: string): string; procedure WriteCollection(PropName: string; Collection: TCollection); virtual;
function ShortenFloat(s: string): string; virtual;
public public
constructor Create(AStream: TStream); constructor Create(AStream: TStream); virtual;
destructor Destroy; override; destructor Destroy; override;
// stream a component: // stream a component:
procedure WriteDescendant(ARoot: TComponent; AAncestor: TComponent = nil); procedure WriteDescendant(ARoot: TComponent; AnAncestor: TComponent = nil); virtual;
// utility functions: // utility functions:
procedure WriteComponentCreate(Component: TComponent); procedure WriteComponentCreate(Component: TComponent); virtual;
procedure WriteComponent(Component: TComponent); procedure WriteComponent(Component: TComponent); virtual;
procedure WriteIndent; procedure WriteIndent; virtual;
procedure Write(const s: string); procedure Write(const s: string); virtual;
procedure WriteLn; procedure WriteLn; virtual;
procedure WriteStatement(const s: string); procedure WriteStatement(const s: string); virtual;
procedure WriteAssign(const LHS, RHS: string); procedure WriteAssign(const LHS, RHS: string); virtual;
procedure WriteWithDo(const Expr: string); procedure WriteWithDo(const Expr: string); virtual;
procedure WriteWithEnd; procedure WriteWithEnd; virtual;
function GetComponentPath(Component: TComponent): string; function GetComponentPath(Component: TComponent): string; virtual;
function GetBoolLiteral(b: boolean): string; function GetBoolLiteral(b: boolean): string; virtual;
function GetCharLiteral(c: integer): string; function GetCharLiteral(c: integer): string; virtual;
function GetWideCharLiteral(c: integer): string; function GetWideCharLiteral(c: integer): string; virtual;
function GetStringLiteral(const s: string): string; function GetStringLiteral(const s: string): string; virtual;
function GetWStringLiteral(p: PWideChar; Count: integer): string; function GetWStringLiteral(p: PWideChar; Count: integer): string; virtual;
function GetFloatLiteral(const e: Extended): string; function GetFloatLiteral(const e: Extended): string; virtual;
function GetCurrencyLiteral(const c: currency): string; function GetCurrencyLiteral(const c: currency): string; virtual;
function GetEnumExpr(TypeInfo: PTypeInfo; Value: integer; function GetEnumExpr(TypeInfo: PTypeInfo; Value: integer;
AllowOutOfRange: boolean): string; AllowOutOfRange: boolean): string; virtual;
function GetVersionStatement: string; function GetVersionStatement: string; virtual;
function CreatedByAncestor(Component: TComponent): boolean; function CreatedByAncestor(Component: TComponent): boolean; virtual;
procedure AddNeededUnit(const AnUnitName: string); procedure AddNeededUnit(const AnUnitName: string); virtual;
procedure Indent; procedure Indent; virtual;
procedure Unindent; procedure Unindent; virtual;
property Stream: TStream read FStream; property Stream: TStream read FStream;
property Root: TComponent read FRoot write SetRoot; property Root: TComponent read FRoot write SetRoot;
property LookupRoot: TComponent read FLookupRoot; property LookupRoot: TComponent read FLookupRoot;
@ -1513,11 +1514,11 @@ begin
end; end;
end; end;
procedure TCompWriterPas.WriteDescendant(ARoot: TComponent; AAncestor: TComponent); procedure TCompWriterPas.WriteDescendant(ARoot: TComponent; AnAncestor: TComponent);
begin begin
FRoot := ARoot; FRoot := ARoot;
FAncestor := AAncestor; FAncestor := AnAncestor;
FRootAncestor := AAncestor; FRootAncestor := AnAncestor;
FLookupRoot := ARoot; FLookupRoot := ARoot;
FNeedAccessClass := false; FNeedAccessClass := false;
if not (cwpoNoSignature in Options) then if not (cwpoNoSignature in Options) then