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

LCL-QT[56]: Clean and optimise function TQtWidgetSet.EnumDisplayMonitors(). By lagprogramming.

Browse Source
This commit is contained in:
Juha 2023-07-13 12:06:03 +03:00
parent fde9c86ca8
commit be92e362e8
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt5/qtwinapi.inc
View File

@ -1553,9 +1553,9 @@ var
begin
Desktop := QApplication_desktop();
Result := True;
for i := 0 to QDesktopWidget_numScreens(Desktop) - 1 do
for i := 1 to QDesktopWidget_numScreens(Desktop) do
begin
Result := Result and lpfnEnum(i + 1, 0, nil, dwData);
Result := lpfnEnum(i, 0, nil, dwData);
if not Result then break;
end;
end;

4
lcl/interfaces/qt6/qtwinapi.inc
View File

@ -1557,9 +1557,9 @@ begin
Desktop := QGuiApplication_primaryScreen();
Result := True;
QScreen_virtualSiblings(Desktop, @AArray);
for i := 0 to length(AArray) - 1 do
for i := 1 to length(AArray) do
begin
Result := Result and lpfnEnum(i + 1, 0, nil, dwData);
Result := lpfnEnum(i, 0, nil, dwData);
if not Result then break;
end;
end;