paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 16:07:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL, FileNameEdit: replace "inherited RealSetText" with simply setting Text property. Don't know why RealSetText was used. Issue #25976

Browse Source 
git-svn-id: trunk@44643 -
This commit is contained in:
juha 2014-04-07 21:41:12 +00:00
parent b0e9f959f6
commit ae7b0ce9ab
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/buttonedit.pas
View File

@ -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;