Delphi控件源码

开发平台：

Delphi

Rxconst.pas：源码内容

							{*******************************************************}
{                                                       }
{         Delphi VCL Extensions (RX)                    }
{                                                       }
{         Copyright (c) 1995, 1996 AO ROSNO             }
{         Copyright (c) 1997, 1998 Master-Bank          }
{                                                       }
{*******************************************************}
unit RXConst;
interface
{$I RX.INC}
uses Controls;
const
  RX_VERSION = $0002004B;  { 2.75 }
const
{ Command message for Speedbar editor }
  CM_SPEEDBARCHANGED = CM_BASE + 80;
{ Command message for TRxSpeedButton }
  CM_RXBUTTONPRESSED = CM_BASE + 81;
{ Command messages for TRxWindowHook }
  CM_RECREATEWINDOW  = CM_BASE + 82;
  CM_DESTROYHOOK     = CM_BASE + 83;
{ Notify message for TRxTrayIcon }
  CM_TRAYICON        = CM_BASE + 84;
const
  crHand     = TCursor(14000);
  crDragHand = TCursor(14001);
const
{ TBitmap.GetTransparentColor from GRAPHICS.PAS use this value }
  PaletteMask = $02000000;
{$IFDEF VER90}
const
  SDelphiKey = 'SoftwareBorlandDelphi2.0';
{$ENDIF}
{$IFDEF VER93}
const
  SDelphiKey = 'SoftwareBorlandC++Builder1.0';
{$ENDIF}
{$IFDEF VER100}
const
  SDelphiKey = 'SoftwareBorlandDelphi3.0';
{$ENDIF}
{$IFDEF VER110}
const
  SDelphiKey = 'SoftwareBorlandC++Builder3.0';
{$ENDIF}
{$IFDEF VER120}
const
  SDelphiKey = 'SoftwareBorlandDelphi4.0';
{$ENDIF}
{$IFDEF VER125}
const
  SDelphiKey = 'SoftwareBorlandC++Builder4.0';
{$ENDIF}
{$IFDEF VER130}
const
  SDelphiKey = 'SoftwareBorlandDelphi5.0';
{$ENDIF}
{$IFDEF VER140}
const
  SDelphiKey = 'SoftwareBorlandDelphi6.0';
{$ENDIF}
{$IFDEF VER150}
const
  SDelphiKey = 'SoftwareBorlandDelphi7.0';
{$ENDIF}
implementation
uses {$IFDEF WIN32} Windows, {$ELSE} WinProcs, {$ENDIF} Forms;
{$IFDEF WIN32}
 {$R *.R32}
{$ELSE}
 {$R *.R16}
{$ENDIF}
initialization
  Screen.Cursors[crHand] := LoadCursor(hInstance, 'RX_HANDCUR');
  Screen.Cursors[crDragHand] := LoadCursor(hInstance, 'RX_DRAGCUR');
end.

						