Changeset 211

Timestamp:

Jun 13, 2007, 8:32:31 PM (18 years ago)

Author:

RBRi

Message:

using StringUtilsUnit

Location:

trunk/Components

Files:

• Outline2.PAS (modified) (3 diffs)
• RichTextView.PAS (modified) (4 diffs)

trunk/Components/Outline2.PAS

@@ -4 +4 @@
 
 Uses
-  Classes, Forms, SysUtils, BseDos;
+  Classes,
+  Forms,
+  SysUtils,
+  BseDos;
 
 {
@@ -455 +458 @@
 uses
   Messages,
-  ACLStringUtility,
-  ControlScrolling;
+  ControlScrolling,
+  StringUtilsUnit;
 
 // ============================================================================
@@ -2214 +2217 @@
       exit;
 
-    if StrStarts( S, Node.Text ) then
+    if StrStartsWithIgnoringCase( S, Node.Text ) then
     begin
       // found

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;