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

editor, status bar, doc fname on last panel

This commit is contained in:
Basile Burg 2015-12-17 03:22:42 +01:00
parent 6657eb52ff
commit 9f56994620
3 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_editor.lfm
View File

@ -18,24 +18,27 @@ inherited CEEditorWidget: TCEEditorWidget
ClientWidth = 465 ClientWidth = 465
object editorStatus: TStatusBar[0] object editorStatus: TStatusBar[0]
Left = 0 Left = 0
Height = 18 Height = 20
Top = 386 Top = 384
Width = 465 Width = 465
AutoSize = False
BorderSpacing.Bottom = 2 BorderSpacing.Bottom = 2
Panels = < Panels = <
item item
Width = 110 Width = 110
end end
item item
Width = 150 Width = 80
end end
item item
Width = 200 Width = 120
end end
item item
Width = 50 Width = 2000
end> end>
SimplePanel = False SimplePanel = False
SizeGrip = False
UseSystemFont = False
end end
end end
end end

8
src/ce_editor.pas
View File

@ -414,13 +414,13 @@ begin
end else begin end else begin
editorStatus.Panels[0].Text := format('%d : %d | %d', [fDoc.CaretY, fDoc.CaretX, fDoc.SelEnd - fDoc.SelStart]); 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;
if macRecorder.State = msRecording then if macRecorder.State = msRecording then
editorStatus.Panels[3].Text := 'recording macro' editorStatus.Panels[2].Text := 'recording macro'
else if macRecorder.IsEmpty then else if macRecorder.IsEmpty then
editorStatus.Panels[3].Text := 'no macro' editorStatus.Panels[2].Text := 'no macro'
else else
editorStatus.Panels[3].Text := 'macro ready'; editorStatus.Panels[2].Text := 'macro ready';
editorStatus.Panels[3].Text := fDoc.fileName;
if Visible and (pageControl.currentPage <> nil) and ((pageControl.currentPage.Caption = '') or if Visible and (pageControl.currentPage <> nil) and ((pageControl.currentPage.Caption = '') or
(pageControl.currentPage.Caption = '<new document>')) then (pageControl.currentPage.Caption = '<new document>')) then
begin begin

2
src/ce_synmemo.pas
View File

@ -8,7 +8,7 @@ uses
Classes, SysUtils, controls,lcltype, Forms, graphics, ExtCtrls, crc, Classes, SysUtils, controls,lcltype, Forms, graphics, ExtCtrls, crc,
SynEdit, SynPluginSyncroEdit, SynCompletion, SynEditKeyCmds, LazSynEditText, SynEdit, SynPluginSyncroEdit, SynCompletion, SynEditKeyCmds, LazSynEditText,
SynHighlighterLFM, SynEditHighlighter, SynEditMouseCmds, SynEditFoldedView, SynHighlighterLFM, SynEditHighlighter, SynEditMouseCmds, SynEditFoldedView,
SynEditMarks, SynEditMarkup, SynEditTypes, Messages, LMessages, SynEditMarks, SynEditTypes,
ce_common, ce_observer, ce_writableComponent, ce_d2syn, ce_txtsyn, ce_dialogs, ce_common, ce_observer, ce_writableComponent, ce_d2syn, ce_txtsyn, ce_dialogs,
ce_sharedres; ce_sharedres;