?? 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 = 'Software\Borland\Delphi\2.0';
{$ENDIF}
{$IFDEF VER93}
const
SDelphiKey = 'Software\Borland\C++Builder\1.0';
{$ENDIF}
{$IFDEF VER100}
const
SDelphiKey = 'Software\Borland\Delphi\3.0';
{$ENDIF}
{$IFDEF VER110}
const
SDelphiKey = 'Software\Borland\C++Builder\3.0';
{$ENDIF}
{$IFDEF VER120}
const
SDelphiKey = 'Software\Borland\Delphi\4.0';
{$ENDIF}
{$IFDEF VER125}
const
SDelphiKey = 'Software\Borland\C++Builder\4.0';
{$ENDIF}
{$IFDEF VER130}
const
SDelphiKey = 'Software\Borland\Delphi\5.0';
{$ENDIF}
{$IFDEF VER140}
const
SDelphiKey = 'Software\Borland\Delphi\6.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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -