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

cleanup

This commit is contained in:
Basile Burg 2020-04-07 22:52:43 +02:00
parent 77ad8ccff4
commit 1bae8541d5
4 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
etc/terminal/terminalctrls.pas
View File

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

2
src/u_dastworx.pas
View File

@ -5,7 +5,7 @@ interface
uses uses
Classes, SysUtils, process, jsonscanner, fpjson, jsonparser, 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 * Gets the module name and the imports of the source code located in

2
src/u_profileviewer.pas
View File

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

1
src/u_tools.pas
View File

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