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

* Avoid sigsegv when destroying VTEditor

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@616 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-12-07 14:20:42 +00:00
parent f96225429b
commit 33ab479866
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/virtualtreeview-unstable/demos/vtbasic/VTEditors.pas
View File

@@ -10,7 +10,7 @@ interface
uses
LCLIntf,LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, VirtualTrees, ExtDlgs, ImgList, Buttons, ExtCtrls, ComCtrls, MaskEdit, LResources, EditBtn;
StdCtrls, VirtualTrees, ExtDlgs, Buttons, ExtCtrls, ComCtrls, MaskEdit, LResources, EditBtn;
type
// Describes the type of value a property tree node stores in its data property.
@@ -36,6 +36,9 @@ interface
PPropertyData = ^TPropertyData;
// Our own edit link to implement several different node editors.
{ TPropertyEditLink }
TPropertyEditLink =
class(TInterfacedObject, IVTEditLink)
private
@@ -163,6 +166,7 @@ implementation
destructor TPropertyEditLink.Destroy;
begin
FEdit.Parent := nil;
FEdit.Free;
FListItems.Free;
inherited;