paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 14:42:54 +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 :
begin
if TControl(Sender).fCompStyle = csCListBox
then begin
Widget:= GetWidgetInfo(Pointer(Handle), True)^.ImplementationWidget;
Data := TGtkCListStringList.Create(PGtkCList(Widget));
Result := integer(Data);
end
else begin
case TControl(Sender).fCompStyle of
csComboBox :
Result:=longint(gtk_object_get_data(PGtkObject(Handle),'LCLList'));
case TControl(Sender).fCompStyle of
csComboBox :
Result:=longint(gtk_object_get_data(PGtkObject(Handle),'LCLList'));
csCListBox:
begin
Widget:= GetWidgetInfo(Pointer(Handle), True)^.ImplementationWidget;
csListBox :
begin
Widget:= GetWidgetInfo(Pointer(Handle), True)^.ImplementationWidget;
Data:= TGtkListStringList.Create(PGtkList(Widget));
Result:= Integer(Data);
end;
else
raise Exception.Create('Message LM_GETITEMS - Not implemented');
end;
Data := TGtkCListStringList.Create(PGtkCList(Widget));
Result := integer(Data);
end;
csListBox :
begin
Widget:= GetWidgetInfo(Pointer(Handle), True)^.ImplementationWidget;
Data:= TGtkListStringList.Create(PGtkList(Widget));
Result:= Integer(Data);
end;
else
raise Exception.Create('Message LM_GETITEMS - Not implemented');
end;
end;
@ -5836,6 +5835,9 @@ end;
{ =============================================================================
$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
MG: removed the 1x1 bitmap from TBitBtn