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 var
fname: string; fname: string;
i: integer = 0; i: integer = 0;
r: TSemVer;
begin begin
inherited; inherited;

5
src/u_synmemo.pas
View File

@ -9,7 +9,7 @@ uses
SynEdit, SynPluginSyncroEdit, SynCompletion, SynEditKeyCmds, LazSynEditText, SynEdit, SynPluginSyncroEdit, SynCompletion, SynEditKeyCmds, LazSynEditText,
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,
SynGutterBase, LCLVersion, SynEditMiscProcs, SynGutterBase, LCLVersion, SynEditMiscProcs,
Clipbrd, fpjson, jsonparser, LazUTF8, Buttons, StdCtrls, Clipbrd, fpjson, jsonparser, LazUTF8, Buttons, StdCtrls,
u_common, u_writableComponent, u_d2syn, u_txtsyn, u_dialogs, u_sxsyn, u_common, u_writableComponent, u_d2syn, u_txtsyn, u_dialogs, u_sxsyn,
@ -2146,10 +2146,9 @@ end;
procedure TDexedMemo.centerCursor(); procedure TDexedMemo.centerCursor();
var var
Y, LinesInWin, CurTopLine, NewTopLine: Integer; Y, LinesInWin, NewTopLine: Integer;
begin begin
LinesInWin := LinesInWindow; LinesInWin := LinesInWindow;
CurTopLine := TopView;
Y := ToPos(TextView.TextToViewIndex(ToIdx(CaretY))); Y := ToPos(TextView.TextToViewIndex(ToIdx(CaretY)));
NewTopLine := Max(1, Y - (LinesInWin div 2)); NewTopLine := Max(1, Y - (LinesInWin div 2));
if NewTopLine < 1 then NewTopLine := 1; if NewTopLine < 1 then NewTopLine := 1;

13
src/u_todolist.lfm
View File

@ -18,31 +18,31 @@ inherited TodoListWidget: TTodoListWidget
Width = 576 Width = 576
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Columns = < Columns = <
item item
AutoSize = True AutoSize = True
Caption = 'text' Caption = 'text'
Width = 36 Width = 36
end end
item item
AutoSize = True AutoSize = True
Caption = 'category' Caption = 'category'
Width = 67 Width = 67
end end
item item
AutoSize = True AutoSize = True
Caption = 'assignee' Caption = 'assignee'
Width = 68 Width = 68
end end
item item
AutoSize = True AutoSize = True
Caption = 'status' Caption = 'status'
end end
item item
AutoSize = True AutoSize = True
Caption = 'priority' Caption = 'priority'
Width = 57 Width = 57
end end
item item
AutoSize = True AutoSize = True
Caption = 'file' Caption = 'file'
@ -55,6 +55,7 @@ inherited TodoListWidget: TTodoListWidget
end end
end end
inherited toolbar: TDexedToolBar inherited toolbar: TDexedToolBar
Height = 30
Width = 576 Width = 576
OnResize = toolbarResize OnResize = toolbarResize
object btnGo: TDexedToolButton[0] object btnGo: TDexedToolButton[0]