Update of /cvsroot/apophysis/2.10/Source
In directory sc8-pr-cvs11.sourceforge.net:/tmp/cvs-serv21096
Modified Files:
Main.pas
Log Message:
command-line argument support added
Index: Main.pas
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/Main.pas,v
retrieving revision 1.71
retrieving revision 1.72
diff -C2 -d -r1.71 -r1.72
*** Main.pas 25 Aug 2008 15:12:55 -0000 1.71
--- Main.pas 27 Aug 2008 14:20:11 -0000 1.72
***************
*** 183,187 ****
tbShowAlpha: TToolButton;
tbShowTrace: TToolButton;
! ToolButton2: TToolButton;
mnuRenderAll: TMenuItem;
procedure tbzoomoutwindowClick(Sender: TObject);
--- 183,187 ----
tbShowAlpha: TToolButton;
tbShowTrace: TToolButton;
! tbTraceSeparator: TToolButton;
mnuRenderAll: TMenuItem;
procedure tbzoomoutwindowClick(Sender: TObject);
***************
*** 2595,2599 ****
if FileExists(AppPath + 'apophysis.rand') then
DeleteFile(AppPath + 'apophysis.rand');
! if (defFlameFile = '') or (not FileExists(defFlameFile)) then
begin
MainCp.Width := Image.Width;
--- 2595,2604 ----
if FileExists(AppPath + 'apophysis.rand') then
DeleteFile(AppPath + 'apophysis.rand');
!
! // get filename from command line argument
! if ParamCount > 0 then openFile := ParamStr(1)
! else openFile := defFlameFile;
!
! if (openFile = '') or (not FileExists(openFile)) then
begin
MainCp.Width := Image.Width;
***************
*** 2608,2613 ****
else
begin
! OpenFile := defFlameFile;
! if (LowerCase(ExtractFileExt(defFlameFile)) = '.apo') or (LowerCase(ExtractFileExt(defFlameFile)) = '.fla') then
begin
ListFlames(OpenFile, 1);
--- 2613,2617 ----
else
begin
! if (LowerCase(ExtractFileExt(OpenFile)) = '.apo') or (LowerCase(ExtractFileExt(OpenFile)) = '.fla') then
begin
ListFlames(OpenFile, 1);
***************
*** 4207,4211 ****
try
if (TagName = 'xform') or (TagName = 'finalxform') then
! if (TagName = 'finalxform') and (FinalXformLoaded) then ShowMessage('ERROR: No xforms allowed after FinalXform!')
else
begin
--- 4211,4215 ----
try
if (TagName = 'xform') or (TagName = 'finalxform') then
! if {(TagName = 'finalxform') and} (FinalXformLoaded) then ShowMessage('ERROR: No xforms allowed after FinalXform!')
else
begin
***************
*** 4263,4275 ****
if v = 'off' then begin
noPlot := true;
- //RetraceXform := false;
end
- // else if v = 'retrace' then begin
- // noPlot := false;
- // RetraceXform := true;
- // end
else begin
noPlot := false;
- //RetraceXform := false;
end;
end;
--- 4267,4273 ----
|