lpkconst.pas

delphi下一个TLISTCTRL类控件数据的打印组件

Unit LPKConst;

Interface

// Helpfile for CustomListPrinter descendants

const
  LPHelpName : String = 'ListPrinter.HLP'; // Set the same name under LPKTBConst
  // HelpContext: 3333 = ListPrinter dialog  /  3334 = Settings dialog

  RegResourceKey   = 'Software\CoSyDat\ListPrint';
  NonExcelExport   = 'ListPrint.TXT';

{ Resource strings for LPKernel.PAS and WSUnit.PAS }
resourcestring
  IDSET_1  = 'Font for &title line: %s - %d';
  IDSET_2  = 'Font for &footer line: %s - %d';
  IDSET_3  = 'Save changes?';
  IDSET_4  = 'Font for &body text: %s - %d';
  IDSET_5  = 'Applay changes';
  IDLP_1   = 'Page 1 of %d';
  IDLP_2   = 'Page %d of %d';
  IDLP_3   = 'Page';
  IDLP_4   = 'Define filename';
  IDLP_5   = 'Content saved in file %s';
  IDLP_6   = 'Printing cancelled';
  IDLP_7   = 'No kontent for printing';
  IDLPR_1  = 'Can''t clear contents while printing';
  IDLPR_2  = 'Sending Pages To Printer';
  IDLPR_3  = 'Unable to change top margin while printing';
  IDLPR_4  = 'Unable to change bottom margin while printing';
  IDLPR_5  = 'Unable to change left margin while printing';
  IDLPR_6  = 'Unable to change right margin while printing';
  IDLPR_7  = 'Can''t change PrintToFile while printing';
  IDLPR_8  = 'Can''t change FileName while printing';
  IDLPR_9  = 'PageNumber must be between 1 and %d';

  msgNoConnect     = 'Work Sheet not connected!';
  msgExcelNoReply  = 'No Reply from Excel!';
  msgNoRespond     = 'Overflow of DDE transfer.'^M + 'Increase "Pause" value in "Settings"!';
  msgCmdAcceptErr  = '"%s" not accepted by Excel';
  msgExportToExcel = 'Exporting to Excel';
  msgExportToFile  = 'Content exported to %s';
  msgRegenPrview   = 'Regenerating Preview';
  SendingPagesMsg  = 'Sending to printer';
  msgExcelNotFound = 'MS Excel not found or not available.'^M + 'Export was written to file "ListPrint.TXT"';
  msgPage          = 'Page ';
  msgRow           = 'Row ';
  msgOf            = ' of ';
  msgUnknown       = '<Unknown>';
  msgCopies        = ' Copies';
  msgName          = 'Name:';

Implementation

End.