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

Qt5,Qt6: fixed TListBox.TopIndex. issue #41688

Browse Source
This commit is contained in:
zeljan1 2025-06-03 18:09:30 +02:00
parent cf1d97517f
commit 478688e0f1
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/qt5/qtwsstdctrls.pp
View File

@ -580,8 +580,17 @@ end;
Returns: Nothing
------------------------------------------------------------------------------}
class function TQtWSCustomListBox.GetTopIndex(const ACustomListBox: TCustomListBox): integer;
var
QtListWidget: TQtListWidget;
AQtPoint: TQtPoint;
begin
Result := 0;
if not WSCheckHandleAllocated(ACustomListBox, 'GetTopIndex') then
Exit;
QtListWidget := TQtListWidget(ACustomListBox.Handle);
AQtPoint.x := 0;
AQtPoint.y := 0;
Result := QtListWidget.IndexAt(@AQtPoint);
end;
{------------------------------------------------------------------------------

9
lcl/interfaces/qt6/qtwsstdctrls.pp
View File

@ -580,8 +580,17 @@ end;
Returns: Nothing
------------------------------------------------------------------------------}
class function TQtWSCustomListBox.GetTopIndex(const ACustomListBox: TCustomListBox): integer;
var
QtListWidget: TQtListWidget;
AQtPoint: TQtPoint;
begin
Result := 0;
if not WSCheckHandleAllocated(ACustomListBox, 'GetTopIndex') then
Exit;
QtListWidget := TQtListWidget(ACustomListBox.Handle);
AQtPoint.x := 0;
AQtPoint.y := 0;
Result := QtListWidget.IndexAt(@AQtPoint);
end;
{------------------------------------------------------------------------------