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

Gtk2: offset listview item display rect by height of header (if visible), now it's compatibile with win32 and qt.

Browse Source 
git-svn-id: trunk@35348 -
This commit is contained in:
zeljko 2012-02-13 09:02:04 +00:00
parent b1a90d72e4
commit 47b096a510
1 changed files with 10 additions and 2 deletions

12
lcl/interfaces/gtk2/gtk2wscustomlistview.inc
View File

@ -1019,6 +1019,8 @@ var
ItemRect: TGdkRectangle;
Column: PGtkTreeViewColumn;
Path: PGtkTreePath;
L, T, W, H: GInt;
ARect: TGdkRectangle;
begin
Result := Rect(0, 0, 0, 0);
if not WSCheckHandleAllocated(ALV, 'ItemDisplayRect') then
@ -1033,8 +1035,14 @@ begin
try
if GTK_IS_TREE_VIEW(MainView) then
begin
Column := gtk_tree_view_get_column(PGtkTreeView(MainView), ASubItem);
gtk_tree_view_get_cell_area(PGtkTreeView(MainView), Path, Column, @ItemRect);
Column := gtk_tree_view_get_column(PGtkTreeView(MainView), ASubItem);
gtk_tree_view_get_cell_area(PGtkTreeView(MainView), Path, Column, @ItemRect);
if gtk_tree_view_get_headers_visible(PGtkTreeView(MainView)) then
begin
gtk_tree_view_column_cell_get_size(gtk_tree_view_get_column(PGtkTreeView(MainView), 0),
@ARect, @L, @T, @W, @H);
inc(ItemRect.y, H);
end;
end
else
if GTK_IS_ICON_VIEW(MainView) then