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

MG: fixed GetItemIndex-Handle-NotAllocated-Crash bug

Browse Source 
git-svn-id: trunk@400 -
This commit is contained in:
lazarus 2001-11-09 14:33:41 +00:00
parent daeaec27b0
commit aeb18d8c38
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -901,6 +901,7 @@ writeln('[TgtkObject.IntSendMessage3] LM_SETFOCUS ',TObject(Sender).ClassName);
case (Sender as TControl).fCompStyle of case (Sender as TControl).fCompStyle of
csListBox: csListBox:
begin begin
if Handle<>0 then begin
if TListBox(Sender).MultiSelect then if TListBox(Sender).MultiSelect then
Widget:= PGtkList( Widget:= PGtkList(
GetCoreChildWidget(PGtkWidget(Handle)))^.last_focus_child GetCoreChildWidget(PGtkWidget(Handle)))^.last_focus_child
@ -915,6 +916,8 @@ writeln('[TgtkObject.IntSendMessage3] LM_SETFOCUS ',TObject(Sender).ClassName);
then Result:= -1 then Result:= -1
else Result:= gtk_list_child_position( else Result:= gtk_list_child_position(
PGtkList(GetCoreChildWidget(PGtkWidget(Handle))), Widget); PGtkList(GetCoreChildWidget(PGtkWidget(Handle))), Widget);
end else
Result:=-1;
end; end;
csCListBox: csCListBox:
begin begin
@ -3115,6 +3118,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.67 2001/11/09 14:33:41 lazarus
MG: fixed GetItemIndex-Handle-NotAllocated-Crash bug
Revision 1.66 2001/11/05 18:18:19 lazarus Revision 1.66 2001/11/05 18:18:19 lazarus
added popupmenu+arrows to notebooks, added target filename added popupmenu+arrows to notebooks, added target filename