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

Fixed gtk1 Listview row height being set to 0

Browse Source 
git-svn-id: trunk@12440 -
This commit is contained in:
andrew 2007-10-13 16:44:47 +00:00
parent 5fc733df94
commit 159f5463e6
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk/gtkwscustomlistview.inc
View File

@ -898,6 +898,7 @@ begin
CListWidget := PGtkCList(gtk_clist_new(1));
gtk_clist_column_titles_hide(CListWidget);
gtk_clist_set_column_auto_resize(CListWidget, 0, True);
//gtk_clist_set_row_height(CListWidget, 30);
end;
gtk_clist_set_shadow_type(CListWidget, GTK_SHADOW_IN);
@ -1184,13 +1185,17 @@ class procedure TGtkWSCustomListView.SetDefaultItemHeight(const ALV: TCustomList
var
WidgetInfo: PWidgetInfo;
CListWidget: PGtkCList;
const
GTK_CLIST_ROW_HEIGHT_SET = 1 shl 1;
begin
if not WSCheckHandleAllocated(ALV, 'SetDefaultItemHeight')
then Exit;
WidgetInfo := GetWidgetInfo(Pointer(ALV.Handle));
CListWidget := PGtkCList(WidgetInfo^.CoreWidget);
if (AValue = 0) and (CListWidget^.flags and GTK_CLIST_ROW_HEIGHT_SET = 0) then
exit;
gtk_clist_set_row_height(CListWidget, AValue);
end;