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

Version info corrected

Browse Source
This commit is contained in:
utak3r 2005-09-11 20:20:30 +00:00
parent a56f6397b9
commit 8de3008fde
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
2.10/Source/Main.pas
View File

@ -2100,7 +2100,7 @@ begin
mnuListRename.Enabled := True; mnuListRename.Enabled := True;
mnuItemDelete.Enabled := True; mnuItemDelete.Enabled := True;
OpenFile := OpenDialog.FileName; OpenFile := OpenDialog.FileName;
MainForm.Caption := 'Apophysis 2.02zx' + ' - ' + OpenFile; // --Z-- MainForm.Caption := 'Apophysis 2.02j' + ' - ' + OpenFile; // --Z--
OpenFileType := ftXML; OpenFileType := ftXML;
if UpperCase(ExtractFileExt(OpenDialog.FileName)) = '.IFS' then if UpperCase(ExtractFileExt(OpenDialog.FileName)) = '.IFS' then
begin begin
@ -2220,7 +2220,7 @@ begin
RandomBatch; RandomBatch;
OpenFile := AppPath + 'apophysis.rand'; OpenFile := AppPath + 'apophysis.rand';
OpenFileType := ftXML; OpenFileType := ftXML;
MainForm.Caption := 'Apophysis 2.02zx' + ' - Random Batch'; MainForm.Caption := 'Apophysis 2.02j' + ' - Random Batch';
ListXML(OpenFile, 1); ListXML(OpenFile, 1);
ListView.SetFocus; ListView.SetFocus;
if batchsize = 1 then DrawFlame; if batchsize = 1 then DrawFlame;
@ -2642,7 +2642,7 @@ begin
MainCp.Width := image.width; MainCp.Width := image.width;
MainCp.Height := Image.Height; MainCp.Height := Image.Height;
RandomBatch; RandomBatch;
MainForm.Caption := 'Apophysis 2.02zx' + ' - Random Batch'; MainForm.Caption := 'Apophysis 2.02j' + ' - Random Batch';
OpenFile := AppPath + 'apophysis.rand'; OpenFile := AppPath + 'apophysis.rand';
ListXML(OpenFile, 1); ListXML(OpenFile, 1);
OpenFileType := ftXML; OpenFileType := ftXML;
@ -2662,7 +2662,7 @@ begin
OpenFileType := ftXML; OpenFileType := ftXML;
MainForm.ListView.Selected := MainForm.ListView.Items[0]; MainForm.ListView.Selected := MainForm.ListView.Items[0];
end; end;
MainForm.Caption := 'Apophysis 2.02zx' + ' - ' + defFlameFile; MainForm.Caption := 'Apophysis 2.02j' + ' - ' + defFlameFile;
end; end;
ListView.SetFocus; ListView.SetFocus;
CanDrawOnResize := True; CanDrawOnResize := True;