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

View File

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

View File

@ -414,13 +414,13 @@ begin
end else begin
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;
if macRecorder.State = msRecording then
editorStatus.Panels[3].Text := 'recording macro'
editorStatus.Panels[2].Text := 'recording macro'
else if macRecorder.IsEmpty then
editorStatus.Panels[3].Text := 'no macro'
editorStatus.Panels[2].Text := 'no macro'
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
(pageControl.currentPage.Caption = '<new document>')) then
begin

View File

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