#21 Backup project with project related name

[xander xiao]

I suggest the default project backup name change to project ralated names not only a "ProjectBackup.zip", this need changes code as:

rocedure TfmBackup.LoadSettings;
var
cFileName:string;
Settings: TGExpertsSettings;
begin
// Do not localize.
Settings := TGExpertsSettings.Create;
try
Settings.LoadForm(Self, ConfigurationKey + '\Window');
FLastZipFile := Settings.ReadString(ConfigurationKey, 'LastZipDir', '');
//c5soft
if FCurrentBackupScope = bsActiveProject then
cFileName := ChangeFileExt(ExtractFileName(GxOtaGetCurrentProject.FileName), '')
else
cFileName := ChangeFileExt(ExtractFileName(GxOtaGetProjectGroupFileName), '');
// FLastZipFile := IncludeTrailingPathDelimiter(FLastZipFile) + 'ProjectBackup.zip';
FLastZipFile := IncludeTrailingPathDelimiter(FLastZipFile) + cFileName;
finally
FreeAndNil(Settings);
end;
EnsureFormVisible(Self);
end;

[Thomas Mueller]

Done, thanks for the suggestion and the code.

[Thomas Mueller]

Hm, I would like to close this ticket, but either I don't find the option to do it or I don't have the right for doing that.

[Thomas Mueller]

Hi Erik,

I can't see any "Edit" or "Edit Status" button or link. See attached
screenshot. Where is it supposed to be?

twm

On 4 June 2016 at 18:16, Erik Berry eberry@users.sf.net wrote:

• status: open --> closed-fixed
• Group: -->
• Comment:

See if you can do Edit Status, Closed.

---

** [feature-requests:#21] Backup project with project related name**

Status: closed-fixed
Group:
Created: Mon May 30, 2016 01:30 AM UTC by xander xiao
Last Updated: Sat Jun 04, 2016 01:33 PM UTC
Owner: Thomas Mueller

I suggest the default project backup name change to project ralated names not only a "ProjectBackup.zip", this need changes code as:

rocedure TfmBackup.LoadSettings;
var
cFileName:string;
Settings: TGExpertsSettings;
begin
// Do not localize.
Settings := TGExpertsSettings.Create;
try
Settings.LoadForm(Self, ConfigurationKey + '\Window');
FLastZipFile := Settings.ReadString(ConfigurationKey, 'LastZipDir', '');
//c5soft
if FCurrentBackupScope = bsActiveProject then
cFileName := ChangeFileExt(ExtractFileName(GxOtaGetCurrentProject.FileName), '')
else
cFileName := ChangeFileExt(ExtractFileName(GxOtaGetProjectGroupFileName), '');
// FLastZipFile := IncludeTrailingPathDelimiter(FLastZipFile) + 'ProjectBackup.zip';
FLastZipFile := IncludeTrailingPathDelimiter(FLastZipFile) + cFileName;
finally
FreeAndNil(Settings);
end;
EnsureFormVisible(Self);
end;

---

Sent from sourceforge.net because you indicated interest in https://sourceforge.net/p/gexperts/feature-requests/21/

To unsubscribe from further messages, please visit https://sourceforge.net/auth/subscriptions/

[Erik Berry]

I tried to grant you the project create/update permission. Maybe that will fix it.

[Thomas Mueller]

No, didn't make any difference.

On 5 June 2016 at 22:11, Erik Berry eberry@users.sf.net wrote:

I tried to grant you the project create/update permission. Maybe that will fix it.

---

** [feature-requests:#21] Backup project with project related name**

Status: closed-fixed
Group:
Created: Mon May 30, 2016 01:30 AM UTC by xander xiao
Last Updated: Sat Jun 04, 2016 04:16 PM UTC
Owner: Thomas Mueller

I suggest the default project backup name change to project ralated names not only a "ProjectBackup.zip", this need changes code as:

rocedure TfmBackup.LoadSettings;
var
cFileName:string;
Settings: TGExpertsSettings;
begin
// Do not localize.
Settings := TGExpertsSettings.Create;
try
Settings.LoadForm(Self, ConfigurationKey + '\Window');
FLastZipFile := Settings.ReadString(ConfigurationKey, 'LastZipDir', '');
//c5soft
if FCurrentBackupScope = bsActiveProject then
cFileName := ChangeFileExt(ExtractFileName(GxOtaGetCurrentProject.FileName), '')
else
cFileName := ChangeFileExt(ExtractFileName(GxOtaGetProjectGroupFileName), '');
// FLastZipFile := IncludeTrailingPathDelimiter(FLastZipFile) + 'ProjectBackup.zip';
FLastZipFile := IncludeTrailingPathDelimiter(FLastZipFile) + cFileName;
finally
FreeAndNil(Settings);
end;
EnsureFormVisible(Self);
end;

---

Sent from sourceforge.net because you indicated interest in https://sourceforge.net/p/gexperts/feature-requests/21/

To unsubscribe from further messages, please visit https://sourceforge.net/auth/subscriptions/

[Erik Berry]

See if you can do Edit Status, Closed.

[Erik Berry]

I just added the admin and developer groups to the edit tickets permission. That should fix it.

[Thomas Mueller]

It did, but apparently only for feature requests, not for bug reports.

On 6 June 2016 at 16:16, Erik Berry eberry@users.sf.net wrote:

I just added the admin and developer groups to the edit tickets permission. That should fix it.

---

** [feature-requests:#21] Backup project with project related name**

Status: closed-fixed
Group:
Created: Mon May 30, 2016 01:30 AM UTC by xander xiao
Last Updated: Sat Jun 04, 2016 04:16 PM UTC
Owner: Thomas Mueller

I suggest the default project backup name change to project ralated names not only a "ProjectBackup.zip", this need changes code as:

rocedure TfmBackup.LoadSettings;
var
cFileName:string;
Settings: TGExpertsSettings;
begin
// Do not localize.
Settings := TGExpertsSettings.Create;
try
Settings.LoadForm(Self, ConfigurationKey + '\Window');
FLastZipFile := Settings.ReadString(ConfigurationKey, 'LastZipDir', '');
//c5soft
if FCurrentBackupScope = bsActiveProject then
cFileName := ChangeFileExt(ExtractFileName(GxOtaGetCurrentProject.FileName), '')
else
cFileName := ChangeFileExt(ExtractFileName(GxOtaGetProjectGroupFileName), '');
// FLastZipFile := IncludeTrailingPathDelimiter(FLastZipFile) + 'ProjectBackup.zip';
FLastZipFile := IncludeTrailingPathDelimiter(FLastZipFile) + cFileName;
finally
FreeAndNil(Settings);
end;
EnsureFormVisible(Self);
end;

---

Sent from sourceforge.net because you indicated interest in https://sourceforge.net/p/gexperts/feature-requests/21/

To unsubscribe from further messages, please visit https://sourceforge.net/auth/subscriptions/