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

LCL: TCustomEdit: set Modified if we really call Change().Patch by Bart Broersma. fixes #16793

Browse Source 
git-svn-id: trunk@26366 -
This commit is contained in:
zeljko 2010-06-30 20:42:52 +00:00
parent 985aea5d22
commit 58192fb656
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customedit.inc
View File

@ -491,12 +491,13 @@ begin
CaretPos := CPos;
end;
end;
if not (wcfCreatingHandle in FWinControlFlags) then
begin
Modified := True;
if ([csLoading,csDestroying]*ComponentState=[]) then
begin
Modified := True;
Change;
end;
end;
end;