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

Gtk3: implemented TGtk3ListBox.getItemRect().

Browse Source
This commit is contained in:
zeljan1 2025-01-09 22:13:40 +01:00
parent 51a8bb1b80
commit 5497c5a166
1 changed files with 28 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -552,6 +552,7 @@ type
public
function GetSelCount: Integer;
function GetSelection: PGtkTreeSelection;
function GetItemRect(const AIndex: integer): TRect;
function GetItemSelected(const AIndex: Integer): Boolean;
procedure SelectItem(const AIndex: Integer; ASelected: Boolean);
procedure SetTopIndex(const AIndex: Integer);
@ -5438,8 +5439,9 @@ begin
g_object_unref (liststore);
ItemList := TGtkListStoreStringList.Create(PGtkListStore(PGtkTreeView(FCentralWidget)^.get_model), 0, LCLObject);
g_object_set_data_full(PGObject(FCentralWidget),GtkListItemLCLListTag, ItemList, @FreeStoreStringList);
// g_object_set_data(PGObject(FCentralWidget),GtkListItemLCLListTag, ItemList);
g_object_set_data(PGObject(FCentralWidget),GtkListItemLCLListTag, ItemList);
{if we use g_object_set_data_full then access violation occurs, so, revert to g_object_set_data}
// g_object_set_data_full(PGObject(FCentralWidget),GtkListItemLCLListTag, ItemList, @FreeStoreStringList);
Renderer := LCLIntfCellRenderer_New();
@ -5530,7 +5532,7 @@ begin
Result := gtk_tree_path_get_indices(Path)^;
if Result = 0 then
begin
Selection := TreeView^.get_selection;
Selection := TreeView^.get_selection;
if not Selection^.path_is_selected(Path) then
Result := -1;
end;
@ -5628,6 +5630,29 @@ begin
Result := PGtkTreeView(GetContainerWidget)^.get_selection;
end;
function TGtk3ListBox.GetItemRect(const AIndex: integer): TRect;
var
AModel: PGtkTreeModel;
Iter: TGtkTreeIter;
AGdkRect: TGdkRectangle;
ACol: TGtkTreeViewColumn;
begin
Result := Rect(0, 0, 0, 0);
AModel := PGtkTreeView(getContainerWidget)^.model;
if AModel = nil then
exit;
if AModel^.iter_nth_child(@Iter, nil, AIndex) then
begin
ACol := gtk_tree_view_get_column(PGtkTreeView(getContainerWidget), 0)^;
gtk_tree_view_get_cell_area(PGtkTreeView(getContainerWidget), AModel^.get_path(@Iter), @ACol, @AGdkRect);
Result := RectFromGdkRect(AGdkRect);
if getVerticalScrollbar^.visible then
Types.OffsetRect(Result, 0, Round(getVerticalScrollbar^.get_value));
if getHorizontalScrollbar^.visible then
Types.OffsetRect(Result, Round(getHorizontalScrollbar^.get_value), 0);
end;
end;
function TGtk3ListBox.GetItemSelected(const AIndex: Integer): Boolean;
var
ASelection: PGtkTreeSelection;