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

qt, carbon: improve EnumDisplayMonitors

Browse Source 
git-svn-id: trunk@19261 -
This commit is contained in:
paul 2009-04-07 01:42:16 +00:00
parent ddf2b15e66
commit 4db59e3374
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/carbon/carbonwinapi.inc
View File

@ -799,7 +799,10 @@ begin
'TCarbonWidgetSet.EnumDisplayMonitors', 'CGGetActiveDisplayList') then Exit(False); 'TCarbonWidgetSet.EnumDisplayMonitors', 'CGGetActiveDisplayList') then Exit(False);
Result := True; Result := True;
for i := 0 to Count - 1 do for i := 0 to Count - 1 do
begin
Result := Result and lpfnEnum(HMONITOR(activeDspys[i]), 0, nil, dwData); Result := Result and lpfnEnum(HMONITOR(activeDspys[i]), 0, nil, dwData);
if not Result then break;
end;
end; end;
function TCarbonWidgetSet.EnumFontFamilies(DC: HDC; Family: Pchar; function TCarbonWidgetSet.EnumFontFamilies(DC: HDC; Family: Pchar;

7
lcl/interfaces/qt/qtwinapi.inc
View File

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