home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 23 / IOPROG_23.ISO / SOFT / TEXPLIST.ZIP / Delphi 3 / ELV_Strings.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-02-01  |  4.0 KB  |  90 lines
  1. {------------------------------------------------------------------------------}
  2. { TExportListView Localization Unit                                            }
  3. {------------------------------------------------------------------------------}
  4. { To localize TExportListView, just chang these String Constants to phrases in }
  5. { your own language. Please make sure you don't change the name of constants,  }
  6. { or change them in any other way - you must leave all %s, etc... markers in   }
  7. { the string. Only change the actual words itself. If you do anything else,    }
  8. { TExportListView might not compile or run properly.                           }
  9. {------------------------------------------------------------------------------}
  10.  
  11. unit ELV_Strings;
  12.  
  13. interface
  14.  
  15. uses Dialogs, ExportLView;
  16.  
  17. const
  18.   // ExportType Constants - Remember to leave these constants in the same order as you found them
  19.   // but don't worry, you can change them - they're just text descriptions.     
  20.   cExportTypes: TExportTypeConstants =
  21.     ('HTML',
  22.      'Microsoft Word',
  23.      'Microsoft Excel',
  24.      'Text',
  25.      'Rich Text',
  26.      'Comma-Delimited Text',
  27.      'Tab-Delimited Text',
  28.      'Clipboard');
  29.  
  30.   // "Choose" Dialog Strings
  31.   cChooseDialogCaption = 'Export %d Items';
  32.   cChooseOkCaption     = '&Ok';
  33.   cChooseCancelCaption = '&Cancel';
  34.   cChooseInstructions  = 'Please choose an Export Format';
  35.   cChooseScreenCaption = '&View on Screen';
  36.   cChooseFileCaption   = 'Export to &File';
  37.  
  38.   // File Dialog Options & Titles for Export File Dialog
  39.   cFileDialogOptions = [ofFileMustExist, ofHideReadOnly, ofPathMustExist,
  40.                         ofOverWritePrompt]; // I don't suggest changing the Dialog Options
  41.   cFilesFilter       = '%s files (*.%s)|*.%s|All Files (*.*)|*.*';
  42.   cExportTitle       = 'Export to %s File';
  43.  
  44.   // LineFeeds
  45.   CRLF   = #13#10;
  46.   CRLFx2 = CRLF + CRLF;
  47.  
  48.   // Misc.
  49.   cExcelRightFooter = 'Page &P of &N'; // Don't touch &P or &N! Only change word for 'page' and 'of'
  50.   cNumberRowsCaption = 'Item'; // Row Numbering Column Header
  51.  
  52.   // Progress Constatns
  53.   cPrintingCaption = 'Printing...';
  54.   cExportingCaption = 'Exporting...';
  55.  
  56.   // Misc. Messages
  57.   cCreatedMsg         = 'Created:';
  58.   cClipSuccessfulMsg  = 'Successfully Exported to Clipboard';
  59.   cExcelPleaseWaitMsg = 'Please Wait... Excel Export in Progress.';
  60.  
  61.   // Error Messages
  62.   cGenericExportError  = 'Export Failed.';
  63.   cTextFileError       = 'Export failed. Try again with a different file name. Please ensure that ' + CRLF +
  64.                          'you are not attempting to write to an empty floppy drive or write-protected ' + CRLF +
  65.                          'media (such as a floppy). Network users: Please ensure that the network ' + CRLF +
  66.                          'drive/folder you are trying to write to is connected.';
  67.   cPrintError          = 'Could not complete Print operation successfully.';
  68.   cDefShellViewError   = 'Error occured while trying to view data exported to the %s format.' + CRLFx2 +
  69.                          'If this problem persists, you may want to consider re-installing the %s ' +
  70.                          'Viewer Application. Doing so should fix this problem.';
  71.  
  72.   cNoDataError       = 'There is no Data to Export.';
  73.   cNoneSelectedError = 'You must select at least one item to Export.';
  74.   cNoColumnsError    = cNoDataError + CRLFx2 +
  75.                        'Try widening the columns you want to export.';
  76.  
  77.   // OLE Error Messages
  78.   cGenericOLEError1    = 'Cannot communicate with ';
  79.   cGenericOLEError2    = '.' + CRLF + 'Please try again and if that still fails then '+
  80.                          'restart the computer, it might work then.';
  81.   cExcelOLEError       = cGenericOLEError1 + 'Microsoft Excel' + cGenericOLEError2;
  82.  
  83.   // Error Messages that only the Developer should see, no need to translate these.
  84.   cNoListViewError = 'You must assign a TListView to the ListView Property before ' +
  85.                      'calling the Execute method.';
  86.  
  87. implementation
  88.  
  89. end.
  90.