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

replaced several 'Apophysis 2.02j' strings with one 'AppVersionString' constant

Browse Source
This commit is contained in:
zueuk 2005-09-12 13:00:00 +00:00
parent 389efeaf78
commit dbc5dcb6dd
2 changed files with 12 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
2.10/Source/Main.dfm
View File

@ -27,7 +27,7 @@ object MainForm: TMainForm
Left = 160 Left = 160
Top = 28 Top = 28
Width = 4 Width = 4
Height = 494 Height = 480
end end
object ToolBar: TToolBar object ToolBar: TToolBar
Left = 0 Left = 0
@ -283,7 +283,7 @@ object MainForm: TMainForm
Left = 0 Left = 0
Top = 28 Top = 28
Width = 160 Width = 160
Height = 494 Height = 480
Align = alLeft Align = alLeft
Columns = < Columns = <
item item
@ -302,7 +302,7 @@ object MainForm: TMainForm
Left = 164 Left = 164
Top = 28 Top = 28
Width = 433 Width = 433
Height = 494 Height = 480
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered
BevelOuter = bvNone BevelOuter = bvNone
@ -326,7 +326,7 @@ object MainForm: TMainForm
end end
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Top = 522 Top = 508
Width = 597 Width = 597
Height = 19 Height = 19
Panels = < Panels = <

64
2.10/Source/Main.pas
View File

@ -38,6 +38,8 @@ const
RS_XO = 2; RS_XO = 2;
RS_VO = 3; RS_VO = 3;
AppVersionString = 'Apophysis 2.02j';
type type
TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove, msZoomOutWindowMove, msDrag, msDragMove, msRotate, msRotateMove); TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove, msZoomOutWindowMove, msDrag, msDragMove, msRotate, msRotateMove);
@ -2100,7 +2102,7 @@ begin
mnuListRename.Enabled := True; mnuListRename.Enabled := True;
mnuItemDelete.Enabled := True; mnuItemDelete.Enabled := True;
OpenFile := OpenDialog.FileName; OpenFile := OpenDialog.FileName;
MainForm.Caption := 'Apophysis 2.02j' + ' - ' + OpenFile; // --Z-- MainForm.Caption := AppVersionString + ' - ' + OpenFile; // --Z--
OpenFileType := ftXML; OpenFileType := ftXML;
if UpperCase(ExtractFileExt(OpenDialog.FileName)) = '.IFS' then if UpperCase(ExtractFileExt(OpenDialog.FileName)) = '.IFS' then
begin begin
@ -2220,7 +2222,7 @@ begin
RandomBatch; RandomBatch;
OpenFile := AppPath + 'apophysis.rand'; OpenFile := AppPath + 'apophysis.rand';
OpenFileType := ftXML; OpenFileType := ftXML;
MainForm.Caption := 'Apophysis 2.02j' + ' - Random Batch'; MainForm.Caption := AppVersionString + ' - Random Batch';
ListXML(OpenFile, 1); ListXML(OpenFile, 1);
ListView.SetFocus; ListView.SetFocus;
if batchsize = 1 then DrawFlame; if batchsize = 1 then DrawFlame;
@ -2642,7 +2644,7 @@ begin
MainCp.Width := image.width; MainCp.Width := image.width;
MainCp.Height := Image.Height; MainCp.Height := Image.Height;
RandomBatch; RandomBatch;
MainForm.Caption := 'Apophysis 2.02j' + ' - Random Batch'; MainForm.Caption := AppVersionString + ' - Random Batch';
OpenFile := AppPath + 'apophysis.rand'; OpenFile := AppPath + 'apophysis.rand';
ListXML(OpenFile, 1); ListXML(OpenFile, 1);
OpenFileType := ftXML; OpenFileType := ftXML;
@ -2662,7 +2664,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.02j' + ' - ' + defFlameFile; MainForm.Caption := AppVersionString + ' - ' + defFlameFile;
end; end;
ListView.SetFocus; ListView.SetFocus;
CanDrawOnResize := True; CanDrawOnResize := True;
@ -2983,6 +2985,8 @@ begin
// if GradientForm.visible then GradientForm.UpdateGradient(maincp.cmap); // if GradientForm.visible then GradientForm.UpdateGradient(maincp.cmap);
if EditForm.visible then EditForm.UpdateDisplay; if EditForm.visible then EditForm.UpdateDisplay;
// hmm I think I still have some problems with EditForm updating
// several times in a row with all these calls :-\
// if AdjustForm.visible then AdjustForm.UpdateDisplay; // if AdjustForm.visible then AdjustForm.UpdateDisplay;
if MutateForm.visible then MutateForm.UpdateDisplay; if MutateForm.visible then MutateForm.UpdateDisplay;
@ -4551,58 +4555,6 @@ begin
UpdateWindows; UpdateWindows;
end end
else mnuResetLocationClick(Sender); else mnuResetLocationClick(Sender);
{ msDragMove:
begin
FViewBMP.Free;
FViewBMP := nil;
FSelectRect.BottomRight := Point(x, y);
FMouseMoveState := msDrag;
if (x = 0) and (y = 0) then
Exit; // double clicked
StopThread;
UpdateUndo;
MainCp.MoveRect(FSelectRect);
RedrawTimer.Enabled := True;
UpdateWindows;
end;
msZoomWindowMove:
begin
DrawZoomWindow(FSelectRect);
FSelectRect.BottomRight := Point(x, y);
FMouseMoveState := msZoomWindow;
if (abs(FSelectRect.Left - FSelectRect.Right) < 10) or
(abs(FSelectRect.Top - FSelectRect.Bottom) < 10) then
Exit; // zoom to much or double clicked
StopThread;
UpdateUndo;
MainCp.ZoomtoRect(FSelectRect);
RedrawTimer.Enabled := True;
UpdateWindows;
end;
msZoomOutWindowMove:
begin
DrawZoomWindow(FSelectRect);
FSelectRect.BottomRight := Point(x, y);
FMouseMoveState := msZoomOutWindow;
if (abs(FSelectRect.Left - FSelectRect.Right) < 10) or
(abs(FSelectRect.Top - FSelectRect.Bottom) < 10) then
Exit; // zoom to much or double clicked
StopThread;
UpdateUndo;
MainCp.ZoomOuttoRect(FSelectRect);
RedrawTimer.Enabled := True;
UpdateWindows;
end;
end;
}
end; end;
{$IFDEF DEBUG} {$IFDEF DEBUG}
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////