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

fixed setting TListBox.Selected before createhandle

Browse Source 
git-svn-id: trunk@2368 -
This commit is contained in:
mattias 2002-08-17 23:41:18 +00:00
parent 18feeaef49
commit 24d194c0cd
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2298,17 +2298,21 @@ begin
csListBox:
begin
if Handle<>0 then begin
Widget:=nil;
if TListBox(Sender).MultiSelect then
Widget:= PGtkList(GetWidgetInfo(Pointer(Handle), True)^.ImplementationWidget)^.last_focus_child
else begin
Widget:= PGtkList(GetWidgetInfo(Pointer(Handle), True)^.
ImplementationWidget)^.last_focus_child;
if Widget=nil then begin
GList:= PGtkList(GetWidgetInfo(Pointer(Handle), True)^.ImplementationWidget)^.selection;
if GList = nil then
Widget:= nil
else
if GList <> nil then
Widget:= PGtkWidget(GList^.data);
end;
if Widget = nil then Result:= -1
else Result:= gtk_list_child_position(PGtkList(GetWidgetInfo(Pointer(Handle), True)^.ImplementationWidget), Widget);
if Widget = nil then
Result:= -1
else
Result:= gtk_list_child_position(PGtkList(
GetWidgetInfo(Pointer(Handle), True)^.
ImplementationWidget), Widget);
end else
Result:=-1;
end;
@ -2332,14 +2336,15 @@ begin
end;
end;
LM_SETITEMINDEX :
LM_SETITEMINDEX:
if Handle<>0 then begin
case TControl(Sender).fCompStyle of
csComboBox:
SetComboBoxItemIndex(TComboBox(Sender),Integer(Data));
csListBox :
csListBox:
begin
if Integer(Data)>=0 then
gtk_list_select_item(
PGtkList(GetWidgetInfo(Pointer(Handle),True)^.ImplementationWidget),
@ -2347,6 +2352,7 @@ begin
else
gtk_list_unselect_all(
PGtkList(GetWidgetInfo(Pointer(Handle),True)^.ImplementationWidget));
end;
csCListBox:
gtk_clist_select_row(PGtkCList(GetWidgetInfo(Pointer(Handle),
@ -2518,7 +2524,7 @@ begin
end
end;
LM_SETSEL :
LM_SETSEL:
begin
if (Sender is TControl)
and (TControl(Sender).fCompStyle in [csListBox, csCListBox])
@ -7259,6 +7265,9 @@ end;
{ =============================================================================
$Log$
Revision 1.362 2003/05/14 13:06:00 mattias
fixed setting TListBox.Selected before createhandle
Revision 1.361 2003/05/01 11:44:03 mattias
fixed changing menuitem separator and normal