OS/2 Statusbar fixes, and class interface updates

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@8454 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
2000-10-02 02:49:35 +00:00
parent f5526d3613
commit 5b3ed31135
7 changed files with 251 additions and 86 deletions
--- a/src/os2/utils.cpp
+++ b/src/os2/utils.cpp
@@ -755,6 +755,31 @@ void wxDisplaySize(
    *pHeight = (int)lHeight;
 }

+void wxDisplaySizeMM(
+  int*                              pWidth
+, int*                              pHeight
+)
+{
+    HPS                             hpsScreen;
+    HDC                             hdcScreen;
+
+    hpsScreen = ::WinGetScreenPS(HWND_DESKTOP);
+    hdcScreen = ::GpiQueryDevice(hpsScreen);
+
+    if (pWidth)
+        ::DevQueryCaps( hdcScreen
+                       ,CAPS_HORIZONTAL_RESOLUTION
+                       ,1L
+                       ,(PLONG)pWidth
+                      );
+    if (pHeight)
+        ::DevQueryCaps( hdcScreen
+                       ,CAPS_VERTICAL_RESOLUTION
+                       ,1L
+                       ,(PLONG)pHeight
+                      );
+}
+
 bool wxDirExists(
  const wxString&                   rDir
 )