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

address warnings

This commit is contained in:
Basile Burg 2025-05-12 05:17:36 +02:00
parent 129d83d568
commit f1f209a486
3 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/u_dcd.pas
View File

@ -100,7 +100,6 @@ constructor TDcdWrapper.create(aOwner: TComponent);
var
fname: string;
i: integer = 0;
r: TSemVer;
begin
inherited;

5
src/u_synmemo.pas
View File

@ -9,7 +9,7 @@ uses
SynEdit, SynPluginSyncroEdit, SynCompletion, SynEditKeyCmds, LazSynEditText,
SynHighlighterLFM, SynEditHighlighter, SynEditMouseCmds, SynEditFoldedView,
SynEditMarks, SynEditTypes, SynHighlighterJScript, SynBeautifier, dialogs,
md5, Spin, LCLIntf, LazFileUtils, LMessages, SynHighlighterCpp, math,
md5, Spin, LCLIntf, LazFileUtils, LMessages, SynHighlighterCpp,
SynGutterBase, LCLVersion, SynEditMiscProcs,
Clipbrd, fpjson, jsonparser, LazUTF8, Buttons, StdCtrls,
u_common, u_writableComponent, u_d2syn, u_txtsyn, u_dialogs, u_sxsyn,
@ -2146,10 +2146,9 @@ end;
procedure TDexedMemo.centerCursor();
var
Y, LinesInWin, CurTopLine, NewTopLine: Integer;
Y, LinesInWin, NewTopLine: Integer;
begin
LinesInWin := LinesInWindow;
CurTopLine := TopView;
Y := ToPos(TextView.TextToViewIndex(ToIdx(CaretY)));
NewTopLine := Max(1, Y - (LinesInWin div 2));
if NewTopLine < 1 then NewTopLine := 1;

1
src/u_todolist.lfm
View File

@ -55,6 +55,7 @@ inherited TodoListWidget: TTodoListWidget
end
end
inherited toolbar: TDexedToolBar
Height = 30
Width = 576
OnResize = toolbarResize
object btnGo: TDexedToolButton[0]