2 * Copyright (c) 2001, 2002, 2003 Gary R. Van Sickle.
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 2 of the License, or
7 * (at your option) any later version.
9 * A copy of the GNU General Public License can be found at
12 * Written by Gary R. Van Sickle <g.r.vansickle@worldnet.att.net>
16 // This is the implementation of the Window class. It serves both as a window class
17 // in its own right and as a base class for other window-like classes (e.g. PropertyPage,
22 #include "RECTWrapper.h"
26 ATOM
Window::WindowClassAtom
= 0;
27 HINSTANCE
Window::AppInstance
= NULL
;
41 // Delete any fonts we created.
42 for (unsigned int i
= 0; i
< Fonts
.size (); i
++)
43 DeleteObject (Fonts
[i
]);
45 // shut down the tooltip control, if activated
47 DestroyWindow (TooltipHandle
);
49 // FIXME: Maybe do some reference counting and do this Unregister
50 // when there are no more of us left. Not real critical unless
51 // we're in a DLL which we're not right now.
52 //UnregisterClass(WindowClassAtom, InstanceHandle);
56 Window::FirstWindowProcReflector (HWND hwnd
, UINT uMsg
, WPARAM wParam
,
61 if(uMsg
== WM_NCCREATE
)
63 // This is the first message a window gets (so MSDN says anyway).
64 // Take this opportunity to "link" the HWND to the 'this' ptr, steering
65 // messages to the class instance's WindowProc().
66 wnd
= reinterpret_cast<Window
*>(((LPCREATESTRUCT
)lParam
)->lpCreateParams
);
68 // Set a backreference to this class instance in the HWND.
69 SetWindowLongPtr (hwnd
, GWLP_USERDATA
, reinterpret_cast<LONG_PTR
>(wnd
));
71 // Set a new WindowProc now that we have the peliminaries done.
72 // We could instead simply do the contents of Window::WindowProcReflector
73 // in the 'else' clause below, but this way we eliminate an unnecessary 'if/else' on
74 // every message. Yeah, it's probably not worth the trouble.
75 SetWindowLongPtr (hwnd
, GWLP_WNDPROC
, (LONG_PTR
) & Window::WindowProcReflector
);
76 // Finally, store the window handle in the class.
77 wnd
->WindowHandle
= hwnd
;
81 // Should never get here.
82 fatal(NULL
, IDS_WINDOW_INIT_BADMSG
, uMsg
);
85 return wnd
->WindowProc (uMsg
, wParam
, lParam
);
89 Window::WindowProcReflector (HWND hwnd
, UINT uMsg
, WPARAM wParam
,
94 // Get our this pointer
95 This
= reinterpret_cast<Window
*>(GetWindowLongPtr (hwnd
, GWLP_USERDATA
));
97 return This
->WindowProc (uMsg
, wParam
, lParam
);
101 Window::Create (Window
* parent
, DWORD Style
)
103 // First register the window class, if we haven't already
104 if (registerWindowClass () == false)
106 // Registration failed
110 // Save our parent, we'll probably need it eventually.
113 // Create the window instance
114 WindowHandle
= CreateWindowEx (
117 "MainWindowClass", //MAKEINTATOM(WindowClassAtom), // window class atom (name)
118 "Hello", // no title-bar string yet
121 // Default positions and size
123 CW_USEDEFAULT
, CW_USEDEFAULT
, CW_USEDEFAULT
,
126 NULL
? (HWND
) NULL
: parent
->GetHWND (),
129 // The application instance
131 // The this ptr, which we'll use to set up the WindowProc reflection.
134 if (WindowHandle
== NULL
)
144 Window::registerWindowClass ()
146 if (WindowClassAtom
== 0)
148 // We're not registered yet
152 wc
.cbSize
= sizeof (wc
);
153 // Some sensible style defaults
154 wc
.style
= CS_DBLCLKS
| CS_HREDRAW
| CS_VREDRAW
;
155 // Our default window procedure. This replaces itself
156 // on the first call with the simpler Window::WindowProcReflector().
157 wc
.lpfnWndProc
= Window::FirstWindowProcReflector
;
160 // One pointer to REFLECTION_INFO in the extra window instance bytes
163 wc
.hInstance
= GetInstance ();
164 // Use a bunch of system defaults for the GUI elements
168 wc
.hbrBackground
= (HBRUSH
) (COLOR_BACKGROUND
+ 1);
170 wc
.lpszMenuName
= NULL
;
171 // We'll get a little crazy here with the class name
172 wc
.lpszClassName
= "MainWindowClass";
174 // All set, try to register
175 WindowClassAtom
= RegisterClassEx (&wc
);
177 if (WindowClassAtom
== 0)
184 // We're registered, or already were before the call,
185 // return success in either case.
190 Window::Show (int State
)
192 ::ShowWindow (WindowHandle
, State
);
196 Window::GetWindowRect() const
199 ::GetWindowRect(WindowHandle
, &retval
);
204 Window::GetClientRect() const
207 ::GetClientRect(WindowHandle
, &retval
);
212 Window::MoveWindow(long x
, long y
, long w
, long h
, bool Repaint
)
214 return ::MoveWindow (WindowHandle
, x
, y
, w
, h
, Repaint
);
218 Window::MoveWindow(const RECTWrapper
&r
, bool Repaint
)
220 return ::MoveWindow (WindowHandle
, r
.left
, r
.top
, r
.width(), r
.height(), Repaint
);
224 Window::CenterWindow ()
226 RECT WindowRect
, ParentRect
;
227 int WindowWidth
, WindowHeight
;
230 // Get the window rectangle
231 WindowRect
= GetWindowRect ();
233 if (GetParent () == NULL
)
235 // Center on desktop window
236 ::GetWindowRect (GetDesktopWindow (), &ParentRect
);
240 // Center on client area of parent
241 ::GetClientRect (GetParent ()->GetHWND (), &ParentRect
);
244 WindowWidth
= WindowRect
.right
- WindowRect
.left
;
245 WindowHeight
= WindowRect
.bottom
- WindowRect
.top
;
247 // Find center of area we're centering on
248 p
.x
= (ParentRect
.right
- ParentRect
.left
) / 2;
249 p
.y
= (ParentRect
.bottom
- ParentRect
.top
) / 2;
251 // Convert that to screen coords
252 if (GetParent () == NULL
)
254 ClientToScreen (GetDesktopWindow (), &p
);
258 ClientToScreen (GetParent ()->GetHWND (), &p
);
261 // Calculate new top left corner for window
262 p
.x
-= WindowWidth
/ 2;
263 p
.y
-= WindowHeight
/ 2;
265 // And finally move the window
266 MoveWindow (p
.x
, p
.y
, WindowWidth
, WindowHeight
);
270 Window::WindowProc (UINT uMsg
, WPARAM wParam
, LPARAM lParam
)
272 return DefWindowProc (WindowHandle
, uMsg
, wParam
, lParam
);
276 Window::MessageLoop ()
281 while (GetMessage (&msg
, NULL
, 0, 0) != 0
282 && GetMessage (&msg
, (HWND
) NULL
, 0, 0) != -1)
284 if (!IsWindow (WindowHandle
) || !IsDialogMessage (WindowHandle
, &msg
))
286 TranslateMessage (&msg
);
287 DispatchMessage (&msg
);
295 Window::PostMessageNow (UINT uMsg
, WPARAM wParam
, LPARAM lParam
)
297 ::PostMessage (GetHWND (), uMsg
, wParam
, lParam
);
301 Window::IsButtonChecked (int nIDButton
) const
303 return ::IsDlgButtonChecked (GetHWND (), nIDButton
);
307 Window::SetDlgItemFont (int id
, const TCHAR
* fontname
, int Pointsize
,
308 int Weight
, bool Italic
, bool Underline
,
313 ctrl
= GetDlgItem (id
);
316 // Couldn't get that ID
320 // We need the DC for the point size calculation.
321 HDC hdc
= GetDC (ctrl
);
323 // Create the font. We have to keep it around until the dialog item
324 // goes away - basically until we're destroyed.
327 CreateFont (-MulDiv (Pointsize
, GetDeviceCaps (hdc
, LOGPIXELSY
), 72), 0,
328 0, 0, Weight
, Italic
? TRUE
: FALSE
,
329 Underline
? TRUE
: FALSE
, Strikeout
? TRUE
: FALSE
,
330 ANSI_CHARSET
, OUT_TT_PRECIS
, CLIP_DEFAULT_PRECIS
,
331 PROOF_QUALITY
, DEFAULT_PITCH
| FF_DONTCARE
, fontname
);
334 // Font creation failed
338 // Set the new font, and redraw any text which was already in the item.
339 SendMessage (ctrl
, WM_SETFONT
, (WPARAM
) hfnt
, TRUE
);
341 // Store the handle so that we can DeleteObject() it in dtor
342 Fonts
.push_back (hfnt
);
348 Window::SetWindowText (const std::string
& s
)
350 ::SetWindowText (WindowHandle
, s
.c_str ());
354 Window::ScreenToClient(const RECT
&r
) const
361 ::ScreenToClient(GetHWND(), &tl
);
364 ::ScreenToClient(GetHWND(), &br
);
377 Window::ActivateTooltips ()
378 // initialization of the tooltip capability
380 if (TooltipHandle
!= NULL
)
381 return; // already initialized
383 // create a window for the tool tips - will be invisible most of the time
384 if ((TooltipHandle
= CreateWindowEx (0, (LPCTSTR
) TOOLTIPS_CLASS
, NULL
,
385 WS_POPUP
| TTS_NOPREFIX
| TTS_ALWAYSTIP
, CW_USEDEFAULT
,
386 CW_USEDEFAULT
, CW_USEDEFAULT
, CW_USEDEFAULT
, GetHWND (),
387 (HMENU
) 0, GetInstance (), (LPVOID
) 0)) == (HWND
) NULL
)
389 Log (LOG_PLAIN
) << "Warning: call to CreateWindowEx failed when "
390 "initializing tooltips. Error = %8.8x" << GetLastError ()
395 // must be topmost so that tooltips will display on top
396 SetWindowPos (TooltipHandle
, HWND_TOPMOST
, 0, 0, 0, 0,
397 SWP_NOMOVE
| SWP_NOSIZE
| SWP_NOACTIVATE
);
399 // some of our tooltips are lengthy, and will disappear before they can be
400 // read with the default windows delay, so we set a long (30s) delay here.
401 SendMessage (TooltipHandle
, TTM_SETDELAYTIME
, TTDT_AUTOPOP
,
402 (LPARAM
) MAKELONG (30000, 0));
406 Window::SetTooltipState (bool b
)
407 // enable/disable tooltips
409 SendMessage (TooltipHandle
, (UINT
)TTM_ACTIVATE
, (WPARAM
)(BOOL
)b
, 0);
413 Window::AddTooltip (HWND target
, HWND win
, const char *text
)
414 // adds a tooltip to element 'target' in window 'win'
415 // note: text is limited to 80 chars (grumble)
422 memset ((void *)&ti
, 0, sizeof(ti
));
423 ti
.cbSize
= sizeof(ti
);
425 ti
.uFlags
= TTF_IDISHWND
// add tool based on handle not ID
426 | TTF_SUBCLASS
; // tool is to subclass the window in order
427 // to automatically get mouse events
429 ti
.uId
= reinterpret_cast<UINT_PTR
>(target
);
430 ti
.lpszText
= (LPTSTR
)text
; // pointer to text or string resource
432 SendMessage (TooltipHandle
, (UINT
)TTM_ADDTOOL
, 0,
433 (LPARAM
)(LPTOOLINFO
)&ti
);
437 Window::AddTooltip (int id
, const char *text
)
438 // adds a tooltip to a control identified by its ID
442 if ((target
= GetDlgItem (id
)) != NULL
&&
443 (parent
= ::GetParent (target
)) != NULL
)
444 AddTooltip (target
, parent
, text
);
448 Window::AddTooltip (int id
, int string_resource
)
449 // adds a tooltip that's represented by a string resource
450 // this also allows for tooltips greater than 80 characters
451 // we do this by setting the lpszText to LPSTR_TEXTCALLBACK
452 // and then responding to the TTN_GETDISPINFO notification
453 // in order to do this we store a list of (control ID, string ID) pairs
455 AddTooltip (id
, (const char *)LPSTR_TEXTCALLBACK
);
456 TooltipStrings
[id
] = string_resource
;
460 Window::TooltipNotificationHandler (LPARAM lParam
)
461 // this is the handler for TTN_GETDISPINFO notifications
463 NMTTDISPINFO
*dispinfo
= (NMTTDISPINFO
*)lParam
;
465 std::map
<int, int>::iterator findID
;
467 if ((dispinfo
->uFlags
& TTF_IDISHWND
) &&
468 ((ctrlID
= GetDlgCtrlID ((HWND
)dispinfo
->hdr
.idFrom
)) != 0) &&
469 ((findID
= TooltipStrings
.find (ctrlID
)) != TooltipStrings
.end ())) {
471 // enable multiple lines
472 SendMessage(dispinfo
->hdr
.hwndFrom
, TTM_SETMAXTIPWIDTH
, 0, 450);
474 // this is quite ugly. Apparently even when using string resources
475 // the tooltip length still can't exceed 80 chars. So, we fetch the
476 // resource into our own buffer and use that
479 LoadString (GetInstance (), findID
->second
, (LPTSTR
)buf
,
480 (sizeof (buf
) / sizeof (TCHAR
)));
482 dispinfo
->lpszText
= buf
;
484 // set this flag so that the control will not ask for this again
485 dispinfo
->uFlags
|= TTF_DI_SETITEM
;
486 dispinfo
->hinst
= NULL
;
494 Window::SetBusy (void)
496 // The docs suggest that you can call SetCursor, and it won't do
497 // anything if you've chosen the same cursor as is already set.
498 // However it looked to me as if it was resetting the animation
499 // frame every time when I tried it, hence this routine to make
500 // sure we only call it once on the way into and once on the way
502 if (BusyCount
++ == 0)
504 if (BusyCursor
== NULL
)
505 BusyCursor
= LoadCursor (NULL
, IDC_WAIT
);
506 OldCursor
= SetCursor (BusyCursor
);
511 Window::ClearBusy (void)
513 if (BusyCount
&& (--BusyCount
== 0))
515 SetCursor (OldCursor
);