remove unused var and units

This commit is contained in:
Basile Burg 2020-07-12 14:55:26 +02:00
parent 34e71d29b5
commit 8c6db7bef0
3 changed files with 5 additions and 8 deletions

View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, fpjson, jsonparser, jsonscanner, process, strutils,
LazFileUtils, RegExpr, fgl,
u_common, u_interfaces, u_observer, u_dialogs, u_processes, u_projutils,
u_common, u_interfaces, u_observer, u_dialogs, u_processes,
u_writableComponent, u_compilers, u_semver, u_stringrange;
type

View File

@ -8,7 +8,7 @@ uses
Classes, SysUtils, TreeFilterEdit, Forms, Controls, Graphics, ExtCtrls, Menus,
ComCtrls, u_widget, jsonparser, process, actnlist, Buttons, Clipbrd, LCLProc,
u_common, u_observer, u_synmemo, u_interfaces, u_writableComponent,
u_processes, u_sharedres, u_dsgncontrols, u_dexed_d;
u_sharedres, u_dsgncontrols, u_dexed_d;
type
@ -117,8 +117,6 @@ type
procedure TreeKeyPress(Sender: TObject; var Key: char);
private
fImages: TImageList;
fHasToolExe: boolean;
fToolExeName: string;
fOptions: TSymbolListOptions;
fSyms: TSymbolList;
fMsgs: IMessagesDisplay;

View File

@ -7,8 +7,7 @@ interface
uses
Classes, SysUtils, FileUtil, ListFilterEdit, Forms, Controls,
strutils, Graphics, Dialogs, ExtCtrls, Menus, Buttons, ComCtrls,
syncobjs,
u_widget, process, u_common, u_interfaces, u_synmemo, u_processes,
u_widget, process, u_common, u_interfaces, u_synmemo,
u_writableComponent, u_observer, u_sharedres, u_dexed_d,
u_dsgncontrols;
@ -434,9 +433,9 @@ begin
c := getContext;
case c of
tcNone: exit;
tcProject: if fProj.isNotAssigned or fProj.sourcesCount.equals(0) then
tcProject: if (fProj = nil) or fProj.sourcesCount.equals(0) then
exit;
tcFile: if fDoc.isNotAssigned then
tcFile: if fDoc = nil then
exit;
end;