paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 04:18:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix some warnings about unused variables

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-14 22:32:28 +01:00
parent 2e9b654c16
commit 57e0738de1
2 changed files with 5 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tools/lazdatadesktop/dicteditor.pp
View File

@ -202,7 +202,6 @@ Function CreateDatasetFromTabledef(TD : TDDTableDef;AOwner : TComponent = Nil) :
Var
MDS : TMemDataset;
I : Integer;
FD : TFieldDef;
FDD : TDDFieldDef;
begin
@ -498,7 +497,6 @@ Function TDataDictEditor.NewTableObject(AObjectName: String; TD: TDDTableDef; AO
Var
TN : TTreeNode;
FD : TDDFieldDef;
POT : TEditObjectType;
II : Integer;
@ -693,6 +691,7 @@ Var
begin
EOT:=TEditObjectType((Sender as TMenuItem).Tag);
S:=ObjectTypeName(EOT);
N:='';
if InputQuery(Format(SNewObject,[S]),Format(SNameFor,[S]),N) then
begin
case EOT of
@ -931,11 +930,11 @@ end;
procedure TDataDictEditor.DeleteGlobalObject(AObject: TObject);
Var
N,NN : TTreeNode;
N : TTreeNode;
begin
N:=FindNodeWithData(FTV,Pointer(AObject));
NN:=SelectNextNode(N,FDDNode);
SelectNextNode(N,FDDNode);
AObject.Free;
Modified:=True;
end;
@ -943,11 +942,11 @@ end;
procedure TDataDictEditor.DeleteTableObject(AObject: TObject);
Var
N,NN : TTreeNode;
N : TTreeNode;
begin
N:=FindNodeWithData(FTV,Pointer(AObject));
NN:=SelectNextNode(N,Nil);
SelectNextNode(N,Nil);
AObject.Free;
Modified:=True;
end;

23
tools/lazdatadesktop/fraconnection.pp
View File

@ -127,33 +127,10 @@ end;
constructor TConnectionFrame.Create(AOwner: TComponent);
Const
ImageNames : Array[0..9] of string =
('ddconnection','ddtables','ddtable','ddfields','ddfield',
'ddindexes','ddindex','ddtabledata',
// Need images for these...
'ddtables','ddtables');
Var
P : TPortableNetworkGraphic;
I : Integer;
begin
inherited Create(AOwner);
FTSDisplay.Caption:=SSelectedObject;
FTSQuery.Caption:=SQuery;
{ For I:=0 to 8 do
begin
P:=TPortableNetworkGraphic.Create;
try
P.LoadFromResourceName(HInstance,ImageNames[i]);
FImgList.Add(P,Nil);
finally
P.Free;
end;
end; }
// Query panel
FQueryPanel:= TQueryFrame.Create(Self);
FQueryPanel.Name:='FQueryPanel';