paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-13 09:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove unused variables

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-04-11 13:59:25 +02:00
parent 50f19e89f7
commit 7800365186
1 changed files with 7 additions and 15 deletions

22
packages/webwidget/propertygridwidget.pp
View File

@ -158,7 +158,7 @@ Type
function AllowProperty(M: TTypeMemberProperty): boolean; virtual;
procedure CreatePropertyList(aInstance: TObject; aList: TFPObjectList); virtual;
function CreatePropertyEditor(aInstance: TObject; aInfo: TTypeMemberProperty): TpropertyEditor; virtual;
procedure CreatePropertyGrid(aTableElement, aRowElement: TJSHTMLElement; FMySubject: TObject; aProperties: TFPObjectList); virtual;
procedure CreatePropertyGrid(aTableElement, aRowElement: TJSHTMLElement; aMySubject: TObject; aProperties: TFPObjectList); virtual;
function DoBooleanEditor(aEditor: TJSHTMLElement; aInfo: TPropertyEditor): TJSHTMLElement; virtual;
function DoComponentEditor(aEditor: TJSHTMLElement; aInfo: TPropertyEditor): TJSHTMLElement; virtual;
function DoEnumerationEditor(aEditor: TJSHTMLElement; aInfo: TPropertyEditor): TJSHTMLElement; virtual;
@ -188,13 +188,11 @@ uses js;
function TSetPropertyEditor.InitEditor: TJSHTMLElement;
Var
inp : TJSHTMLTableElement;
cell : TJSHTMLTableDataCellElement;
r : TJSHTMLTableRowElement;
vals : TIntegerDynArray;
eInfo : TTypeInfoEnum;
I : Integer;
selcb,CB : TJSHTMLInputElement;
CB : TJSHTMLInputElement;
lbl : TJSHTMLLabelElement;
begin
@ -345,9 +343,8 @@ function TStringListPropertyEditor.InitEditor: TJSHTMLElement;
Var
inp : TJSHTMLSelectElement;
O,osel : TJSHTMLOptionElement;
avalS : String;
aVal,I : Integer;
O : TJSHTMLOptionElement;
I : Integer;
aTexts,aValues : TStrings;
begin
@ -393,7 +390,6 @@ end;
procedure TEnumerationPropertyEditor.EditorToProperty;
Var
Sel : TJSHTMLSelectElement;
S : String;
begin
@ -432,7 +428,6 @@ end;
procedure TComponentPropertyEditor.EditorToProperty;
Var
Sel : TJSHTMLSelectElement;
S : String;
C : TComponent;
@ -584,8 +579,6 @@ end;
function TStringsPropertyEditor.InitEditor: TJSHTMLElement;
Var
AVal : TObject;
begin
Result:=TJSHTMLTextAreaElement(CreateEditorElement('textarea',''));
@ -728,7 +721,7 @@ begin
CreatePropertyGrid(aElement,Nil,FMySubject,FProperties);
end;
procedure TSimplePropertyGridWidget.CreatePropertyGrid(aTableElement, aRowElement: TJSHTMLElement; FMySubject: TObject;
procedure TSimplePropertyGridWidget.CreatePropertyGrid(aTableElement, aRowElement: TJSHTMLElement; aMySubject: TObject;
aProperties: TFPObjectList);
Var
@ -814,6 +807,7 @@ end;
function TSimplePropertyGridWidget.DoBooleanEditor(aEditor : TJSHTMLElement; aInfo: TPropertyEditor) : TJSHTMLElement;
begin
Result:=Nil;
end;
function TSimplePropertyGridWidget.DoEnumerationEditor(aEditor : TJSHTMLElement; aInfo: TPropertyEditor) : TJSHTMLElement;
@ -861,13 +855,12 @@ end;
function TSimplePropertyGridWidget.DoSetEditor(aEditor : TJSHTMLElement; aInfo: TPropertyEditor) : TJSHTMLElement;
Var
inp : TJSHTMLTableElement;
cell : TJSHTMLTableDataCellElement;
r : TJSHTMLTableRowElement;
vals : TIntegerDynArray;
eInfo : TTypeInfoEnum;
I : Integer;
selcb,CB : TJSHTMLInputElement;
CB : TJSHTMLInputElement;
lbl : TJSHTMLLabelElement;
begin
@ -1005,7 +998,6 @@ function TSimplePropertyGridWidget.CreatePropertyEditor (aInstance : TObject; aI
Var
EditorClass : TPropertyEditorClass;
aEditor : TPropertyEditor;
begin
EditorClass:=nil;