paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-22 18:49:04 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
packages/webwidget/propertygridwidget.pp
View File

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