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

Gtk3: implemented TGtk3ListView.ShowRow(), partially implemented TGtk3WSComCtrls.ItemShow

Browse Source
This commit is contained in:
zeljan1 2025-02-05 10:25:34 +01:00
parent 26a8fe1765
commit cd67b9603c
2 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -654,7 +654,7 @@ type
const AIsSet: Boolean); const AIsSet: Boolean);
function ItemGetState(const AIndex: Integer; const {%H-}AItem: TListItem; const AState: TListItemState; function ItemGetState(const AIndex: Integer; const {%H-}AItem: TListItem; const AState: TListItemState;
out AIsSet: Boolean): Boolean; out AIsSet: Boolean): Boolean;
procedure ScrollToRow(const ARow: integer);
procedure UpdateImageCellsSize; procedure UpdateImageCellsSize;
property Images: TFPList read FImages write FImages; property Images: TFPList read FImages write FImages;
@ -7585,6 +7585,18 @@ begin
end; end;
end; end;
procedure TGtk3ListView.ScrollToRow(const ARow: integer);
var
ATreePath: PGtkTreePath;
begin
ATreePath := gtk_tree_path_new_from_indices(ARow, [-1]);
if IsTreeView then
gtk_tree_view_scroll_to_cell(PGtkTreeView(getContainerWidget), ATreePath, nil, False, 0.0, 0.0)
else
gtk_icon_view_scroll_to_path(PGtkIconView(getContainerWidget), ATreePath, False, 0.0, 0.0);
gtk_tree_path_free(ATreePath);
end;
procedure TGtk3ListView.UpdateImageCellsSize; procedure TGtk3ListView.UpdateImageCellsSize;
begin begin
// must get renderer via property // must get renderer via property

8
lcl/interfaces/gtk3/gtk3wscomctrls.pp
View File

@ -732,6 +732,12 @@ class procedure TGtk3WSCustomListView.ItemShow(const ALV: TCustomListView;
begin begin
DebugLn('TGtk3WSCustomListView.ItemShow '); DebugLn('TGtk3WSCustomListView.ItemShow ');
// inherited ItemShow(ALV, AIndex, AItem, PartialOK); // inherited ItemShow(ALV, AIndex, AItem, PartialOK);
if ALV.HandleAllocated then
begin
//TODO: Hide/Show items
if not PartialOk then
TGtk3ListView(ALV.Handle).ScrollToRow(AIndex);
end;
end; end;
class function TGtk3WSCustomListView.ItemGetPosition( class function TGtk3WSCustomListView.ItemGetPosition(
@ -767,6 +773,8 @@ class function TGtk3WSCustomListView.GetBoundingRect(const ALV: TCustomListView
begin begin
DebugLn('TGtk3WSCustomListView.GetBoundingRect '); DebugLn('TGtk3WSCustomListView.GetBoundingRect ');
Result := Rect(0, 0, 0, 0); Result := Rect(0, 0, 0, 0);
if ALV.HandleAllocated then
Result := TGtk3ListView(ALV.handle).getClientBounds;
end; end;
class function TGtk3WSCustomListView.GetDropTarget(const ALV: TCustomListView class function TGtk3WSCustomListView.GetDropTarget(const ALV: TCustomListView