save flame naming problem
This commit is contained in:
parent
16f31c0fce
commit
4991d000d7
@ -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
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user