开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 界面编程 > RichEdit > 查看源码
RVStr.pas
资源名称：TRichView.v1.9.10.2.rar　[点击查看]
上传用户：daoqigc
上传日期：2021-04-20
资源大小：2795k
文件大小：10k
源码类别：

RichEdit

开发平台：

Delphi

RVStr.pas：源码内容
  2. {*******************************************************}
  3. {                                                       }
  4. {       RichView                                        }
  5. {       Text strings for RichView.                      }
  6. {       Non-localizable (except from, may be,           }
  7. {       exception messages).                            }
  8. {                                                       }
  9. {       Copyright (c) Sergey Tkachenko                  }
  10. {       svt@trichview.com                               }
  11. {       http://www.trichview.com                        }
  12. {                                                       }
  13. {*******************************************************}
  15. unit RVStr;
  17. {$I RV_Defs.inc}
  19. interface
  20. uses Windows;
  22. {================================ Error messages ==============================}
  23. // These messages are the texts of exception.
  24. // Should not occur in debugged application.
  25. const
  26.   errRVNil               = 'Parameter can''t be NIL';
  27.   errRVNotFormatted      = 'RichView must be formatted for this operation';
  28.   errRVNoMemory          = 'No memory';
  29.   errRVTypesMismatch     = 'Can''t get or set this kind of information for this item';
  30.   errRVUnicode           = 'Can''t perform Unicode operation';
  31.   errRVCPByCP            = 'Calling AddCheckpoint after AddCheckpoint is not allowed in this version';
  32.   errRVNoSuchCP          = 'Invalid checkpoint index - %d';
  33.   errRVTagsTypesMismatch = 'Can''t assign RichView to RichView - tags types mismatch';
  34.   errRVNoSuchCP2         = 'Invalid checkpoint data';
  35.   errRVItemRangeError    = 'Item index is out of bounds';
  36.   errRVCPExists          = 'Checkpoint already exists';
  37.   errStyleIsNotAssigned  = 'Style of printable TRichView component is not assigned';
  38.   errInvalidPageNo       = 'Invalid page number is specified for printing';
  39.   errTRVItemFormattedDataNS =   'This method is not supported for TRVItemFormattedData';
  40.   errRViewerOnly         = 'Not supported in editor';
  41.   errRVUndo              = 'Undo error';
  42.   errRVCP                = 'Checkpoint error';
  43.   errRVItemReg1          = 'Can''t register RichView item type - system is not initialized yet';
  44.   errRVItemReg2          = 'Can''t register RichView item type - this StyleNo is already registered';
  45.   errRVUndoEmpty         = 'Can''t modify empty undo list';
  46.   errRVUndoAdd           = 'Incorrect adding into undo list';
  47.   errRVUndoEmptyBuffer   = 'Undo buffer is empty';
  48.   errRVNegative          = 'Value must not be negative';
  49.   errRVFDocProp          = 'Invalid RVF format';
  50.   errRVCaretPosition     = 'Invalid caret position. Please contact the developer, if you can reproduce this problem';
  51.   errRVPrint             = 'Internal printing error';
  52.   errRVCompare           = 'Error when comparing positions in the document';
  53.   errRVInvProp           = 'This property is not valid here';
  54.   errRVBadStyleTemplateParent = 'Circular references are not allowed';
  55. {================================ Resource Names ==============================}
  56.   RVRC_ZOOMIN_CURSOR  = 'RV_ZOOMIN_CURSOR';
  57.   RVRC_ZOOMOUT_CURSOR = 'RV_ZOOMOUT_CURSOR';
  58.   RVRC_JUMP_CURSOR    ='RV_JUMP_CURSOR';
  59.   RVRC_FLIPARROW_CURSOR ='RV_FLIPARROW_CURSOR';
  60. {=================================== INI ======================================}
  61. const
  62.   {$IFNDEF RVDONOTUSESTYLETEMPLATES}
  63.   RVNORMALSTYLETEMPLATENAME = 'Normal';
  64.   {$ENDIF}
  66.   {$IFNDEF RVDONOTUSEINI}
  68.   RVINIFILEYES = 'Yes';
  69.   RVINIFILENO = 'No';
  70.   RVINIFILEYESU = 'YES';
  71.   RVINIFILENOU  = 'NO';
  72.   RVINIUNKNOWN  = '?';
  74.   RVINI_TEXTSTYLECOUNT   = 'FontsCount';
  75.   RVINI_TEXTSTYLEPREFIX  = 'Font%s';
  76.   RVINI_PARASTYLECOUNT   = 'ParasCount';
  77.   RVINI_PARASTYLEPREFIX  = 'Para%s';
  78.   RVINI_LISTSTYLECOUNT   = 'ListCount';
  79.   RVINI_LISTSTYLEPREFIX  = 'List%s';
  81.   RVINI_STANDARD         = 'Standard';
  83.   RVINI_LEFT             = 'Left';
  84.   RVINI_RIGHT            = 'Right';
  85.   RVINI_TOP              = 'Top';
  86.   RVINI_BOTTOM           = 'Bottom';
  88.   RVINI_WIDTH            = 'Width';
  89.   RVINI_STYLE            = 'Style';
  90.   RVINI_INTERNALWIDTH    = 'InternalWidth';
  91.   RVINI_BOFFSPREFIX      = 'Offsets%s';
  92.   RVINI_VISBPREFIX       = 'Visible%s';
  94.   RVINI_SPACEBEFORE      = 'SpaceBefore';
  95.   RVINI_SPACEAFTER       = 'SpaceAfter';  
  96.   RVINI_LEFTINDENT       = 'LeftIndent';
  97.   RVINI_RIGHTIDENT       = 'RightIndent';
  98.   RVINI_FIRSTINDENT      = 'FirstIndent';
  99.   RVINI_LINESPACING      = 'LineSpacing';
  100.   RVINI_LINESPACINGTYPE  = 'LSType';  
  101.   RVINI_NEXTPARANO       = 'NextParaNo';
  102.   RVINI_DEFSTYLENO       = 'DefStyleNo';  
  103.   RVINI_ALIGNMENT        = 'Alignment';
  104.   RVINI_NOWRAP           = 'NoWrap';
  105.   RVINI_READONLY         = 'ReadOnly';
  106.   RVINI_STYLEPROTECT     = 'StyleProtect';
  107.   RVINI_DONOTWANTRETURNS = 'DoNotWantReturns';
  108.   RVINI_KEEPLINESTOGETHER = 'KeepLinesTogether';
  109.   RVINI_KEEPWITHNEXT     = 'KeepWithNext';  
  111.   RVINI_BORDERPREFIX     = 'Border%s';
  112.   RVINI_BACKGROUNDPREFIX = 'Background%s';
  114.   RVINI_STYLENAME        = 'StyleName';
  115.   RVINI_FONTNAME         = 'Name';
  116.   RVINI_JUMP             = 'Jump';
  117.   {$IFDEF RVLANGUAGEPROPERTY}
  118.   RVINI_LANGUAGE         = 'Language';
  119.   {$ENDIF}
  120.   RVINI_SPACESINTAB      = 'SpacesInTab';
  121.   RVINI_DEFTABWIDTH      = 'DefTabWidth';  
  122.   RVINI_JUMPCURSOR       = 'JumpCursor';
  123.   RVINI_SIZE             = 'Size';
  124.   RVINI_COLOR            = 'Color';
  125.   RVINI_BACKCOLOR        = 'BackColor';
  126.   RVINI_HOVERBACKCOLOR   = 'HoverBackColor';
  127.   RVINI_HOVERCOLOR       = 'HoverColor';
  128.   RVINI_CURRENTITEMCOLOR = 'CurItemColor';
  129.   RVINI_CHARSET          = 'Charset';
  130.   RVINI_CHARSCALE        = 'CharScale';
  131.   RVINI_CHARSPACING      = 'CharSpacing';  
  132.   RVINI_BIDIMODE         = 'BiDiMode';  
  133.   RVINI_BOLD             = 'Bold';
  134.   RVINI_UNDERLINE        = 'Underline';
  135.   RVINI_STRIKEOUT        = 'StrikeOut';
  136.   RVINI_ITALIC           = 'Italic';
  137.   RVINI_OVERLINE         = 'Overline';
  138.   RVINI_ALLCAPS          = 'Caps';  
  139.   RVINI_PROTECTION       = 'Protection';
  140.   RVINI_RTFCODE          = 'RTFCode';
  141.   RVINI_HTMLCODE         = 'HTMLCode';
  142.   RVINI_VSHIFT           = 'VShift';
  143.   RVINI_NEXTSTYLENO      = 'NextStyleNo';
  144.   RVINI_BASESTYLENO      = 'BaseStyleNo';
  145.   RVINI_UNICODE          = 'Unicode';
  146.   RVINI_SELECTIONMODE    = 'SelectionMode';
  147.   RVINI_SELECTIONSTYLE   = 'SelectionStyle';  
  149.   RVINI_SELCOLOR         = 'SelColor';
  150.   RVINI_SELTEXTCOLOR     = 'SelTextColor';
  151.   RVINI_ISELCOLOR        = 'ISelColor';
  152.   RVINI_ISELTEXTCOLOR    = 'ISelTextColor';
  153.   RVINI_CPCOLOR          = 'CheckpointColor';
  154.   RVINI_CPEVCOLOR        = 'CheckpointEvColor';
  155.   RVINI_PAGEBREAKCOLOR   = 'PageBreakColor';
  156.   RVINI_SOFTPAGEBREAKCOLOR = 'SoftPageBreakColor';
  157.   RVINI_LIVESPELLINGCOLOR = 'LiveSpellingColor';
  158.   RVINI_USESOUND         = 'UseSound';
  159.   RVINI_DEFUNICODESTYLE  = 'DefUnicodeStyle';
  160.   RVINI_DEFCODEPAGE      = 'DefCodePage';
  161.   RVINI_LINESELECTCURSOR = 'LineSelectCursor';
  163.   RVINI_LISTTYPE         = 'ListType';
  164.   RVINI_IMAGEINDEX       = 'ImageIndex';
  165.   RVINI_FORMATSTRING     = 'FormatString';
  166.   RVINI_MARKERINDENT     = 'MarkerIndent';
  167.   RVINI_MARKERALIGNMENT  = 'MarkerAlignment';
  168.   RVINI_FORMATSTRINGW    = 'FormatStringW';
  169.   RVINI_PICTURE          = 'Picture';
  170.   RVINI_GRAPHICCLASS     = 'GraphicClass';
  172.   RVINI_TABALIGN         = 'Align';
  173.   RVINI_TABPOSITION      = 'Pos';
  174.   RVINI_TABLEADER        = 'Leader';
  175.   RVINI_TABPREFIX        = 'Tab%s';
  176.   RVINI_TABCOUNT         = 'TabCount';
  178.   RVINI_FONT             = 'Font';
  179.   RVINI_LOCONTINUOUS     = 'Continuous';
  180.   RVINI_LOLEVELRESET     = 'LevelReset';
  181.   RVINI_LEVELSCOUNT      = 'LevelsCount';
  182.   RVINI_ONELEVELPREVIEW  = 'OneLevelPreview';
  183.   RVINI_LEVELPREFIX      = 'Lvl%s';
  185.   RVSTYLE_REG = 'RVStyle';
  186.   {$ENDIF}
  187.   RVINI_SINGLESYMBOLS    = 'SingleSymbols';
  189.   RVWCEDIT = 'E'#0'd'#0'i'#0't'#0#0#0;
  190. {================================== Misc ======================================}
  191. const
  192.   RVDEFAULTCHECKPOINTPREFIX = 'RichViewCheckpoint';
  193.   RVDEFAULTCHARACTER        = '?';
  194.   RVDEFAULTDELIMITERS       = ' .;,:(){}"/<>!?[]'#$91#$92#$93#$94'-+*='#$A0;
  195. const RVAddress = 'http://www.trichview.com';
  196.       RVVersion = 'v1.9.10.2';
  197.       RVPalettePage = 'RichView';
  198.       RVNOSTYLEMSG = 'Style is not defined'#13'Create a TRVStyle object and assign it to %s.Style';
  199.       RVFTagEmptyStr = '0';
  200.   { Names of Clipboard formats }
  201. const
  202.   RVFormatName = 'RichView Format';
  203.   RTFormatName = 'Rich Text Format';
  204.   URLFormatName = 'UniformResourceLocator';
  205.   HTMLFormatName = 'HTML Format';
  206.   { Substring in HTML Clipboard contents }
  207.   HTMLClipboardSourceURL = 'SourceURL:';
  208. const
  209.   { Default names of styles, default font names }
  210.   RVDEFSTYLENAME0 = 'Normal text';
  211.   RVDEFSTYLENAME1 = 'Heading';
  212.   RVDEFSTYLENAME2 = 'Subheading';
  213.   RVDEFSTYLENAME3 = 'Keywords';
  214.   RVDEFSTYLENAME4 = 'Jump 1';
  215.   RVDEFSTYLENAME5 = 'Jump 2';
  216.   RVDEFPARASTYLENAME1 = 'Centered';
  217.   RVDEFAULTDESIGNFONT = 'MS Sans Serif';
  218.   RVDEFAULTSTYLEFONT  = 'Arial';
  219.   RVDEFAULTTEXTSTYLENAME = 'Font Style';
  220.   RVDEFAULTPARASTYLENAME = 'Paragraph Style';
  221.   RVDEFAULTLISTSTYLENAME = 'List Style';
  222.   RVDEFAULTSTYLETEMPLATENAME = 'Style %d';
  224.   RVLISTLEVELDISPLAYNAME = '%s %d/%d/%d';
  226.   RVFONT_SYMBOL = 'Symbol';
  227.   RVFONT_WINGDINGS = 'Wingdings';
  229.   RVListTypeStr: array [0..9] of PChar =
  230.     ('bullet', 'pic', 'image-list', '1,2,3', 'a,b,c', 'A,B,C', 'i,ii,iii',
  231.     'I,II,III', 'image-list counter', 'unicode bullet');
  232.   RVAlignStr: array [0..2] of PChar =
  233.     ('left', 'right', 'center');
  235.   { Not strings but Clipboard formats }
  236. var CFRV_RVF, CFRV_RTF, CFRV_HTML, CFRV_URL: Word;
  238. implementation
  240. initialization
  241.   CFRV_RVF := RegisterClipboardFormat(RVFormatName);
  242.   CFRV_RTF := RegisterClipboardFormat(RTFormatName);
  243.   CFRV_URL := RegisterClipboardFormat(URLFormatName);
  244.   CFRV_HTML := RegisterClipboardFormat(HTMLFormatName);  
  246. end.