From d7de04956840deefa0049aa2cfe1842d32adb91c Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Mon, 25 Jan 2021 09:32:13 +0000
Subject: [PATCH] LCL: Make TMemo.Modified property work like TEDIT does. Issue
 #38388, patch from Jamie Philbrook.

git-svn-id: trunk@64420 -
---
 lcl/include/custommemo.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/include/custommemo.inc b/lcl/include/custommemo.inc
index 12f4e6b250..f967663c7a 100644
--- a/lcl/include/custommemo.inc
+++ b/lcl/include/custommemo.inc
@@ -158,7 +158,9 @@ begin
   {$ifdef DEBUG_MEMO}
   debugln('TCustomMemo.RealSetText "',AValue,'"');
   {$endif}
+  fTExtChangedByRealSetText:=True;
   Lines.Text := AValue;
+  fTExtChangedByRealSetText:=False;
 end;
 
 function TCustomMemo.GetCachedText(var CachedText: TCaption): boolean;