paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 17:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-css: TCSSIntegerElement.GetAsString: append units

Browse Source
This commit is contained in:
mattias 2022-09-09 23:18:28 +02:00
parent 63a2395e2c
commit 72466cac46
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -105,7 +105,7 @@ Type
TCSSIntegerElement = class(TCSSElement)
private
FisEscaped: Boolean;
FIsEscaped: Boolean;
FUnits: TCSSUnits;
FValue: Integer;
protected
@ -113,7 +113,7 @@ Type
Public
Class function CSSType : TCSSType; override;
Property Value : Integer Read FValue Write FValue;
Property IsEscaped : Boolean Read FisEscaped Write FIsEscaped;
Property IsEscaped : Boolean Read FIsEscaped Write FIsEscaped;
Property Units : TCSSUnits Read FUnits Write FUnits;
end;
@ -494,7 +494,7 @@ begin
if Result<>'' then
Result:='.'+Result;
if El is TCSSIdentifierElement then
Result:=TCSSIdentifierElement(El).Name+Result
Result:=El.ClassName+'"'+TCSSIdentifierElement(El).Name+'"'+Result
else
Result:=El.ClassName+Result;
El:=El.Parent;
@ -1136,7 +1136,7 @@ end;
function TCSSIntegerElement.GetAsString(aFormat: Boolean;
const aIndent: TCSSString): TCSSString;
begin
Result:=IntToStr(Value);
Result:=IntToStr(Value)+CSSUnitNames[Units];
if aFormat then
Result:=aIndent+Result;
end;