home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kolekce / d6 / RX275D6.ZIP / Units / RXCONST.PAS < prev    next >
Pascal/Delphi Source File  |  2001-06-24  |  2KB  |  94 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {         Delphi VCL Extensions (RX)                    }
  4. {                                                       }
  5. {         Copyright (c) 1995, 1996 AO ROSNO             }
  6. {         Copyright (c) 1997, 1998 Master-Bank          }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit RXConst;
  11.  
  12. interface
  13.  
  14. {$I RX.INC}
  15.  
  16. uses Controls;
  17.  
  18. const
  19.   RX_VERSION = $0002004B;  { 2.75 }
  20.  
  21. const
  22. { Command message for Speedbar editor }
  23.   CM_SPEEDBARCHANGED = CM_BASE + 80;
  24. { Command message for TRxSpeedButton }
  25.   CM_RXBUTTONPRESSED = CM_BASE + 81;
  26. { Command messages for TRxWindowHook }
  27.   CM_RECREATEWINDOW  = CM_BASE + 82;
  28.   CM_DESTROYHOOK     = CM_BASE + 83;
  29. { Notify message for TRxTrayIcon }
  30.   CM_TRAYICON        = CM_BASE + 84;
  31.  
  32. const
  33.   crHand     = TCursor(14000);
  34.   crDragHand = TCursor(14001);
  35.  
  36. const
  37. { TBitmap.GetTransparentColor from GRAPHICS.PAS use this value }
  38.   PaletteMask = $02000000;
  39.  
  40. {$IFDEF VER90}
  41. const
  42.   SDelphiKey = 'Software\Borland\Delphi\2.0';
  43. {$ENDIF}
  44.  
  45. {$IFDEF VER93}
  46. const
  47.   SDelphiKey = 'Software\Borland\C++Builder\1.0';
  48. {$ENDIF}
  49.  
  50. {$IFDEF VER100}
  51. const
  52.   SDelphiKey = 'Software\Borland\Delphi\3.0';
  53. {$ENDIF}
  54.  
  55. {$IFDEF VER110}
  56. const
  57.   SDelphiKey = 'Software\Borland\C++Builder\3.0';
  58. {$ENDIF}
  59.  
  60. {$IFDEF VER120}
  61. const
  62.   SDelphiKey = 'Software\Borland\Delphi\4.0';
  63. {$ENDIF}
  64.  
  65. {$IFDEF VER125}
  66. const
  67.   SDelphiKey = 'Software\Borland\C++Builder\4.0';
  68. {$ENDIF}
  69.  
  70. {$IFDEF VER130}
  71. const
  72.   SDelphiKey = 'Software\Borland\Delphi\5.0';
  73. {$ENDIF}
  74.  
  75. {$IFDEF VER140}
  76. const
  77.   SDelphiKey = 'Software\Borland\Delphi\6.0';
  78. {$ENDIF}
  79.  
  80.  
  81. implementation
  82.  
  83. uses {$IFDEF WIN32} Windows, {$ELSE} WinProcs, {$ENDIF} Forms;
  84.  
  85. {$IFDEF WIN32}
  86.  {$R *.R32}
  87. {$ELSE}
  88.  {$R *.R16}
  89. {$ENDIF}
  90.  
  91. initialization
  92.   Screen.Cursors[crHand] := LoadCursor(hInstance, 'RX_HANDCUR');
  93.   Screen.Cursors[crDragHand] := LoadCursor(hInstance, 'RX_DRAGCUR');
  94. end.