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

10
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,7 +36,10 @@ interface
PPropertyData = ^TPropertyData;
// Our own edit link to implement several different node editors.
TPropertyEditLink =
{ TPropertyEditLink }
TPropertyEditLink =
class(TInterfacedObject, IVTEditLink)
private
FEdit: TWinControl; // One of the property editor classes.
@ -50,7 +53,7 @@ interface
protected
procedure EditWindowProc(var Message: TMessage);
procedure EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
public
constructor Create;
destructor Destroy; override;
@ -163,6 +166,7 @@ implementation
destructor TPropertyEditLink.Destroy;
begin
FEdit.Parent := nil;
FEdit.Free;
FListItems.Free;
inherited;