pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Avoid access violation when destroying at design time

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@422 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-04-13 14:19:07 +00:00
parent fa09cca65a
commit a9e804419f
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/virtualtreeview-unstable/VirtualTrees.pas
View File

@ -10747,8 +10747,6 @@ begin
FCustomCheckChangeLink.Free; FCustomCheckChangeLink.Free;
FScrollBarOptions.Free; FScrollBarOptions.Free;
FOptions.Free; FOptions.Free;
if FCheckImages <> FCustomCheckImages then
FCheckImages.Free;
// The window handle must be destroyed before the header is freed because it is needed in WM_NCDESTROY. // The window handle must be destroyed before the header is freed because it is needed in WM_NCDESTROY.
//todo_lcl_check //todo_lcl_check
@ -10759,6 +10757,9 @@ begin
FHeader.Free; FHeader.Free;
FHeader := nil; FHeader := nil;
if FCheckImages <> FCustomCheckImages then
FCheckImages.Free;
FreeMem(FRoot); FreeMem(FRoot);
{$ifdef UseLocalMemoryManager} {$ifdef UseLocalMemoryManager}