pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

* lvoEditLabel + formCompact = crash

Browse Source 
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
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
mckCtrls.pas
View File

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