home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / zkuste / delphi / kolekce / d567 / FLEXCEL.ZIP / FlexCel / UFlxMessages.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-10-11  |  2.2 KB  |  108 lines
  1. unit UFlxMessages;
  2. {*$DEFINE SPANISH}
  3. interface
  4. uses {$IFDEF WIN32} Windows, {$ENDIF}
  5.      {$IFDEF ConditionalExpressions}{$if CompilerVersion >= 14} variants,{$IFEND}{$ENDIF} //Delphi 6 or above
  6.      SysUtils;
  7. resourcestring
  8.   FieldStr='##';
  9.   DataSetStr='__';
  10.   VarStr='#.';
  11.   MarkedRowStr='...delete row...';
  12.   HPageBreakStr='...page break...';
  13.   FullDataSetStr='*';
  14.  
  15.   FlexCelVersion='2.5';
  16.  
  17. {$IFDEF SPANISH}
  18.   {$INCLUDE FlxSpanish.inc}
  19. {$ELSE}
  20. {$IFDEF FRENCH}
  21.   {$INCLUDE FlxFrench.inc}
  22. {$ELSE}
  23. {$IFDEF ITALIAN}
  24.   {$INCLUDE FlxItalian.inc}
  25. {$ELSE}
  26.   {$INCLUDE FlxEnglish.inc}
  27. {$ENDIF}
  28. {$ENDIF}
  29. {$ENDIF}
  30.  
  31.   xls_Emf='EMF';
  32.   xls_Wmf='WMF';
  33.   xls_Jpeg='JPEG';
  34.   xls_Png='PNG';
  35.  
  36. type
  37.   TClientAnchor= packed record
  38.     Flag,
  39.     Col1, Dx1, Row1, Dy1,
  40.     Col2, Dx2, Row2, Dy2: word;
  41.   end;
  42.   PClientAnchor = ^TClientAnchor;
  43.  
  44. const
  45.   DefColWidthAdapt: integer=290; //256;
  46. var
  47.   ColMult:extended=36.6;
  48.   RowMult:extended=15;
  49.  
  50.  
  51. type
  52.   TColorPaletteRange=1..56;
  53.  
  54.   TXlsCellRange=record
  55.     Left, Top, Right, Bottom: integer;
  56.   end;
  57.  
  58. type
  59.   TOnGetFileNameEvent = procedure (Sender: TObject; const  FileFormat: integer; var Filename: TFileName) of object;
  60.   TXlsImgTypes = (xli_Emf, xli_Wmf, xli_Jpeg, xli_Png, xli_Bmp, xli_Unknown);
  61.  
  62.   VariantArray=Array [0..maxint div sizeof(Variant)-1]of variant;
  63.   ArrayOfVariant=Array of Variant;
  64.  
  65.   TXlsCellValue= record
  66.     Value: variant;
  67.     XF: integer;
  68.     IsFormula: boolean;
  69.   end;
  70.  
  71.   function SearchPathStr(const AFileName: String): String;
  72.  
  73. implementation
  74.  
  75. {$IFDEF WIN32}
  76. function SearchPathStr(const AFileName: String): String;
  77. var
  78.   FilePart: PChar;
  79. begin
  80.   SetLength(Result, MAX_PATH + 1);
  81.  
  82.   if SearchPath(nil, PChar(AFileName), '.xls',
  83.                 MAX_PATH, PChar(Result), FilePart) <> 0 then
  84.   begin
  85.     SetLength(Result, Length(PChar(Result)));
  86.   end
  87.   else
  88.     Raise Exception.CreateFmt(ErrCantFindFile,[AFileName]);
  89. end; // SearchRecStr
  90. {$ELSE}
  91. function SearchPathStr(const AFileName: String): String;
  92. begin
  93.   //We dont search for templates in linux
  94.   if not FileExists(AFileName) then Raise Exception.CreateFmt(ErrCantFindFile,[AFileName]);
  95.   Result:=AFileName;
  96. end; // SearchRecStr
  97. {$ENDIF}
  98.  
  99.  
  100. end.
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.