pscommon.pas

GREATIS Print Suite Pro for Delphi (3-7,2005,2006,2007) and C++ Builder (3-6) Set of components for

(*  GREATIS PRINT SUITE                              *)
(*  unit version 1.85.006                            *)
(*  Copyright (C) 2001-2007 Greatis Software         *)
(*  http://www.greatis.com/delphicb/printsuite/      *)
(*  http://www.greatis.com/delphicb/printsuite/faq/  *)
(*  http://www.greatis.com/bteam.html                *)

unit PSCommon;

interface

const

  // CHANGE THESE CONSTANTS TO CUSTOMIZE OR/AND LOCALIZE PRINT SUITE

  // scale values list (PSCombo.pas and PSPreview.pas)
  // used in TPreviewComboBox and in TCustomPreview.ZoomOut and TPreview.ZoomIn
  // you can change dimension and item values
  ScaleArray: array[0..10] of Integer = (10,25,50,75,100,150,200,300,500,700,1000);

  // unit precision for TCustomPrintJob.ConvertUnits function (PSJob.pas)
  // this constants determine max digit count after decimal point
  upPercents = 3;
  upInches = 3;
  upMillimeters = 2;

resourcestring

  // TCustomPreviewComboBox hint in TCustomPreviewToolbar (PSToolbar.pas)
  strScaleComboHint = 'View mode and scale';

  // common string for preview controls
  strNotLinked = 'not linked';

  // strings for TCustomPreview (PSPreview.pas)
  strPageWidth = 'Page width (%d%%)';
  strWholePage = 'Whole page (%d%%)';
  strPageIndex = 'Page %d of %d';

  // strings for TCustomPreviewComboBox (PSCombo.pas)
  strComboPageWidth = 'Page width';
  strComboWholePage = 'Whole page';
  strComboInvalidScale = 'Invalid scale value';

  // TCustomPreviewToolbar button hints (PSToolbar.pas)
  // you can change item values
  // do not change dimension!
  Hint00 = 'Print';
  Hint01 = 'Print dialog';
  Hint02 = 'Printer setup dialog';
  Hint03 = 'First page';
  Hint04 = 'Previous page';
  Hint05 = 'Next page';
  Hint06 = 'Last page';
  Hint07 = 'Whole page';
  Hint08 = 'Page width';
  Hint09 = 'Zoom out';
  Hint10 = 'Zoom in';
  Hint11 = 'Refresh';
  Hint12 = 'Close';

const
  HintArray: array[0..12] of string = (
    Hint00,
    Hint01,
    Hint02,
    Hint03,
    Hint04,
    Hint05,
    Hint06,
    Hint07,
    Hint08,
    Hint09,
    Hint10,
    Hint11,
    Hint12);

implementation

end.