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

Gtk3: do not append scrollbars offset to the TGtk3ListBox.GetItemRect(), implemented TGtk3ListBox.GetIndexAtXY(), TGtk3WSCustomListBox.GetIndexAtXY()

Browse Source
This commit is contained in:
zeljan1 2025-01-09 22:32:57 +01:00
parent 1d07d268ed
commit b0a562be0d
2 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -553,6 +553,7 @@ type
function GetSelCount: Integer;
function GetSelection: PGtkTreeSelection;
function GetItemRect(const AIndex: integer): TRect;
function GetIndexAtXY(const X, Y: integer): integer;
function GetItemSelected(const AIndex: Integer): Boolean;
procedure SelectItem(const AIndex: Integer; ASelected: Boolean);
procedure SetTopIndex(const AIndex: Integer);
@ -5641,15 +5642,30 @@ begin
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.GetIndexAtXY(const X, Y: integer): integer;
var
Path: PGtkTreePath;
Column: PGtkTreeViewColumn;
CellX, CellY: Integer;
Indices: PInteger;
begin
Result := -1;
if gtk_tree_view_get_path_at_pos(PGtkTreeView(getContainerWidget), X, Y,
@Path, @Column, @CellX, @CellY) then
begin
Indices := gtk_tree_path_get_indices(Path);
if Assigned(Indices) then
Result := Indices^;
gtk_tree_path_free(Path);
end;
end;

6
lcl/interfaces/gtk3/gtk3wsstdctrls.pp
View File

@ -401,8 +401,14 @@ end;
class function TGtk3WSCustomListBox.GetIndexAtXY(
const ACustomListBox: TCustomListBox; X, Y: integer): integer;
var
Widget: TGtk3ListBox;
begin
Result := -1;
if not WSCheckHandleAllocated(ACustomListBox, 'GetIndexAtXY') then
exit;
Widget := TGtk3ListBox(ACustomListBox.Handle);
Result := Widget.GetIndexAtXY(X, Y);
end;
class function TGtk3WSCustomListBox.GetItemIndex(const ACustomListBox: TCustomListBox): integer;