tecommon.pas

来自「MyTeRollTray组件」· PAS 代码 · 共 61 行

{==============================================================================

  Common Routines for Evgeny Kryukov products
  Copyright (C) 2000-2003 by Evgeny Kryukov
  All rights reserved

===============================================================================}

unit TeCommon;

{$I TeDefine.inc}
{$T-,W-,X+,P+}

interface

uses Messages, Controls;

{!============================================================================!}

const
  kscCommonVersion = '1.1.0';
  kscCommonVersionPropText = 'LibCommon Version ' + kscCommonVersion;

type
  TkscCommonVersion = type string;

const
  Sig: PChar = '- ' + kscCommonVersionPropText +
    {$IFDEF KS_DELPHI4} ' - D4 - '+ {$ENDIF}
    {$IFDEF KS_CBUILDER4} ' - CB4 - ' + {$ENDIF}
    {$IFDEF KS_DELPHI5} ' - D5 - '+ {$ENDIF}
    {$IFDEF KS_CBUILDER5} ' - CB5 - '+ {$ENDIF}
    {$IFDEF KS_DELPHI6} ' - D6 - '+ {$ENDIF}
    {$IFDEF KS_CBUILDER6} ' - CB6 - '+ {$ENDIF}
    {$IFDEF KS_DELPHI7} ' - D7 - '+ {$ENDIF}
    {$IFDEF KS_CBUILDER7} ' - CB7 - '+ {$ENDIF}
    'Copyright (C) 1998-2003 by Evgeny Kryukov -';


const

{ Paint to bitmap message - paint form content to specified DC
  wParam - Point
  lParam - DC }

  CM_PAINTTOBITMAP      = CM_BASE + 456;



implementation {===============================================================}





initialization
  Sig := Sig;

finalization
end.