paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 15:58:20 +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

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

@ -1598,17 +1598,17 @@ begin
LM_GETITEMS : LM_GETITEMS :
begin begin
if TControl(Sender).fCompStyle = csCListBox case TControl(Sender).fCompStyle of
then begin csComboBox :
Result:=longint(gtk_object_get_data(PGtkObject(Handle),'LCLList'));
csCListBox:
begin
Widget:= GetWidgetInfo(Pointer(Handle), True)^.ImplementationWidget; Widget:= GetWidgetInfo(Pointer(Handle), True)^.ImplementationWidget;
Data := TGtkCListStringList.Create(PGtkCList(Widget)); Data := TGtkCListStringList.Create(PGtkCList(Widget));
Result := integer(Data); Result := integer(Data);
end end;
else begin
case TControl(Sender).fCompStyle of
csComboBox :
Result:=longint(gtk_object_get_data(PGtkObject(Handle),'LCLList'));
csListBox : csListBox :
begin begin
@ -1620,7 +1620,6 @@ begin
raise Exception.Create('Message LM_GETITEMS - Not implemented'); raise Exception.Create('Message LM_GETITEMS - Not implemented');
end; end;
end; end;
end;
LM_GETTEXT : LM_GETTEXT :
begin begin
@ -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