paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_ipro: Remove unneeded assignment of node header id.

Browse Source 
git-svn-id: trunk@58862 -
This commit is contained in:
wp 2018-09-04 21:43:01 +00:00
parent 0673939267
commit b24aeda3ef
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/turbopower_ipro/iphtml.pas
View File

@ -5735,14 +5735,12 @@ begin
NewHeader.ParseBaseProps(Self); NewHeader.ParseBaseProps(Self);
NewHeader.Size := Size; NewHeader.Size := Size;
NewHeader.Align := ParseAlignment; NewHeader.Align := ParseAlignment;
NewHeader.Id := FindAttribute(htmlAttrID);
NextToken; NextToken;
ParseBodyText(NewHeader, [EndToken]); ParseBodyText(NewHeader, [EndToken]);
if CurToken = EndToken then if CurToken = EndToken then
NextToken NextToken
else else if FlagErrors then
if FlagErrors then ReportExpectedToken(EndToken);
ReportExpectedToken(EndToken);
end; end;
procedure TIpHtml.ParseParagraph(Parent : TIpHtmlNode; const EndTokens: TIpHtmlTokenSet); procedure TIpHtml.ParseParagraph(Parent : TIpHtmlNode; const EndTokens: TIpHtmlTokenSet);