zcommonconst.pas

一款由Zlib来的数学公式解析器

{******************************************************************
*  (c)copyrights Capella Development Group, Donetsk 1999 - 2000
*  Project: Zeos Library
*  Module: Common constanst and resources
*  Author: Sergey Seroukhov   E-Mail: [e-mail]
*  Date: 13/11/99
*
*  List of changes:
*    13/03/00 - Fixed style (Thanks Robert Marquardt)
******************************************************************}

unit ZCommonConst;

interface

uses Controls;

const
  crHand     = TCursor(14000);
  crDragHand = TCursor(14001);
  crHandFlat = TCursor(14002);
  crHandGrab = TCursor(14003);
  crHandShow = TCursor(14004);

const
{ TBitmap.GetTransparentColor from GRAPHICS.PAS use this value }
  PaletteMask = $02000000;

{$IFDEF VER100}
const
  SDelphiKey = 'Software\Borland\Delphi\3.0';
{$ENDIF}

{$IFDEF VER120}
const
  SDelphiKey = 'Software\Borland\Delphi\4.0';
{$ENDIF}

const
{ The minimal VCL's used string ID is 61440. The custom IDs must be
  less that above. }
  MaxExtStrID = 61400;

const

{ Socket }

  SWinsockError       = MaxExtStrID - 20;
  SLoadWinsockError   = MaxExtStrID - 21;

{ Parser }

  SIncorFuncParam     = MaxExtStrID - 22;
  SStackEmpty         = MaxExtStrID - 23;
  SStackFull          = MaxExtStrID - 24;
  SEvalError          = MaxExtStrID - 25;
  SIncorOperate       = MaxExtStrID - 26;
  SVarNotFound        = MaxExtStrID - 27;
  SFuncNotFound       = MaxExtStrID - 28;
  STypesMismatch      = MaxExtStrID - 29;
  SIncorFuncIdx       = MaxExtStrID - 30;
  SIncorVarIdx        = MaxExtStrID - 31;
  SSyntaxError        = MaxExtStrID - 32;

{ Hash }

  STooManyHash        = MaxExtStrID - 33;
  SAllocError         = MaxExtStrID - 34;
  SHashNotFound       = MaxExtStrID - 35;

{ ToolEdit }

  SBrowse                = MaxExtStrID - 36;
  SDefaultFilter         = MaxExtStrID - 37;

{ PickDate }

  SDateDlgTitle          = MaxExtStrID - 38;
  SNextYear              = MaxExtStrID - 39;
  SNextMonth             = MaxExtStrID - 40;
  SPrevYear              = MaxExtStrID - 41;
  SPrevMonth             = MaxExtStrID - 42;

{ VCLUtils }

  SReadError             = MaxExtStrID - 40;
  SOutOfResources        = MaxExtStrID - 41;
  SResNotFound           = MaxExtStrID - 42;
  SNotImplemented        = MaxExtStrID - 43;
  SFileNotExec           = MaxExtStrID - 44;
  SLoadLibError          = MaxExtStrID - 45;
  SDetails               = MaxExtStrID - 46;

implementation

uses Windows, Forms;

{$IFDEF RUSSIAN}
  {$R ZCommonRus.RES}
{$ENDIF}

{$IFDEF GERMAN}
  {$R ZCommonGer.RES}
{$ENDIF}

{$IFDEF PORTUGUESE}
  {$R ZCommonPort.RES}
{$ENDIF}

{$IFDEF FRENCH}
  {$R ZCommonFr.RES}
{$ENDIF}

{$IFDEF POLISH}
  {$R ZCommonPol.RES}
{$ENDIF}

{$IFDEF CZECH}
  {$R ZCommonCz.RES}
{$ENDIF}

{$IFNDEF RUSSIAN} {$IFNDEF GERMAN} {$IFNDEF PORTUGUESE} 
{$IFNDEF FRENCH} {$IFNDEF POLISH} {$IFNDEF CZECH}
  {$R ZCommonEng.RES}
{$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF}

initialization
  Screen.Cursors[crHand]     := LoadCursor(hInstance, 'IDC_HANDCUR');
  Screen.Cursors[crDragHand] := LoadCursor(hInstance, 'IDC_DRAGCUR');
  Screen.Cursors[crHandFlat] := LoadCursor(HInstance,'IDC_HANDFLAT');
  Screen.Cursors[crHandGrab] := LoadCursor(HInstance,'IDC_HANDGRAB');
  Screen.Cursors[crHandShow] := LoadCursor(HInstance,'IDC_HANDSHOW');
end.