forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

cleanup and address a few warnings

This commit is contained in:
Basile Burg 2021-09-19 14:14:01 +02:00
parent 0ba7c05e9e
commit 6e19a724ea
3 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/u_ceproject.pas
View File

@ -597,7 +597,7 @@ var
exit; exit;
// TODO-cimprovement: use commonFolder() when it'll be compat. with the rel. paths. // TODO-cimprovement: use commonFolder() when it'll be compat. with the rel. paths.
// hint for the common dir // hint for the common dir
dirHint := fSrcs[i]; dirHint := fSrcs[fSrcs.Count-1];
while (dirHint[1] = '.') or (dirHint[1] = DirectorySeparator) do while (dirHint[1] = '.') or (dirHint[1] = DirectorySeparator) do
dirHint := dirHint[2..dirHint.length]; dirHint := dirHint[2..dirHint.length];
ini := fFilename.extractFilePath; ini := fFilename.extractFilePath;
@ -1174,17 +1174,12 @@ begin
end; end;
procedure setCEProjectCompiler(value: DCompiler); procedure setCEProjectCompiler(value: DCompiler);
var
sel: ICompilerSelector;
begin begin
sel := getCompilerSelector;
if value = gdc then if value = gdc then
value := gdmd value := gdmd
else if value = ldc then else if value = ldc then
value := ldmd; value := ldmd;
CEProjectCompiler := value; CEProjectCompiler := value;
//if not sel.isCompilerValid(CEProjectCompiler) then
// CEProjectCompiler := dmd;
end; end;
initialization initialization

4
src/u_projinspect.pas
View File

@ -639,16 +639,12 @@ end;
procedure TProjectInspectWidget.updateImperative; procedure TProjectInspectWidget.updateImperative;
var var
conf: string;
itm: TTreeNode; itm: TTreeNode;
chd: TTreeNode; chd: TTreeNode;
i,j: integer; i,j: integer;
sel: string = '';
fld: string; fld: string;
rng: TStringRange = (ptr:nil; pos:0; len:0); rng: TStringRange = (ptr:nil; pos:0; len:0);
begin begin
if Tree.Selected.isAssigned then
sel := Tree.Selected.GetTextPath;
fFileNode.DeleteChildren; fFileNode.DeleteChildren;
if fProj.isNotAssigned then if fProj.isNotAssigned then

3
src/u_synmemo.pas
View File

@ -10,7 +10,7 @@ uses
SynHighlighterLFM, SynEditHighlighter, SynEditMouseCmds, SynEditFoldedView, SynHighlighterLFM, SynEditHighlighter, SynEditMouseCmds, SynEditFoldedView,
SynEditMarks, SynEditTypes, SynHighlighterJScript, SynBeautifier, dialogs, SynEditMarks, SynEditTypes, SynHighlighterJScript, SynBeautifier, dialogs,
md5, Spin, LCLIntf, LazFileUtils, LMessages, SynHighlighterCpp, math, md5, Spin, LCLIntf, LazFileUtils, LMessages, SynHighlighterCpp, math,
SynGutterMarks, SynGutterBase, LCLVersion, SynGutterBase, LCLVersion,
//SynEditMarkupFoldColoring, //SynEditMarkupFoldColoring,
Clipbrd, fpjson, jsonparser, LazUTF8, LazUTF8Classes, Buttons, StdCtrls, Clipbrd, fpjson, jsonparser, LazUTF8, LazUTF8Classes, Buttons, StdCtrls,
u_common, u_writableComponent, u_d2syn, u_txtsyn, u_dialogs, u_common, u_writableComponent, u_d2syn, u_txtsyn, u_dialogs,
@ -2882,7 +2882,6 @@ procedure TDexedMemo.getCompletionList;
var var
i: integer; i: integer;
o: TObject; o: TObject;
s: string;
w: string; w: string;
r: TStringRange = (ptr:nil; pos:0; len: 0); r: TStringRange = (ptr:nil; pos:0; len: 0);
h: TStringHashSet; h: TStringHashSet;