diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-11-30 14:28:11 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-11-30 14:28:11 +0000 |
commit | b657b3cffbd21178bac28505e7d70dee61e17b4a (patch) | |
tree | 2be7473507a8fc5a38f6b7647a39c553aa831a90 /src/corelib/gfx_msgqueue.inc | |
parent | e0759e7b6b64b447db2edadb251a1ab0ce6020d8 (diff) | |
download | fpGUI-b657b3cffbd21178bac28505e7d70dee61e17b4a.tar.xz |
* Fixed all the memory leaks I could find in CoreLib. We now have non in CoreLib.
Diffstat (limited to 'src/corelib/gfx_msgqueue.inc')
-rw-r--r-- | src/corelib/gfx_msgqueue.inc | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/corelib/gfx_msgqueue.inc b/src/corelib/gfx_msgqueue.inc index 58eeaa16..c60bda2b 100644 --- a/src/corelib/gfx_msgqueue.inc +++ b/src/corelib/gfx_msgqueue.inc @@ -4,7 +4,7 @@ type // a simlpe linked list implementation - TMessageListElement = class + TMessageListElement = class(TObject) protected Next: TMessageListElement; Prev: TMessageListElement; @@ -96,10 +96,13 @@ begin UsedLastMessage := nil; FreeFirstMessage := nil; FreeLastMessage := nil; + + uMsgQueueList := TList.Create; for n := 1 to cMessageQueueSize do begin e := TMessageListElement.Create; + uMsgQueueList.Add(e); // so we can free it off later MsgListInsertElement(e,FreeFirstMessage,FreeLastMessage); end; end; |