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

LCL: check also for csDestroying component state in Grid when setting edit test.

Browse Source 
git-svn-id: trunk@40198 -
This commit is contained in:
juha 2013-02-06 15:59:10 +00:00
parent eab5aa8fb5
commit 248c598499
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/grids.pas
View File

@ -7359,7 +7359,8 @@ var
CurValue,NewValue: string;
begin
result := true;
if not (csDesigning in ComponentState) and (Editor<>nil) and Editor.Visible then begin
if (([csDesigning, csDestroying] * ComponentState) = [])
and (Editor<>nil) and Editor.Visible then begin
if validate then begin
CurValue := GetCells(FCol,FRow);