RV_Defs.inc
上传用户:daoqigc
上传日期:2021-04-20
资源大小:2795k
文件大小:9k
源码类别:

RichEdit

开发平台:

Delphi

  1. {*******************************************************}
  2. {                                                       }
  3. {       RichView                                        }
  4. {       Conditionals for RichView.                      }
  5. {       This file is included in all RichView PAS-files.}
  6. {                                                       }
  7. {       Copyright (c) Sergey Tkachenko                  }
  8. {       svt@trichview.com                               }
  9. {       http://www.trichview.com                        }
  10. {                                                       }
  11. {*******************************************************}
  12. {$B-}
  13. {$H+}
  14. {$J+}
  15. {$T-}
  16. {------------------------------------------------------------------------------}
  17. {                  Determining Delphi/C++Builder version                       }
  18. {$DEFINE RICHVIEW}
  19. {$IFNDEF VER80}                         {       not Delphi 1.0           }
  20.   {$IFNDEF VER90}                       {       not Delphi 2.0           }
  21.     {$DEFINE RICHVIEWCBDEF1}            (* C++Builder 1.0+              *)
  22.     {$IFNDEF VER93}                     {       not C++Builder 1.0       }
  23.       {$DEFINE RICHVIEWCBDEF3}          (* C++Builder 3.0+              *)
  24.       {$IFNDEF VER110}                  {       not C++Builder 3.0       }
  25.         {$DEFINE RICHVIEWDEF3}          (* Delphi 3.0+, C++Builder 4.0+ *)
  26.         {$IFNDEF VER100}                {       not Delphi 3.0           }
  27.           {$DEFINE RICHVIEWDEF4}        (* Delphi 4.0+                  *)
  28.           {$IFNDEF VER120}              {       not Delphi 4.0           }
  29.             {$IFNDEF VER125}            {       not C++Builder 4.0       }
  30.               {$DEFINE RICHVIEWDEF5}    (* Delphi 5.0+                  *)
  31.               {$IFNDEF VER130}          {       not Delphi 5.0           }
  32.                  {$IFNDEF VER135}       {       not C++Builder 5.0       }
  33.                    {$DEFINE RICHVIEWDEF6}(* Delphi 6.0+                 *)
  34.                    {$IFNDEF VER140}     {       not Delphi 6.0           }
  35.                      {$IFNDEF VER145}   {       not C++Builder 6.0       }
  36.                        {$DEFINE RICHVIEWDEF7}(* Delphi 7.0+             *)
  37.                        {$IFNDEF VER150} {       not Delphi 7.0           }
  38.                          {$DEFINE RICHVIEWDEF9}(* Delphi 8.0+             *)
  39.                        {$ENDIF}
  40.                      {$ENDIF}
  41.                    {$ENDIF}
  42.                  {$ENDIF}
  43.               {$ENDIF}
  44.             {$ENDIF}
  45.           {$ENDIF}
  46.         {$ENDIF}
  47.       {$ENDIF}
  48.     {$ENDIF}
  49.   {$ENDIF}
  50. {$ENDIF}
  51. {$IFDEF RICHVIEWDEF7}
  52. {$WARN UNSAFE_TYPE OFF}
  53. {$WARN UNSAFE_CODE OFF}
  54. {$WARN UNSAFE_CAST OFF}
  55. {$ENDIF}
  56. {------------------------------------------------------------------------------}
  57. { CONDITIONAL DEFINES.                                                         }
  58. { Do not modify this file, use Project|Options, Directories/Conditionals,      }
  59. { Conditional defines instead.                                                 }
  60. {------------------------------------------------------------------------------}
  61. {------------------------------------------------------------------------------}
  62. { Defines for shrinking exe size / improving speed and memory usage by         }
  63. { turning off unused features.                                                 }
  64. {------------------------------------------------------------------------------}
  65. {NOT$DEFINE RVDONOTUSESTYLETEMPLATES}
  66. {
  67.   Define if you do not want to use TRVStyle.StyleTemplates and related functions.
  68. {NOT$DEFINE RVDONOTUSEALLCAPS}
  69. {NOT$DEFINE RVDONOTUSESOFTHYPHENS}
  70. {NOT$DEFINE RVDONOTUSECHARSCALE}
  71. {
  72.    Define it if you do not wish to use rvfsAllCaps option, soft hyphens,
  73.    CharScale.
  74.    Some speed up of text drawing and formatting.
  75. }
  76. {NOT$DEFINE RVDONOTUSESMARTPOPUP}
  77. {NOT$DEFINE RVDONOTUSEANIMATION}
  78. {
  79.   Define if you do not wish to display animations.
  80.   Saves memory and resources.
  81. }
  82. {NOT$DEFINE RVDONOTUSETABS}
  83. {
  84.   Define if you do not wish to use tab stops. All code for importing tabs will
  85.   be excluded. But code for processing tabs (if they appeared in document) remains.
  86. }
  87. {NOT$DEFINE RVDONOTUSEJPEGIMAGE}
  88. {
  89.    Define it if you do not wish to use Delphi jpeg units.
  90.    This will cause saving images to HTML as bitmaps, and turning off special
  91.    support for jpegs in paletted display mode.
  92. }
  93. {NOT$DEFINE RVDONOTUSEHTML}
  94. {
  95.    Define it to remove all HTML-related methods.
  96. }
  97. {NOT$DEFINE RVDONOTUSERTF}
  98. {
  99.    Define it to remove all RTF-export related methods
  100. }
  101. {NOT$DEFINE RVDONOTUSERTFIMPORT}
  102. {
  103.    Define it to remove all RTF-import related methods.
  104. }
  105. {NOT$DEFINE RVDONOTUSERVF}
  106. {
  107.    Define it to remove all RVF-related methods.
  108.    You can do it only if you do not use TRichViewEdit. Editor requires
  109.    RVF methods.
  110. }
  111. {NOT$DEFINE RVDONOTUSEJUSTIFY}
  112. {
  113.    Define it to remove justify alignment support.
  114.    Was not properly tested.
  115. }
  116. {NOT$DEFINE RVDONOTUSEUNICODE}
  117. {
  118.    Define it to disable Unicode support.
  119. }
  120. {NOT$DEFINE RVDONOTUSECHARSPACING}
  121. {
  122.   Define it to disable CharSpacing. Somewhat faster
  123. }
  124. {NOT$DEFINE RVDONOTUSETABLES}
  125. {
  126.   Define, if you do not use tables. Exe-file will be smaller.
  127. }
  128. {NOT$DEFINE RVDONOTUSELISTS}
  129. {
  130.   Define, if you do not use bullets and numbering
  131. }
  132. {NOT$DEFINE RVDONOTUSEINI}
  133. {
  134.   Define, if you do not use bullets and numbering
  135. }
  136. {NOT$DEFINE RVDONOTUSEDRAGDROP}
  137. {
  138.   Define, if you do not use OLE drag&drop
  139. }
  140. {NOT$DEFINE RVDONOTUSEITEMHINTS}
  141. {
  142.   Define, if you do not want to use item titles (popup hints).
  143.   Saves 4 bytes per item in memory
  144. }
  145. {NOT$DEFINE RVDONOTUSELIVESPELL}
  146. {
  147.   Define, if you do not want to use live spelling.
  148.   Saves 8 bytes per item in memory, reduces exe file size
  149. }
  150. {NOT$DEFINE RVDONOTUSELINEARPOSITIONS}
  151. {
  152.   Define, if you do not need to process EM_GETSEL, EM_GETTEXTRANGE and EM_SETSEL
  153. }
  154. {NOT$DEFINE RVDONOTUSEOLECONTAINER}
  155. {
  156.   Does nothing. Reserved.
  157. }
  158. {$IFDEF RVDONOTUSETABLES}
  159.   {$DEFINE RVDONOTUSEINPLACE}
  160. {$ENDIF}
  161. {------------------------------------------------------------------------------}
  162. { Other defines                                                                }
  163. {------------------------------------------------------------------------------}
  164. {NOT$DEFINE RVLANGUAGEPROPERTY}
  165. {
  166.   If defined, text style has additional property - Language: Cardinal
  167. }
  168. {NOT$DEFINE RVLIVESPELLEXEVENT}
  169. {
  170.   If defined, RichView has additional event - OnSpellingCheckEx.
  171.   This event has higher priority than OnSpellingCheck.
  172. }
  173. {NOT$DEFINE RVUSETEXTHOVERCOLORWITHSELECTED}
  174. {
  175.   Define if you wish to return behavior of v1.2-, where text hover color was
  176.   used even for selected text.
  177. }
  178. {NOT$DEFINE DONOTDECVSCROLLUNITS}
  179. {
  180.   Define to forbid RichView to decrease vertical scrolling units automatically
  181.   when needed (if you wish to control scrolling units yourself).
  182. }
  183. {NOT$DEFINE RVDONOTCORRECTWMFSCALE}
  184. {
  185.   There is a problem in Delphi TMetafile class (wrong size) when pasting
  186.   some metafiles from Clipboard. RichView tries to correct it.
  187.   Turn this define on, if you have troubles with metafile sizes when pasting.
  188. }
  189. {$DEFINE RVALLOWCPBYCP}
  190. {
  191.   RichView since version 1.0 does not allow to add one checkpoint just after
  192.   another.
  193.   When defined (default), second checkpoint is ignored.
  194.   When not defined, RichView raises exception.
  195. }
  196. {------------------------------------------------------------------------------}
  197. { Addons                                                                       }
  198. {------------------------------------------------------------------------------}
  199. {
  200.   Define if you use import of MS Word DOC files.
  201. }
  202. {NOT$DEFINE RVUSEWORDDOC}
  203. {------------------------------------------------------------------------------}
  204. { Automatical defines:                                                         }
  205. {------------------------------------------------------------------------------}
  206. {$IFDEF RICHVIEWCBDEF1}
  207. {
  208.  IME (Input Method Editor) support is disabled for Delphi 2.
  209.  D2 has required library file - Imm.pas in sources, but does not have it in library (?!).
  210.  So I think support for D2 is possible, but requires some IDE configuration...
  211. }
  212. {$IFNDEF RVDONOTUSEUNICODE}
  213. {$DEFINE RVUSEIME} // Using IME
  214. {$ENDIF}
  215. {$ENDIF}
  216. {$IFNDEF RICHVIEWDEF3}
  217. // Turning off Jpeg support for Delphi2, C++Builder 1,3
  218. {$DEFINE RVDONOTUSEJPEGIMAGE}
  219. {$ENDIF}
  220. {$IFNDEF RICHVIEWCBDEF3}
  221. // Turning off D&D support for Delphi2, C++Builder 1
  222. {$DEFINE RVDONOTUSEDRAGDROP}
  223. {$ENDIF}
  224. {.$DEFINE RVDEBUG}
  225. {.$DEFINE RVFLATSCROLLBARS}
  226. {.$DEFINE RVONCUT}
  227. {.$DEFINE RVWATERMARK}