Changeset 438 for trunk

Timestamp:

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

Author:

ataylor

Message:

Fix crash when dragging text with MB2.

Location:

trunk

Files:

• Components/RichTextDocumentUnit.pas (modified) (1 diff)
• NewView/VersionUnit.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 );

trunk/NewView/VersionUnit.pas

@@ -17 +17 @@
 
 const
-  Version =        'V2.19.6'; // $SS_REQUIRE_NEW_VERSION$
-  BldLevelVersion = '2.19.6'; // Embedded for IBM BLDLEVEL tool
+  Version =        'V2.19.7'; // $SS_REQUIRE_NEW_VERSION$
+  BldLevelVersion = '2.19.7'; // Embedded for IBM BLDLEVEL tool
   CopyrightMsg = 'Copyright 2005 Aaron Lawrence; 2006-2019 Ronald Brill';
   LicenseMsg   = 'Licensed under the GNU Public License';