paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 22:20:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed mem leak in TComboBox

Browse Source 
git-svn-id: trunk@841 -
This commit is contained in:
lazarus 2002-02-09 01:47:02 +00:00
parent 8de2740a09
commit b081c0a951
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk/gtkobject.inc
View File

@ -2862,7 +2862,11 @@ begin
if Sender is TControl then begin if Sender is TControl then begin
case TControl(Sender).fCompStyle of case TControl(Sender).fCompStyle of
csComboBox: csComboBox:
SetComboBoxText(PGtkCombo(Handle),nil); begin
SetComboBoxText(PGtkCombo(Handle),nil);
FreeWinWidgetInfo(PGtkCombo(Handle)^.Entry);
FreeWinWidgetInfo(PGtkCombo(Handle)^.Button);
end;
end; end;
end end
@ -5833,6 +5837,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.217 2002/09/16 17:34:37 lazarus
MG: fixed mem leak in TComboBox
Revision 1.216 2002/09/16 16:06:21 lazarus Revision 1.216 2002/09/16 16:06:21 lazarus
MG: replaced halt with raiseexception MG: replaced halt with raiseexception