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

fcl-css: TCSSStringElement = Class(TCSSBaseStringElement)

Browse Source
This commit is contained in:
mattias 2022-09-07 20:08:13 +02:00
parent 3a11ee9a14
commit b6a7504665
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-css/src/fpcsstree.pp
View File

@ -176,10 +176,9 @@ Type
Class function CSSType : TCSSType; override; Class function CSSType : TCSSType; override;
end; end;
TCSSStringElement = Class(TCSSElement) TCSSStringElement = Class(TCSSBaseStringElement)
private private
FChildren : TCSSElementList; FChildren : TCSSElementList;
FValue: UTF8String;
function GetChildren: TCSSElementList; function GetChildren: TCSSElementList;
protected protected
function GetAsString(aFormat : Boolean; const aIndent : String): UTF8String; override; function GetAsString(aFormat : Boolean; const aIndent : String): UTF8String; override;
@ -188,7 +187,6 @@ Type
Class function CSSType : TCSSType; override; Class function CSSType : TCSSType; override;
Destructor Destroy; override; Destructor Destroy; override;
Property Children : TCSSElementList Read GetChildren; Property Children : TCSSElementList Read GetChildren;
Property Value : UTF8String Read FValue Write FValue;
end; end;
{ TCSSIdentifierElement } { TCSSIdentifierElement }