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 BorderSpacing.Around = 2
Panels = < Panels = <
item item
Width = 100 Width = 110
end end
item item
Width = 150 Width = 150

5
src/ce_editor.pas
View File

@ -128,6 +128,7 @@ begin
end; end;
{$ENDREGION} {$ENDREGION}
{$REGION PageControl/Editor things ---------------------------------------------}
function TCEEditorWidget.getEditorCount: NativeInt; function TCEEditorWidget.getEditorCount: NativeInt;
begin begin
result := pageControl.PageCount; result := pageControl.PageCount;
@ -333,7 +334,8 @@ const
begin begin
if fDoc = nil then exit; 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[1].Text := modstr[fDoc.modified];
editorStatus.Panels[2].Text := fDoc.fileName; editorStatus.Panels[2].Text := fDoc.fileName;
end; end;
@ -372,5 +374,6 @@ begin
tokLst.Clear; tokLst.Clear;
errLst.Clear; errLst.Clear;
end; end;
{$ENDREGION}
end. end.