Changeset 395 for trunk/Components/RichTextView.PAS

Timestamp:

May 22, 2016, 12:17:37 PM (9 years ago)

Author:

RBRi

Message:

remove usage of ACLStringUtility

File:

• trunk/Components/RichTextView.PAS (modified) (4 diffs)

trunk/Components/RichTextView.PAS

@@ -428 +428 @@
 
 Uses
-  SysUtils, PMWin, BseDos, Dos, ClipBrd, Printers,
-  ACLStringUtility, ACLString,
-  ControlScrolling, ControlsUtility,
-  RichTextDocumentUnit, RichTextDisplayUnit;
+  SysUtils,
+  PMWin,
+  BseDos,
+  Dos,
+  ClipBrd,
+  Printers,
+  ACLString,
+  ControlScrolling,
+  ControlsUtility,
+  RichTextDocumentUnit,
+  RichTextDisplayUnit,
+
+  CharUtilsUnit;
 
 Procedure TRichTextView.SetSelectionStart( SelectionStart: longint );
@@ -2050 +2059 @@
 //  SetCursorIndex( GetCharIndex( P ), PreserveSelection );
   Line := FLayout.FLines[ CursorRow ];
-  NewOffset := PCharDiff( P, Line.Text );
+  NewOffset := PCharPointerDiff( P, Line.Text );
   if NewOffset < Line.Length then
   begin
@@ -2090 +2099 @@
 //    exit;
   Line := FLayout.FLines[ CursorRow ];
-  NewOffset := PCharDiff( P, Line.Text );
+  NewOffset := PCharPointerDiff( P, Line.Text );
   if NewOffset >= 0 then
   begin
@@ -2255 +2264 @@
                                    255 );
 
-  Result := StrNPas( Buffer, Length );
+  Result := StrPasWithLength( Buffer, Length );
 end;