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

ValEdit: Update Modified when Strings are changed.

Browse Source 
git-svn-id: trunk@40296 -
This commit is contained in:
bart 2013-02-13 14:24:33 +00:00
parent 6b04227c32
commit 354039f2b0
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/valedit.pas
View File

@ -683,6 +683,8 @@ end;
procedure TValueListEditor.StringsChange(Sender: TObject);
begin
//Since we never call inherited SetCell, this seems the logical place to do it
Modified := True;
AdjustRowCount;
Invalidate;
if Assigned(OnStringsChange) then