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

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

RichEdit

开发平台：

Delphi

RVUni.pas：源码内容
  2. {*******************************************************}
  3. {                                                       }
  4. {       RichView                                        }
  5. {       Unicode-related procedures.                     }
  6. {                                                       }
  7. {       Copyright (c) Sergey Tkachenko                  }
  8. {       svt@trichview.com                               }
  9. {       http://www.trichview.com                        }
  10. {                                                       }
  11. {*******************************************************}
  13. unit RVUni;
  15. interface
  16. {$I RV_Defs.inc}
  18. uses SysUtils, Windows, Classes, Graphics,
  19.      RVItem, RVStyle, RVScroll;
  21. type TRVIntegerArray = array[0..100000] of Integer;
  22.      PRVIntegerArray = ^TRVIntegerArray;
  23. type TRVUnsignedArray = array[0..100000] of Cardinal;
  24.      PRVUnsignedArray = ^TRVUnsignedArray;
  25. type TRVWordArray = array[0..100000] of Word;
  26.      PRVWordArray = ^TRVWordArray;
  28. {$IFNDEF RVDONOTUSEUNICODE}
  29. function RVU_FindLineBreak(Str: PRVWordArray; Length: Integer; FullString: Boolean): Pointer;
  30. procedure RVU_GetTextExtentPoint32W(Canvas: TCanvas; str: Pointer; Len: Integer;
  31.   var sz: TSize);
  32. {$ENDIF}
  33. function RVU_Copy(const s: String; Index, Count: Integer;
  34.   ItemOptions: TRVItemOptions): String;
  35. procedure RVU_Delete(var s: String; Index, Count: Integer;
  36.   ItemOptions: TRVItemOptions);
  37. procedure RVU_Insert(const Source: String; var s: String; Index: Integer;
  38.   ItemOptions: TRVItemOptions);
  39. procedure RVU_GetTextExtentExPoint(Canvas: TCanvas; const s: String;
  40.   MaxExtent: Integer; var Fit: Integer; PDx: PRVIntegerArray;
  41.   ItemOptions: TRVItemOptions);
  42. procedure RVU_GetTextExtentExPointPC(Canvas: TCanvas; pc: PChar; Length: Integer;
  43.   MaxExtent: Integer; var Fit: Integer; PDx: PRVIntegerArray;
  44.   ItemOptions: TRVItemOptions; var sz: TSize);
  45. function RVU_GetTextCaretPos(Canvas: TCanvas; const s: String;
  46.   PCP: PRVIntegerArray; ItemOptions: TRVItemOptions;
  47.   Width: Integer): Boolean;
  48. function RVU_GetTextRangeCoords(Canvas: TCanvas; const s: String;
  49.   RangeStartOffs, RangeLength: Integer; ItemOptions: TRVItemOptions;
  50.   Width: Integer; var X1,X2: Integer): Boolean;
  51. function RVU_Length(const s: String; ItemOptions: TRVItemOptions): Integer;
  52. function RVU_TextWidth(const s: String; Canvas: TCanvas;
  53.   ItemOptions: TRVItemOptions): Integer;
  54. function RVU_IsSpace(const s: String; Index: Integer;
  55.   ItemOptions: TRVItemOptions): Boolean;
  56. function RVU_OffsInPChar(Offs: Integer; ItemOptions: TRVItemOptions): Integer;
  57. {$IFDEF RICHVIEWCBDEF3}
  58. function RVU_Charset2CodePage(Charset: TFontCharset): TRVCodePage;
  59. function RVU_Charset2Language(Charset: TFontCharset): Cardinal;
  60. function RVU_GetRawUnicode(const s: WideString):String;
  61. function RVU_RawUnicodeToWideString(const s: String):WideString;
  62. {$ELSE}
  63. function RVU_GetRawUnicode(const s: String):String;
  64. {$ENDIF}
  65. procedure RVU_SwapWordBytes(arr: PWord; Count: Integer);
  66. procedure RVU_ProcessByteOrderMark(var arr: PWord; Count: Integer);
  68. function RVU_AnsiToUnicode(CodePage: TRVCodePage; const s: String): String;
  69. function RVU_AnsiToUTF8(CodePage: TRVCodePage; const s: String): String;
  70. function RVU_UnicodeToAnsi(CodePage: TRVCodePage; const s: String): String;
  71. function RVU_CanBeConvertedToAnsi(CodePage: TRVCodePage; const s: String): Boolean;
  72. function RVU_StrScanW(Str: Pointer; Ch: Word; Length: Integer): Pointer;
  73. function RVU_StrLenW(Str: Pointer): Cardinal;
  75. type TRVUnicodeTestResult = (rvutNo, rvutYes, rvutProbably, rvutEmpty, rvutError);
  77. function RV_TestStreamUnicode(Stream: TStream): TRVUnicodeTestResult;
  78. function RV_TestFileUnicode(const FileName: String): TRVUnicodeTestResult;
  79. function RV_TestStringUnicode(const s: String): TRVUnicodeTestResult;
  81. function RVU_GetKeyboardCodePage: TRVCodePage;
  82. function RVU_KeyToUnicode(const Key: String): String;
  84. {$IFNDEF RVDONOTUSEHTML}
  85. procedure RVU_WriteHTMLEncodedUnicode(Stream: TStream; const s: String;
  86.   NoEmptyLines, SpecialCode: Boolean);
  87. function RVU_GetHTMLEncodedUnicode(const s: String;
  88.   SpecialCode:Boolean): String;
  89. function RVU_UnicodeToUTF8(const s: String; SpecialCode:Boolean): String;  
  90. {$ENDIF}
  92. function RV_ReturnProcessedString(const s: String; TextStyle: TFontInfo;
  93.   LastOnLine, ShowSpecialChars, ForDisplay: Boolean): String;
  95. function RVU_DrawSelectedTextEx(Left, Top, Width, Height: Integer; const s: String;
  96.   Canvas: TCanvas; Index1,Index2: Integer; ItemOptions: TRVItemOptions;
  97.   BiDiMode: TRVBiDiMode): Boolean;
  98. {$IFNDEF RICHVIEWDEF6}
  99. {$IFDEF RICHVIEWCBDEF3}
  100. function Utf8Decode(const S: String): WideString;
  101. function Utf8Encode(const WS: WideString): String;
  102. {$ENDIF}
  103. {$ENDIF}
  105. const
  106.   UNI_LF                 = Word($000A);
  107.   UNI_CR                 = Word($000D);
  108.   UNI_LineSeparator      = Word($2028);
  109.   UNI_ParagraphSeparator = Word($2029);
  110.   UNI_Tab                = Word($0009);  
  111.   UNI_VerticalTab        = Word($000B);
  112.   UNI_FormFeed           = Word($000C);
  113.   UNI_LSB_FIRST          = Word($FEFF);
  114.   UNI_MSB_FIRST          = Word($FFFE);
  115.   UNI_FF                 = Word($000C);
  116.   UNI_HYPHEN             = Word($002D);
  117.   UNI_Space              = Word(ord(' '));
  118.   UNI_ZERO_WIDTH_SPACE   = Word($200B);
  119.   UNI_ZERO_WIDTH_JOINER  = Word($200D);
  120.   UNI_WORD_JOINER        = Word($2060); // zero width non breaking space
  121.   UNI_SOFT_HYPHEN        = Word($00AD);
  122.   UNI_NOT_SIGN           = Word($00AC);
  124.   UNI_LSB_FIRST1         = #$FF;
  125.   UNI_LSB_FIRST2         = #$FE;
  127. function RVMAKELCID(plgid: Word): Cardinal;  
  129. var RVNT: Boolean;
  131. implementation
  132. uses CRVData, RVStr;
  134. const
  135.   GETCHARACTERPLACEMENTFLAGS = {GCP_USEKERNING or }GCP_REORDER or GCP_GLYPHSHAPE or GCP_DIACRITIC;
  137. function MAKELCID(lgid, srtid: Word): Cardinal;
  138. begin
  139.   Result := (Cardinal(srtid) shl 16) or Cardinal(lgid);
  140. end;
  142. function MAKELANGID(p, s: Word): Word;
  143. begin
  144.   Result := (s shl 10) or p;
  145. end;
  147. function RVMAKELCID(plgid: Word): Cardinal;
  148. begin
  149.   Result := MAKELCID(MAKELANGID(plgid, SUBLANG_DEFAULT), SORT_DEFAULT);
  150. end;
  152. {------------------------------------------------------------------------------}
  153. {$IFNDEF RVDONOTUSEUNICODE}
  154. type
  155.   TRVLineBreakClass =
  156.   (
  157.   rvu_lb_OP, // Opening Punctuation
  158.   rvu_lb_CL, // Closing Punctuation
  159.   rvu_lb_QU, // Ambiguous Quotation
  160.   rvu_lb_GL, // Non-breaking ("Glue")
  161.   rvu_lb_NS, // Non Starter
  162.   rvu_lb_EX, // Exclamation/Interrogation
  163.   rvu_lb_SY, // Symbols Allowing Breaks
  164.   rvu_lb_IS, // Infix Separator (Numeric)
  165.   rvu_lb_PR, // Prefix (Numeric)
  166.   rvu_lb_PO, // Postfix (Numeric)
  167.   rvu_lb_NU, // Numeric
  168.   rvu_lb_AL, // Ordinary Alphabetic and Symbol Characters
  169.   rvu_lb_ID, // Ideographic
  170.   rvu_lb_IN, // Inseparable
  171.   rvu_lb_HY, // Hyphen
  172.   rvu_lb_BA, // Break Opportunity After
  173.   rvu_lb_BB, // Break Opportunity Before
  174.   rvu_lb_B2, // Break Opportunity Before and After
  175.   rvu_lb_ZW, // Zero Width Space
  176.   rvu_lb_CM // Attached Characters and Combining Marks
  177.   );
  179.   {
  180.   rvu_lb_BK, // Mandatory Break // may not occur
  181.   rvu_lb_CR, // Carriage Return // may not occur
  182.   rvu_lb_LF, // Line Feed       // may not occur
  184.   rvu_lb_SP, // Space           // special processing
  185.   rvu_lb_SG, // Surrogates                            // treated as AL
  186.   rvu_lb_CB, // Contingent Break Opportunity          // treated as AL
  187.   rvu_lb_XX, // Unknown                               // treated as AL
  188.   rvu_lb_SA, // Complex Context (South East Asian)    // treated as AL
  189.   rvu_lb_AI, // Ambiguous (Alphabetic or Ideographic) // treated as AL
  190.   }
  192.   TRVLineBreakAction =
  193.   (
  194.      bk_DBK,  // direct break
  195.      bk_IBK,  // indirect break
  196.      bk_PBK   // prohibited break
  197.   );
  198. const
  199.   BreakPairs : array [TRVLineBreakClass,TRVLineBreakClass] of TRVLineBreakAction =
  200.   (
  201.   (bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_IBK),
  202.   (bk_DBK,bk_PBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_PBK,bk_DBK,bk_IBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_IBK,bk_IBK,bk_DBK,bk_DBK,bk_PBK,bk_IBK),
  203.   (bk_PBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_IBK),
  204.   (bk_IBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_IBK),
  205.   (bk_DBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_IBK,bk_IBK,bk_DBK,bk_DBK,bk_PBK,bk_IBK),
  206.   (bk_DBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_IBK,bk_IBK,bk_DBK,bk_DBK,bk_PBK,bk_IBK),
  207.   (bk_DBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_DBK,bk_DBK,bk_IBK,bk_DBK,bk_DBK,bk_DBK,bk_IBK,bk_IBK,bk_DBK,bk_DBK,bk_PBK,bk_IBK),
  208.   (bk_DBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_DBK,bk_DBK,bk_IBK,bk_DBK,bk_DBK,bk_DBK,bk_IBK,bk_IBK,bk_DBK,bk_DBK,bk_PBK,bk_IBK),
  209.   (bk_IBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_DBK,bk_DBK,bk_IBK,bk_IBK,bk_IBK,bk_DBK,bk_IBK,bk_IBK,bk_DBK,bk_DBK,bk_PBK,bk_IBK),
  210.   (bk_DBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_IBK,bk_IBK,bk_DBK,bk_DBK,bk_PBK,bk_IBK),
  211.   (bk_DBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_DBK,bk_IBK,bk_IBK,bk_IBK,bk_DBK,bk_IBK,bk_IBK,bk_IBK,bk_DBK,bk_DBK,bk_PBK,bk_IBK),
  212.   (bk_DBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_DBK,bk_DBK,bk_IBK,bk_IBK,bk_DBK,bk_IBK,bk_IBK,bk_IBK,bk_DBK,bk_DBK,bk_PBK,bk_IBK),
  213.   (bk_DBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_DBK,bk_IBK,bk_DBK,bk_DBK,bk_DBK,bk_IBK,bk_IBK,bk_IBK,bk_DBK,bk_DBK,bk_PBK,bk_IBK),
  214.   (bk_DBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_IBK,bk_IBK,bk_IBK,bk_DBK,bk_DBK,bk_PBK,bk_IBK),
  215.   (bk_DBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_IBK,bk_IBK,bk_DBK,bk_DBK,bk_PBK,bk_IBK),
  216.   (bk_DBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_IBK,bk_IBK,bk_DBK,bk_DBK,bk_PBK,bk_IBK),
  217.   (bk_IBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_IBK),
  218.   (bk_DBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_IBK,bk_IBK,bk_DBK,bk_PBK,bk_PBK,bk_IBK),
  219.   (bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_DBK,bk_PBK,bk_IBK),
  220.   (bk_DBK,bk_PBK,bk_IBK,bk_IBK,bk_IBK,bk_PBK,bk_PBK,bk_PBK,bk_DBK,bk_DBK,bk_IBK,bk_IBK,bk_DBK,bk_IBK,bk_IBK,bk_IBK,bk_DBK,bk_DBK,bk_PBK,bk_IBK)
  221.   );
  222. {------------------------------------------------------------------------------}
  223. function GetCharLineBreakClass(Char: Word): TRVLineBreakClass; forward;
  224. {------------------------------------------------------------------------------}
  225. // (We assume that Str[Length] character exists)
  226. // Returns the last character to leave on the line.
  227. // In case of spaces, returns the space
  228. function RVU_FindLineBreak(Str: PRVWordArray; Length: Integer; FullString: Boolean): Pointer;
  229. var i,j: Integer;
  230.     cls, cls2: TRVLineBreakClass;
  231.     act: TRVLineBreakAction;
  232. begin
  233.   Result := nil;
  234.   if Str[Length]=UNI_Space then begin
  235.     { Result := @(Str[Length]);
  236.       exit; // commented Jun 24 2004
  237.     }
  238.     if FullString then begin
  239.       dec(Length);
  240.       if Length=0 then
  241.         exit;
  242.     end;
  243.   end;
  244.   cls := GetCharLineBreakClass(Str[Length]);
  245.   for i := Length-1 downto 0 do begin
  246.     if Str[i]=UNI_Space then
  247.       continue;
  248.     cls2 := GetCharLineBreakClass(Str[i]);
  249.     act := BreakPairs[cls2, cls];
  250.     if (act = bk_IBK) then
  251.       if Str[i+1]<>UNI_Space then
  252.         act := bk_PBK;
  253.     if act in [bk_IBK, bk_DBK] then begin
  254.       j := i;
  255.       while (j+1<Length) and (Str[j+1]=UNI_Space) do
  256.         inc(j);
  257.       Result := @(Str[j]);
  258.       exit;
  259.     end;
  260.     cls := cls2;
  261.   end;
  262. end;
  263. {$ENDIF}
  264. type
  265. {$IFDEF RICHVIEWDEF7}
  266.   {$IFDEF RICHVIEWDEF9}
  267.   TGetCharacterPlacementVal = LongBool;
  268.   {$ELSE}
  269.   TGetCharacterPlacementVal = Integer;
  270.   {$ENDIF}
  271. {$ELSE}
  272.   TGetCharacterPlacementVal = LongBool;
  273. {$ENDIF}
  274. {------------------------------------------------------------------------------}
  275. function RVU_DrawSelectedTextEx_(Left, Top, Width, Height: Integer; const s: String;
  276.   Canvas: TCanvas; Index1,Index2: Integer; ItemOptions: TRVItemOptions): Boolean;
  277. var res: TGCPResultsA;
  278.     i,j: Integer;
  279.     POrder,POrderRev: PRVUnsignedArray;
  280.     PDX: PRVIntegerArray;
  281.     Selected: PChar;
  282.     SelectedCount: Integer;
  283.     DX, idx, idx1, idx2, Start: Integer;
  284.     Len: Integer;
  285.     r: TRect;
  286.     sz, sz2: TSmallPoint;
  287.     UseSz2: Boolean;
  288.     {..........................................}
  289.     procedure InitStructure;
  290.     begin
  291.       FillChar(res, sizeof(res), 0);
  292.       FillChar(POrder^, Len*sizeof(Cardinal), 0);
  293.       res.lStructSize := sizeof(res);
  294.       res.lpOrder := @(POrder[0]);
  295.       res.lpDx    := @(PDX[0]);
  296.       res.nGlyphs := Len;
  297.     end;
  298.     {..........................................}
  299. begin
  300.   if rvioUnicode in ItemOptions then
  301.     Len := Length(s) div 2
  302.   else
  303.     Len := Length(s);
  304.   r.Top := Top;
  305.   r.Bottom := Top+Height;
  306.   POrder := nil;
  307.   POrderRev := nil;
  308.   PDX       := nil;
  309.   Selected  := nil;
  310.   try
  311.     GetMem(POrder,    Len*sizeof(Cardinal));
  312.     GetMem(POrderRev, Len*sizeof(Cardinal));
  313.     GetMem(PDX,       Len*sizeof(Integer));
  314.     SelectedCount := Index2-Index1+1;
  315.     GetMem(Selected, SelectedCount);
  316.     FillChar(Selected^, SelectedCount, 1);
  317.     InitStructure;
  318.     UseSz2 := (rvioUnicode in ItemOptions) or ((GetFontLanguageInfo(Canvas.Handle) and GCP_LIGATE)<>0);
  319.     if UseSz2 then begin
  320.       if rvioUnicode in ItemOptions then
  321.         sz2 := TSmallPoint(GetCharacterPlacementW(Canvas.Handle, Pointer(s),
  322.           TGetCharacterPlacementVal(Len), TGetCharacterPlacementVal(0), res,
  323.           GETCHARACTERPLACEMENTFLAGS or GCP_LIGATE))
  324.       else
  325.         sz2 := TSmallPoint(GetCharacterPlacementA(Canvas.Handle, PChar(s),
  326.           TGetCharacterPlacementVal(Len), TGetCharacterPlacementVal(0), res,
  327.           GETCHARACTERPLACEMENTFLAGS or GCP_LIGATE));
  328.       InitStructure;
  329.     end;
  330.     if rvioUnicode in ItemOptions then
  331.       sz := TSmallPoint(GetCharacterPlacementW(Canvas.Handle, Pointer(s),
  332.         TGetCharacterPlacementVal(Len), TGetCharacterPlacementVal(0), res,
  333.         GETCHARACTERPLACEMENTFLAGS))
  334.     else
  335.       sz := TSmallPoint(GetCharacterPlacementA(Canvas.Handle, PChar(s),
  336.         TGetCharacterPlacementVal(Len), TGetCharacterPlacementVal(0), res,
  337.         GETCHARACTERPLACEMENTFLAGS));
  338.     if UseSz2 then
  339.       sz := sz2;
  340.     Result := (Abs(sz.x-Width)<2) and (sz.y>0);
  341.     if Result then begin
  342.       for i := 0 to Len-1 do
  343.         POrderRev[POrder[i]] := i;
  344.       while SelectedCount>0 do begin
  345.         Start := 0;
  346.         for i := 0 to Len-1 do begin
  347.           idx := POrderRev[i];
  348.           if  (idx+1>=Index1) and (idx+1<=Index2) and
  349.               (Selected[idx+1-Index1]<>#0) then begin
  350.             idx1 := idx+1-1;
  351.             idx2 := idx+1+1;
  352.             while (idx2<=Index2) and (POrder[idx2-1]>POrder[idx+1-1]) and
  353.                   (Integer(POrder[idx2-1]-POrder[idx+1-1])=idx2-(idx+1)) do
  354.               inc(idx2);
  355.             dec(idx2);
  356.             while (idx1>=Index1) and (POrder[idx+1-1]>POrder[idx1-1]) and
  357.                   (Integer(POrder[idx+1-1]-POrder[idx1-1])=(idx+1)-idx1) do
  358.               dec(idx1);
  359.             inc(idx1);
  360.             r.Left := Left+Start;
  361.             r.Right := r.Left;
  362.             for j := idx1 to idx2 do begin
  363.               //Assert(Selected[j-Index1]<>#0);
  364.               Selected[j-Index1] := #0;
  365.               dec(SelectedCount);
  366.               inc(r.Right, PDX[POrder[j-1]]);
  367.             end;
  368.             if rvioUnicode in ItemOptions then begin
  369.               ExtTextOutW(Canvas.Handle, Left,Top, ETO_CLIPPED or ETO_OPAQUE, @r,
  370.                          Pointer(s), Length(s) div 2, nil);
  371.               end
  372.             else begin
  373.               ExtTextOutA(Canvas.Handle, Left,Top, ETO_CLIPPED or ETO_OPAQUE, @r,
  374.                          PChar(s), Length(s), nil);
  375.             end;
  376.             break;
  377.           end;
  378.           dx  := PDX[i];
  379.           inc(Start,dx);
  380.         end;
  381.       end;
  382.     end;
  383.   finally
  384.     FreeMem(POrder);
  385.     FreeMem(POrderRev);
  386.     FreeMem(PDX);
  387.     FreeMem(Selected);
  388.   end;
  389. end;
  390. {------------------------------------------------------------------------------}
  391. function RVU_GetTextCaretPos(Canvas: TCanvas; const s: String;
  392.   PCP: PRVIntegerArray; ItemOptions: TRVItemOptions;
  393.   Width: Integer): Boolean;
  394. var res: TGCPResultsA;
  395.     i: Integer;
  396.     POrder,POrderRev: PRVUnsignedArray;
  397.     PDX: PRVIntegerArray;
  398.     PClass: PChar;
  399.     DX, idx: Integer;
  400.     cls: Char;
  401.     p: Integer;
  402.     Len: Integer;
  403.     sz, sz2: TSmallPoint;
  404.     UseSz2: Boolean;
  405.     {..........................................}
  406.     procedure InitStructure;
  407.     begin
  408.       FillChar(res, sizeof(res), 0);
  409.       FillChar(POrder^, Len*sizeof(Cardinal), 0);
  410.       FillChar(PDX^,    Len*sizeof(Integer),  0);
  411.       FillChar(PClass^, Length(s),            0);
  412.       res.lStructSize := sizeof(res);
  413.       res.nGlyphs := Len;
  414.       res.lpOrder := @(POrder[0]);
  415.       res.lpClass := PClass;
  416.       res.lpDx    := @(PDX[0]);
  417.     end;
  418.     {..........................................}
  419. begin
  420.   if rvioUnicode in ItemOptions then
  421.     Len := Length(s) div 2
  422.   else
  423.     Len := Length(s);
  424.   POrder := nil;
  425.   POrderRev := nil;
  426.   PClass := nil;
  427.   PDX    := nil;
  428.   try
  429.     GetMem(POrder,    Len*sizeof(Cardinal));
  430.     GetMem(POrderRev, Len*sizeof(Cardinal));
  431.     GetMem(PDX,       Len*sizeof(Integer));
  432.     GetMem(PClass,    Length(s)); // for any case
  433.     InitStructure;
  434.     UseSz2 := (rvioUnicode in ItemOptions) or ((GetFontLanguageInfo(Canvas.Handle) and GCP_LIGATE)<>0);
  435.     if UseSz2 then begin
  436.       if rvioUnicode in ItemOptions then
  437.         sz2 := TSmallPoint(GetCharacterPlacementW(Canvas.Handle, Pointer(s),
  438.           TGetCharacterPlacementVal(Len), TGetCharacterPlacementVal(0), res,
  439.           GETCHARACTERPLACEMENTFLAGS or GCP_LIGATE))
  440.       else
  441.         sz2 := TSmallPoint(GetCharacterPlacementA(Canvas.Handle, PChar(s),
  442.           TGetCharacterPlacementVal(Len), TGetCharacterPlacementVal(0), res,
  443.           GETCHARACTERPLACEMENTFLAGS or GCP_LIGATE));
  444.       InitStructure;
  445.     end;
  446.     if rvioUnicode in ItemOptions then
  447.       sz := TSmallPoint(GetCharacterPlacementW(Canvas.Handle, Pointer(s),
  448.         TGetCharacterPlacementVal(Len), TGetCharacterPlacementVal(0), res,
  449.         GETCHARACTERPLACEMENTFLAGS))
  450.     else
  451.       sz := TSmallPoint(GetCharacterPlacementA(Canvas.Handle, PChar(s),
  452.         TGetCharacterPlacementVal(Len), TGetCharacterPlacementVal(0), res,
  453.         GETCHARACTERPLACEMENTFLAGS));
  454.     if UseSz2 then
  455.       sz := sz2;
  456.     Result := (Abs(sz.x-Width)<2) and (sz.y>0);
  457.     if Result then begin
  458.       p := 0;
  459.       for i := 0 to Len-1 do
  460.         POrderRev[POrder[i]] := i;
  461.       for i := 0 to Len-1 do begin
  462.         idx := POrderRev[i];
  463.         {$IFNDEF RVDONOTUSESOFTHYPHENS}
  464.         if (rvioUnicode in ItemOptions) and
  465.            ((PRVWordArray(s)[i]=UNI_ZERO_WIDTH_SPACE) or
  466.             (PRVWordArray(s)[i]=UNI_ZERO_WIDTH_JOINER) or
  467.             (PRVWordArray(s)[i]=UNI_WORD_JOINER)) then
  468.           PDX[i] := 0;
  469.         {$ENDIF}
  470.         dx  := PDX[i];
  471.         cls := PClass[idx];
  472.         if cls in [chr(GCPCLASS_ARABIC),
  473.                    chr(GCPCLASS_HEBREW)] then begin
  474.           PCP[idx+1] := p;
  475.           if idx=0 then
  476.             PCP[0] := p+dx;
  477.           end
  478.         else begin
  479.           PCP[idx+1] := p+dx+1;
  480.           if idx=0 then
  481.             PCP[0] := p;
  482.         end;
  483.         inc(p,dx);
  484.       end;
  485.     end;
  486.   finally
  487.     FreeMem(POrder);
  488.     FreeMem(POrderRev);
  489.     FreeMem(PClass);
  490.     FreeMem(PDX);
  491.   end;
  492. end;
  493. {------------------------------------------------------------------------------}
  494. function RVU_GetTextRangeCoords(Canvas: TCanvas; const s: String;
  495.   RangeStartOffs, RangeLength: Integer; ItemOptions: TRVItemOptions;
  496.   Width: Integer; var X1,X2: Integer): Boolean;
  497. var PCP: PRVIntegerArray;
  498.     X: Integer;
  499.     Len: Integer;
  500. begin
  501.   if rvioUnicode in ItemOptions then
  502.     Len := Length(s) div 2
  503.   else
  504.     Len := Length(s);
  505.   GetMem(PCP, (Len+1)*sizeof(Integer));
  506.   try
  507.     Result := RVU_GetTextCaretPos(Canvas, s, PCP, ItemOptions, Width);
  508.     if Result then begin
  509.       X1 := PCP[RangeStartOffs-1];
  510.       X2 := PCP[RangeStartOffs-1+RangeLength];
  511.       if X2<X1 then begin
  512.         X := X1;
  513.         X1 := X2;
  514.         X2 := X;
  515.       end;
  516.     end;
  517.   finally
  518.     FreeMem(PCP);
  519.   end;
  520. end;
  521. {$IFNDEF RVDONOTUSEUNICODE}
  522. {------------------------------------------------------------------------------}
  523. function RVU_Copy(const s: String; Index, Count: Integer; ItemOptions: TRVItemOptions): String;
  524. begin
  525.   if not (rvioUnicode in ItemOptions) then
  526.     Result := Copy(s, Index, Count)
  527.   else
  528.     Result := Copy(s, 1+(Index-1)*2, Count*2);
  529. end;
  530. {------------------------------------------------------------------------------}
  531. {$IFNDEF RVDONOTUSESOFTHYPHENS}
  532. function GetZWSWidth(Canvas: TCanvas): Integer;
  533. var sz: TSize;
  534.     ch: WideChar;
  535. begin
  536.   ch := WideChar(UNI_ZERO_WIDTH_SPACE);
  537.   GetTextExtentPointW(Canvas.Handle, @ch, 1, sz);
  538.   Result := sz.cx;
  539. end;
  540. function GetZWJWidth(Canvas: TCanvas): Integer;
  541. var sz: TSize;
  542.     ch: WideChar;
  543. begin
  544.   ch := WideChar(UNI_ZERO_WIDTH_JOINER);
  545.   GetTextExtentPointW(Canvas.Handle, @ch, 1, sz);
  546.   Result := sz.cx;
  547. end;
  548. function GetWJWidth(Canvas: TCanvas): Integer;
  549. var sz: TSize;
  550.     ch: WideChar;
  551. begin
  552.   ch := WideChar(UNI_WORD_JOINER);
  553.   GetTextExtentPointW(Canvas.Handle, @ch, 1, sz);
  554.   Result := sz.cx;
  555. end;
  556. {$ENDIF}
  557. {------------------------------------------------------------------------------}
  558. procedure RVU_GetTextExtentPoint32W(Canvas: TCanvas; str: Pointer; Len: Integer;
  559.   var sz: TSize);
  560. {$IFNDEF RVDONOTUSESOFTHYPHENS}
  561. var i: Integer;
  562.     ZWSWidth, ZWJWidth, WJWidth: Integer;
  563. {$ENDIF}
  564. begin
  565.   GetTextExtentPoint32W(Canvas.Handle, str, Len, sz);
  566.   {$IFNDEF RVDONOTUSESOFTHYPHENS}
  567.   ZWSWidth := -1;
  568.   ZWJWidth := -1;
  569.   WJWidth  := -1;
  570.   for i := 0 to Len-1 do
  571.     case PRVWordArray(str)[i] of
  572.       UNI_ZERO_WIDTH_SPACE:
  573.         begin
  574.           if ZWSWidth<0 then
  575.             ZWSWidth := GetZWSWidth(Canvas);
  576.           dec(sz.cx, ZWSWidth);
  577.         end;
  578.       UNI_ZERO_WIDTH_JOINER:
  579.         begin
  580.           if ZWJWidth<0 then
  581.             ZWJWidth := GetZWJWidth(Canvas);
  582.           dec(sz.cx, ZWJWidth);
  583.         end;
  584.       UNI_WORD_JOINER:
  585.         begin
  586.           if WJWidth<0 then
  587.             WJWidth := GetWJWidth(Canvas);
  588.           dec(sz.cx, WJWidth);
  589.         end;
  590.     end;
  591.   {$ENDIF}
  592. end;
  593. {------------------------------------------------------------------------------}
  594. procedure RVU_GetTextExtentExPoint(Canvas: TCanvas; const s: String;
  595.   MaxExtent: Integer; var Fit: Integer; PDx: PRVIntegerArray;
  596.   ItemOptions: TRVItemOptions);
  597. var sz: TSize;
  598.     Len: Integer;
  599. begin
  600.   Len := Length(s);
  601.   if rvioUnicode in ItemOptions then
  602.     Len := Len div 2;
  603.   RVU_GetTextExtentExPointPC(Canvas, PChar(s), Len, MaxExtent, Fit, PDx,
  604.     ItemOptions, sz);
  605. end;
  606. {------------------------------------------------------------------------------}
  607. { Length - length in characters (not bytes) }
  608. procedure RVU_GetTextExtentExPointPC(Canvas: TCanvas; pc: PChar; Length: Integer;
  609.   MaxExtent: Integer; var Fit: Integer; PDx: PRVIntegerArray;
  610.   ItemOptions: TRVItemOptions; var sz: TSize);
  611. var i: Integer;
  612.   {$IFNDEF RVDONOTUSESOFTHYPHENS}
  613.     j, delta: Integer;
  614.     ZWSWidth, ZWJWidth, WJWidth, ZWCount: Integer;
  615.   {$ENDIF}
  616.   {$IFNDEF RICHVIEWDEF4}
  617.     allocated: Boolean;
  618.   {$ELSE}
  619.   {$IFNDEF RVDONOTUSESOFTHYPHENS}
  620.     allocated: Boolean;
  621.   {$ENDIF}
  622.   {$ENDIF}
  623. begin
  624.   if Length=0 then begin
  625.     Fit := 0;
  626.     exit;
  627.   end;
  628.   {$IFNDEF RICHVIEWDEF4}
  629.   allocated := False;
  630.   {$ELSE}
  631.   {$IFNDEF RVDONOTUSESOFTHYPHENS}
  632.   allocated := False;
  633.   {$ENDIF}
  634.   {$ENDIF}
  635.   if not (rvioUnicode in ItemOptions) then begin
  636.     {$IFNDEF RICHVIEWDEF4}
  637.     if PDx=nil then begin
  638.       GetMem(PDx, (Length+1)*sizeof(Integer));
  639.       allocated := True;
  640.     end;
  641.     {$ENDIF}
  642.     GetTextExtentExPointA(Canvas.Handle,  pc, Length, MaxExtent,
  643.       {$IFDEF RICHVIEWDEF4}@Fit, PInteger(PDx),{$ELSE}Fit, PInteger(PDx)^,{$ENDIF}
  644.       sz)
  645.     end
  646.   else if not (RVNT) then begin
  647.     Fit := -1;
  648.     {$IFNDEF RVDONOTUSESOFTHYPHENS}
  649.     ZWSWidth := -1;
  650.     ZWJWidth := -1;
  651.     WJWidth  := -1;
  652.     {$ENDIF}
  653.     for i := 1 to Length do begin
  654.       GetTextExtentPoint32W(Canvas.Handle, Pointer(pc), i, sz);
  655.       {$IFNDEF RVDONOTUSESOFTHYPHENS}
  656.       case PRVWordArray(pc)[i-1] of
  657.         UNI_ZERO_WIDTH_SPACE:
  658.           begin
  659.             if ZWSWidth<0 then
  660.               ZWSWidth := GetZWSWidth(Canvas);
  661.             dec(sz.cx, ZWSWidth);
  662.           end;
  663.         UNI_ZERO_WIDTH_JOINER:
  664.           begin
  665.             if ZWJWidth<0 then
  666.               ZWJWidth := GetZWJWidth(Canvas);
  667.             dec(sz.cx, ZWJWidth);
  668.           end;
  669.         UNI_WORD_JOINER:
  670.           begin
  671.             if WJWidth<0 then
  672.               WJWidth := GetWJWidth(Canvas);
  673.             dec(sz.cx, WJWidth);
  674.           end;
  675.       end;
  676.       {$ENDIF}
  677.       if sz.cx>MaxExtent then begin
  678.         Fit := i-1;
  679.         break;
  680.       end;
  681.       if PDx<>nil then
  682.         PDx[i-1] := sz.cx;
  683.     end;
  684.     if Fit<0 then
  685.       Fit := Length;
  686.     end
  687.   else begin
  688.     {$IFNDEF RICHVIEWDEF4}
  689.     if PDx=nil then begin
  690.       GetMem(PDx, (Length+1)*sizeof(Integer));
  691.       allocated := True;
  692.     end;
  693.     {$ENDIF}
  694.     {$IFNDEF RVDONOTUSESOFTHYPHENS}
  695.     if (PDx=nil) and
  696.        ((RVU_StrScanW(pc, UNI_ZERO_WIDTH_SPACE, Length)<>nil) or
  697.         (RVU_StrScanW(pc, UNI_ZERO_WIDTH_JOINER, Length)<>nil) or
  698.         (RVU_StrScanW(pc, UNI_WORD_JOINER, Length)<>nil)) then begin
  699.       GetMem(PDx, (Length+1)*sizeof(Integer));
  700.       allocated := True;
  701.     end;
  702.     {$ENDIF}
  703.     GetTextExtentExPointW(Canvas.Handle, Pointer(pc), Length, MaxExtent,
  704.       {$IFDEF RICHVIEWDEF4}@Fit, PInteger(PDx),{$ELSE}Fit, PInteger(PDx)^,{$ENDIF}
  705.       sz);
  706.     {$IFNDEF RVDONOTUSESOFTHYPHENS}
  707.     ZWCount := 0;
  708.     for i := 0 to Length-1 do
  709.       if (PRVWordArray(pc)[i]=UNI_ZERO_WIDTH_SPACE) or
  710.          (PRVWordArray(pc)[i]=UNI_ZERO_WIDTH_JOINER) or
  711.          (PRVWordArray(pc)[i]=UNI_WORD_JOINER) then begin
  712.         if i=0 then
  713.           delta := PDx[0]
  714.         else
  715.           delta := PDx[i]-PDx[i-1];
  716.         if delta<>0 then begin
  717.           for j := i to Length-1 do
  718.             dec(PDx[j], delta);
  719.           inc(ZWCount);
  720.         end;
  721.       end;
  722.     if ZWCount>0 then begin
  723.       while (Fit<Length) and (PDx[Fit]<MaxExtent) do
  724.         inc(Fit);
  725.     end;
  726.     {$ENDIF}    
  727.   end;
  728.   {$IFNDEF RICHVIEWDEF4}
  729.   if allocated then
  730.     FreeMem(PDx);
  731.   {$ELSE}
  732.   {$IFNDEF RVDONOTUSESOFTHYPHENS}
  733.   if allocated then
  734.     FreeMem(PDx);  
  735.   {$ENDIF}
  736.   {$ENDIF}
  737. end;
  738. {------------------------------------------------------------------------------}
  739. function RVU_Length(const s: String; ItemOptions: TRVItemOptions): Integer;
  740. begin
  741.   if not (rvioUnicode in ItemOptions) then
  742.     Result := Length(s)
  743.   else
  744.     Result := Length(s) div 2;
  745. end;
  746. {------------------------------------------------------------------------------}
  747. function RVU_TextWidth(const s: String; Canvas: TCanvas;
  748.                        ItemOptions: TRVItemOptions): Integer;
  749. var Size: TSize;
  750. begin
  751.   if not (rvioUnicode in ItemOptions) then
  752.     GetTextExtentPoint32A(Canvas.Handle, PChar(s), Length(s), Size)
  753.   else
  754.     RVU_GetTextExtentPoint32W(Canvas, Pointer(PChar(s)), Length(s) div 2, Size);
  755.   Result := Size.cx;
  756. end;
  757. {------------------------------------------------------------------------------}
  758. function RVU_IsSpace(const s: String; Index: Integer;
  759.                      ItemOptions: TRVItemOptions): Boolean;
  760. begin
  761.   if not (rvioUnicode in ItemOptions) then
  762.     Result := s[Index]=' '
  763.   else
  764.     Result := (s[(Index-1)*2+1]=' ') and (s[Index*2]=#0);
  765. end;
  766. {------------------------------------------------------------------------------}
  767. procedure RVU_Delete(var s: String; Index, Count: Integer; ItemOptions: TRVItemOptions);
  768. begin
  769.   if not (rvioUnicode in ItemOptions) then
  770.     Delete(s, Index, Count)
  771.   else
  772.     Delete(s, (Index-1)*2+1, Count*2);
  773. end;
  774. {------------------------------------------------------------------------------}
  775. procedure RVU_Insert(const Source: String; var s: String; Index: Integer; ItemOptions: TRVItemOptions);
  776. begin
  777.   if not (rvioUnicode in ItemOptions) then
  778.     Insert(Source, s, Index)
  779.   else
  780.     Insert(Source, s, (Index-1)*2+1);
  781. end;
  782. {------------------------------------------------------------------------------}
  783. function RVU_OffsInPChar(Offs: Integer; ItemOptions: TRVItemOptions): Integer;
  784. begin
  785.   if not (rvioUnicode in ItemOptions) then
  786.     Result := Offs
  787.   else
  788.     Result := Offs*2;
  789. end;
  790. {------------------------------------------------------------------------------}
  791. {$ELSE}
  792. {------------------------------------------------------------------------------}
  793. function RVU_Copy(const s: String; Index, Count: Integer; ItemOptions: TRVItemOptions): String;
  794. begin
  795.   Result := Copy(s, Index, Count);
  796. end;
  797. {------------------------------------------------------------------------------}
  798. procedure RVU_GetTextExtentExPoint(Canvas: TCanvas; const s: String;
  799.   MaxExtent: Integer; var Fit: Integer; PDx: PRVIntegerArray;
  800.   ItemOptions: TRVItemOptions);
  801. var sz: TSize;
  802. {$IFNDEF RICHVIEWDEF4}
  803.     allocated: Boolean;
  804. {$ENDIF}
  805. begin
  806.   if Length(s)=0 then begin
  807.     Fit := 0;
  808.     exit;
  809.   end;
  810.   {$IFNDEF RICHVIEWDEF4}
  811.   if PDx=nil then begin
  812.     GetMem(PDx, (Length(s)+1)*sizeof(Integer));
  813.     allocated := True;
  814.     end
  815.   else
  816.     allocated := False;
  817.   {$ENDIF}
  818.   GetTextExtentExPointA(Canvas.Handle,  PChar(s), Length(s), MaxExtent,
  819.     {$IFDEF RICHVIEWDEF4}@Fit, PInteger(PDx),{$ELSE}Fit, PInteger(PDx)^,{$ENDIF}
  820.     sz);
  821.   {$IFNDEF RICHVIEWDEF4}
  822.   if allocated then
  823.     FreeMem(PDx);
  824.   {$ENDIF}
  825. end;
  826. {------------------------------------------------------------------------------}
  827. procedure RVU_GetTextExtentExPointPC(Canvas: TCanvas; pc: PChar;
  828.                                   Length: Integer;
  829.                                   MaxExtent: Integer; var Fit: Integer;
  830.                                   PDx: PRVIntegerArray;
  831.                                   ItemOptions: TRVItemOptions;
  832.                                   var sz: TSize);
  834. {$IFNDEF RICHVIEWDEF4}
  835. var
  836.     allocated: Boolean;
  837. {$ENDIF}
  838. begin
  839.   if Length=0 then begin
  840.     Fit := 0;
  841.     exit;
  842.   end;
  843.   {$IFNDEF RICHVIEWDEF4}
  844.   if PDx=nil then begin
  845.     GetMem(PDx, (Length+1)*sizeof(Integer));
  846.     allocated := True;
  847.     end
  848.   else
  849.     allocated := False;
  850.   {$ENDIF}
  851.   GetTextExtentExPointA(Canvas.Handle,  pc, Length, MaxExtent,
  852.                             {$IFDEF RICHVIEWDEF4}
  853.                             @Fit, PInteger(PDx),
  854.                             {$ELSE}
  855.                             Fit, PInteger(PDx)^,
  856.                             {$ENDIF}
  857.                             sz);
  858.   {$IFNDEF RICHVIEWDEF4}
  859.   if allocated then
  860.     FreeMem(PDx);
  861.   {$ENDIF}
  862. end;
  863. {------------------------------------------------------------------------------}
  864. function RVU_Length(const s: String; ItemOptions: TRVItemOptions): Integer;
  865. begin
  866.   Result := Length(s);
  867. end;
  868. {------------------------------------------------------------------------------}
  869. function RVU_TextWidth(const s: String; Canvas: TCanvas;
  870.                        ItemOptions: TRVItemOptions): Integer;
  871. var Size: TSize;
  872. begin
  873.   GetTextExtentPoint32(Canvas.Handle, PChar(s), Length(s), Size);
  874.   Result := Size.cx;
  875. end;
  876. {------------------------------------------------------------------------------}
  877. function RVU_IsSpace(const s: String; Index: Integer;
  878.                      ItemOptions: TRVItemOptions): Boolean;
  879. begin
  880.   Result := s[Index]=' ';
  881. end;
  882. {------------------------------------------------------------------------------}
  883. procedure RVU_Delete(var s: String; Index, Count: Integer; ItemOptions: TRVItemOptions);
  884. begin
  885.   Delete(s, Index, Count);
  886. end;
  887. {------------------------------------------------------------------------------}
  888. procedure RVU_Insert(const Source: String; var s: String; Index: Integer; ItemOptions: TRVItemOptions);
  889. begin
  890.   Insert(Source, s, Index);
  891. end;
  892. {------------------------------------------------------------------------------}
  893. function RVU_OffsInPChar(Offs: Integer; ItemOptions: TRVItemOptions): Integer;
  894. begin
  895.   Result := Offs;
  896. end;
  897. {$ENDIF}
  898. {------------------------------------------------------------------------------}
  899. function RVU_DrawSelectedTextEx(Left, Top, Width, Height: Integer;
  900.   const s: String; Canvas: TCanvas; Index1,Index2: Integer;
  901.   ItemOptions: TRVItemOptions; BiDiMode: TRVBiDiMode): Boolean;
  902. begin
  903.   if BiDiMode=rvbdUnspecified then
  904.     Result := False
  905.   else
  906.     Result := RVU_DrawSelectedTextEx_(Left, Top, Width, Height, s, Canvas,
  907.       Index1, Index2, ItemOptions);
  908. end;
  909. {------------------------------------------------------------------------------}
  910. {$IFDEF RICHVIEWCBDEF3}
  911. function RVU_Charset2CodePage(Charset: TFontCharset): TRVCodePage;
  912. begin
  913.   // PLEASE REPORT ME ABOUT ERRORS IN THIS TABLE
  914.   case Charset of
  915.     DEFAULT_CHARSET:
  916.       Result := CP_ACP;
  917.     OEM_CHARSET:
  918.        Result := CP_OEMCP;
  919.     MAC_CHARSET:
  920.        Result := CP_MACCP;
  921.     SYMBOL_CHARSET:
  922.       Result := CP_ACP; // ???
  923.     VIETNAMESE_CHARSET:
  924.        Result := 1258;
  925.     ANSI_CHARSET:
  926.       Result := 1252;   // Windows 3.1 US (ANSI)
  927.     SHIFTJIS_CHARSET:
  928.        Result := 932;   // Japan
  929.     HANGEUL_CHARSET:
  930.        Result := 949;   // Korean
  931.     JOHAB_CHARSET:
  932.        Result := 1361;  // Korean (Johab)
  933.     GB2312_CHARSET:
  934.        Result := 936;   // Chinese (PRC, Singapore)
  935.     CHINESEBIG5_CHARSET:
  936.        Result := 950;   // Chinese (Taiwan, Hong Kong)
  937.     GREEK_CHARSET:
  938.        Result := 1253;  // Windows 3.1 Greek
  939.     TURKISH_CHARSET:
  940.        Result := 1254;  // Windows 3.1 Turkish
  941.     HEBREW_CHARSET:
  942.        Result := 1255;   // Hebrew
  943.     ARABIC_CHARSET:
  944.        Result := 1256;   // Arabic
  945.     BALTIC_CHARSET:
  946.        Result := 1257;   // Baltic
  947.     RUSSIAN_CHARSET:
  948.        Result := 1251;   // Windows 3.1 Cyrillic
  949.     THAI_CHARSET:
  950.        Result := 874;    // Thai
  951.     EASTEUROPE_CHARSET:
  952.        Result := 1250;   // Windows 3.1 Eastern European
  953.     else
  954.        Result := CP_ACP;
  955.   end;
  956. end;
  957. {------------------------------------------------------------------------------}
  958. function RVU_Charset2Language(Charset: TFontCharset): Cardinal;
  959. begin
  960.   // PLEASE REPORT ME ABOUT ERRORS IN THIS TABLE
  961.   // Note: trying to make a best guess here;
  962.   // one charset can be used by a lots of languages
  963.   case Charset of
  964.     DEFAULT_CHARSET:
  965.       Result := $0000; // default
  966.     OEM_CHARSET:
  967.        Result := $0400; // default
  968.     MAC_CHARSET:
  969.        Result := $0400; // default
  970.     SYMBOL_CHARSET:
  971.       Result := $0400; // default
  972.     VIETNAMESE_CHARSET:
  973.        Result := $042A;  // by experement with MS Word
  974.     ANSI_CHARSET:
  975.       Result := $0409;   // English US
  976.     SHIFTJIS_CHARSET:
  977.        Result := $0411;   // Japanese
  978.     HANGEUL_CHARSET:
  979.        Result := $0412;   // Korean
  980.     JOHAB_CHARSET:
  981.        Result := $0812;  // Korean (Johab)
  982.     GB2312_CHARSET:
  983.        Result := $0804;   // Chinese (PRC; more options possible here)
  984.     CHINESEBIG5_CHARSET:
  985.        Result := $0404;   // Chinese (Taiwan; more options possible here)
  986.     GREEK_CHARSET:
  987.        Result := $0408;  // Greek
  988.     TURKISH_CHARSET:
  989.        Result := $041F;  // Turkish
  990.     HEBREW_CHARSET:
  991.        Result := $040D;  // Hebrew
  992.     ARABIC_CHARSET:
  993.        Result := $0000;  // default - too many options
  994.     BALTIC_CHARSET:
  995.        Result := $0000;  // default - too many options
  996.     RUSSIAN_CHARSET:
  997.        Result := $0419;   // Russian
  998.     THAI_CHARSET:
  999.        Result := $041E;    // Thai
  1000.     EASTEUROPE_CHARSET:
  1001.        Result := $0400;   // default - too many options
  1002.     else
  1003.        Result := $0400;
  1004.   end;
  1005. end;
  1006. {------------------------------------------------------------------------------}
  1007. function RVU_RawUnicodeToWideString(const s: String):WideString;
  1008. begin
  1009.   RVCheckUni(Length(s));
  1010.   SetLength(Result, Length(s) div 2);
  1011.   Move(Pointer(s)^, Pointer(Result)^, Length(s));
  1012. end;
  1013. {------------------------------------------------------------------------------}
  1014. function RVU_GetRawUnicode(const s: WideString):String;
  1015. begin
  1016.   SetLength(Result, Length(s)*2);
  1017.   Move(Pointer(s)^, Pointer(Result)^, Length(Result));
  1018. end;
  1019. {$ELSE}
  1020. {------------------------------------------------------------------------------}
  1021. function RVU_GetRawUnicode(const s: String):String;
  1022. begin
  1023.   Result := s;
  1024. end;
  1025. {$ENDIF}
  1026. {------------------------------------------------------------------------------}
  1027. procedure RVU_SwapWordBytes(arr: PWord; Count: Integer);
  1028. var i: Integer;
  1029. begin
  1030.   for i := 0 to Count-1 do begin
  1031.     arr^ := Swap(Word(arr^));
  1032.     inc(PChar(arr),2);
  1033.   end;
  1034. end;
  1035. {------------------------------------------------------------------------------}
  1036. procedure RVU_ProcessByteOrderMark(var arr: PWord; Count: Integer);
  1037. begin
  1038.   if Count=0 then
  1039.     exit;
  1040.   case arr^ of
  1041.     UNI_MSB_FIRST:
  1042.       begin
  1043.         inc(PChar(arr), 2);
  1044.         RVU_SwapWordBytes(arr, Count-1);
  1045.       end;
  1046.     UNI_LSB_FIRST:
  1047.       inc(PChar(arr), 2);
  1048.   end;
  1049. end;
  1050. {------------------------------------------------------------------------------}
  1051. function RVU_AnsiToUnicode(CodePage: TRVCodePage; const s: String): String;
  1052. var l: Integer;
  1053. begin
  1054.   if Length(s)=0 then begin
  1055.     Result := '';
  1056.     exit;
  1057.   end;
  1058.   l := MultiByteToWideChar(CodePage,MB_PRECOMPOSED or MB_USEGLYPHCHARS, PChar(s), Length(s),
  1059.                            nil, 0);
  1060.   if (l=0) and (CodePage<>CP_ACP) then begin
  1061.     CodePage := CP_ACP;
  1062.     l := MultiByteToWideChar(CodePage, MB_PRECOMPOSED or MB_USEGLYPHCHARS, PChar(s), Length(s),
  1063.                            nil, 0);
  1064.   end;
  1065.   if l<>0 then begin
  1066.     SetLength(Result, l*2);
  1067.     MultiByteToWideChar(CodePage, MB_PRECOMPOSED or MB_USEGLYPHCHARS, PChar(s), Length(s),
  1068.                              Pointer(Result), l);
  1069.     end
  1070.   else begin
  1071.     SetLength(Result, Length(s)*2);
  1072.     FillChar(PChar(Result)^, Length(Result), 0);
  1073.     for l := 0 to Length(s)-1 do
  1074.       Result[l*2+1] := RVDEFAULTCHARACTER
  1075.   end;
  1076. end;
  1077. {------------------------------------------------------------------------------}
  1078. function RVU_AnsiToUTF8(CodePage: TRVCodePage; const s: String): String;
  1079. begin
  1080.   {$IFDEF RICHVIEWCBDEF3}
  1081.   if s='' then
  1082.     Result := ''
  1083.   else
  1084.     Result := UTF8Encode(RVU_RawUnicodeToWideString((RVU_AnsiToUnicode(CodePage, s))));
  1085.   {$ELSE}
  1086.     Result := s;
  1087.   {$ENDIF}
  1088. end;
  1090. {------------------------------------------------------------------------------}
  1091. function RVU_UnicodeToAnsi(CodePage: TRVCodePage; const s: String): String;
  1092. var l: Integer;
  1093.     DefChar: Char;
  1094.     Flags: Integer;
  1095.     Len: Integer;
  1096. begin
  1097.   if Length(s)=0 then begin
  1098.     Result := '';
  1099.     exit;
  1100.   end;
  1101.   RVCheckUni(Length(s));
  1102.   DefChar := RVDEFAULTCHARACTER;
  1103.   Flags := WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR;
  1104.   Len := Length(s) div 2;
  1105.   l := WideCharToMultiByte(CodePage, Flags, Pointer(s), Len, nil, 0, @DefChar, nil);
  1106.   if (l=0) and (CodePage<>CP_ACP) then begin
  1107.     CodePage := CP_ACP;
  1108.     l := WideCharToMultiByte(CodePage, Flags, Pointer(s), Len, nil, 0, @DefChar, nil);
  1109.   end;
  1110.   if l<>0 then begin
  1111.     SetLength(Result, l);
  1112.     WideCharToMultiByte(CodePage, Flags, Pointer(s), Len, PChar(Result), l, @DefChar, nil);
  1113.     end
  1114.   else begin
  1115.     SetLength(Result, Len);
  1116.     FillChar(PChar(Result)^, Len, RVDEFAULTCHARACTER);
  1117.   end;
  1118. end;
  1119. {------------------------------------------------------------------------------}
  1120. function RVU_CanBeConvertedToAnsi(CodePage: TRVCodePage; const s: String): Boolean;
  1121. var l: Integer;
  1122.     DefChar: Char;
  1123.     Flags: Integer;
  1124.     Len: Integer;
  1125.     UsedDefChar: LongBool;
  1126. begin
  1127.   if Length(s)=0 then begin
  1128.     Result := True;
  1129.     exit;
  1130.   end;
  1131.   RVCheckUni(Length(s));
  1132.   DefChar := RVDEFAULTCHARACTER;
  1133.   Flags := WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR;
  1134.   Len := Length(s) div 2;
  1135.   UsedDefChar := False;
  1136.   l := WideCharToMultiByte(CodePage, Flags, Pointer(s), Len, nil, 0, @DefChar, @UsedDefChar);
  1137.   Result := (l>0) and not UsedDefChar;
  1138. end;
  1139. {------------------------------------------------------------------------------}
  1140. function RV_TestStreamUnicode(Stream: TStream): TRVUnicodeTestResult;
  1141. var FirstChar: Word;
  1142.     Len: Integer;
  1143.     s: String;
  1144. begin
  1145.   try
  1146.     if Stream.Size=0 then
  1147.       Result := rvutEmpty
  1148.     else if Stream.Size mod 2 <> 0 then
  1149.       Result := rvutNo
  1150.     else begin
  1151.       Stream.ReadBuffer(FirstChar, 2);
  1152.       if (FirstChar=UNI_LSB_FIRST) or
  1153.          (FirstChar=UNI_MSB_FIRST) then
  1154.         Result := rvutYes
  1155.       else begin
  1156.         Len := Stream.Size-2;
  1157.         if Len>500 then Len := 500;
  1158.         SetLength(s, Len);
  1159.         Stream.ReadBuffer(PChar(s)^, Len);
  1160.         if Pos(#0, s)<>0 then
  1161.           Result := rvutYes
  1162.         else
  1163.           Result := rvutProbably;
  1164.       end;
  1165.     end;
  1166.   except
  1167.     Result := rvutError;
  1168.   end;
  1169. end;
  1170. {------------------------------------------------------------------------------}
  1171. function RV_TestFileUnicode(const FileName: String): TRVUnicodeTestResult;
  1172. var Stream: TFileStream;
  1173. begin
  1174.   try
  1175.     Stream := TFileStream.Create(FileName, fmOpenRead);
  1176.     Result := RV_TestStreamUnicode(Stream);
  1177.     Stream.Free;
  1178.   except
  1179.     Result := rvutError;
  1180.   end;
  1181. end;
  1182. {------------------------------------------------------------------------------}
  1183. function RV_TestStringUnicode(const s: String): TRVUnicodeTestResult;
  1184. var Stream: TMemoryStream;
  1185.     Len: Integer;
  1186. begin
  1187.   if Length(s) mod 2 <> 0 then begin
  1188.     Result := rvutNo;
  1189.     exit;
  1190.   end;
  1191.   Len := Length(s);
  1192.   if Len>500 then
  1193.     Len := 500;
  1194.   try
  1195.     Stream := TMemoryStream.Create;
  1196.     try
  1197.       Stream.SetSize(Len);
  1198.       Stream.WriteBuffer(PChar(s)^, Len);
  1199.       Stream.Position := 0;
  1200.       Result := RV_TestStreamUnicode(Stream);
  1201.     finally
  1202.       Stream.Free;
  1203.     end;
  1204.   except
  1205.     Result := rvutError;  
  1206.   end;
  1207. end;
  1208. {------------------------------------------------------------------------------}
  1209. function RVU_GetKeyboardCodePage: TRVCodePage;
  1210. var Buf: String;
  1211.     Len: Integer;
  1212.     Locale: LCID;
  1213.     {$IFNDEF RICHVIEWCBDEF3}
  1214. const LOCALE_IDEFAULTANSICODEPAGE     = $00001004;
  1215.     {$ENDIF}
  1216. begin
  1217.   Locale := GetKeyboardLayout(0) and $FFFF;
  1218.   Len := GetLocaleInfo(Locale, LOCALE_IDEFAULTANSICODEPAGE, nil, 0);
  1219.   SetLength(Buf, Len);
  1220.   GetLocaleInfo(Locale, LOCALE_IDEFAULTANSICODEPAGE, PChar(Buf), Len);
  1221.   Result := StrToIntDef(Buf, GetACP);
  1222. end;
  1223. {------------------------------------------------------------------------------}
  1224. function RVU_KeyToUnicode(const Key: String): String;
  1225. begin
  1226.   Result :=  RVU_AnsiToUnicode(RVU_GetKeyboardCodePage, Key);
  1227. end;
  1228. {------------------------------------------------------------------------------}
  1229. function RVU_StrScanW(Str: Pointer; Ch: Word; Length: Integer): Pointer;
  1230. // in: Str -> EAX, Ch -> EDX, Length -> ECX
  1231. // out: Result -> EAX
  1232. // Assums Str<>nil
  1233. asm
  1234.     JCXZ @@RetNil
  1235. @@Loop:
  1236.     CMP [EAX], DX
  1237.     JE @@Done
  1238.     INC EAX
  1239.     INC EAX
  1240.     DEC ECX
  1241.     JNZ @@Loop
  1242. @@RetNil:
  1243.     XOR EAX, EAX
  1244. @@Done:
  1245. end;
  1246. {------------------------------------------------------------------------------}
  1247. { returns number of characters in a string excluding the null terminator       }
  1248. function RVU_StrLenW(Str: Pointer): Cardinal;
  1249. // in: Str -> EAX
  1250. // out: Result -> EAX
  1251. asm
  1252.     MOV EDX, EDI
  1253.     MOV EDI, EAX
  1254.     MOV ECX, 0FFFFFFFFH
  1255.     XOR AX, AX
  1256.     REPNE SCASW
  1257.     MOV EAX, 0FFFFFFFEH
  1258.     SUB EAX, ECX
  1259.     MOV EDI, EDX
  1260. end;
  1261. {------------------------------------------------------------------------------}
  1262. {$IFNDEF RVDONOTUSEHTML}
  1263. function GetCharHTMLCode(ch: Char; var prevspace, specialcode: Boolean; last: Boolean): String;
  1264. begin
  1265.   if specialcode then begin
  1266.     Result := ch;
  1267.     prevspace := False;
  1268.     exit;
  1269.   end;
  1270.   if ch='&' then begin
  1271.     Result := '&amp;';
  1272.     prevspace := False;
  1273.     end
  1274.   else if ch='<' then begin
  1275.     Result := '&lt;';
  1276.     prevspace := False;
  1277.     end
  1278.   else if ch='>' then begin
  1279.     Result := '&gt;';
  1280.     prevspace := False;
  1281.     end
  1282.   else if ch=' ' then begin
  1283.     if prevspace or last then begin
  1284.       Result := '&nbsp;';
  1285.       prevspace := False;
  1286.       end
  1287.     else begin
  1288.       Result := ch;
  1289.       prevspace := True;
  1290.       end
  1291.     end
  1292.   else begin
  1293.     Result := ch;
  1294.     prevspace := False;
  1295.   end;
  1296. end;
  1297. {------------------------------------------------------------------------------}
  1298. procedure RVU_WriteHTMLEncodedUnicode(Stream: TStream; const s: String;NoEmptyLines,SpecialCode:Boolean);
  1299. var p: PWord;
  1300.     chars: String;
  1301.     i: Integer;
  1302.     prevspace: Boolean;
  1303.     Len: Integer;
  1304. begin
  1305.   if (Length(s)=0) and NoEmptyLines then begin
  1306.     chars := '&nbsp;';
  1307.     Stream.WriteBuffer(PChar(chars)^,Length(chars));
  1308.   end;
  1309.   prevspace := True;
  1310.   p := PWord(PChar(s));
  1311.   Len := Length(s) div 2;
  1312.   for i := 1 to Len do begin
  1313.     if (p^<128) then
  1314.       chars := GetCharHTMLCode(chr(p^), prevspace, SpecialCode, i=Len)
  1315.     else begin
  1316.       chars := Format('&#%d;',[p^]);
  1317.       prevspace := False;
  1318.     end;
  1319.     Stream.WriteBuffer(PChar(chars)^,Length(chars));
  1320.     inc(PChar(p),2);
  1321.   end;
  1322. end;
  1323. {------------------------------------------------------------------------------}
  1324. function RVU_GetHTMLEncodedUnicode(const s: String; SpecialCode:Boolean): String;
  1325. var p: PWord;
  1326.     i, Len: Integer;
  1327.     prevspace: Boolean;
  1328. begin
  1329.   prevspace := True;
  1330.   Result := '';
  1331.   p := PWord(PChar(s));
  1332.   Len := Length(s) div 2;
  1333.   for i := 1 to Len do begin
  1334.     if (p^<128) then
  1335.       Result := Result+GetCharHTMLCode(chr(p^), prevspace,SpecialCode, i=Len)
  1336.     else if p^=160 then
  1337.       Result := Result+'&nbsp;'
  1338.     else begin
  1339.       Result := Result+Format('&#%d;',[p^]);
  1340.       prevspace := False;
  1341.     end;
  1342.     inc(PChar(p),2);
  1343.   end;
  1344. end;
  1345. {------------------------------------------------------------------------------}
  1346. function GetHTMLEntity(ch: Char): String;
  1347. begin
  1348.   case ch of
  1349.     '&':
  1350.       Result := '&amp;';
  1351.     '<':
  1352.       Result := '&lt;';
  1353.     '>':
  1354.       Result := '&gt;';
  1355.     #160:
  1356.       Result := '&nbsp;';
  1357.     else
  1358.       Result := '';
  1359.   end;
  1360. end;
  1361. {------------------------------------------------------------------------------}
  1362. function RVU_UnicodeToUTF8(const s: String; SpecialCode:Boolean): String;
  1363. {$IFDEF RICHVIEWCBDEF3}
  1364. var p: PWord;
  1365.     i, Len, SeqLen: Integer;
  1366.     prevspace: Boolean;
  1367.     {....................................}
  1368.     procedure AddUTF8(var res: String);
  1369.     var ws: WideString;
  1370.     begin
  1371.       SetLength(ws, SeqLen);
  1372.       Move((PChar(p)-SeqLen*2)^, PWideChar(ws)^, SeqLen*2);
  1373.       res := res+UTF8Encode(ws);
  1374.       SeqLen := 0;
  1375.     end;
  1376.     {....................................}
  1377. {$ENDIF}
  1378. begin
  1379. {$IFDEF RICHVIEWCBDEF3}
  1380.   if SpecialCode then begin
  1381.     Result := UTF8Encode(RVU_RawUnicodeToWideString(s));
  1382.     exit;
  1383.   end;
  1384.   prevspace := True;
  1385.   Result := '';
  1386.   p := PWord(PChar(s));
  1387.   Len := Length(s) div 2;
  1388.   SeqLen := 0;
  1389.   for i := 1 to Len do begin
  1390.     case p^ of
  1391.       ord('&'), ord('<'), ord('>'), 160:
  1392.         begin
  1393.           if SeqLen>0 then
  1394.             AddUTF8(Result);
  1395.           Result := Result+GetHTMLEntity(chr(p^));
  1396.           prevspace := False;
  1397.         end;
  1398.       ord(' '):
  1399.         begin
  1400.           if prevspace or (i=Len) then begin
  1401.             if SeqLen>0 then
  1402.               AddUTF8(Result);
  1403.             Result := Result+'&nbsp;';
  1404.             prevspace := False;
  1405.             end
  1406.           else begin
  1407.             inc(SeqLen);
  1408.             prevspace := True;
  1409.           end;
  1410.         end;
  1411.       else
  1412.         begin
  1413.           inc(SeqLen);
  1414.           prevspace := False;
  1415.         end;
  1416.     end;
  1417.     inc(PChar(p),2);
  1418.   end;
  1419.   if SeqLen>0 then
  1420.     AddUTF8(Result);
  1421. {$ELSE}
  1422.   Result :=RVU_GetHTMLEncodedUnicode(s, SpecialCode);
  1423. {$ENDIF}
  1424. end;
  1425. {$ENDIF}
  1426. {------------------------------------------------------------------------------}
  1427. function RV_ReturnProcessedString(const s: String; TextStyle: TFontInfo;
  1428.   LastOnLine, ShowSpecialChars, ForDisplay: Boolean): String;
  1429. {$IFNDEF RVDONOTUSESOFTHYPHENS}
  1430. {$IFNDEF RVDONOTUSEUNICODE}
  1431. var i, len: Integer;
  1432.     Changed: Boolean;
  1433. {$ENDIF}
  1434. {$ENDIF}
  1435. begin
  1436.   if not (rvscSoftHyphen in RVVisibleSpecialCharacters) then
  1437.     ShowSpecialChars := False;
  1438.   {$IFNDEF RVDONOTUSEALLCAPS}
  1439.   if rvfsAllCaps in TextStyle.StyleEx then begin
  1440.     {$IFNDEF RVDONOTUSEUNICODE}
  1441.     if TextStyle.Unicode then begin
  1442.       if RVNT then begin
  1443.         SetString(Result, PChar(s), Length(s));
  1444.         CharUpperBuffW(Pointer(Result), Length(s) div 2);
  1445.         end
  1446.       else
  1447.         Result := s;
  1448.       end
  1449.     else
  1450.    {$ENDIF}
  1451.      Result := AnsiUpperCase(s);
  1452.    end
  1453.   else
  1454.     Result := s;
  1455.   {$ELSE}
  1456.   Result := s;
  1457.   {$ENDIF}
  1458.   {$IFNDEF RVDONOTUSESOFTHYPHENS}
  1459.   {$IFNDEF RVDONOTUSEUNICODE}
  1460.   if TextStyle.Unicode then begin
  1461.     Changed := False;
  1462.     len := (Length(Result) div 2);
  1463.     if LastOnLine and not ShowSpecialChars then
  1464.       dec(len);
  1465.     for i := 0 to len-1 do
  1466.       if PRVWordArray(PChar(Result))[i]=UNI_SOFT_HYPHEN then begin
  1467.         if not Changed then begin
  1468.           UniqueString(Result);
  1469.           Changed := True;
  1470.         end;
  1471.         if ShowSpecialChars then
  1472.           PRVWordArray(PChar(Result))[i] := UNI_NOT_SIGN
  1473.         else
  1474.           PRVWordArray(PChar(Result))[i] := UNI_ZERO_WIDTH_SPACE;
  1475.       end;
  1476.     if ForDisplay then
  1477.       for i := (Length(Result) div 2)-1 downto 0 do
  1478.         if (PRVWordArray(PChar(Result))[i]=UNI_ZERO_WIDTH_SPACE) or
  1479.            (PRVWordArray(PChar(Result))[i]=UNI_ZERO_WIDTH_JOINER) or
  1480.            (PRVWordArray(PChar(Result))[i]=UNI_WORD_JOINER) then begin
  1481.           if not Changed then begin
  1482.             UniqueString(Result);
  1483.             Changed := True;
  1484.           end;
  1485.           Delete(Result, i*2+1, 2);
  1486.         end;
  1487.   end;
  1488.   {$ENDIF}
  1489.   {$ENDIF}
  1490. end;
  1491. {------------------------------------------------------------------------------}
  1492. procedure RVCheckNT;
  1493. var vi: TOSVersionInfo;
  1494. begin
  1495.   vi.dwOSVersionInfoSize := sizeof(vi);
  1496.   GetVersionEx(vi);
  1497.   RVNT := vi.dwPlatformId=VER_PLATFORM_WIN32_NT;
  1498. end;
  1500. {------------------------------------------------------------------------------}
  1501. {$IFNDEF RVDONOTUSEUNICODE}
  1502. {$O+}
  1503. function GetCharLineBreakClass(Char: Word): TRVLineBreakClass;
  1504. begin
  1505.   case Char of
  1506.     $002D:
  1507.       Result := rvu_lb_HY;
  1508.     $002F:
  1509.       Result := rvu_lb_SY;
  1510.     $200B:
  1511.       Result := rvu_lb_ZW;
  1512.     $2014:
  1513.       Result := rvu_lb_B2;
  1514.     $2024..$2026:
  1515.       Result := rvu_lb_IN;
  1516.     $002C,$002E,$003A..$003B,$0589:
  1517.       Result := rvu_lb_IS;
  1518.     $00A0,$0F0C,$2007,$2011,$202F,$2060,$FEFF:
  1519.       Result := rvu_lb_GL;
  1520.     $00B4,$02C8,$02CC,$1806:
  1521.       Result := rvu_lb_BB;
  1522.     $0009,$007C,$00AD,$058A,$0F0B,$1361,$1680,$17D5,$2000..$2006,$2008..$200A,
  1523.     $2010,$2012..$2013,$2027,$205F:
  1524.       Result := rvu_lb_BA;
  1525.     $0021,$003F,$2762..$2763,$FE56..$FE57,$FF01,$FF1F:
  1526.       Result := rvu_lb_EX;
  1527.     $0022,$0027,$00AB,$00BB,$2018..$2019,$201B..$201D,$201F,$2039..$203A,$23B6,
  1528.     $275B..$275E:
  1529.       Result := rvu_lb_QU;
  1530.     $0024,$002B,$005C,$00A3..$00A5,$00B1,$09F2..$09F3,$0E3F,$17DB,$20A0..$20A6,
  1531.     $20A8..$20B1,$2116,$2212..$2213,$FE69,$FF04,$FFE1,$FFE5..$FFE6:
  1532.       Result := rvu_lb_PR;
  1533.     $0025,$00A2,$00B0,$2030..$2037,$20A7,$2103,$2109,$2126,$FDFC,$FE6A,$FF05,
  1534.     $FFE0:
  1535.       Result := rvu_lb_PO;
  1536.     $0028,$005B,$007B,$0F3A,$0F3C,$169B,$201A,$201E,$2045,$207D,$208D,$2329,
  1537.     $23B4,$2768,$276A,$276C,$276E,$2770,$2772,$2774,$27E6,$27E8,$27EA,$2983,
  1538.     $2985,$2987,$2989,$298B,$298D,$298F,$2991,$2993,$2995,$2997,$29D8,$29DA,
  1539.     $29FC,$3008,$300A,$300C,$300E,$3010,$3014,$3016,$3018,$301A,$301D,$FD3E,
  1540.     $FE35,$FE37,$FE39,$FE3B,$FE3D,$FE3F,$FE41,$FE43,$FE59,$FE5B,$FE5D,$FF08,
  1541.     $FF3B,$FF5B,$FF5F,$FF62:
  1542.       Result := rvu_lb_OP;
  1543.     $0029,$005D,$007D,$0F3B,$0F3D,$169C,$2046,$207E,$208E,$232A,$23B5,$2769,
  1544.     $276B,$276D,$276F,$2771,$2773,$2775,$27E7,$27E9,$27EB,$2984,$2986,$2988,
  1545.     $298A,$298C,$298E,$2990,$2992,$2994,$2996,$2998,$29D9,$29DB,$29FD,
  1546.     $3001..$3002,$3009,$300B,$300D,$300F,$3011,$3015,$3017,$3019,$301B,
  1547.     $301E..$301F,$FD3F,$FE36,$FE38,$FE3A,$FE3C,$FE3E,$FE40,$FE42,$FE44,
  1548.     $FE50,$FE52,$FE5A,$FE5C,$FE5E,$FF09,$FF0C,$FF0E,$FF3D,$FF5D,$FF60..$FF61,
  1549.     $FF63..$FF64:
  1550.       Result := rvu_lb_CL;
  1551.     $0030..$0039,$0660..$0669,$06F0..$06F9,$0966..$096F,$09E6..$09EF,
  1552.     $0A66..$0A6F,$0AE6..$0AEF,$0B66..$0B6F,$0BE7..$0BEF,$0C66..$0C6F,
  1553.     $0CE6..$0CEF,$0D66..$0D6F,$0E50..$0E59,$0ED0..$0ED9,$0F20..$0F29,
  1554.     $1040..$1049,$1369..$1371,$17E0..$17E9,$1810..$1819:
  1555.       Result := rvu_lb_NU;
  1556.     $0E5A..$0E5B,$17D4,$17D6..$17DA,$203C,$2044,$3005,$301C,$303B..$303C,
  1557.     $3041,$3043,$3045,$3047,$3049,$3063,$3083,$3085,$3087,$308E,$3095..$3096,
  1558.     $309B..$309E,$30A0..$30A1,$30A3,$30A5,$30A7,$30A9,$30C3,$30E3,$30E5,$30E7,
  1559.     $30EE,$30F5..$30F6,$30FB,$30FD,$31F0..$31FF,$FE54..$FE55,$FF1A..$FF1B,
  1560.     $FF65,$FF67..$FF70,$FF9E..$FF9F:
  1561.       Result := rvu_lb_NS;
  1562.     $1100..$1159,$115F,$2E80..$2E99,$2E9B..$2EF3,$2F00..$2FD5,$2FF0..$2FFB,
  1563.     $3000,$3003..$3004,$3006..$3007,$3012..$3013,$3020..$3029,$3030..$303A,
  1564.     $303D..$303F,$3042,$3044,$3046,$3048,$304A..$3062,$3064..$3082,$3084,
  1565.     $3086,$3088..$308D,$308F..$3094,$309F,$30A2,$30A4,$30A6,$30A8,$30AA..$30C2,
  1566.     $30C4..$30E2,$30E4,$30E6,$30E8..$30ED,$30EF..$30F4,$30F7..$30FA,$30FC,
  1567.     $30FE..$30FF,$3105..$312C,$3131..$318E,$3190..$31B7,$3200..$321C,
  1568.     $3220..$3243,$3251..$327B,$327F..$32CB,$32D0..$32FE,$3300..$3376,
  1569.     $337B..$33DD,$33E0..$33FE,$3400..$4DB5,$4E00..$9FA5,$A000..$A48C,
  1570.     $A490..$A4C6,$AC00..$D7A3,$F900..$FA2D,$FA30..$FA6A,$FE30..$FE34,
  1571.     $FE45..$FE46,$FE49..$FE4F,$FE51,$FE58,$FE5F..$FE66,$FE68,$FE6B,
  1572.     $FF02..$FF03,$FF06..$FF07,$FF0A..$FF0B,$FF0D,$FF0F..$FF19,$FF1C..$FF1E,
  1573.     $FF20..$FF3A,$FF3C,$FF3E..$FF5A,$FF5C,$FF5E,$FFE2..$FFE4:
  1574.       Result := rvu_lb_ID;
  1575.     $0000..$0008,$000B,$000E..$001F,$007F..$009F,$0300..$034F,$0360..$036F,
  1576.     $0483..$0486,$0488..$0489,$0591..$05A1,$05A3..$05B9,$05BB..$05BD,$05BF,
  1577.     $05C1..$05C2,$05C4,$064B..$0655,$0670,$06D6..$06E4,$06E7..$06E8,
  1578.     $06EA..$06ED,$070F,$0711,$0730..$074A,$07A6..$07B0,$0901..$0903,$093C,
  1579.     $093E..$094D,$0951..$0954,$0962..$0963,$0981..$0983,$09BC,$09BE..$09C4,
  1580.     $09C7..$09C8,$09CB..$09CD,$09D7,$09E2..$09E3,$0A02,$0A3C,$0A3E..$0A42,
  1581.     $0A47..$0A48,$0A4B..$0A4D,$0A70..$0A71,$0A81..$0A83,$0ABC,$0ABE..$0AC5,
  1582.     $0AC7..$0AC9,$0ACB..$0ACD,$0B01..$0B03,$0B3C,$0B3E..$0B43,$0B47..$0B48,
  1583.     $0B4B..$0B4D,$0B56..$0B57,$0B82,$0BBE..$0BC2,$0BC6..$0BC8,$0BCA..$0BCD,
  1584.     $0BD7,$0C01..$0C03,$0C3E..$0C44,$0C46..$0C48,$0C4A..$0C4D,$0C55..$0C56,
  1585.     $0C82..$0C83,$0CBE..$0CC4,$0CC6..$0CC8,$0CCA..$0CCD,$0CD5..$0CD6,
  1586.     $0D02..$0D03,$0D3E..$0D43,$0D46..$0D48,$0D4A..$0D4D,$0D57,$0D82..$0D83,
  1587.     $0DCA,$0DCF..$0DD4,$0DD6,$0DD8..$0DDF,$0DF2..$0DF3,$0E31,$0E34..$0E3A,
  1588.     $0E47..$0E4E,$0EB1,$0EB4..$0EB9,$0EBB..$0EBC,$0EC8..$0ECD,$0F18..$0F19,
  1589.     $0F35,$0F37,$0F39,$0F3E..$0F3F,$0F71..$0F84,$0F86..$0F87,$0F90..$0F97,
  1590.     $0F99..$0FBC,$0FC6,$102C..$1032,$1036..$1039,$1056..$1059,$1160..$11A2,
  1591.     $11A8..$11F9,$1712..$1714,$1732..$1734,$1752..$1753,$1772..$1773,
  1592.     $17B4..$17D3,$180B..$180E,$18A9,$200C..$200F,$202A..$202E,$206A..$206F,
  1593.     $20D0..$20EA,$302A..$302F,$3099..$309A,$FB1E,$FE00..$FE0F,$FE20..$FE23,
  1594.     $FFF9..$FFFB:
  1595.       Result := rvu_lb_CM;
  1596.     else
  1597.       Result := rvu_lb_AL;
  1598.   end;
  1599. end;
  1600. {$ENDIF}
  1602. {$IFNDEF RICHVIEWDEF6}
  1603. {$IFDEF RICHVIEWCBDEF3}
  1604. function Utf8ToUnicode(Dest: PWideChar; MaxDestChars: Cardinal;
  1605.   Source: PChar; SourceBytes: Cardinal): Cardinal;
  1606. var
  1607.   i, count: Cardinal;
  1608.   c: Byte;
  1609.   wc: Cardinal;
  1610. begin
  1611.   if Source = nil then
  1612.   begin
  1613.     Result := 0;
  1614.     Exit;
  1615.   end;
  1616.   Result := Cardinal(-1);
  1617.   count := 0;
  1618.   i := 0;
  1619.   if Dest <> nil then
  1620.   begin
  1621.     while (i < SourceBytes) and (count < MaxDestChars) do
  1622.     begin
  1623.       wc := Cardinal(Source[i]);
  1624.       Inc(i);
  1625.       if (wc and $80) <> 0 then
  1626.       begin
  1627.         if i >= SourceBytes then Exit;          // incomplete multibyte char
  1628.         wc := wc and $3F;
  1629.         if (wc and $20) <> 0 then
  1630.         begin
  1631.           c := Byte(Source[i]);
  1632.           Inc(i);
  1633.           if (c and $C0) <> $80 then Exit;      // malformed trail byte or out of range char
  1634.           if i >= SourceBytes then Exit;        // incomplete multibyte char
  1635.           wc := (wc shl 6) or (c and $3F);
  1636.         end;
  1637.         c := Byte(Source[i]);
  1638.         Inc(i);
  1639.         if (c and $C0) <> $80 then Exit;       // malformed trail byte
  1641.         Dest[count] := WideChar((wc shl 6) or (c and $3F));
  1642.       end
  1643.       else
  1644.         Dest[count] := WideChar(wc);
  1645.       Inc(count);
  1646.     end;
  1647.     if count >= MaxDestChars then count := MaxDestChars-1;
  1648.     Dest[count] := #0;
  1649.   end
  1650.   else
  1651.   begin
  1652.     while (i < SourceBytes) do
  1653.     begin
  1654.       c := Byte(Source[i]);
  1655.       Inc(i);
  1656.       if (c and $80) <> 0 then
  1657.       begin
  1658.         if i >= SourceBytes then Exit;          // incomplete multibyte char
  1659.         c := c and $3F;
  1660.         if (c and $20) <> 0 then
  1661.         begin
  1662.           c := Byte(Source[i]);
  1663.           Inc(i);
  1664.           if (c and $C0) <> $80 then Exit;      // malformed trail byte or out of range char
  1665.           if i >= SourceBytes then Exit;        // incomplete multibyte char
  1666.         end;
  1667.         c := Byte(Source[i]);
  1668.         Inc(i);
  1669.         if (c and $C0) <> $80 then Exit;       // malformed trail byte
  1670.       end;
  1671.       Inc(count);
  1672.     end;
  1673.   end;
  1674.   Result := count+1;
  1675. end;
  1677. function UnicodeToUtf8(Dest: PChar; MaxDestBytes: Cardinal; Source: PWideChar; SourceChars: Cardinal): Cardinal;
  1678. var
  1679.   i, count: Cardinal;
  1680.   c: Cardinal;
  1681. begin
  1682.   Result := 0;
  1683.   if Source = nil then Exit;
  1684.   count := 0;
  1685.   i := 0;
  1686.   if Dest <> nil then
  1687.   begin
  1688.     while (i < SourceChars) and (count < MaxDestBytes) do
  1689.     begin
  1690.       c := Cardinal(Source[i]);
  1691.       Inc(i);
  1692.       if c <= $7F then
  1693.       begin
  1694.         Dest[count] := Char(c);
  1695.         Inc(count);
  1696.       end
  1697.       else if c > $7FF then
  1698.       begin
  1699.         if count + 3 > MaxDestBytes then
  1700.           break;
  1701.         Dest[count] := Char($E0 or (c shr 12));
  1702.         Dest[count+1] := Char($80 or ((c shr 6) and $3F));
  1703.         Dest[count+2] := Char($80 or (c and $3F));
  1704.         Inc(count,3);
  1705.       end
  1706.       else //  $7F < Source[i] <= $7FF
  1707.       begin
  1708.         if count + 2 > MaxDestBytes then
  1709.           break;
  1710.         Dest[count] := Char($C0 or (c shr 6));
  1711.         Dest[count+1] := Char($80 or (c and $3F));
  1712.         Inc(count,2);
  1713.       end;
  1714.     end;
  1715.     if count >= MaxDestBytes then count := MaxDestBytes-1;
  1716.     Dest[count] := #0;
  1717.   end
  1718.   else
  1719.   begin
  1720.     while i < SourceChars do
  1721.     begin
  1722.       c := Integer(Source[i]);
  1723.       Inc(i);
  1724.       if c > $7F then
  1725.       begin
  1726.         if c > $7FF then
  1727.           Inc(count);
  1728.         Inc(count);
  1729.       end;
  1730.       Inc(count);
  1731.     end;
  1732.   end;
  1733.   Result := count+1;  // convert zero based index to byte count
  1734. end;
  1736. function Utf8Decode(const S: String): WideString;
  1737. var
  1738.   L: Integer;
  1739.   Temp: WideString;
  1740. begin
  1741.   Result := '';
  1742.   if S = '' then Exit;
  1743.   SetLength(Temp, Length(S));
  1745.   L := Utf8ToUnicode(PWideChar(Temp), Length(Temp)+1, PChar(S), Length(S));
  1746.   if L > 0 then
  1747.     SetLength(Temp, L-1)
  1748.   else
  1749.     Temp := '';
  1750.   Result := Temp;
  1751. end;
  1753. function Utf8Encode(const WS: WideString): String;
  1754. var
  1755.   L: Integer;
  1756.   Temp: String;
  1757. begin
  1758.   Result := '';
  1759.   if WS = '' then Exit;
  1760.   SetLength(Temp, Length(WS) * 3); // SetLength includes space for null terminator
  1762.   L := UnicodeToUtf8(PChar(Temp), Length(Temp)+1, PWideChar(WS), Length(WS));
  1763.   if L > 0 then
  1764.     SetLength(Temp, L-1)
  1765.   else
  1766.     Temp := '';
  1767.   Result := Temp;
  1768. end;
  1770. {$ENDIF}
  1771. {$ENDIF}
  1773. {
  1775. type TRVBiDiClass =
  1776.  (
  1777.    rvu_bd_BN,  // Boundary neutral (type of RLE etc after explicit levels)
  1778.    rvu_bd_S,   // Segment Separator (TAB)
  1779.    rvu_bd_B,   // Paragraph Separator
  1780.    rvu_bd_WS,  // White space
  1781.    rvu_bd_ON,  // Other Neutral
  1782.    rvu_bd_ET,  // European Terminator (post/prefix e.g. $ and %)
  1783.    rvu_bd_CS,  // Common Separator
  1784.    rvu_bd_ES,  // European Separator
  1785.    rvu_bd_EN,  // European Number
  1786.    rvu_bd_L,   // Left Letter
  1787.    rvu_bd_NSM, // Non-spacing Mark
  1788.    rvu_bd_R,   // Right Letter
  1789.    rvu_bd_AL,  // Arabic Letter (Right-to-left)
  1790.    rvu_bd_AN,  // Arabic Number
  1791.    rvu_bd_LRE,
  1792.    rvu_bd_RLE,
  1793.    rvu_bd_RLE,
  1794.    rvu_bd_PDF,
  1795.    rvu_bd_LRO,
  1796.    rvu_bd_RLO
  1797.  );
  1799. function GetBiDiClass(chr: WideChar): TRVBiDiClass;
  1800. begin
  1801.   case ord(chr) of
  1802.     $0000..$0008,$000E..$001B,$007F..$0084,$0086..$009F,$070F,$180B..$180E,
  1803.     $200B..$200D,$206A..$206F,$FEFF,$FFF9..$FFFB:
  1804.       Result := rvu_bd_BN;
  1805.     $0009,$000B,$001F:
  1806.       Result := rvu_bd_S;
  1807.     $000A,$000D,$001C..$001E,$0085,$2029:
  1808.       Result := rvu_bd_B
  1809.     $000C,$0020,$1680,$2000..$200A,$2028,$202F,$3000:
  1810.       Result := rvu_bd_WS
  1811.     $0021..$0022,$0026..$002A,$003B..$0040,$005B..$0060,$007B..$007E,$00A1,
  1812.     $00A6..$00A9,$00AB..$00AF,$00B4,$00B6..$00B8,$00BB..$00BF,$00D7,$00F7,
  1813.     $02B9..$02BA,$02C2..$02CF,$02D2..$02DF,$02E5..$02ED,$0374..$0375,
  1814.     $037E..$0385,$0387,$058A,$06E9,$0F3A..$0F3D,$169B..$169C,$1800..$180A,
  1815.     $1FBD,$1FBF..$1FC1,$1FCD..$1FCF,$1FDD..$1FDF,$1FED..$1FEF,$1FFD..$1FFE,
  1816.     $2010..$2027,$2035..$204D,$207C..$207E,$208C..$208E,$2100..$2101,
  1817.     $2103..$2106,$2108..$2109,$2114,$2116..$2118,$211E..$2123,$2125,$2127,$2129,
  1818.     $2132,$213A..$215F,$2190..$2211,$2214..$2335,$237B..$2394,$2396..$244A,
  1819.     $2500..$2FFB,$3001..$3004,$3008..$3020,$3030,$3036..$3037,$303E..$303F,
  1820.     $309B..$309C,$30FB,$A490..$A4C6,$FD3E..$FD3F,$FE30..$FE4F,$FE51,$FE54,
  1821.     $FE56..$FE5E,$FE60..$FE61,$FE64..$FE68,$FE6B,$FF01..$FF02,$FF06..$FF0A,
  1822.     $FF1B..$FF20,$FF3B..$FF40,$FF5B..$FF65,$FFE2..$FFE4,$FFE8..$FFEE,
  1823.     $FFFC..$FFFD:
  1824.       Result := rvu_bd_ON;
  1825.     $0023..$0025,$002B,$002D,$00A2..$00A5,$00B0..$00B1,$066A,$09F2..$09F3,$0E3F,
  1826.     $17DB,$2030..$2034,$207A..$207B,$208A..$208B,$20A0..$20AF,$212E,
  1827.     $2212..$2213,$FB29,$FE5F,$FE62..$FE63,$FE69..$FE6A,$FF03..$FF05,
  1828.     $FF0B,$FF0D,$FFE0..$FFE1,$FFE5..$FFE6:
  1829.       Result := rvu_bd_ET;
  1830.     $002C,$002E,$003A,$00A0,$060C,$FE50,$FE52,$FE55,$FF0C,$FF0E,$FF1A:
  1831.       Result := rvu_bd_CS;
  1832.     $002F,$FF0F:
  1833.       Result := rvu_bd_ES;
  1834.     $0030..$0039,$00B2..$00B3,$00B9,$06F0..$06F9,$2070..$2079,$2080..$2089,
  1835.     $2460..$249B,$24EA,$FF10..$FF19:
  1836.       Result := rvu_bd_EN;
  1837.     $0300..$0362,$0483..$0489,$0591..$05BD,$05BF,$05C1..$05C2,$05C4,
  1838.     $064B..$0655,$0670,$06D6..$06E4,$06E7..$06E8,$06EA..$06ED,$0711,
  1839.     $0730..$074A,$07A6..$0902,$093C,$0941..$0948,$094D,$0951..$0954,
  1840.     $0962..$0963,$0981,$09BC,$09C1..$09C4,$09CD,$09E2..$09E3,$0A02,$0A3C,
  1841.     $0A41..$0A4D,$0A70..$0A71,$0A81..$0A82,$0ABC,$0AC1..$0AC8,$0ACD,$0B01,$0B3C,
  1842.     $0B3F,$0B41..$0B43,$0B4D..$0B56,$0B82,$0BC0,$0BCD,$0C3E..$0C40,$0C46..$0C56,
  1843.     $0CBF,$0CC6,$0CCC..$0CCD,$0D41..$0D43,$0D4D,$0DCA,$0DD2..$0DD6,$0E31,
  1844.     $0E34..$0E3A,$0E47..$0E4E,$0EB1,$0EB4..$0EBC,$0EC8..$0ECD,$0F18..$0F19,
  1845.     $0F35,$0F37,$0F39,$0F71..$0F7E,$0F80..$0F84,$0F86..$0F87,$0F90..$0FBC,$0FC6,
  1846.     $102D..$1030,$1032..$1037,$1039,$1058..$1059,$17B7..$17BD,$17C6,
  1847.     $17C9..$17D3,$18A9,$20D0..$20E3,$302A..$302F,$3099..$309A,$FB1E,
  1848.     $FE20..$FE23:
  1849.       Result := rvu_bd_NSM;
  1850.     $05BE,$05C0,$05C3,$05D0..$05F4,$200F,$FB1D,$FB1F..$FB28,$FB2A..$FB4F:
  1851.       Result := rvu_bd_R;
  1852.     $061B..$064A,$066D,$0671..$06D5,$06E5..$06E6,$06FA..$070D,$0710,
  1853.     $0712..$072C,$0780..$07A5,$FB50..$FD3D,$FD50..$FDFB,$FE70..$FEFC:
  1854.       Result := rvu_bd_AL;
  1855.     $0660..$0669,$066B..$066C:
  1856.       Result := rvu_bd_AN;
  1857.     $202A:
  1858.       Result := rvu_bd_LRE;
  1859.     $202B:
  1860.       Result := rvu_bd_RLE;
  1861.     $202C:
  1862.       Result := rvu_bd_PDF;
  1863.     $202D:
  1864.       Result := rvu_bd_LRO;
  1865.     $202E:
  1866.       Result := rvu_bd_RLO;
  1867.     else
  1868.       Result :=  rvu_bd_L;
  1869.   end;
  1870. end;
  1872. }
  1874. initialization
  1875.   RVCheckNT
  1878. end.