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

get tab caption, small optimization 

- only lex if doc is D source
This commit is contained in:
Basile Burg 2015-09-07 15:54:06 +02:00
parent e26f8494af
commit a8f2f442d4
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/ce_editor.pas
View File

@ -373,6 +373,8 @@ end;
procedure TCEEditorWidget.updateImperative;
const
modstr: array[boolean] of string = ('...', 'MODIFIED');
//var
//md: string;
begin
if fDoc = nil then begin
editorStatus.Panels[0].Text := '';
@ -382,6 +384,19 @@ 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;
// TODO-cEditor: set tab caption directly (e.g one start, if reload last docs)
//if Visible then if pageControl.ActivePage <> nil then
//if pageControl.ActivePage.Caption = '' then
//begin
// if fDoc.isDSource then
// begin
// lex(fDoc.Lines.Text, fTokList, @lexFindToken);
// md := getModuleName(fTokList);
// fTokList.Clear;
// end;
// if md = '' then md := extractFileName(fDoc.fileName);
// pageControl.ActivePage.Caption := md;
//end;
end;
end;
@ -408,10 +423,13 @@ begin
fKeyChanged := false;
if fDoc.Lines.Count = 0 then exit;
//
lex(fDoc.Lines.Text, fTokList, @lexFindToken);
md := '';
if fDoc.isDSource then
begin
fTokList.Clear;
lex(fDoc.Lines.Text, fTokList, @lexFindToken);
md := getModuleName(fTokList);
end;
if md = '' then md := extractFileName(fDoc.fileName);
pageControl.ActivePage.Caption := md;
//