paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 05:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TCustomEdit: when Text property is assigned Modified should be setted up to False according to embarcadero docs.

Browse Source 
git-svn-id: trunk@26370 -
This commit is contained in:
zeljko 2010-06-30 21:09:46 +00:00
parent 4825567e0d
commit 2b886c466e
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/customedit.inc
View File

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

1
lcl/stdctrls.pp
View File

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