Changeset 214 for trunk/Components/RichTextLayoutUnit.pas

Timestamp:

Jun 13, 2007, 8:33:51 PM (18 years ago)

Author:

RBRi

Message:

using StringUtilsUnit

File:

• trunk/Components/RichTextLayoutUnit.pas (modified) (4 diffs)

trunk/Components/RichTextLayoutUnit.pas

@@ -145 +145 @@
 
 Uses
-  SysUtils, PMWin, BseDos, Dos, ClipBrd, Printers,
-  ACLUtility, ACLStringUtility, ACLString,
-  ControlScrolling;
+  SysUtils,
+  PMWin,
+  BseDos,
+  Dos,
+  ClipBrd,
+  Printers,
+  ACLUtility,
+  ACLString,
+  ControlScrolling,
+  CharUtilsUnit;
 
 Function TRichTextLayout.GetTextEnd: longint;
@@ -313 +320 @@
     inc( FHeight, CurrentLine.Height );
 
-    CurrentLine.Length := PCharDiff( EndPoint, CurrentLine.Text );
+    CurrentLine.Length := PCharPointerDiff( EndPoint, CurrentLine.Text );
 
     CurrentLine.Width := EndX;
@@ -771 +778 @@
         begin
           // found
-          Offset := PCharDiff( P, Line.Text );
+          Offset := PCharPointerDiff( P, Line.Text );
           Link := CurrentLink;
           exit;
@@ -1027 +1034 @@
 Function TRichTextLayout.GetCharIndex( P: PChar ): longint;
 begin
-  Result := PCharDiff( P, FText );
+  Result := PCharPointerDiff( P, FText );
 end;