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

display proj name in window

This commit is contained in:
Basile Burg 2015-04-19 05:14:18 +02:00
parent da619d8479
commit 40b7cbe126
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_main.pas
View File

@ -281,6 +281,7 @@ type
procedure openProj(const aFilename: string);
procedure closeProj;
procedure addSource(const aFilename: string);
procedure showProjTitle;
// mru
procedure mruChange(Sender: TObject);
@ -1575,6 +1576,14 @@ end;
{$ENDREGION}
{$REGION project ---------------------------------------------------------------}
procedure TCEMainForm.showProjTitle;
begin
if (fProject <> nil) and fileExists(fProject.Filename) then
caption := format('Coedit - %s', [shortenPath(fProject.Filename, 30)])
else
caption := 'Coedit';
end;
procedure TCEMainForm.saveProjSource(const aEditor: TCESynMemo);
begin
if fProject = nil then exit;
@ -1588,12 +1597,14 @@ procedure TCEMainForm.closeProj;
begin
fProject.Free;
fProject := nil;
showProjTitle;
end;
procedure TCEMainForm.newProj;
begin
fProject := TCEProject.Create(nil);
fProject.Name := 'CurrentProject';
showProjTitle;
end;
procedure TCEMainForm.saveProj;
@ -1605,6 +1616,7 @@ procedure TCEMainForm.saveProjAs(const aFilename: string);
begin
fProject.fileName := aFilename;
fProject.saveToFile(fProject.fileName);
showProjTitle;
end;
procedure TCEMainForm.openProj(const aFilename: string);
@ -1612,6 +1624,7 @@ begin
closeProj;
newProj;
fProject.loadFromFile(aFilename);
showProjTitle;
end;
procedure TCEMainForm.mruProjItemClick(Sender: TObject);