paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-09 05:39:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

turbopower ipro: css support for font-family,style,size,weight, bug #14736, from Christian

Browse Source 
git-svn-id: trunk@22121 -
This commit is contained in:
mattias 2009-10-12 16:44:33 +00:00
parent 8d86a00845
commit 41ddb0f42b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/turbopower_ipro/ipcss.inc
View File

@ -133,7 +133,7 @@ end;
function FontWeightFromString(S: String): TCSSFontWeight; function FontWeightFromString(S: String): TCSSFontWeight;
begin begin
Result := cfwNormal; Result := cfwNormal;
S := LowerCase(S); S := trim(LowerCase(S));
if S = 'bold' then if S = 'bold' then
Result := cfwBold Result := cfwBold
else if S = 'bolder' then else if S = 'bolder' then
@ -792,13 +792,13 @@ begin
if Args.Count > 3 then ; // background attachment if Args.Count > 3 then ; // background attachment
if Args.Count > 4 then ; // background position if Args.Count > 4 then ; // background position
end end
else if Command = 'font-family' then else if (Command = 'font-family') and (Args.Count > 0) then
Font.Name := Args[0] Font.Name := Args[0]
else if Command = 'font-size' then else if (Command = 'font-size') and (Args.Count > 0) then
Font.Size := Args[0] Font.Size := Args[0]
else if Command = 'font-style' then else if (Command = 'font-style') and (Args.Count > 0) then
Font.Style := CSSFontStyleFromName(Args[0]) Font.Style := CSSFontStyleFromName(Args[0])
else if Command = 'font-weight' then else if (Command = 'font-weight') and (Args.Count > 0) then
Font.Weight := FontWeightFromString(Args[0]); Font.Weight := FontWeightFromString(Args[0]);
Args.Free; Args.Free;