paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 14:50:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: SourceEditor, show selection mode indicator with char count. Issue #40599

Browse Source
This commit is contained in:
Martin 2024-09-29 21:28:39 +02:00
parent fcc0fe6d11
commit 7928b08ac2
2 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -2920,6 +2920,8 @@ resourcestring
uepSelNorm='Def';
uepSelLine='Line';
uepSelCol ='Col';
uepSelChars ='%d chars';
uepSelCxChars ='%d * %d';
lisUEFontWith = 'Font without UTF-8';
lisUETheCurre = 'The current editor font does not support UTF-8 but your system seems to use it.'
+'%sThat means non ASCII characters will probably be shown incorrectly.'

20
ide/sourceeditor.pp
View File

@ -9152,6 +9152,7 @@ var
PanelXY: string;
PanelFileMode, PanelSelMode: string;
CurEditor: TSynEdit;
bb, be: TPoint;
begin
if FUpdateLock > 0 then begin
include(FUpdateFlags, ufStatusBar);
@ -9230,8 +9231,20 @@ begin
smLine: PanelSelMode := uepSelLine;
smColumn: PanelSelMode := uepSelCol;
end;
if (PanelSelMode<>'') and not CurEditor.SelAvail then
PanelSelMode := '('+PanelSelMode+')';
if CurEditor.SelAvail then begin
PanelSelMode := PanelSelMode + ': ';
case CurEditor.SelectionMode of
smNormal: PanelSelMode := PanelSelMode + Format(uepSelChars, [Length(CurEditor.SelText)]);
smLine: PanelSelMode := PanelSelMode + Format(uepSelChars, [Length(CurEditor.SelText)]);
smColumn: begin
bb := CurEditor.LogicalToPhysicalPos(CurEditor.BlockBegin);
be := CurEditor.LogicalToPhysicalPos(CurEditor.BlockEnd);
PanelSelMode := PanelSelMode + Format(uepSelCxChars, [abs(be.X - bb.X), abs(be.Y - bb.Y)+1]);
end;
end;
end
else
PanelSelMode := PanelSelMode + ': -';
if CurEditor.IsStickySelecting then
PanelSelMode := '* '+PanelSelMode;
@ -9249,6 +9262,9 @@ begin
Statusbar.Panels[4].Text := PanelSelMode;
if PanelSelMode = '' then
Statusbar.Panels[4].Width := 0
else
if CurEditor.SelAvail then
Statusbar.Panels[4].Width := 100
else
Statusbar.Panels[4].Width := 50;
Statusbar.Panels[5].Text := PanelFilename;