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

fcl-css: fixed resolving function

Browse Source
This commit is contained in:
mattias 2024-11-11 15:33:18 +01:00
parent d0c33bfa5d
commit a0a17d5f07
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-css/src/fpcssresparser.pas
View File

@ -1640,11 +1640,17 @@ end;
procedure TCSSBaseResolver.ReadWordID(var aComp: TCSSResCompValue); procedure TCSSBaseResolver.ReadWordID(var aComp: TCSSResCompValue);
var var
Identifier: TCSSString; Identifier: TCSSString;
p: PCSSChar;
begin begin
case aComp.Kind of case aComp.Kind of
rvkFunctionUnknown: rvkFunctionUnknown:
begin begin
SetString(Identifier,aComp.StartP,aComp.EndP-aComp.StartP); p:=aComp.StartP;
if not (p^ in AlIden) then exit;
repeat
inc(p);
until not (p^ in AlNumIden);
SetString(Identifier,aComp.StartP,p-aComp.StartP);
aComp.FunctionID:=CSSRegistry.IndexOfAttrFunction(Identifier); aComp.FunctionID:=CSSRegistry.IndexOfAttrFunction(Identifier);
if aComp.FunctionID>CSSIDNone then if aComp.FunctionID>CSSIDNone then
aComp.Kind:=rvkFunction; aComp.Kind:=rvkFunction;