FIX: Editor - status bar

This commit is contained in:
Alexander Koblov 2020-08-24 18:14:18 +00:00
commit 2d5a7f2e6f
2 changed files with 6 additions and 3 deletions

View file

@ -67,10 +67,13 @@ object frmEditor: TfrmEditor
Width = 150
end
item
Width = 50
end
Width = 96
end
item
Width = 50
end
item
Width = 128
end>
SimplePanel = False
end

View file

@ -728,7 +728,7 @@ end;
procedure TfrmEditor.UpdateHighlighter(Highlighter: TSynCustomHighlighter);
begin
dmHighl.SetHighlighter(Editor, Highlighter);
StatusBar.Panels[3].Text:= Highlighter.LanguageName;
StatusBar.Panels[4].Text:= Highlighter.LanguageName;
end;
procedure TfrmEditor.FormCloseQuery(Sender: TObject;