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

fixed setting TListBox.Selected before createhandle

Browse Source 
git-svn-id: trunk@2824 -
This commit is contained in:
mattias 2002-08-18 08:54:33 +00:00
parent aace1b363e
commit 5aaebdaf64
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -538,10 +538,11 @@ begin
li:=gtk_list_item_new_with_label(PChar(S));
ConnectItemCallbacks(PGtkListItem(li));
Include(FStates,glsItemCacheNeedsUpdate);
gtk_widget_show(li);
gtk_widget_show_all(li);
gtk_list_insert_items(FGtkList, g_list_append(nil, li), Index);
if (Owner is TListBox)
and (TListBox(Owner).ItemHeight>1) then begin
writeln('AAA1 ',TListBox(Owner).ItemHeight);
if li^.Allocation.Width>1 then
item_requisition.Width:=li^.Allocation.Width
else
@ -737,6 +738,9 @@ end;
{ =============================================================================
$Log$
Revision 1.16 2003/05/14 13:06:00 mattias
fixed setting TListBox.Selected before createhandle
Revision 1.15 2003/04/29 13:35:39 mattias
improved configure build lazarus dialog