* fpspreadsheet: standardize debug output to console/writeln: remove SHOWUNSUPPORTED define and replace with IFDEF for FPSPREADDEBUG

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3233 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
bigchimp
2014-06-24 15:22:28 +00:00
parent 3e8926080b
commit d80d5427d4
5 changed files with 10 additions and 5 deletions

View File

@ -14,7 +14,9 @@
{
Copy from the zipper unit from FPC 2.7.1
Remove it after a new FPC with the fixes from this unit is released!
Remove it after a new FPC with the fixes from this unit is released -
definitely any version based on FPC 2.7.1, but probably works with FPC
2.6.4+ as well.
}
{$mode objfpc}
{$h+}

View File

@ -16,6 +16,7 @@
</SyntaxOptions>
</Parsing>
<Other>
<CustomOptions Value="$(IDEBuildOptions)"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>

View File

@ -10,6 +10,7 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Other>
<CustomOptions Value="$(IDEBuildOptions)"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>

View File

@ -57,6 +57,7 @@ unit xlsbiff5;
{$endif}
{$define USE_NEW_OLE}
{.$define FPSPREADDEBUG} //define to print out debug info to console. Used to be XLSDEBUG;
interface
@ -1256,10 +1257,10 @@ begin
INT_EXCEL_ID_PANE : ReadPane(AStream);
INT_EXCEL_ID_BOF : ;
INT_EXCEL_ID_EOF : SectionEOF := True;
// Show unsupported record types to console.
{.$DEFINE SHOWUNSUPPORTED}
{$IFDEF SHOWUNSUPPORTED}
{$IFDEF FPSPREADDEBUG} // Only write out if debugging
else
// Show unsupported record types to console.
case RecordType of
$000C: ; //(CALCCOUNT) This record is part of the Calculation Settings Block. It specifies the maximum number of times the formulas should be iteratively calculated. This is a fail-safe against mutually recursive formulas locking up a spreadsheet application.
$000D: ; //(CALCMODE) This record is part of the Calculation Settings Block. It specifies whether to calculate formulas manually, automatically or automatically except for multiple table operations.

View File

@ -48,7 +48,7 @@ unit xlsbiff8;
// The new OLE code is much better, so always use it
{$define USE_NEW_OLE}
{.$define FPSPREADDEBUG} //used to be XLSDEBUG
{.$define FPSPREADDEBUG} //define to print out debug info to console. Used to be XLSDEBUG;
interface