mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

save flame naming problem

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
2.10/Source/Main.dfm
View File

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

1
2.10/Source/Main.pas
View File

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