* lvoEditLabel + formCompact = crash

git-svn-id: https://svn.code.sf.net/p/kolmck/code@111 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
dkolmck 2011-12-08 14:12:03 +00:00
parent 8255c47a3d
commit eebab3adbf

View File

@ -7916,7 +7916,7 @@ begin
if (lvoEditLabel in Options) and not Assigned( OnEndEditLVItem ) then
begin
(SL as TFormStringList).OnAdd := nil;
SL.Add( Prefix + AName + '.OnEndEditLVItem := nil;' );
//dufa SL.Add( Prefix + AName + '.OnEndEditLVItem := nil;' );
if KF <> nil then
(SL as TFormStringList).OnAdd := KF.DoFlushFormCompact;
end;