home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 October / Chip_2002-10_cd1.bin / zkuste / delphi / kolekce / d56 / FLEXCEL.ZIP / FlexCel / UFlxMessages.pas < prev    next >
Pascal/Delphi Source File  |  2002-07-02  |  3KB  |  90 lines
  1. unit UFlxMessages;
  2.  
  3. interface
  4. uses Sysutils,
  5.     {$IFDEF ConditionalExpressions}{$if CompilerVersion >= 14} variants,{$IFEND}{$ENDIF} //Delphi 6 or above
  6.      Windows;
  7. resourcestring
  8.   FieldStr='##';
  9.   DataSetStr='__';
  10.   VarStr='#.';
  11.   MarkedRowStr='...delete row...';
  12.   FullDataSetStr='*';
  13.  
  14. {$IFDEF SPANISH}
  15.   ErrNoAdapter='No hay un Adaptador asociado al reporte';
  16.   ErrTooManySheets='Se estßn intentando crear demasiadas pßginas';
  17.  
  18.   ErrNoDataSet='No se puede encontrar el dataset %s';
  19.   ErrNoPropDefined='No se ha definido la propiedad "%s" o no es published';
  20.   ErrBadProp='Error al recuperar la propiedad "%s". Verifique que sea del tipo variant';
  21.   ErrTooManyDimensions='La propiedad "s" solo tiene %d dimensiones';
  22.   ErrIndexOutBounds='El indice "%d" de la propiedad "%s" no estß en el rango %d-%d';
  23.  
  24.   ErrInvalidDrawingType='El tipo de imagen "%s" no es vßlido';
  25.  
  26.   ErrNoOpenFile='No hay ningun archivo abierto';
  27.   ErrCantWriteToFile='No se puede grabar en el archivo "%s". Compruebe que no este siendo usado por otro usuario'
  28. {$ELSE}
  29.   ErrNoAdapter='There is no Adapter linked to the report';
  30.   ErrTooManySheets='Trying to insert more sheets than the maximum allowed';
  31.  
  32.   ErrNoDataSet='Can┤t find the dataset %s';
  33.   ErrNoPropDefined='Property "%s" has not been defined or is not published';
  34.   ErrBadProp='Error trying to retrieve property "%s". Verify it is a variant';
  35.   ErrTooManyDimensions='The property "%s" has only %d dimensions';
  36.   ErrIndexOutBounds='The index "%d" of the property "%s" is not in the range %d-%d';
  37.  
  38.   ErrInvalidDrawingType='Drawing type "%s" invalid';
  39.  
  40.   ErrNoOpenFile='There is no open file';
  41.   ErrCantFindFile='Can''t find the file "%s"';
  42. {$ENDIF}
  43.  
  44.   xls_Emf='EMF';
  45.   xls_Wmf='WMF';
  46.   xls_Jpeg='JPEG';
  47.   xls_Png='PNG';
  48.  
  49. type
  50.   TOnGetFileNameEvent = procedure (Sender: TObject; const  FileFormat: integer; var Filename: TFileName) of object;
  51.   TXlsImgTypes = (xli_Emf, xli_Wmf, xli_Jpeg, xli_Png);
  52.  
  53.   VariantArray=Array [0..maxint div sizeof(Variant)-1]of variant;
  54.  
  55.   TXlsCellValue= record
  56.     Value: variant;
  57.     XF: integer;
  58.     IsFormula: boolean;
  59.   end;
  60.  
  61.   function SearchPathStr(const AFileName: String): String;
  62.  
  63. implementation
  64.  
  65. function SearchPathStr(const AFileName: String): String;
  66. var
  67.   FilePart: PChar;
  68. begin
  69.   SetLength(Result, MAX_PATH + 1);
  70.  
  71.   if SearchPath(nil, PChar(AFileName), '.xls',
  72.                 MAX_PATH, PChar(Result), FilePart) <> 0 then
  73.   begin
  74.     SetLength(Result, Length(PChar(Result)));
  75.   end
  76.   else
  77.     Raise Exception.CreateFmt(ErrCantFindFile,[AFileName]);
  78. end; // SearchRecStr
  79.  
  80.  
  81.  
  82.  
  83. end.
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.