cleanup

etc/terminal/terminalctrls.pas

@@ -606,8 +606,8 @@ end;
 
 procedure TTerminal.setSelectedColor(value: TColor);
 {$ifdef hasgtk2term}
-var
-  c: TGDKColor;
+//var
+  //c: TGDKColor;
 {$endif}
 begin
   fSelectedColor:=value;

src/u_dastworx.pas

@@ -5,7 +5,7 @@ interface
 
 uses
   Classes, SysUtils, process, jsonscanner, fpjson, jsonparser,
-  u_common, u_dialogs;
+  u_common;
 
 (**
  * Gets the module name and the imports of the source code located in

src/u_profileviewer.pas

@@ -369,7 +369,6 @@ procedure TProfileViewerWidget.updateFromFile(const fname: string);
 var
   log: string;
   rng: TStringRange = (ptr:nil; pos:0; len: 0);
-  tps: qword;
   idt: string;
   fnc: qword;
   fft: qword;
@@ -460,7 +459,6 @@ begin
   if rng.empty then
     exit;
   idt := rng.nextWord;
-  tps := StrToQWordDef(idt, 0);
 
   // columns headers
   if rng.popLine^.empty then

src/u_tools.pas

@@ -87,7 +87,6 @@ type
   TTools = class(TWritableLfmTextComponent, IEditableShortCut, IDocumentObserver, IProjectObserver, IFPObserver)
   private
     fTools: TToolItems;
-    fShctCount: Integer;
     fDoc: TDexedMemo;
     fMenu: TMenuItem;
     fReadOnly: boolean;