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

added selection length display

This commit is contained in:
Basile Burg 2014-11-30 02:34:30 +01:00
parent dacf972250
commit e0c3d9495f
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_editor.lfm
View File

@ -39,7 +39,7 @@ inherited CEEditorWidget: TCEEditorWidget
BorderSpacing.Around = 2
Panels = <
item
Width = 100
Width = 110
end
item
Width = 150

5
src/ce_editor.pas
View File

@ -128,6 +128,7 @@ begin
end;
{$ENDREGION}
{$REGION PageControl/Editor things ---------------------------------------------}
function TCEEditorWidget.getEditorCount: NativeInt;
begin
result := pageControl.PageCount;
@ -333,7 +334,8 @@ const
begin
if fDoc = nil then exit;
//
editorStatus.Panels[0].Text := format('%d : %d', [fDoc.CaretY, fDoc.CaretX]);
editorStatus.Panels[0].Text := format('%d : %d | %d', [fDoc.CaretY, fDoc.CaretX,
fDoc.SelEnd - fDoc.SelStart]);
editorStatus.Panels[1].Text := modstr[fDoc.modified];
editorStatus.Panels[2].Text := fDoc.fileName;
end;
@ -372,5 +374,6 @@ begin
tokLst.Clear;
errLst.Clear;
end;
{$ENDREGION}
end.