From ae7b0ce9ab5c5ba027abfedb958ce8a5c3709d8d Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Mon, 7 Apr 2014 21:41:12 +0000
Subject: [PATCH] LCL, FileNameEdit: replace "inherited RealSetText" with
 simply setting Text property. Don't know why RealSetText was used. Issue
 #25976

git-svn-id: trunk@44643 -
---
 lcl/buttonedit.pas | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lcl/buttonedit.pas b/lcl/buttonedit.pas
index af0002cdfe..2cfc6f590b 100644
--- a/lcl/buttonedit.pas
+++ b/lcl/buttonedit.pas
@@ -576,8 +576,6 @@ type
   TCustomDateEvent = procedure (Sender : TObject; var ADate : string) of object;
   TDateOrder = (doNone,doMDY,doDMY,doYMd);
 
-  { TDateEdit }
-
   TDateEdit = class(TCustomButtonEdit)
   private
     FDateOrder: TDateOrder;
@@ -669,6 +667,7 @@ type
   { TCalcEdit }
 
   TAcceptValueEvent = procedure(Sender: TObject; var AValue: Double; var Accept: Boolean) of object;
+
   TCalcEdit = class(TCustomButtonEdit)
   private
     FDialogTitle: String;
@@ -1503,9 +1502,9 @@ begin
   Inc(FFileNameChangeLock);
   try
     if FHideDirectories then
-      inherited RealSetText(ExtractFileName(AValue))
+      Text:=ExtractFileName(AValue) //Originally used inherited RealSetText()
     else
-      inherited RealSetText(AValue)
+      Text:=AValue
   finally
     Dec(FFileNameChangeLock);
   end;