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

TurboPower_iPro: Add "inherited Create" to all classes in iphtml.pas inheriting from TObject (to simplify switching to a different base class if needed). Patch by Zaher Dirkey, issue #37930).

Browse Source 
git-svn-id: trunk@64028 -
This commit is contained in:
wp 2020-10-16 15:35:17 +00:00
parent 8088c1378b
commit 70240d5335
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/turbopower_ipro/iphtml.pas
View File

@ -3841,6 +3841,7 @@ end;
constructor TIpHtmlInteger.Create(AValue: Integer);
begin
inherited Create;
FValue := AValue;
end;
@ -3981,6 +3982,7 @@ end;
constructor TIpHtmlMultiLengthList.Create;
begin
inherited Create;
List := {$ifdef IP_LAZARUS}TFPList{$else}TList{$endif}.Create;
end;
@ -4007,6 +4009,7 @@ end;
constructor TIpHtmlBaseLayouter.Create(AOwner: TIpHtmlNodeCore);
begin
inherited Create;
FOwner := AOwner;
FBlockMin := -1;
FBlockMax := -1;
@ -4111,6 +4114,7 @@ end;
constructor TIpHtmlNode.Create(ParentNode : TIpHtmlNode);
begin
inherited Create;
if assigned(ParentNode) then
if ParentNode is TIpHtmlNodeMulti then
TIpHtmlNodeMulti(ParentNode).FChildren.Add(Self)
@ -9161,6 +9165,7 @@ end;
constructor TIpHtmlGifQueueEntry.Create(AGraphic: TGraphic; ARect: TRect);
begin
inherited Create;
{$IFDEF IP_LAZARUS_DBG}
DebugLn('TIpHtmlGifQueueEntry.Create ToDo NOT IMPLEMENTED YET');
{$ELSE}
@ -14781,6 +14786,7 @@ constructor TIpHtmlFrame.Create(Viewer: TIpHtmlCustomPanel; Parent: TCustomPanel
DataProvider : TIpAbstractHtmlDataProvider; FlagErrors, NoScroll: Boolean;
MarginWidth, MarginHeight: Integer);
begin
inherited Create;
FNoScroll := NoScroll;
FParent := Parent;
FViewer := Viewer;
@ -15461,6 +15467,7 @@ end;
constructor TIpHtmlNvFrame.Create(Scanner: TIpHtmlCustomScanner;
DataProvider : TIpAbstractHtmlDataProvider; FlagErrors: Boolean);
begin
inherited Create;
FScanner := Scanner;
FDataProvider := DataProvider;
FHtml := TIpHtml.Create;

1
components/turbopower_ipro/iphtmlprop.pas
View File

@ -361,6 +361,7 @@ end;
constructor TIpHtmlProps.Create(APropsAList: TIpHtmlPropsAList; APropsBList: TIpHtmlPropsBList);
begin
inherited Create;
FPropsACache := APropsAList;
FPropsBCache := APropsBList;
FPropA := FPropsACache.FDummyA;