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

MG: fixed calling DestroyHandle if not HandleAllocated

Browse Source 
git-svn-id: trunk@833 -
This commit is contained in:
lazarus 2002-02-09 01:46:59 +00:00
parent fd6734d3f5
commit cb40c565c3
1 changed files with 22 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1598,27 +1598,26 @@ begin
LM_GETITEMS : LM_GETITEMS :
begin begin
if TControl(Sender).fCompStyle = csCListBox case TControl(Sender).fCompStyle of
then begin csComboBox :
Widget:= GetWidgetInfo(Pointer(Handle), True)^.ImplementationWidget; Result:=longint(gtk_object_get_data(PGtkObject(Handle),'LCLList'));
Data := TGtkCListStringList.Create(PGtkCList(Widget)); csCListBox:
Result := integer(Data); begin
end Widget:= GetWidgetInfo(Pointer(Handle), True)^.ImplementationWidget;
else begin
case TControl(Sender).fCompStyle of
csComboBox :
Result:=longint(gtk_object_get_data(PGtkObject(Handle),'LCLList'));
csListBox : Data := TGtkCListStringList.Create(PGtkCList(Widget));
begin Result := integer(Data);
Widget:= GetWidgetInfo(Pointer(Handle), True)^.ImplementationWidget; end;
Data:= TGtkListStringList.Create(PGtkList(Widget));
Result:= Integer(Data); csListBox :
end; begin
else Widget:= GetWidgetInfo(Pointer(Handle), True)^.ImplementationWidget;
raise Exception.Create('Message LM_GETITEMS - Not implemented'); Data:= TGtkListStringList.Create(PGtkList(Widget));
end; Result:= Integer(Data);
end;
else
raise Exception.Create('Message LM_GETITEMS - Not implemented');
end; end;
end; end;
@ -5836,6 +5835,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.214 2002/09/16 15:42:17 lazarus
MG: fixed calling DestroyHandle if not HandleAllocated
Revision 1.213 2002/09/13 16:58:27 lazarus Revision 1.213 2002/09/13 16:58:27 lazarus
MG: removed the 1x1 bitmap from TBitBtn MG: removed the 1x1 bitmap from TBitBtn