paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 00:09:23 +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) TCSSIntegerElement = class(TCSSElement)
private private
FisEscaped: Boolean; FIsEscaped: Boolean;
FUnits: TCSSUnits; FUnits: TCSSUnits;
FValue: Integer; FValue: Integer;
protected protected
@ -113,7 +113,7 @@ Type
Public Public
Class function CSSType : TCSSType; override; Class function CSSType : TCSSType; override;
Property Value : Integer Read FValue Write FValue; 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; Property Units : TCSSUnits Read FUnits Write FUnits;
end; end;
@ -494,7 +494,7 @@ begin
if Result<>'' then if Result<>'' then
Result:='.'+Result; Result:='.'+Result;
if El is TCSSIdentifierElement then if El is TCSSIdentifierElement then
Result:=TCSSIdentifierElement(El).Name+Result Result:=El.ClassName+'"'+TCSSIdentifierElement(El).Name+'"'+Result
else else
Result:=El.ClassName+Result; Result:=El.ClassName+Result;
El:=El.Parent; El:=El.Parent;
@ -1136,7 +1136,7 @@ end;
function TCSSIntegerElement.GetAsString(aFormat: Boolean; function TCSSIntegerElement.GetAsString(aFormat: Boolean;
const aIndent: TCSSString): TCSSString; const aIndent: TCSSString): TCSSString;
begin begin
Result:=IntToStr(Value); Result:=IntToStr(Value)+CSSUnitNames[Units];
if aFormat then if aFormat then
Result:=aIndent+Result; Result:=aIndent+Result;
end; end;