save flame naming problem

This commit is contained in:
ronaldhordijk
2005-07-25 18:20:48 +00:00
parent 16f31c0fce
commit 4991d000d7
2 changed files with 3 additions and 2 deletions

View File

@ -2353,6 +2353,7 @@ begin
SaveForm.Caption := 'Save Parameters';
SaveForm.Filename := SavePath;
SaveForm.Title := maincp.name;
SaveForm.txtTitle.Enabled := True;
if SaveForm.ShowModal = mrOK then
begin
maincp.name := SaveForm.Title;