Changeset 438 for trunk/Components/RichTextDocumentUnit.pas

Timestamp:

Jul 21, 2019, 2:27:40 AM (6 years ago)

Author:

ataylor

Message:

Fix crash when dragging text with MB2.

File:

• trunk/Components/RichTextDocumentUnit.pas (modified) (1 diff)

trunk/Components/RichTextDocumentUnit.pas

@@ -842 +842 @@
   end;
 
-  Q[ 0 ] := #0;         // ALT - make sure string is terminated
+  if Buffer <> nil then
+    Q[ 0 ] := #0;         // ALT - make sure string is terminated
 
   result := PCharDiff( Q, Buffer );