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

* Fix some compiler warnings

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-01-23 11:42:20 +01:00
parent 8275bfe7c7
commit 16cdffe064
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/wasm-oi/src/debug.objectinspector.html.pas
View File

@ -216,7 +216,6 @@ type
FAfterAddProperty: TAfterAddPropertyEvent;
FBeforeAddProperty: TBeforeAddPropertyEvent;
FBorder: Boolean;
FCaption: String;
FIcons: TPropertyInspectorIconHTML;
FOnRefresh: TNotifyEvent;
FOnRefreshObject: TNotifyEvent;
@ -240,7 +239,6 @@ type
function GetParentElementID: String;
procedure RenderCaption;
procedure SetBorder(AValue: Boolean);
procedure SetCaption(AValue: String);
procedure SetFullCaption(AValue: String);
procedure SetIcons(AValue: TPropertyInspectorIconHTML);
procedure SetObjectCaption(AValue: String);
@ -543,7 +541,7 @@ end;
function THTMLObjectTree.BuildWrapper(aParent : TJSHTMLElement) : TJSHTMLElement;
var
RI,SC,DW,DC,DT : TJSHTMLElement;
RI,SC,DC,DT : TJSHTMLElement;
begin
aParent.InnerHTML:='';
@ -624,6 +622,7 @@ begin
begin
lParent:=Nil;
FRootObjectID:=AID;
if aClassName<>'' then ;
end;
FBuilder.AddItem(lParent,aCaption,aID);
end;
@ -720,7 +719,7 @@ end;
constructor TInspectorObjectStack.Create(initialSize: Integer);
begin
Count:=0;
SetLength(Objects,ArrayDelta);
SetLength(Objects,InitialSize+ArrayDelta);
end;
procedure TInspectorObjectStack.Clear;
@ -792,12 +791,6 @@ begin
FTableElement.Border:=IntToStr(Ord(aValue));
end;
procedure THTMLObjectInspector.SetCaption(AValue: String);
begin
if FCaption=AValue then Exit;
FCaption:=AValue;
RenderCaption;
end;
procedure THTMLObjectInspector.SetFullCaption(AValue: String);
begin
@ -1008,8 +1001,8 @@ function THTMLObjectInspector.CreateConfigPanel(): TJSHTMLElement;
end;
var
Tmp,CBDiv,CBhead,CBCol,cbRow : TJSHTMLElement;
CB : TJSHTMLInputElement;
Tmp,CBDiv,CBhead,CBCol : TJSHTMLElement;
//CB : TJSHTMLInputElement;
Vis : TMemberVisibility;
begin
@ -1087,6 +1080,7 @@ procedure THTMLObjectInspector.HandleRefresh(aEvent: TJSHTMLElement);
begin
Clear;
RefreshObject;
if aEvent=Nil then ;
end;
procedure THTMLObjectInspector.HandleBack(aEvent: TJSHTMLElement);