From 40b7cbe126326ed48d2ee38fb044255a4ed791eb Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 19 Apr 2015 05:14:18 +0200
Subject: [PATCH] display proj name in window
---
src/ce_main.pas | 13 +++++++++++++
1 file changed, 13 insertions(+)
diff --git a/src/ce_main.pas b/src/ce_main.pas
index 009448f9..1bae3f2c 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -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);