paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 11:10:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-css: clean up

Browse Source
This commit is contained in:
mattias 2022-10-31 18:03:52 +01:00
parent 92cc78e723
commit 87044c004f
3 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-css/src/fpcssparser.pp
View File

@ -15,7 +15,7 @@
unit fpCSSParser;
{$mode ObjFPC}{$H+}
{$WARN 6060 off : }
interface
uses

9
packages/fcl-css/src/fpcssresolver.pas
View File

@ -93,7 +93,7 @@ unit fpCSSResolver;
{$mode ObjFPC}{$H+}
{$Interfaces CORBA}
{$WARN 6060 off : }
interface
uses
@ -341,7 +341,7 @@ type
{ TCSSResolver }
TCSSResolver = class
TCSSResolver = class(TComponent)
private
FNumericalIDs: array[TCSSNumericalIDKind] of TCSSNumericalIDs;
FOnLog: TCSSResolverLogEvent;
@ -406,7 +406,7 @@ type
function GetElPos(El: TCSSElement): string; virtual;
function GetElPath(El: TCSSElement): string; virtual;
public
constructor Create;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Clear; virtual;
procedure ClearStyleCustomData; virtual;
@ -1927,8 +1927,9 @@ begin
Result:=GetCSSPath(El);
end;
constructor TCSSResolver.Create;
constructor TCSSResolver.Create(AOwner: TComponent);
begin
inherited;
FLogEntries:=TFPObjectList.Create(true);
end;

6
packages/fcl-css/tests/tccssresolver.pp
View File

@ -104,8 +104,8 @@ type
function GetCSSAttributeClass: TCSSString; virtual;
function HasCSSAttribute(const AttrID: TCSSNumericalID): boolean; virtual;
function GetCSSAttribute(const AttrID: TCSSNumericalID): TCSSString; virtual;
function HasCSSPseudo(const AttrID: TCSSNumericalID): boolean; virtual;
function GetCSSPseudo(const AttrID: TCSSNumericalID): TCSSString; virtual;
function HasCSSPseudo(const {%H-}AttrID: TCSSNumericalID): boolean; virtual;
function GetCSSPseudo(const {%H-}AttrID: TCSSNumericalID): TCSSString; virtual;
function GetCSSEmpty: boolean; virtual;
function GetCSSDepth: integer; virtual;
property Parent: TDemoNode read FParent write SetParent;
@ -1385,7 +1385,7 @@ begin
AttributeIDs['caption']:=AttrID;
inc(AttrID);
FCSSResolver:=TCSSResolver.Create;
FCSSResolver:=TCSSResolver.Create(nil);
for NumKind in TCSSNumericalIDKind do
CSSResolver.NumericalIDs[NumKind]:=FNumericalIDs[NumKind];