paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 12:52:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented showing files in opened package

Browse Source 
git-svn-id: trunk@2818 -
This commit is contained in:
mattias 2002-08-18 08:54:30 +00:00
parent 0dd4da51f4
commit c6102381c6
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -176,7 +176,6 @@ begin
'TGtkListStringList.Insert Unspecified owner');
// ToDo:
// - CustomDraw needs expose/draw events
// - Icons
// - measure item
@ -184,6 +183,10 @@ begin
ConnectItemCallbacks(PGtkListItem(li));
Include(FStates,glsItemCacheNeedsUpdate);
gtk_widget_show(li);
if (Owner is TListBox)
and (TListBox(Owner).ItemHeight>1) then begin
gtk_widget_set_usize(li,li^.Allocation.Width,TListBox(Owner).ItemHeight);
end;
gtk_list_insert_items(FGtkList, g_list_append(nil, li), Result);
finally
EndUpdate;
@ -771,6 +774,9 @@ end;
{ =============================================================================
$Log$
Revision 1.13 2003/04/05 16:39:47 mattias
implemented showing files in opened package
Revision 1.12 2003/03/09 21:13:32 mattias
localized gtk interface