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

lcl: edit: don't call OnEditingDone if ReadOnly

Browse Source 
git-svn-id: trunk@56338 -
This commit is contained in:
ondrej 2017-11-08 17:40:24 +00:00
parent 0620f4cc84
commit 251aa8f6fe
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

@ -640,6 +640,12 @@ begin
inherited DoExit;
end;
procedure TCustomEdit.EditingDone;
begin
if not ReadOnly then
inherited EditingDone;
end;
procedure TCustomEdit.FontChanged(Sender: TObject);
var
HintFont: TObject;

1
lcl/stdctrls.pp
View File

@ -759,6 +759,7 @@ type
procedure Change; virtual;
procedure DoEnter; override;
procedure DoExit; override;
procedure EditingDone; override;
function GetCaretPos: TPoint; virtual;
function GetNumbersOnly: Boolean; virtual;
function GetReadOnly: Boolean; virtual;