1 // Copyright (c) 1998-1999 Matra Datavision
2 // Copyright (c) 1999-2014 OPEN CASCADE SAS
4 // This file is part of Open CASCADE Technology software library.
6 // This library is free software; you can redistribute it and/or modify it under
7 // the terms of the GNU Lesser General Public License version 2.1 as published
8 // by the Free Software Foundation, with special exception defined in the file
9 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
10 // distribution for complete text of the license and disclaimer of any warranty.
12 // Alternatively, this file may be used under the terms of Open CASCADE
13 // commercial license or contractual agreement.
16 // include windows.h first to have all definitions available
20 #include <WNT_Window.hxx>
22 #if defined(_WIN32) && !defined(OCCT_UWP)
24 #include <Aspect_Convert.hxx>
25 #include <Aspect_WindowDefinitionError.hxx>
26 #include <Aspect_WindowError.hxx>
27 #include <Standard_Type.hxx>
28 #include <TCollection_ExtendedString.hxx>
29 #include <WNT_WClass.hxx>
31 IMPLEMENT_STANDARD_RTTIEXT(WNT_Window, Aspect_Window)
33 // =======================================================================
34 // function : WNT_Window
36 // =======================================================================
37 WNT_Window::WNT_Window (const Standard_CString theTitle,
38 const Handle(WNT_WClass)& theClass,
39 const WNT_Dword& theStyle,
40 const Standard_Integer thePxLeft,
41 const Standard_Integer thePxTop,
42 const Standard_Integer thePxWidth,
43 const Standard_Integer thePxHeight,
44 const Quantity_NameOfColor theBackColor,
45 const Aspect_Handle theParent,
46 const Aspect_Handle theMenu,
47 const Standard_Address theClientStruct)
51 aXRight (thePxLeft + thePxWidth),
52 aYBottom (thePxTop + thePxHeight),
54 myIsForeign (Standard_False)
56 if (thePxWidth <= 0 || thePxHeight <= 0)
58 throw Aspect_WindowDefinitionError("Coordinate(s) out of range");
61 DWORD aStyle = theStyle;
62 if (theParent && !(theStyle & WS_CHILD))
64 aStyle |= WS_CHILD | WS_CLIPSIBLINGS;
66 else if (!theParent && !(theStyle & WS_CLIPCHILDREN))
68 aStyle |= WS_CLIPCHILDREN;
71 // include decorations in the window dimensions to reproduce same behavior of Xw_Window
74 aRect.bottom = aYBottom;
76 aRect.right = aXRight;
77 AdjustWindowRect (&aRect, aStyle, theMenu != NULL ? TRUE : FALSE);
80 aXRight = aRect.right;
81 aYBottom = aRect.bottom;
83 const TCollection_ExtendedString aTitleW (theTitle);
84 const TCollection_ExtendedString aClassNameW (myWClass->Name());
85 myHWindow = CreateWindowW (aClassNameW.ToWideString(), aTitleW.ToWideString(),
88 (aXRight - aXLeft), (aYBottom - aYTop),
91 (HINSTANCE )myWClass->Instance(),
95 throw Aspect_WindowDefinitionError("Unable to create window");
98 myHParentWindow = theParent;
99 SetBackground (theBackColor);
102 // =======================================================================
103 // function : WNT_Window
105 // =======================================================================
106 WNT_Window::WNT_Window (const Aspect_Handle theHandle,
107 const Quantity_NameOfColor theBackColor)
108 : myIsForeign (Standard_True)
110 myHWindow = theHandle;
111 myHParentWindow = GetParent ((HWND )theHandle);
113 SetBackground (theBackColor);
115 WINDOWPLACEMENT aPlace;
116 aPlace.length = sizeof (WINDOWPLACEMENT);
117 ::GetWindowPlacement ((HWND )myHWindow, &aPlace);
119 aXLeft = aPlace.rcNormalPosition.left;
120 aYTop = aPlace.rcNormalPosition.top;
121 aXRight = aPlace.rcNormalPosition.right;
122 aYBottom = aPlace.rcNormalPosition.bottom;
125 // =======================================================================
126 // function : ~WNT_Window
128 // =======================================================================
129 WNT_Window::~WNT_Window()
131 if (myHWindow == NULL
137 DestroyWindow ((HWND )myHWindow);
138 myIsForeign = Standard_False;
141 // =======================================================================
142 // function : SetCursor
144 // =======================================================================
145 void WNT_Window::SetCursor (const Aspect_Handle theCursor) const
147 ::SetClassLongPtrW ((HWND )myHWindow, GCLP_HCURSOR, (LONG_PTR )theCursor);
150 // =======================================================================
151 // function : IsMapped
153 // =======================================================================
154 Standard_Boolean WNT_Window::IsMapped() const
158 return Standard_True;
161 WINDOWPLACEMENT aPlace;
162 aPlace.length = sizeof (WINDOWPLACEMENT);
163 ::GetWindowPlacement ((HWND )myHWindow, &aPlace);
164 return !(aPlace.showCmd == SW_HIDE
165 || aPlace.showCmd == SW_MINIMIZE);
168 // =======================================================================
171 // =======================================================================
172 void WNT_Window::Map() const
180 // =======================================================================
183 // =======================================================================
184 void WNT_Window::Map (const Standard_Integer theMapMode) const
191 ::ShowWindow ((HWND )myHWindow, theMapMode);
192 ::UpdateWindow ((HWND )myHWindow);
195 // =======================================================================
198 // =======================================================================
199 void WNT_Window::Unmap() const
204 // =======================================================================
205 // function : DoResize
207 // =======================================================================
208 Aspect_TypeOfResize WNT_Window::DoResize() const
212 return Aspect_TOR_UNKNOWN;
216 Aspect_TypeOfResize mode = Aspect_TOR_UNKNOWN;
219 wp.length = sizeof ( WINDOWPLACEMENT );
220 GetWindowPlacement ( ( HWND )myHWindow, &wp );
222 if (wp.showCmd != SW_SHOWMINIMIZED)
224 if (Abs ((int )wp.rcNormalPosition.left - aXLeft ) > 2) mask |= 1;
225 if (Abs ((int )wp.rcNormalPosition.right - aXRight ) > 2) mask |= 2;
226 if (Abs ((int )wp.rcNormalPosition.top - aYTop ) > 2) mask |= 4;
227 if (Abs ((int )wp.rcNormalPosition.bottom - aYBottom) > 2) mask |= 8;
232 mode = Aspect_TOR_NO_BORDER;
235 mode = Aspect_TOR_LEFT_BORDER;
238 mode = Aspect_TOR_RIGHT_BORDER;
241 mode = Aspect_TOR_TOP_BORDER;
244 mode = Aspect_TOR_LEFT_AND_TOP_BORDER;
247 mode = Aspect_TOR_TOP_AND_RIGHT_BORDER;
250 mode = Aspect_TOR_BOTTOM_BORDER;
253 mode = Aspect_TOR_BOTTOM_AND_LEFT_BORDER;
256 mode = Aspect_TOR_RIGHT_AND_BOTTOM_BORDER;
262 *((Standard_Integer* )&aXLeft ) = wp.rcNormalPosition.left;
263 *((Standard_Integer* )&aXRight ) = wp.rcNormalPosition.right;
264 *((Standard_Integer* )&aYTop ) = wp.rcNormalPosition.top;
265 *((Standard_Integer* )&aYBottom) = wp.rcNormalPosition.bottom;
271 // =======================================================================
274 // =======================================================================
275 Standard_Real WNT_Window::Ratio() const
279 return Standard_Real(aXRight - aXLeft)/ Standard_Real(aYBottom - aYTop);
283 GetClientRect ((HWND )myHWindow, &aRect);
284 return Standard_Real(aRect.right - aRect.left) / Standard_Real(aRect.bottom - aRect.top);
287 // =======================================================================
288 // function : Position
290 // =======================================================================
291 void WNT_Window::Position (Standard_Integer& theX1, Standard_Integer& theY1,
292 Standard_Integer& theX2, Standard_Integer& theY2) const
304 ::GetClientRect ((HWND )myHWindow, &aRect);
306 POINT aPntLeft, aPntRight;
307 aPntLeft.x = aPntLeft.y = 0;
308 ::ClientToScreen ((HWND )myHWindow, &aPntLeft);
309 aPntRight.x = aRect.right;
310 aPntRight.y = aRect.bottom;
311 ::ClientToScreen ((HWND )myHWindow, &aPntRight);
313 if (myHParentWindow != NULL)
315 ::ScreenToClient ((HWND )myHParentWindow, &aPntLeft);
316 ::ScreenToClient ((HWND )myHParentWindow, &aPntRight);
325 // =======================================================================
328 // =======================================================================
329 void WNT_Window::Size (Standard_Integer& theWidth,
330 Standard_Integer& theHeight) const
334 theWidth = aXRight - aXLeft;
335 theHeight = aYBottom - aYTop;
340 ::GetClientRect ((HWND )myHWindow, &aRect);
341 theWidth = aRect.right;
342 theHeight = aRect.bottom;
345 // =======================================================================
348 // =======================================================================
349 void WNT_Window::SetPos (const Standard_Integer theX, const Standard_Integer theY,
350 const Standard_Integer theX1, const Standard_Integer theY1)