From 2b886c466e17fbc72bed9f17f8aee70b76a2965e Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Wed, 30 Jun 2010 21:09:46 +0000
Subject: [PATCH] LCL: TCustomEdit: when Text property is assigned Modified
 should be setted up to False according to embarcadero docs.

git-svn-id: trunk@26370 -
---
 lcl/include/customedit.inc | 6 ++++++
 lcl/stdctrls.pp            | 1 +
 2 files changed, 7 insertions(+)

diff --git a/lcl/include/customedit.inc b/lcl/include/customedit.inc
index 9576f19ab7..04201327c9 100644
--- a/lcl/include/customedit.inc
+++ b/lcl/include/customedit.inc
@@ -463,6 +463,12 @@ begin
   end;//End if (Button = mbLeft)
 end;
 
+procedure TCustomEdit.RealSetText(const AValue: TCaption);
+begin
+  inherited RealSetText(AValue);
+  Modified := False;
+end;
+
 {------------------------------------------------------------------------------
   Method:  TCustomEdit.SetModified
   Params:  Value to set FModified to
diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp
index b3dfe313fa..a1a8a31f11 100644
--- a/lcl/stdctrls.pp
+++ b/lcl/stdctrls.pp
@@ -729,6 +729,7 @@ type
     procedure KeyUp(var Key: Word; Shift: TShiftState); override;
     procedure WMChar(var Message: TLMChar); message LM_CHAR;
     procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer); override;
+    procedure RealSetText(const AValue: TCaption); override;
     property AutoSelect: Boolean read FAutoSelect write FAutoSelect default True;
     property AutoSelected: Boolean read FAutoSelected write FAutoSelected;
     property ParentColor default False;