From 497fdb0609e23fda83da5da415a51a4e368d9b58 Mon Sep 17 00:00:00 2001 From: blikblum Date: Mon, 20 Jun 2011 18:46:39 +0000 Subject: [PATCH] * Fixed crash when closing app git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1712 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/spktoolbar/SpkToolbar/spkt_Types.pas | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/components/spktoolbar/SpkToolbar/spkt_Types.pas b/components/spktoolbar/SpkToolbar/spkt_Types.pas index aba983694..34f45399e 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Types.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Types.pas @@ -115,8 +115,7 @@ FRootComponent:=RootComponent; FNames:=TStringList.create; -FList:=TObjectList.Create; -FList.OwnsObjects:=true; +FList:=TObjectList.create(False); FListState:=lsReady; end; @@ -135,8 +134,8 @@ end; destructor TSpkCollection.Destroy; begin - FNames.Free; - FList.Free; + FNames.Destroy; + FList.Destroy; inherited; end;