rm_const1.pas

report machine 2.3 功能强大

unit RM_Const1;

interface

uses
	Graphics;

const
  RMCurrentVersion = 40; // this is current version (2.3)
  RMCurrentVersionStr = 'Version 2.3 (Build 2002.03.23)';

  RMInchPerMM: Single = 0.03937;
  RMFormatNumCount = 4;
  RMFormatDateCount = 7;
  RMFormatTimeCount = 4;
  RMFormatBooleanCount = 4;

  RMSpecCount = 9;
  RMSpecFuncs: array[0..RMSpecCount - 1] of string =
  ('Page#', '', 'Date', 'Time', 'Line#', 'LineThough#', 'Column#',
    'Current#', 'TotalPages');
//  RMSpecFuncsCommon: array[0..RMSpecCount - 1] of string =
//  ('页号', '', '日期', '时间', '行号', '行through#', '列号', '当前行号',
//  '总页数(需要选"两遍报表")');
  RMColors: array[0..41] of TColor =
  (clWhite, clBlack, clMaroon, clGreen, clOlive, clNavy, clPurple, clTeal,
    clGray, clSilver, clRed, clLime, clYellow, clBlue, clFuchsia,
    clAqua, clNone,
    clScrollBar, clBackground, clActiveCaption, clInactiveCaption,
    clMenu, clWindow, clWindowFrame, clMenuText, clWindowText,
    clCaptionText, clActiveBorder, clInactiveBorder, clAppWorkSpace,
    clHighlight, clHighlightText, clBtnFace, clBtnShadow, clGrayText,
    clBtnText, clInactiveCaptionText, clBtnHighlight, cl3DDkShadow,
    cl3DLight, clInfoText, clInfoBk);
  RMColorNames: array[0..41] of string =
  ('clWhite', 'clBlack', 'clMaroon', 'clGreen', 'clOlive', 'clNavy',
    'clPurple', 'clTeal', 'clGray', 'clSilver', 'clRed', 'clLime',
    'clYellow', 'clBlue', 'clFuchsia', 'clAqua', 'clTransparent',
    'clScrollBar', 'clBackground', 'clActiveCaption', 'clInactiveCaption',
    'clMenu', 'clWindow', 'clWindowFrame', 'clMenuText', 'clWindowText',
    'clCaptionText', 'clActiveBorder', 'clInactiveBorder', 'clAppWorkSpace',
    'clHighlight', 'clHighlightText', 'clBtnFace', 'clBtnShadow', 'clGrayText',
    'clBtnText', 'clInactiveCaptionText', 'clBtnHighlight', 'cl3DDkShadow',
    'cl3DLight', 'clInfoText', 'clInfoBk');

  RMDefaultFontSizeStr: array[0..31] of string = (
    '初号', '小初', '一号', '小一', '二号', '小二', '三号', '小三', '四号', '小四', '五号',
    '小五', '六号', '5', '6', '7', '8', '9', '10', '11', '12', '14', '16', '18', '20',
    '22', '24', '26', '28', '36', '48', '72');
  RMDefaultFontSize: array[0..12] of byte = (42, 36, 26, 24, 22, 18, 16, 15, 14, 12, 11, 9,
    8);

const
  rsToolBar = 'ToolBar\';
  rsForm = 'Form\';
  rsWidth = 'Width';
  rsHeight = 'Height';
  rsTop = 'Top';
  rsLeft = 'Left';
  rsVisible = 'isVisible';
  rsX = 'XPosition';
  rsY = 'YPosition';
  rsDockName = 'DockName';
  rsDocked = 'Docked';
  rsWindowState = 'WindowState';
  rsMaximized = 'Maximized';
  rsLocalPropNames = 'LocalPropNames';
  rsUseTableName = 'UseTableName';
  rsOpenFiles = 'Last Open Files';

var
	RMIsChineseGB: Boolean;

implementation

uses RM_Const, RM_Utils;

initialization
	RMIsChineseGB := RMLoadStr(SRMIsChineseGB) = '1';

end.