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

@ -2,7 +2,7 @@ object MainForm: TMainForm
Left = 408
Top = 98
Width = 574
Height = 615
Height = 635
Caption = 'Apophysis'
Color = clBtnFace
Font.Charset = ANSI_CHARSET
@ -291,7 +291,7 @@ object MainForm: TMainForm
Left = 1
Top = 1
Width = 400
Height = 520
Height = 532
Align = alClient
AutoSize = True
PopupMenu = DisplayPopup

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;