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

* Patch from Don Siders to fix typo in CSS attribute name. Fixes issue #41050

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-12-05 14:53:20 +01:00
parent d775dadced
commit 7b3fcc2a2e
2 changed files with 240 additions and 240 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

File diff suppressed because it is too large Load Diff

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

@ -415,13 +415,13 @@ type
procedure Test_InlineStyle; procedure Test_InlineStyle;
procedure Test_InlineStyle_DisplayNone; procedure Test_InlineStyle_DisplayNone;
// specifity // Specificity
procedure Test_Specifity_Id_Class; procedure Test_Specificity_Id_Class;
procedure Test_Specifity_Important; procedure Test_Specificity_Important;
procedure Test_Specifity_Shorthand_OneRule; procedure Test_Specificity_Shorthand_OneRule;
procedure Test_Specifity_Shorthand_ClassClass; procedure Test_Specificity_Shorthand_ClassClass;
procedure Test_Specifity_Longhand_All_Longhand; procedure Test_Specificity_Longhand_All_Longhand;
procedure Test_Specifity_Shorthand_All_Shorthand; procedure Test_Specificity_Shorthand_All_Shorthand;
// origin // origin
procedure Test_Origin_Id_Class; procedure Test_Origin_Id_Class;
@ -2498,7 +2498,7 @@ begin
AssertEquals('Div1.Display','none',Div1.Display); AssertEquals('Div1.Display','none',Div1.Display);
end; end;
procedure TTestNewCSSResolver.Test_Specifity_Id_Class; procedure TTestNewCSSResolver.Test_Specificity_Id_Class;
var var
Div1: TDemoDiv; Div1: TDemoDiv;
begin begin
@ -2511,7 +2511,7 @@ begin
Doc.Style:=LinesToStr([ Doc.Style:=LinesToStr([
'.bird { left: 6px; }', '.bird { left: 6px; }',
'#Div1 { left: 7px; top: 8px; }', // id has higher specifity, no matter if before or after a .class '#Div1 { left: 7px; top: 8px; }', // id has higher Specificity, no matter if before or after a .class
'.bird { top: 9px; }', '.bird { top: 9px; }',
'']); '']);
ApplyStyle; ApplyStyle;
@ -2520,7 +2520,7 @@ begin
AssertEquals('Div1.Top','8px',Div1.Top); AssertEquals('Div1.Top','8px',Div1.Top);
end; end;
procedure TTestNewCSSResolver.Test_Specifity_Important; procedure TTestNewCSSResolver.Test_Specificity_Important;
var var
Div1: TDemoDiv; Div1: TDemoDiv;
begin begin
@ -2542,7 +2542,7 @@ begin
AssertEquals('Div1.Top','9px',Div1.Top); AssertEquals('Div1.Top','9px',Div1.Top);
end; end;
procedure TTestNewCSSResolver.Test_Specifity_Shorthand_OneRule; procedure TTestNewCSSResolver.Test_Specificity_Shorthand_OneRule;
var var
Div1: TDemoDiv; Div1: TDemoDiv;
begin begin
@ -2559,7 +2559,7 @@ begin
AssertEquals('Div1.BorderWidth','7px',Div1.BorderWidth); AssertEquals('Div1.BorderWidth','7px',Div1.BorderWidth);
end; end;
procedure TTestNewCSSResolver.Test_Specifity_Shorthand_ClassClass; procedure TTestNewCSSResolver.Test_Specificity_Shorthand_ClassClass;
var var
Div1: TDemoDiv; Div1: TDemoDiv;
begin begin
@ -2581,7 +2581,7 @@ begin
AssertEquals('Div1.BorderWidth','7px',Div1.BorderWidth); AssertEquals('Div1.BorderWidth','7px',Div1.BorderWidth);
end; end;
procedure TTestNewCSSResolver.Test_Specifity_Longhand_All_Longhand; procedure TTestNewCSSResolver.Test_Specificity_Longhand_All_Longhand;
var var
Div1: TDemoDiv; Div1: TDemoDiv;
begin begin
@ -2605,7 +2605,7 @@ begin
AssertEquals('Div1.Background','red',Div1.Background); AssertEquals('Div1.Background','red',Div1.Background);
end; end;
procedure TTestNewCSSResolver.Test_Specifity_Shorthand_All_Shorthand; procedure TTestNewCSSResolver.Test_Specificity_Shorthand_All_Shorthand;
var var
Div1, Div2: TDemoDiv; Div1, Div2: TDemoDiv;
begin begin