1 /* vi:set ts=8 sts=4 sw=4:
3 * VIM - Vi IMproved by Bram Moolenaar
4 * GUI support by Robert Webb
6 * Do ":help uganda" in Vim to read copying and usage conditions.
7 * Do ":help credits" in Vim to see a list of people who contributed.
8 * See README.txt for an overview of the Vim source code.
13 * GUI support for Microsoft Windows. Win32 initially; maybe Win16 later
15 * George V. Reilly <george@reilly.org> wrote the original Win32 GUI.
16 * Robert Webb reworked it to use the existing GUI stuff and added menu,
19 * Note: Clipboard stuff, for cutting and pasting text to other windows, is in
20 * os_win32.c. (It can also be done from the terminal version).
22 * TODO: Some of the function signatures ought to be updated for Win64;
23 * e.g., replace LONG with LONG_PTR, etc.
29 * These are new in Windows ME/XP, only defined in recent compilers.
31 #ifndef HANDLE_WM_XBUTTONUP
32 # define HANDLE_WM_XBUTTONUP(hwnd, wParam, lParam, fn) \
33 ((fn)((hwnd), (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
35 #ifndef HANDLE_WM_XBUTTONDOWN
36 # define HANDLE_WM_XBUTTONDOWN(hwnd, wParam, lParam, fn) \
37 ((fn)((hwnd), FALSE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
39 #ifndef HANDLE_WM_XBUTTONDBLCLK
40 # define HANDLE_WM_XBUTTONDBLCLK(hwnd, wParam, lParam, fn) \
41 ((fn)((hwnd), TRUE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
45 * Include the common stuff for MS-Windows GUI.
59 * Add a lot of missing defines.
60 * They are not always missing, we need the #ifndef's.
66 # define IsMinimized(hwnd) IsIconic(hwnd)
69 # define IsMaximized(hwnd) IsZoomed(hwnd)
72 # define SelectFont(hdc, hfont) ((HFONT)SelectObject((hdc), (HGDIOBJ)(HFONT)(hfont)))
74 # ifndef GetStockBrush
75 # define GetStockBrush(i) ((HBRUSH)GetStockObject(i))
78 # define DeleteBrush(hbr) DeleteObject((HGDIOBJ)(HBRUSH)(hbr))
81 # ifndef HANDLE_WM_RBUTTONDBLCLK
82 # define HANDLE_WM_RBUTTONDBLCLK(hwnd, wParam, lParam, fn) \
83 ((fn)((hwnd), TRUE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
85 # ifndef HANDLE_WM_MBUTTONUP
86 # define HANDLE_WM_MBUTTONUP(hwnd, wParam, lParam, fn) \
87 ((fn)((hwnd), (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
89 # ifndef HANDLE_WM_MBUTTONDBLCLK
90 # define HANDLE_WM_MBUTTONDBLCLK(hwnd, wParam, lParam, fn) \
91 ((fn)((hwnd), TRUE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
93 # ifndef HANDLE_WM_LBUTTONDBLCLK
94 # define HANDLE_WM_LBUTTONDBLCLK(hwnd, wParam, lParam, fn) \
95 ((fn)((hwnd), TRUE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
97 # ifndef HANDLE_WM_RBUTTONDOWN
98 # define HANDLE_WM_RBUTTONDOWN(hwnd, wParam, lParam, fn) \
99 ((fn)((hwnd), FALSE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
101 # ifndef HANDLE_WM_MOUSEMOVE
102 # define HANDLE_WM_MOUSEMOVE(hwnd, wParam, lParam, fn) \
103 ((fn)((hwnd), (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
105 # ifndef HANDLE_WM_RBUTTONUP
106 # define HANDLE_WM_RBUTTONUP(hwnd, wParam, lParam, fn) \
107 ((fn)((hwnd), (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
109 # ifndef HANDLE_WM_MBUTTONDOWN
110 # define HANDLE_WM_MBUTTONDOWN(hwnd, wParam, lParam, fn) \
111 ((fn)((hwnd), FALSE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
113 # ifndef HANDLE_WM_LBUTTONUP
114 # define HANDLE_WM_LBUTTONUP(hwnd, wParam, lParam, fn) \
115 ((fn)((hwnd), (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
117 # ifndef HANDLE_WM_LBUTTONDOWN
118 # define HANDLE_WM_LBUTTONDOWN(hwnd, wParam, lParam, fn) \
119 ((fn)((hwnd), FALSE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
121 # ifndef HANDLE_WM_SYSCHAR
122 # define HANDLE_WM_SYSCHAR(hwnd, wParam, lParam, fn) \
123 ((fn)((hwnd), (TCHAR)(wParam), (int)(short)LOWORD(lParam)), 0L)
125 # ifndef HANDLE_WM_ACTIVATEAPP
126 # define HANDLE_WM_ACTIVATEAPP(hwnd, wParam, lParam, fn) \
127 ((fn)((hwnd), (BOOL)(wParam), (DWORD)(lParam)), 0L)
129 # ifndef HANDLE_WM_WINDOWPOSCHANGING
130 # define HANDLE_WM_WINDOWPOSCHANGING(hwnd, wParam, lParam, fn) \
131 (LRESULT)(DWORD)(BOOL)(fn)((hwnd), (LPWINDOWPOS)(lParam))
133 # ifndef HANDLE_WM_VSCROLL
134 # define HANDLE_WM_VSCROLL(hwnd, wParam, lParam, fn) \
135 ((fn)((hwnd), (HWND)(lParam), (UINT)(LOWORD(wParam)), (int)(short)HIWORD(wParam)), 0L)
137 # ifndef HANDLE_WM_SETFOCUS
138 # define HANDLE_WM_SETFOCUS(hwnd, wParam, lParam, fn) \
139 ((fn)((hwnd), (HWND)(wParam)), 0L)
141 # ifndef HANDLE_WM_KILLFOCUS
142 # define HANDLE_WM_KILLFOCUS(hwnd, wParam, lParam, fn) \
143 ((fn)((hwnd), (HWND)(wParam)), 0L)
145 # ifndef HANDLE_WM_HSCROLL
146 # define HANDLE_WM_HSCROLL(hwnd, wParam, lParam, fn) \
147 ((fn)((hwnd), (HWND)(lParam), (UINT)(LOWORD(wParam)), (int)(short)HIWORD(wParam)), 0L)
149 # ifndef HANDLE_WM_DROPFILES
150 # define HANDLE_WM_DROPFILES(hwnd, wParam, lParam, fn) \
151 ((fn)((hwnd), (HDROP)(wParam)), 0L)
153 # ifndef HANDLE_WM_CHAR
154 # define HANDLE_WM_CHAR(hwnd, wParam, lParam, fn) \
155 ((fn)((hwnd), (TCHAR)(wParam), (int)(short)LOWORD(lParam)), 0L)
157 # ifndef HANDLE_WM_SYSDEADCHAR
158 # define HANDLE_WM_SYSDEADCHAR(hwnd, wParam, lParam, fn) \
159 ((fn)((hwnd), (TCHAR)(wParam), (int)(short)LOWORD(lParam)), 0L)
161 # ifndef HANDLE_WM_DEADCHAR
162 # define HANDLE_WM_DEADCHAR(hwnd, wParam, lParam, fn) \
163 ((fn)((hwnd), (TCHAR)(wParam), (int)(short)LOWORD(lParam)), 0L)
165 #endif /* __MINGW32__ */
168 /* Some parameters for tearoff menus. All in pixels. */
169 #define TEAROFF_PADDING_X 2
170 #define TEAROFF_BUTTON_PAD_X 8
171 #define TEAROFF_MIN_WIDTH 200
172 #define TEAROFF_SUBMENU_LABEL ">>"
173 #define TEAROFF_COLUMN_PADDING 3 // # spaces to pad column with.
176 /* For the Intellimouse: */
177 #ifndef WM_MOUSEWHEEL
178 #define WM_MOUSEWHEEL 0x20a
183 # define ID_BEVAL_TOOLTIP 200
184 # define BEVAL_TEXT_LEN MAXPATHL
187 /* Work around old versions of basetsd.h which wrongly declare
188 * UINT_PTR as unsigned long */
189 # define UINT_PTR UINT
192 static void make_tooltip
__ARGS((BalloonEval
*beval
, char *text
, POINT pt
));
193 static void delete_tooltip
__ARGS((BalloonEval
*beval
));
194 static VOID CALLBACK BevalTimerProc
__ARGS((HWND hwnd
, UINT uMsg
, UINT_PTR idEvent
, DWORD dwTime
));
196 static BalloonEval
*cur_beval
= NULL
;
197 static UINT_PTR BevalTimerId
= 0;
198 static DWORD LastActivity
= 0;
201 * excerpts from headers since this may not be presented
202 * in the extremely old compilers
204 #include <pshpack1.h>
206 typedef struct _DllVersionInfo
209 DWORD dwMajorVersion
;
210 DWORD dwMinorVersion
;
215 typedef struct tagTOOLINFOA_NEW
227 typedef struct tagNMTTDISPINFO_NEW
239 typedef HRESULT (WINAPI
* DLLGETVERSIONPROC
)(DLLVERSIONINFO
*);
240 #ifndef TTM_SETMAXTIPWIDTH
241 # define TTM_SETMAXTIPWIDTH (WM_USER+24)
244 #ifndef TTF_DI_SETITEM
245 # define TTF_DI_SETITEM 0x8000
248 #ifndef TTN_GETDISPINFO
249 # define TTN_GETDISPINFO (TTN_FIRST - 0)
252 #endif /* defined(FEAT_BEVAL) */
254 #if defined(FEAT_TOOLBAR) || defined(FEAT_GUI_TABLINE)
255 /* Older MSVC compilers don't have LPNMTTDISPINFO[AW] thus we need to define
256 * it here if LPNMTTDISPINFO isn't defined.
257 * MingW doesn't define LPNMTTDISPINFO but typedefs it. Thus we need to check
259 # if !defined(LPNMTTDISPINFO) && defined(_MSC_VER)
260 typedef struct tagNMTTDISPINFOA
{
267 } NMTTDISPINFOA
, *LPNMTTDISPINFOA
;
268 # define LPNMTTDISPINFO LPNMTTDISPINFOA
271 typedef struct tagNMTTDISPINFOW
{
278 } NMTTDISPINFOW
, *LPNMTTDISPINFOW
;
283 #ifndef TTN_GETDISPINFOW
284 # define TTN_GETDISPINFOW (TTN_FIRST - 10)
287 /* Local variables: */
290 static UINT s_menu_id
= 100;
293 * Use the system font for dialogs and tear-off menus. Remove this line to
296 # define USE_SYSMENU_FONT
299 #define VIM_NAME "vim"
300 #define VIM_CLASS "Vim"
301 #define VIM_CLASSW L"Vim"
303 /* Initial size for the dialog template. For gui_mch_dialog() it's fixed,
304 * thus there should be room for every dialog. For tearoffs it's made bigger
306 #define DLG_ALLOC_SIZE 16 * 1024
309 * stuff for dialogs, menus, tearoffs etc.
311 static LRESULT APIENTRY
dialog_callback(HWND
, UINT
, WPARAM
, LPARAM
);
312 static LRESULT APIENTRY
tearoff_callback(HWND
, UINT
, WPARAM
, LPARAM
);
323 const char *caption
);
324 static LPWORD
lpwAlign(LPWORD
);
325 static int nCopyAnsiToWideChar(LPWORD
, LPSTR
);
326 static void gui_mch_tearoff(char_u
*title
, vimmenu_T
*menu
, int initX
, int initY
);
327 static void get_dialog_font_metrics(void);
329 static int dialog_default_button
= -1;
331 /* Intellimouse support */
332 static int mouse_scroll_lines
= 0;
333 static UINT msh_msgmousewheel
= 0;
335 static int s_usenewlook
; /* emulate W95/NT4 non-bold dialogs */
337 static void initialise_toolbar(void);
338 static int get_toolbar_bitmap(vimmenu_T
*menu
);
341 #ifdef FEAT_GUI_TABLINE
342 static void initialise_tabline(void);
345 #ifdef FEAT_MBYTE_IME
346 static LRESULT
_OnImeComposition(HWND hwnd
, WPARAM dbcs
, LPARAM param
);
347 static char_u
*GetResultStr(HWND hwnd
, int GCS
, int *lenp
);
349 #if defined(FEAT_MBYTE_IME) && defined(DYNAMIC_IME)
351 typedef struct tagCOMPOSITIONFORM
{
355 } COMPOSITIONFORM
, *PCOMPOSITIONFORM
, NEAR
*NPCOMPOSITIONFORM
, FAR
*LPCOMPOSITIONFORM
;
359 static HINSTANCE hLibImm
= NULL
;
360 static LONG (WINAPI
*pImmGetCompositionStringA
)(HIMC
, DWORD
, LPVOID
, DWORD
);
361 static LONG (WINAPI
*pImmGetCompositionStringW
)(HIMC
, DWORD
, LPVOID
, DWORD
);
362 static HIMC (WINAPI
*pImmGetContext
)(HWND
);
363 static HIMC (WINAPI
*pImmAssociateContext
)(HWND
, HIMC
);
364 static BOOL (WINAPI
*pImmReleaseContext
)(HWND
, HIMC
);
365 static BOOL (WINAPI
*pImmGetOpenStatus
)(HIMC
);
366 static BOOL (WINAPI
*pImmSetOpenStatus
)(HIMC
, BOOL
);
367 static BOOL (WINAPI
*pImmGetCompositionFont
)(HIMC
, LPLOGFONTA
);
368 static BOOL (WINAPI
*pImmSetCompositionFont
)(HIMC
, LPLOGFONTA
);
369 static BOOL (WINAPI
*pImmSetCompositionWindow
)(HIMC
, LPCOMPOSITIONFORM
);
370 static BOOL (WINAPI
*pImmGetConversionStatus
)(HIMC
, LPDWORD
, LPDWORD
);
371 static BOOL (WINAPI
*pImmSetConversionStatus
)(HIMC
, DWORD
, DWORD
);
372 static void dyn_imm_load(void);
374 # define pImmGetCompositionStringA ImmGetCompositionStringA
375 # define pImmGetCompositionStringW ImmGetCompositionStringW
376 # define pImmGetContext ImmGetContext
377 # define pImmAssociateContext ImmAssociateContext
378 # define pImmReleaseContext ImmReleaseContext
379 # define pImmGetOpenStatus ImmGetOpenStatus
380 # define pImmSetOpenStatus ImmSetOpenStatus
381 # define pImmGetCompositionFont ImmGetCompositionFontA
382 # define pImmSetCompositionFont ImmSetCompositionFontA
383 # define pImmSetCompositionWindow ImmSetCompositionWindow
384 # define pImmGetConversionStatus ImmGetConversionStatus
385 # define pImmSetConversionStatus ImmSetConversionStatus
388 #ifndef ETO_IGNORELANGUAGE
389 # define ETO_IGNORELANGUAGE 0x1000
392 /* multi monitor support */
393 typedef struct _MONITORINFOstruct
401 typedef HANDLE _HMONITOR
;
402 typedef _HMONITOR (WINAPI
*TMonitorFromWindow
)(HWND
, DWORD
);
403 typedef BOOL (WINAPI
*TGetMonitorInfo
)(_HMONITOR
, _MONITORINFO
*);
405 static TMonitorFromWindow pMonitorFromWindow
= NULL
;
406 static TGetMonitorInfo pGetMonitorInfo
= NULL
;
407 static HANDLE user32_lib
= NULL
;
408 #ifdef FEAT_NETBEANS_INTG
409 int WSInitialized
= FALSE
; /* WinSock is initialized */
412 * Return TRUE when running under Windows NT 3.x or Win32s, both of which have
413 * less fancy GUI APIs.
418 return ((os_version
.dwPlatformId
== VER_PLATFORM_WIN32_NT
419 && os_version
.dwMajorVersion
== 3)
420 || (os_version
.dwPlatformId
== VER_PLATFORM_WIN32s
));
424 * Return TRUE when running under Win32s.
429 return (os_version
.dwPlatformId
== VER_PLATFORM_WIN32s
);
434 * Figure out how high the menu bar is at the moment.
437 gui_mswin_get_menu_height(
438 int fix_window
) /* If TRUE, resize window if menu height changed */
440 static int old_menu_height
= -1;
446 if (gui
.menu_is_active
)
447 num
= GetMenuItemCount(s_menuBar
);
455 if (is_winnt_3()) /* for NT 3.xx */
458 menu_height
= GetSystemMetrics(SM_CYMENU
);
462 int frameht
= GetSystemMetrics(SM_CYFRAME
);
463 int capht
= GetSystemMetrics(SM_CYCAPTION
);
465 /* get window rect of s_hwnd
466 * get client rect of s_hwnd
468 * subtract from window rect, the sum of client height,
469 * (if not maximized)frame thickness, and caption height.
471 GetWindowRect(s_hwnd
, &r1
);
472 GetClientRect(s_hwnd
, &r2
);
473 menu_height
= r1
.bottom
- r1
.top
- (r2
.bottom
- r2
.top
474 + 2 * frameht
* (!IsZoomed(s_hwnd
)) + capht
);
477 else /* win95 and variants (NT 4.0, I guess) */
480 * In case 'lines' is set in _vimrc/_gvimrc window width doesn't
481 * seem to have been set yet, so menu wraps in default window
482 * width which is very narrow. Instead just return height of a
483 * single menu item. Will still be wrong when the menu really
484 * should wrap over more than one line.
486 GetMenuItemRect(s_hwnd
, s_menuBar
, 0, &rc1
);
488 menu_height
= rc1
.bottom
- rc1
.top
+ 1;
491 GetMenuItemRect(s_hwnd
, s_menuBar
, num
- 1, &rc2
);
492 menu_height
= rc2
.bottom
- rc1
.top
+ 1;
497 if (fix_window
&& menu_height
!= old_menu_height
)
499 old_menu_height
= menu_height
;
500 gui_set_shellsize(FALSE
, FALSE
, RESIZE_VERT
);
509 * Setup for the Intellimouse
512 init_mouse_wheel(void)
515 #ifndef SPI_GETWHEELSCROLLLINES
516 # define SPI_GETWHEELSCROLLLINES 104
518 #ifndef SPI_SETWHEELSCROLLLINES
519 # define SPI_SETWHEELSCROLLLINES 105
522 #define VMOUSEZ_CLASSNAME "MouseZ" /* hidden wheel window class */
523 #define VMOUSEZ_TITLE "Magellan MSWHEEL" /* hidden wheel window title */
524 #define VMSH_MOUSEWHEEL "MSWHEEL_ROLLMSG"
525 #define VMSH_SCROLL_LINES "MSH_SCROLL_LINES_MSG"
528 UINT msh_msgscrolllines
;
530 msh_msgmousewheel
= 0;
531 mouse_scroll_lines
= 3; /* reasonable default */
533 if ((os_version
.dwPlatformId
== VER_PLATFORM_WIN32_NT
534 && os_version
.dwMajorVersion
>= 4)
535 || (os_version
.dwPlatformId
== VER_PLATFORM_WIN32_WINDOWS
536 && ((os_version
.dwMajorVersion
== 4
537 && os_version
.dwMinorVersion
>= 10)
538 || os_version
.dwMajorVersion
>= 5)))
540 /* if NT 4.0+ (or Win98) get scroll lines directly from system */
541 SystemParametersInfo(SPI_GETWHEELSCROLLLINES
, 0,
542 &mouse_scroll_lines
, 0);
544 else if (os_version
.dwPlatformId
== VER_PLATFORM_WIN32_WINDOWS
545 || (os_version
.dwPlatformId
== VER_PLATFORM_WIN32_NT
546 && os_version
.dwMajorVersion
< 4))
548 * If Win95 or NT 3.51,
549 * try to find the hidden point32 window.
551 hdl_mswheel
= FindWindow(VMOUSEZ_CLASSNAME
, VMOUSEZ_TITLE
);
554 msh_msgscrolllines
= RegisterWindowMessage(VMSH_SCROLL_LINES
);
555 if (msh_msgscrolllines
)
557 mouse_scroll_lines
= (int)SendMessage(hdl_mswheel
,
558 msh_msgscrolllines
, 0, 0);
559 msh_msgmousewheel
= RegisterWindowMessage(VMSH_MOUSEWHEEL
);
566 /* Intellimouse wheel handler */
572 /* Treat a mouse wheel event as if it were a scroll request */
577 if (curwin
->w_scrollbars
[SBAR_RIGHT
].id
!= 0)
579 hwndCtl
= curwin
->w_scrollbars
[SBAR_RIGHT
].id
;
580 size
= curwin
->w_scrollbars
[SBAR_RIGHT
].size
;
582 else if (curwin
->w_scrollbars
[SBAR_LEFT
].id
!= 0)
584 hwndCtl
= curwin
->w_scrollbars
[SBAR_LEFT
].id
;
585 size
= curwin
->w_scrollbars
[SBAR_LEFT
].size
;
590 size
= curwin
->w_height
;
591 if (mouse_scroll_lines
== 0)
594 if (mouse_scroll_lines
> 0
595 && mouse_scroll_lines
< (size
> 2 ? size
- 2 : 1))
597 for (i
= mouse_scroll_lines
; i
> 0; --i
)
598 _OnScroll(hwnd
, hwndCtl
, zDelta
>= 0 ? SB_LINEUP
: SB_LINEDOWN
, 0);
601 _OnScroll(hwnd
, hwndCtl
, zDelta
>= 0 ? SB_PAGEUP
: SB_PAGEDOWN
, 0);
604 #ifdef USE_SYSMENU_FONT
610 gui_w32_get_menu_font(LOGFONT
*lf
)
614 nm
.cbSize
= sizeof(NONCLIENTMETRICS
);
615 if (!SystemParametersInfo(
616 SPI_GETNONCLIENTMETRICS
,
617 sizeof(NONCLIENTMETRICS
),
627 #if defined(FEAT_GUI_TABLINE) && defined(USE_SYSMENU_FONT)
629 * Set the GUI tabline font to the system menu font
632 set_tabline_font(void)
641 if (gui_w32_get_menu_font(&lfSysmenu
) != OK
)
644 font
= CreateFontIndirect(&lfSysmenu
);
646 SendMessage(s_tabhwnd
, WM_SETFONT
, (WPARAM
)font
, TRUE
);
649 * Compute the height of the font used for the tab text
651 hwnd
= GetDesktopWindow();
652 hdc
= GetWindowDC(hwnd
);
653 hfntOld
= SelectFont(hdc
, font
);
655 GetTextMetrics(hdc
, &tm
);
657 SelectFont(hdc
, hfntOld
);
658 ReleaseDC(hwnd
, hdc
);
661 * The space used by the tab border and the space between the tab label
662 * and the tab border is included as 7.
664 gui
.tabline_height
= tm
.tmHeight
+ tm
.tmInternalLeading
+ 7;
669 * Invoked when a setting was changed.
671 static LRESULT CALLBACK
672 _OnSettingChange(UINT n
)
674 if (n
== SPI_SETWHEELSCROLLLINES
)
675 SystemParametersInfo(SPI_GETWHEELSCROLLLINES
, 0,
676 &mouse_scroll_lines
, 0);
677 #if defined(FEAT_GUI_TABLINE) && defined(USE_SYSMENU_FONT)
678 if (n
== SPI_SETNONCLIENTMETRICS
)
684 #if 0 /* disabled, a gap appears below and beside the window, and the window
685 can be moved (in a strange way) */
687 * Even though we have _DuringSizing() which makes the rubber band a valid
688 * size, we need this for when the user maximises the window.
689 * TODO: Doesn't seem to adjust the width though for some reason.
692 _OnWindowPosChanging(
698 if (!(lpwpos
->flags
& SWP_NOSIZE
))
700 if (IsMaximized(hwnd
)
701 && (os_version
.dwPlatformId
== VER_PLATFORM_WIN32_WINDOWS
702 || (os_version
.dwPlatformId
== VER_PLATFORM_WIN32_NT
703 && os_version
.dwMajorVersion
>= 4)))
705 SystemParametersInfo(SPI_GETWORKAREA
, 0, &workarea_rect
, 0);
706 lpwpos
->x
= workarea_rect
.left
;
707 lpwpos
->y
= workarea_rect
.top
;
708 lpwpos
->cx
= workarea_rect
.right
- workarea_rect
.left
;
709 lpwpos
->cy
= workarea_rect
.bottom
- workarea_rect
.top
;
711 gui_mswin_get_valid_dimensions(lpwpos
->cx
, lpwpos
->cy
,
712 &lpwpos
->cx
, &lpwpos
->cy
);
718 #ifdef FEAT_NETBEANS_INTG
722 const LPWINDOWPOS lpwpos
)
724 static int x
= 0, y
= 0, cx
= 0, cy
= 0;
726 if (WSInitialized
&& (lpwpos
->x
!= x
|| lpwpos
->y
!= y
727 || lpwpos
->cx
!= cx
|| lpwpos
->cy
!= cy
))
733 netbeans_frame_moved(x
, y
);
735 /* Allow to send WM_SIZE and WM_MOVE */
736 FORWARD_WM_WINDOWPOSCHANGED(hwnd
, lpwpos
, MyWindowProc
);
746 int valid_w
, valid_h
;
747 int w_offset
, h_offset
;
749 w
= lprc
->right
- lprc
->left
;
750 h
= lprc
->bottom
- lprc
->top
;
751 gui_mswin_get_valid_dimensions(w
, h
, &valid_w
, &valid_h
);
752 w_offset
= w
- valid_w
;
753 h_offset
= h
- valid_h
;
755 if (fwSide
== WMSZ_LEFT
|| fwSide
== WMSZ_TOPLEFT
756 || fwSide
== WMSZ_BOTTOMLEFT
)
757 lprc
->left
+= w_offset
;
758 else if (fwSide
== WMSZ_RIGHT
|| fwSide
== WMSZ_TOPRIGHT
759 || fwSide
== WMSZ_BOTTOMRIGHT
)
760 lprc
->right
-= w_offset
;
762 if (fwSide
== WMSZ_TOP
|| fwSide
== WMSZ_TOPLEFT
763 || fwSide
== WMSZ_TOPRIGHT
)
764 lprc
->top
+= h_offset
;
765 else if (fwSide
== WMSZ_BOTTOM
|| fwSide
== WMSZ_BOTTOMLEFT
766 || fwSide
== WMSZ_BOTTOMRIGHT
)
767 lprc
->bottom
-= h_offset
;
773 static LRESULT CALLBACK
781 TRACE("WndProc: hwnd = %08x, msg = %x, wParam = %x, lParam = %x\n",
782 hwnd, uMsg, wParam, lParam);
785 HandleMouseHide(uMsg
, lParam
);
793 HANDLE_MSG(hwnd
, WM_DEADCHAR
, _OnDeadChar
);
794 HANDLE_MSG(hwnd
, WM_SYSDEADCHAR
, _OnDeadChar
);
795 /* HANDLE_MSG(hwnd, WM_ACTIVATE, _OnActivate); */
796 HANDLE_MSG(hwnd
, WM_CLOSE
, _OnClose
);
797 /* HANDLE_MSG(hwnd, WM_COMMAND, _OnCommand); */
798 HANDLE_MSG(hwnd
, WM_DESTROY
, _OnDestroy
);
799 HANDLE_MSG(hwnd
, WM_DROPFILES
, _OnDropFiles
);
800 HANDLE_MSG(hwnd
, WM_HSCROLL
, _OnScroll
);
801 HANDLE_MSG(hwnd
, WM_KILLFOCUS
, _OnKillFocus
);
803 HANDLE_MSG(hwnd
, WM_COMMAND
, _OnMenu
);
805 /* HANDLE_MSG(hwnd, WM_MOVE, _OnMove); */
806 /* HANDLE_MSG(hwnd, WM_NCACTIVATE, _OnNCActivate); */
807 HANDLE_MSG(hwnd
, WM_SETFOCUS
, _OnSetFocus
);
808 HANDLE_MSG(hwnd
, WM_SIZE
, _OnSize
);
809 /* HANDLE_MSG(hwnd, WM_SYSCOMMAND, _OnSysCommand); */
810 /* HANDLE_MSG(hwnd, WM_SYSKEYDOWN, _OnAltKey); */
811 HANDLE_MSG(hwnd
, WM_VSCROLL
, _OnScroll
);
812 // HANDLE_MSG(hwnd, WM_WINDOWPOSCHANGING, _OnWindowPosChanging);
813 HANDLE_MSG(hwnd
, WM_ACTIVATEAPP
, _OnActivateApp
);
814 #ifdef FEAT_NETBEANS_INTG
815 HANDLE_MSG(hwnd
, WM_WINDOWPOSCHANGED
, _OnWindowPosChanged
);
818 #ifdef FEAT_GUI_TABLINE
821 if (gui_mch_showing_tabline())
827 * If the cursor is on the tabline, display the tab menu
829 GetCursorPos((LPPOINT
)&pt
);
830 GetWindowRect(s_textArea
, &rect
);
833 show_tabline_popup_menu();
837 return MyWindowProc(hwnd
, uMsg
, wParam
, lParam
);
839 case WM_LBUTTONDBLCLK
:
842 * If the user double clicked the tabline, create a new tab
844 if (gui_mch_showing_tabline())
849 GetCursorPos((LPPOINT
)&pt
);
850 GetWindowRect(s_textArea
, &rect
);
852 send_tabline_menu_event(0, TABLINE_MENU_NEW
);
854 return MyWindowProc(hwnd
, uMsg
, wParam
, lParam
);
858 case WM_QUERYENDSESSION
: /* System wants to go down. */
859 gui_shell_closed(); /* Will exit when no changed buffers. */
860 return FALSE
; /* Do NOT allow system to go down. */
863 if (wParam
) /* system only really goes down when wParam is TRUE */
868 /* Don't use HANDLE_MSG() for WM_CHAR, it truncates wParam to a single
869 * byte while we want the UTF-16 character value. */
870 _OnChar(hwnd
, (UINT
)wParam
, (int)(short)LOWORD(lParam
));
875 * if 'winaltkeys' is "no", or it's "menu" and it's not a menu
876 * shortcut key, handle like a typed ALT key, otherwise call Windows
880 if ( !gui
.menu_is_active
882 || (p_wak
[0] == 'm' && !gui_is_menu_shortcut((int)wParam
))
886 _OnSysChar(hwnd
, (UINT
)wParam
, (int)(short)LOWORD(lParam
));
891 return MyWindowProc(hwnd
, uMsg
, wParam
, lParam
);
896 /* This used to be done only when menu is active: ALT key is used for
897 * that. But that caused problems when menu is disabled and using
898 * Alt-Tab-Esc: get into a strange state where no mouse-moved events
899 * are received, mouse pointer remains hidden. */
900 return MyWindowProc(hwnd
, uMsg
, wParam
, lParam
);
905 case WM_SIZING
: /* HANDLE_MSG doesn't seem to handle this one */
906 return _DuringSizing((UINT
)wParam
, (LPRECT
)lParam
);
909 _OnMouseWheel(hwnd
, HIWORD(wParam
));
912 /* Notification for change in SystemParametersInfo() */
913 case WM_SETTINGCHANGE
:
914 return _OnSettingChange((UINT
)wParam
);
916 #if defined(FEAT_TOOLBAR) || defined(FEAT_GUI_TABLINE)
918 switch (((LPNMHDR
) lParam
)->code
)
921 case TTN_GETDISPINFOW
:
923 case TTN_GETDISPINFO
:
925 LPNMHDR hdr
= (LPNMHDR
)lParam
;
927 static void *tt_text
= NULL
;
932 # ifdef FEAT_GUI_TABLINE
933 if (gui_mch_showing_tabline()
934 && hdr
->hwndFrom
== TabCtrl_GetToolTips(s_tabhwnd
))
938 * Mouse is over the GUI tabline. Display the
939 * tooltip for the tab under the cursor
941 * Get the cursor position within the tab control
944 if (ScreenToClient(s_tabhwnd
, &pt
) != 0)
946 TCHITTESTINFO htinfo
;
950 * Get the tab under the cursor
954 idx
= TabCtrl_HitTest(s_tabhwnd
, &htinfo
);
959 tp
= find_tabpage(idx
+ 1);
962 get_tabline_label(tp
, TRUE
);
970 # ifdef FEAT_GUI_TABLINE
977 idButton
= (UINT
) hdr
->idFrom
;
978 pMenu
= gui_mswin_find_menu(root_menu
, idButton
);
980 str
= pMenu
->strings
[MENU_INDEX_TIP
];
986 if (hdr
->code
== TTN_GETDISPINFOW
)
988 LPNMTTDISPINFOW lpdi
= (LPNMTTDISPINFOW
)lParam
;
990 tt_text
= enc_to_ucs2(str
, NULL
);
991 lpdi
->lpszText
= tt_text
;
992 /* can't show tooltip if failed */
997 LPNMTTDISPINFO lpdi
= (LPNMTTDISPINFO
)lParam
;
999 if (STRLEN(str
) < sizeof(lpdi
->szText
)
1000 || ((tt_text
= vim_strsave(str
)) == NULL
))
1001 vim_strncpy(lpdi
->szText
, str
,
1002 sizeof(lpdi
->szText
) - 1);
1004 lpdi
->lpszText
= tt_text
;
1009 # ifdef FEAT_GUI_TABLINE
1011 if (gui_mch_showing_tabline()
1012 && ((LPNMHDR
)lParam
)->hwndFrom
== s_tabhwnd
)
1013 send_tabline_event(TabCtrl_GetCurSel(s_tabhwnd
) + 1);
1017 if (gui_mch_showing_tabline()
1018 && ((LPNMHDR
)lParam
)->hwndFrom
== s_tabhwnd
)
1019 show_tabline_popup_menu();
1023 # ifdef FEAT_GUI_TABLINE
1024 if (gui_mch_showing_tabline()
1025 && ((LPNMHDR
)lParam
)->hwndFrom
== s_tabhwnd
)
1026 return MyWindowProc(hwnd
, uMsg
, wParam
, lParam
);
1032 #if defined(MENUHINTS) && defined(FEAT_MENU)
1034 if (((UINT
) HIWORD(wParam
)
1035 & (0xffff ^ (MF_MOUSESELECT
+ MF_BITMAP
+ MF_POPUP
)))
1037 && (State
& CMDLINE
) == 0)
1041 static int did_menu_tip
= FALSE
;
1048 did_menu_tip
= FALSE
;
1051 idButton
= (UINT
)LOWORD(wParam
);
1052 pMenu
= gui_mswin_find_menu(root_menu
, idButton
);
1053 if (pMenu
!= NULL
&& pMenu
->strings
[MENU_INDEX_TIP
] != 0
1054 && GetMenuState(s_menuBar
, pMenu
->id
, MF_BYCOMMAND
) != -1)
1057 msg(pMenu
->strings
[MENU_INDEX_TIP
]);
1061 did_menu_tip
= TRUE
;
1070 int xPos
= GET_X_LPARAM(lParam
);
1072 result
= MyWindowProc(hwnd
, uMsg
, wParam
, lParam
);
1073 if (result
== HTCLIENT
)
1075 #ifdef FEAT_GUI_TABLINE
1076 if (gui_mch_showing_tabline())
1078 int yPos
= GET_Y_LPARAM(lParam
);
1081 /* If the cursor is on the GUI tabline, don't process this
1083 GetWindowRect(s_textArea
, &rct
);
1088 gui_mch_get_winpos(&x
, &y
);
1091 if (xPos
< 48) /* <VN> TODO should use system metric? */
1092 return HTBOTTOMLEFT
;
1094 return HTBOTTOMRIGHT
;
1099 /* break; notreached */
1101 #ifdef FEAT_MBYTE_IME
1103 if (!_OnImeNotify(hwnd
, (DWORD
)wParam
, (DWORD
)lParam
))
1104 return MyWindowProc(hwnd
, uMsg
, wParam
, lParam
);
1106 case WM_IME_COMPOSITION
:
1107 if (!_OnImeComposition(hwnd
, wParam
, lParam
))
1108 return MyWindowProc(hwnd
, uMsg
, wParam
, lParam
);
1113 if (uMsg
== msh_msgmousewheel
&& msh_msgmousewheel
!= 0)
1114 { /* handle MSH_MOUSEWHEEL messages for Intellimouse */
1115 _OnMouseWheel(hwnd
, HIWORD(wParam
));
1118 #ifdef MSWIN_FIND_REPLACE
1119 else if (uMsg
== s_findrep_msg
&& s_findrep_msg
!= 0)
1124 return MyWindowProc(hwnd
, uMsg
, wParam
, lParam
);
1131 * End of call-back routines
1134 /* parent window, if specified with -P */
1135 HWND vim_parent_hwnd
= NULL
;
1137 static BOOL CALLBACK
1138 FindWindowTitle(HWND hwnd
, LPARAM lParam
)
1141 char *title
= (char *)lParam
;
1143 if (GetWindowText(hwnd
, buf
, sizeof(buf
)))
1145 if (strstr(buf
, title
) != NULL
)
1147 /* Found it. Store the window ref. and quit searching if MDI
1149 vim_parent_hwnd
= FindWindowEx(hwnd
, NULL
, "MDIClient", NULL
);
1150 if (vim_parent_hwnd
!= NULL
)
1154 return TRUE
; /* continue searching */
1158 * Invoked for '-P "title"' argument: search for parent application to open
1162 gui_mch_set_parent(char *title
)
1164 EnumWindows(FindWindowTitle
, (LPARAM
)title
);
1165 if (vim_parent_hwnd
== NULL
)
1167 EMSG2(_("E671: Cannot find window title \"%s\""), title
);
1174 ole_error(char *arg
)
1178 /* Can't use EMSG() here, we have not finished initialisation yet. */
1179 vim_snprintf(buf
, IOSIZE
,
1180 _("E243: Argument not supported: \"-%s\"; Use the OLE version."),
1187 * Parse the GUI related command-line arguments. Any arguments used are
1188 * deleted from argv, and *argc is decremented accordingly. This is called
1189 * when vim is started, whether or not the GUI has been started.
1192 gui_mch_prepare(int *argc
, char **argv
)
1197 /* Check for special OLE command line parameters */
1198 if ((*argc
== 2 || *argc
== 3) && (argv
[1][0] == '-' || argv
[1][0] == '/'))
1200 /* Check for a "-silent" argument first. */
1201 if (*argc
== 3 && STRICMP(argv
[1] + 1, "silent") == 0
1202 && (argv
[2][0] == '-' || argv
[2][0] == '/'))
1210 /* Register Vim as an OLE Automation server */
1211 if (STRICMP(argv
[idx
] + 1, "register") == 0)
1218 ole_error("register");
1223 /* Unregister Vim as an OLE Automation server */
1224 if (STRICMP(argv
[idx
] + 1, "unregister") == 0)
1227 UnregisterMe(!silent
);
1231 ole_error("unregister");
1236 /* Ignore an -embedding argument. It is only relevant if the
1237 * application wants to treat the case when it is started manually
1238 * differently from the case where it is started via automation (and
1241 if (STRICMP(argv
[idx
] + 1, "embedding") == 0)
1246 ole_error("embedding");
1254 int bDoRestart
= FALSE
;
1256 InitOLE(&bDoRestart
);
1257 /* automatically exit after registering */
1263 #ifdef FEAT_NETBEANS_INTG
1265 /* stolen from gui_x11.x */
1268 for (arg
= 1; arg
< *argc
; arg
++)
1269 if (strncmp("-nb", argv
[arg
], 3) == 0)
1272 netbeansArg
= argv
[arg
];
1273 mch_memmove(&argv
[arg
], &argv
[arg
+ 1],
1274 (--*argc
- arg
) * sizeof(char *));
1276 break; /* enough? */
1285 wsaerr
= WSAStartup(MAKEWORD(2, 2), &wsaData
);
1287 WSInitialized
= TRUE
;
1292 /* get the OS version info */
1293 os_version
.dwOSVersionInfoSize
= sizeof(os_version
);
1294 GetVersionEx(&os_version
); /* this call works on Win32s, Win95 and WinNT */
1296 /* try and load the user32.dll library and get the entry points for
1297 * multi-monitor-support. */
1298 if ((user32_lib
= LoadLibrary("User32.dll")) != NULL
)
1300 pMonitorFromWindow
= (TMonitorFromWindow
)GetProcAddress(user32_lib
,
1301 "MonitorFromWindow");
1303 /* there are ...A and ...W version of GetMonitorInfo - looking at
1304 * winuser.h, they have exactly the same declaration. */
1305 pGetMonitorInfo
= (TGetMonitorInfo
)GetProcAddress(user32_lib
,
1311 * Initialise the GUI. Create all the windows, set up all the call-backs
1317 const char szVimWndClass
[] = VIM_CLASS
;
1318 const char szTextAreaClass
[] = "VimTextArea";
1321 const WCHAR szVimWndClassW
[] = VIM_CLASSW
;
1322 WNDCLASSW wndclassw
;
1328 /* Return here if the window was already opened (happens when
1329 * gui_mch_dialog() is called early). */
1334 * Load the tearoff bitmap
1337 s_htearbitmap
= LoadBitmap(s_hinst
, "IDB_TEAROFF");
1340 gui
.scrollbar_width
= GetSystemMetrics(SM_CXVSCROLL
);
1341 gui
.scrollbar_height
= GetSystemMetrics(SM_CYHSCROLL
);
1343 gui
.menu_height
= 0; /* Windows takes care of this */
1345 gui
.border_width
= 0;
1347 s_brush
= CreateSolidBrush(GetSysColor(COLOR_BTNFACE
));
1350 /* First try using the wide version, so that we can use any title.
1351 * Otherwise only characters in the active codepage will work. */
1352 if (GetClassInfoW(s_hinst
, szVimWndClassW
, &wndclassw
) == 0)
1354 wndclassw
.style
= CS_DBLCLKS
;
1355 wndclassw
.lpfnWndProc
= _WndProc
;
1356 wndclassw
.cbClsExtra
= 0;
1357 wndclassw
.cbWndExtra
= 0;
1358 wndclassw
.hInstance
= s_hinst
;
1359 wndclassw
.hIcon
= LoadIcon(wndclassw
.hInstance
, "IDR_VIM");
1360 wndclassw
.hCursor
= LoadCursor(NULL
, IDC_ARROW
);
1361 wndclassw
.hbrBackground
= s_brush
;
1362 wndclassw
.lpszMenuName
= NULL
;
1363 wndclassw
.lpszClassName
= szVimWndClassW
;
1369 RegisterClassW(&wndclassw
)) == 0)
1371 if (GetLastError() != ERROR_CALL_NOT_IMPLEMENTED
)
1374 /* Must be Windows 98, fall back to non-wide function. */
1377 wide_WindowProc
= TRUE
;
1380 if (!wide_WindowProc
)
1383 if (GetClassInfo(s_hinst
, szVimWndClass
, &wndclass
) == 0)
1385 wndclass
.style
= CS_DBLCLKS
;
1386 wndclass
.lpfnWndProc
= _WndProc
;
1387 wndclass
.cbClsExtra
= 0;
1388 wndclass
.cbWndExtra
= 0;
1389 wndclass
.hInstance
= s_hinst
;
1390 wndclass
.hIcon
= LoadIcon(wndclass
.hInstance
, "IDR_VIM");
1391 wndclass
.hCursor
= LoadCursor(NULL
, IDC_ARROW
);
1392 wndclass
.hbrBackground
= s_brush
;
1393 wndclass
.lpszMenuName
= NULL
;
1394 wndclass
.lpszClassName
= szVimWndClass
;
1400 RegisterClass(&wndclass
)) == 0)
1404 if (vim_parent_hwnd
!= NULL
)
1406 #ifdef HAVE_TRY_EXCEPT
1410 /* Open inside the specified parent window.
1411 * TODO: last argument should point to a CLIENTCREATESTRUCT
1413 s_hwnd
= CreateWindowEx(
1415 szVimWndClass
, "Vim MSWindows GUI",
1416 WS_OVERLAPPEDWINDOW
| WS_CHILD
| WS_CLIPSIBLINGS
| 0xC000,
1417 gui_win_x
== -1 ? CW_USEDEFAULT
: gui_win_x
,
1418 gui_win_y
== -1 ? CW_USEDEFAULT
: gui_win_y
,
1419 100, /* Any value will do */
1420 100, /* Any value will do */
1421 vim_parent_hwnd
, NULL
,
1423 #ifdef HAVE_TRY_EXCEPT
1425 __except(EXCEPTION_EXECUTE_HANDLER
)
1432 EMSG(_("E672: Unable to open window inside MDI application"));
1438 /* If the provided windowid is not valid reset it to zero, so that it
1439 * is ignored and we open our own window. */
1440 if (IsWindow((HWND
)win_socket_id
) <= 0)
1443 /* Create a window. If win_socket_id is not zero without border and
1444 * titlebar, it will be reparented below. */
1445 s_hwnd
= CreateWindow(
1446 szVimWndClass
, "Vim MSWindows GUI",
1447 win_socket_id
== 0 ? WS_OVERLAPPEDWINDOW
: WS_POPUP
,
1448 gui_win_x
== -1 ? CW_USEDEFAULT
: gui_win_x
,
1449 gui_win_y
== -1 ? CW_USEDEFAULT
: gui_win_y
,
1450 100, /* Any value will do */
1451 100, /* Any value will do */
1454 if (s_hwnd
!= NULL
&& win_socket_id
!= 0)
1456 SetParent(s_hwnd
, (HWND
)win_socket_id
);
1457 ShowWindow(s_hwnd
, SW_SHOWMAXIMIZED
);
1465 global_ime_init(atom
, s_hwnd
);
1467 #if defined(FEAT_MBYTE_IME) && defined(DYNAMIC_IME)
1471 /* Create the text area window */
1472 if (GetClassInfo(s_hinst
, szTextAreaClass
, &wndclass
) == 0)
1474 wndclass
.style
= CS_OWNDC
;
1475 wndclass
.lpfnWndProc
= _TextAreaWndProc
;
1476 wndclass
.cbClsExtra
= 0;
1477 wndclass
.cbWndExtra
= 0;
1478 wndclass
.hInstance
= s_hinst
;
1479 wndclass
.hIcon
= NULL
;
1480 wndclass
.hCursor
= LoadCursor(NULL
, IDC_ARROW
);
1481 wndclass
.hbrBackground
= NULL
;
1482 wndclass
.lpszMenuName
= NULL
;
1483 wndclass
.lpszClassName
= szTextAreaClass
;
1485 if (RegisterClass(&wndclass
) == 0)
1488 s_textArea
= CreateWindowEx(
1490 szTextAreaClass
, "Vim text area",
1491 WS_CHILD
| WS_VISIBLE
, 0, 0,
1492 100, /* Any value will do for now */
1493 100, /* Any value will do for now */
1497 if (s_textArea
== NULL
)
1501 s_menuBar
= CreateMenu();
1503 s_hdc
= GetDC(s_textArea
);
1505 #ifdef MSWIN16_FASTTEXT
1506 SetBkMode(s_hdc
, OPAQUE
);
1510 DragAcceptFiles(s_hwnd
, TRUE
);
1513 /* Do we need to bother with this? */
1514 /* m_fMouseAvail = GetSystemMetrics(SM_MOUSEPRESENT); */
1516 /* Get background/foreground colors from the system */
1517 gui_mch_def_colors();
1519 /* Get the colors from the "Normal" group (set in syntax.c or in a vimrc
1521 set_normal_colors();
1524 * Check that none of the colors are the same as the background color.
1525 * Then store the current values as the defaults.
1528 gui
.def_norm_pixel
= gui
.norm_pixel
;
1529 gui
.def_back_pixel
= gui
.back_pixel
;
1531 /* Get the colors for the highlight groups (gui_check_colors() might have
1533 highlight_gui_started();
1536 * Start out by adding the configured border width into the border offset
1538 gui
.border_offset
= gui
.border_width
+ 2; /*CLIENT EDGE*/
1541 * Set up for Intellimouse processing
1546 * compute a couple of metrics used for the dialogs
1548 get_dialog_font_metrics();
1551 * Create the toolbar
1553 initialise_toolbar();
1555 #ifdef FEAT_GUI_TABLINE
1557 * Create the tabline
1559 initialise_tabline();
1561 #ifdef MSWIN_FIND_REPLACE
1563 * Initialise the dialog box stuff
1565 s_findrep_msg
= RegisterWindowMessage(FINDMSGSTRING
);
1567 /* Initialise the struct */
1568 s_findrep_struct
.lStructSize
= sizeof(s_findrep_struct
);
1569 s_findrep_struct
.lpstrFindWhat
= alloc(MSWIN_FR_BUFSIZE
);
1570 s_findrep_struct
.lpstrFindWhat
[0] = NUL
;
1571 s_findrep_struct
.lpstrReplaceWith
= alloc(MSWIN_FR_BUFSIZE
);
1572 s_findrep_struct
.lpstrReplaceWith
[0] = NUL
;
1573 s_findrep_struct
.wFindWhatLen
= MSWIN_FR_BUFSIZE
;
1574 s_findrep_struct
.wReplaceWithLen
= MSWIN_FR_BUFSIZE
;
1578 /* Display any pending error messages */
1585 * Get the size of the screen, taking position on multiple monitors into
1586 * account (if supported).
1589 get_work_area(RECT
*spi_rect
)
1592 _MONITORINFO moninfo
;
1594 /* use these functions only if available */
1595 if (pMonitorFromWindow
!= NULL
&& pGetMonitorInfo
!= NULL
)
1597 /* work out which monitor the window is on, and get *it's* work area */
1598 mon
= pMonitorFromWindow(s_hwnd
, 1 /*MONITOR_DEFAULTTOPRIMARY*/);
1601 moninfo
.cbSize
= sizeof(_MONITORINFO
);
1602 if (pGetMonitorInfo(mon
, &moninfo
))
1604 *spi_rect
= moninfo
.rcWork
;
1609 /* this is the old method... */
1610 SystemParametersInfo(SPI_GETWORKAREA
, 0, spi_rect
, 0);
1614 * Set the size of the window to the given width and height in pixels.
1618 gui_mch_set_shellsize(int width
, int height
,
1619 int min_width
, int min_height
, int base_width
, int base_height
,
1623 int win_width
, win_height
;
1624 int win_xpos
, win_ypos
;
1625 WINDOWPLACEMENT wndpl
;
1628 /* Try to keep window completely on screen. */
1629 /* Get position of the screen work area. This is the part that is not
1630 * used by the taskbar or appbars. */
1631 get_work_area(&workarea_rect
);
1633 /* Get current posision of our window. Note that the .left and .top are
1634 * relative to the work area. */
1635 wndpl
.length
= sizeof(WINDOWPLACEMENT
);
1636 GetWindowPlacement(s_hwnd
, &wndpl
);
1638 /* Resizing a maximized window looks very strange, unzoom it first.
1639 * But don't do it when still starting up, it may have been requested in
1641 if (wndpl
.showCmd
== SW_SHOWMAXIMIZED
&& starting
== 0)
1643 ShowWindow(s_hwnd
, SW_SHOWNORMAL
);
1644 /* Need to get the settings of the normal window. */
1645 GetWindowPlacement(s_hwnd
, &wndpl
);
1648 win_xpos
= wndpl
.rcNormalPosition
.left
;
1649 win_ypos
= wndpl
.rcNormalPosition
.top
;
1651 /* compute the size of the outside of the window */
1652 win_width
= width
+ GetSystemMetrics(SM_CXFRAME
) * 2;
1653 win_height
= height
+ GetSystemMetrics(SM_CYFRAME
) * 2
1654 + GetSystemMetrics(SM_CYCAPTION
)
1656 + gui_mswin_get_menu_height(FALSE
)
1660 /* There is an inconsistency when using two monitors and Vim is on the
1661 * second (right) one: win_xpos will be the offset from the workarea of
1662 * the left monitor. While with one monitor it's the offset from the
1663 * workarea (including a possible taskbar on the left). Detect the second
1664 * monitor by checking for the left offset to be quite big. */
1665 if (workarea_rect
.left
> 300)
1668 workarea_left
= workarea_rect
.left
;
1670 /* If the window is going off the screen, move it on to the screen.
1671 * win_xpos and win_ypos are relative to the workarea. */
1672 if ((direction
& RESIZE_HOR
)
1673 && workarea_left
+ win_xpos
+ win_width
> workarea_rect
.right
)
1674 win_xpos
= workarea_rect
.right
- win_width
- workarea_left
;
1676 if ((direction
& RESIZE_HOR
) && win_xpos
< 0)
1679 if ((direction
& RESIZE_VERT
)
1680 && workarea_rect
.top
+ win_ypos
+ win_height
> workarea_rect
.bottom
)
1681 win_ypos
= workarea_rect
.bottom
- win_height
- workarea_rect
.top
;
1683 if ((direction
& RESIZE_VERT
) && win_ypos
< 0)
1686 wndpl
.rcNormalPosition
.left
= win_xpos
;
1687 wndpl
.rcNormalPosition
.right
= win_xpos
+ win_width
;
1688 wndpl
.rcNormalPosition
.top
= win_ypos
;
1689 wndpl
.rcNormalPosition
.bottom
= win_ypos
+ win_height
;
1691 /* set window position - we should use SetWindowPlacement rather than
1692 * SetWindowPos as the MSDN docs say the coord systems returned by
1693 * these two are not compatible. */
1694 SetWindowPlacement(s_hwnd
, &wndpl
);
1696 SetActiveWindow(s_hwnd
);
1700 /* Menu may wrap differently now */
1701 gui_mswin_get_menu_height(!gui
.starting
);
1707 gui_mch_set_scrollbar_thumb(
1715 sb
->scroll_shift
= 0;
1718 max
= (max
+ 1) >> 1;
1724 if (sb
->scroll_shift
> 0)
1727 info
.cbSize
= sizeof(info
);
1728 info
.fMask
= SIF_POS
| SIF_RANGE
| SIF_PAGE
;
1733 SetScrollInfo(sb
->id
, SB_CTL
, &info
, TRUE
);
1738 * Set the current text font.
1741 gui_mch_set_font(GuiFont font
)
1743 gui
.currFont
= font
;
1748 * Set the current text foreground color.
1751 gui_mch_set_fg_color(guicolor_T color
)
1753 gui
.currFgColor
= color
;
1757 * Set the current text background color.
1760 gui_mch_set_bg_color(guicolor_T color
)
1762 gui
.currBgColor
= color
;
1766 * Set the current text special color.
1769 gui_mch_set_sp_color(guicolor_T color
)
1771 gui
.currSpColor
= color
;
1774 #if defined(FEAT_MBYTE) && defined(FEAT_MBYTE_IME)
1776 * Multi-byte handling, originally by Sung-Hoon Baek.
1777 * First static functions (no prototypes generated).
1780 # include <ime.h> /* Apparently not needed for Cygwin, MingW or Borland. */
1785 * handle WM_IME_NOTIFY message
1789 _OnImeNotify(HWND hWnd
, DWORD dwCommand
, DWORD dwData
)
1791 LRESULT lResult
= 0;
1794 if (!pImmGetContext
|| (hImc
= pImmGetContext(hWnd
)) == (HIMC
)0)
1798 case IMN_SETOPENSTATUS
:
1799 if (pImmGetOpenStatus(hImc
))
1801 pImmSetCompositionFont(hImc
, &norm_logfont
);
1802 im_set_position(gui
.row
, gui
.col
);
1804 /* Disable langmap */
1808 #if defined(FEAT_WINDOWS) && defined(FEAT_KEYMAP)
1809 /* Unshown 'keymap' in status lines */
1810 if (curbuf
->b_p_iminsert
== B_IMODE_LMAP
)
1812 /* Save cursor position */
1813 int old_row
= gui
.row
;
1814 int old_col
= gui
.col
;
1816 // This must be called here before
1817 // status_redraw_curbuf(), otherwise the mode
1818 // message may appear in the wrong position.
1820 status_redraw_curbuf();
1822 /* Restore cursor position */
1829 gui_update_cursor(TRUE
, FALSE
);
1833 pImmReleaseContext(hWnd
, hImc
);
1839 _OnImeComposition(HWND hwnd
, WPARAM dbcs
, LPARAM param
)
1844 if ((param
& GCS_RESULTSTR
) == 0) /* Composition unfinished. */
1847 ret
= GetResultStr(hwnd
, GCS_RESULTSTR
, &len
);
1850 add_to_input_buf_csi(ret
, len
);
1858 * get the current composition string, in UCS-2; *lenp is the number of
1859 * *lenp is the number of Unicode characters.
1862 GetCompositionString_inUCS2(HIMC hIMC
, DWORD GCS
, int *lenp
)
1868 if (!pImmGetContext
)
1869 return NULL
; /* no imm32.dll */
1871 /* Try Unicode; this'll always work on NT regardless of codepage. */
1872 ret
= pImmGetCompositionStringW(hIMC
, GCS
, NULL
, 0);
1874 return NULL
; /* empty */
1878 /* Allocate the requested buffer plus space for the NUL character. */
1879 wbuf
= (LPWSTR
)alloc(ret
+ sizeof(WCHAR
));
1882 pImmGetCompositionStringW(hIMC
, GCS
, wbuf
, ret
);
1883 *lenp
= ret
/ sizeof(WCHAR
);
1885 return (short_u
*)wbuf
;
1888 /* ret < 0; we got an error, so try the ANSI version. This'll work
1889 * on 9x/ME, but only if the codepage happens to be set to whatever
1890 * we're inputting. */
1891 ret
= pImmGetCompositionStringA(hIMC
, GCS
, NULL
, 0);
1893 return NULL
; /* empty or error */
1898 pImmGetCompositionStringA(hIMC
, GCS
, buf
, ret
);
1900 /* convert from codepage to UCS-2 */
1901 MultiByteToWideChar_alloc(GetACP(), 0, buf
, ret
, &wbuf
, lenp
);
1904 return (short_u
*)wbuf
;
1908 * void GetResultStr()
1910 * This handles WM_IME_COMPOSITION with GCS_RESULTSTR flag on.
1911 * get complete composition string
1914 GetResultStr(HWND hwnd
, int GCS
, int *lenp
)
1916 HIMC hIMC
; /* Input context handle. */
1917 short_u
*buf
= NULL
;
1918 char_u
*convbuf
= NULL
;
1920 if (!pImmGetContext
|| (hIMC
= pImmGetContext(hwnd
)) == (HIMC
)0)
1923 /* Reads in the composition string. */
1924 buf
= GetCompositionString_inUCS2(hIMC
, GCS
, lenp
);
1928 convbuf
= ucs2_to_enc(buf
, lenp
);
1929 pImmReleaseContext(hwnd
, hIMC
);
1935 /* For global functions we need prototypes. */
1936 #if (defined(FEAT_MBYTE) && defined(FEAT_MBYTE_IME)) || defined(PROTO)
1942 im_set_font(LOGFONT
*lf
)
1946 if (pImmGetContext
&& (hImc
= pImmGetContext(s_hwnd
)) != (HIMC
)0)
1948 pImmSetCompositionFont(hImc
, lf
);
1949 pImmReleaseContext(s_hwnd
, hImc
);
1954 * Notify cursor position to IM.
1957 im_set_position(int row
, int col
)
1961 if (pImmGetContext
&& (hImc
= pImmGetContext(s_hwnd
)) != (HIMC
)0)
1963 COMPOSITIONFORM cfs
;
1965 cfs
.dwStyle
= CFS_POINT
;
1966 cfs
.ptCurrentPos
.x
= FILL_X(col
);
1967 cfs
.ptCurrentPos
.y
= FILL_Y(row
);
1968 MapWindowPoints(s_textArea
, s_hwnd
, &cfs
.ptCurrentPos
, 1);
1969 pImmSetCompositionWindow(hImc
, &cfs
);
1971 pImmReleaseContext(s_hwnd
, hImc
);
1976 * Set IM status on ("active" is TRUE) or off ("active" is FALSE).
1979 im_set_active(int active
)
1982 static HIMC hImcOld
= (HIMC
)0;
1984 if (pImmGetContext
) /* if NULL imm32.dll wasn't loaded (yet) */
1988 if (hImcOld
== (HIMC
)0)
1990 hImcOld
= pImmGetContext(s_hwnd
);
1992 pImmAssociateContext(s_hwnd
, (HIMC
)0);
1996 else if (hImcOld
!= (HIMC
)0)
1998 pImmAssociateContext(s_hwnd
, hImcOld
);
2002 hImc
= pImmGetContext(s_hwnd
);
2008 HKL hKL
= GetKeyboardLayout(0);
2010 if (LOWORD(hKL
) == MAKELANGID(LANG_KOREAN
, SUBLANG_KOREAN
))
2012 static DWORD dwConversionSaved
= 0, dwSentenceSaved
= 0;
2013 static BOOL bSaved
= FALSE
;
2017 /* if we have a saved conversion status, restore it */
2019 pImmSetConversionStatus(hImc
, dwConversionSaved
,
2025 /* save conversion status and disable korean */
2026 if (pImmGetConversionStatus(hImc
, &dwConversionSaved
,
2030 pImmSetConversionStatus(hImc
,
2031 dwConversionSaved
& ~(IME_CMODE_NATIVE
2032 | IME_CMODE_FULLSHAPE
),
2038 pImmSetOpenStatus(hImc
, active
);
2039 pImmReleaseContext(s_hwnd
, hImc
);
2045 * Get IM status. When IM is on, return not 0. Else return 0.
2053 if (pImmGetContext
&& (hImc
= pImmGetContext(s_hwnd
)) != (HIMC
)0)
2055 status
= pImmGetOpenStatus(hImc
) ? 1 : 0;
2056 pImmReleaseContext(s_hwnd
, hImc
);
2061 #endif /* FEAT_MBYTE && FEAT_MBYTE_IME */
2063 #if defined(FEAT_MBYTE) && !defined(FEAT_MBYTE_IME) && defined(GLOBAL_IME)
2064 /* Win32 with GLOBAL IME */
2067 * Notify cursor position to IM.
2070 im_set_position(int row
, int col
)
2072 /* Win32 with GLOBAL IME */
2077 MapWindowPoints(s_textArea
, s_hwnd
, &p
, 1);
2078 global_ime_set_position(&p
);
2082 * Set IM status on ("active" is TRUE) or off ("active" is FALSE).
2085 im_set_active(int active
)
2087 global_ime_set_status(active
);
2091 * Get IM status. When IM is on, return not 0. Else return 0.
2096 return global_ime_get_status();
2102 * Convert latin9 text "text[len]" to ucs-2 in "unicodebuf".
2105 latin9_to_ucs(char_u
*text
, int len
, WCHAR
*unicodebuf
)
2114 case 0xa4: c
= 0x20ac; break; /* euro */
2115 case 0xa6: c
= 0x0160; break; /* S hat */
2116 case 0xa8: c
= 0x0161; break; /* S -hat */
2117 case 0xb4: c
= 0x017d; break; /* Z hat */
2118 case 0xb8: c
= 0x017e; break; /* Z -hat */
2119 case 0xbc: c
= 0x0152; break; /* OE */
2120 case 0xbd: c
= 0x0153; break; /* oe */
2121 case 0xbe: c
= 0x0178; break; /* Y */
2128 #ifdef FEAT_RIGHTLEFT
2130 * What is this for? In the case where you are using Win98 or Win2K or later,
2131 * and you are using a Hebrew font (or Arabic!), Windows does you a favor and
2132 * reverses the string sent to the TextOut... family. This sucks, because we
2133 * go to a lot of effort to do the right thing, and there doesn't seem to be a
2134 * way to tell Windblows not to do this!
2136 * The short of it is that this 'RevOut' only gets called if you are running
2137 * one of the new, "improved" MS OSes, and only if you are running in
2138 * 'rightleft' mode. It makes display take *slightly* longer, but not
2146 CONST RECT
*pcliprect
,
2152 static int special
= -1;
2156 /* Check windows version: special treatment is needed if it is NT 5 or
2157 * Win98 or higher. */
2158 if ((os_version
.dwPlatformId
== VER_PLATFORM_WIN32_NT
2159 && os_version
.dwMajorVersion
>= 5)
2160 || (os_version
.dwPlatformId
== VER_PLATFORM_WIN32_WINDOWS
2161 && (os_version
.dwMajorVersion
> 4
2162 || (os_version
.dwMajorVersion
== 4
2163 && os_version
.dwMinorVersion
> 0))))
2170 for (ix
= 0; ix
< (int)len
; ++ix
)
2171 ExtTextOut(s_hdc
, col
+ TEXT_X(ix
), row
, foptions
,
2172 pcliprect
, text
+ ix
, 1, padding
);
2174 ExtTextOut(s_hdc
, col
, row
, foptions
, pcliprect
, text
, len
, padding
);
2179 gui_mch_draw_string(
2186 static int *padding
= NULL
;
2187 static int pad_size
= 0;
2189 const RECT
*pcliprect
= NULL
;
2192 static WCHAR
*unicodebuf
= NULL
;
2193 static int *unicodepdy
= NULL
;
2194 static int unibuflen
= 0;
2200 #ifndef MSWIN16_FASTTEXT
2202 * Italic and bold text seems to have an extra row of pixels at the bottom
2203 * (below where the bottom of the character should be). If we draw the
2204 * characters with a solid background, the top row of pixels in the
2205 * character below will be overwritten. We can fix this by filling in the
2206 * background ourselves, to the correct character proportions, and then
2207 * writing the character in transparent mode. Still have a problem when
2208 * the character is "_", which gets written on to the character below.
2209 * New fix: set gui.char_ascent to -1. This shifts all characters up one
2210 * pixel in their slots, which fixes the problem with the bottom row of
2211 * pixels. We still need this code because otherwise the top row of pixels
2212 * becomes a problem. - webb.
2214 static HBRUSH hbr_cache
[2] = {NULL
, NULL
};
2215 static guicolor_T brush_color
[2] = {INVALCOLOR
, INVALCOLOR
};
2216 static int brush_lru
= 0;
2220 if (!(flags
& DRAW_TRANSP
))
2223 * Clear background first.
2224 * Note: FillRect() excludes right and bottom of rectangle.
2226 rc
.left
= FILL_X(col
);
2227 rc
.top
= FILL_Y(row
);
2233 /* Compute the length in display cells. */
2234 for (n
= 0; n
< len
; n
+= MB_BYTE2LEN(text
[n
]))
2235 cell_len
+= (*mb_ptr2cells
)(text
+ n
);
2236 rc
.right
= FILL_X(col
+ cell_len
);
2240 rc
.right
= FILL_X(col
+ len
);
2241 rc
.bottom
= FILL_Y(row
+ 1);
2243 /* Cache the created brush, that saves a lot of time. We need two:
2244 * one for cursor background and one for the normal background. */
2245 if (gui
.currBgColor
== brush_color
[0])
2250 else if (gui
.currBgColor
== brush_color
[1])
2257 if (hbr_cache
[brush_lru
] != NULL
)
2258 DeleteBrush(hbr_cache
[brush_lru
]);
2259 hbr_cache
[brush_lru
] = CreateSolidBrush(gui
.currBgColor
);
2260 brush_color
[brush_lru
] = gui
.currBgColor
;
2261 hbr
= hbr_cache
[brush_lru
];
2262 brush_lru
= !brush_lru
;
2264 FillRect(s_hdc
, &rc
, hbr
);
2266 SetBkMode(s_hdc
, TRANSPARENT
);
2269 * When drawing block cursor, prevent inverted character spilling
2270 * over character cell (can happen with bold/italic)
2272 if (flags
& DRAW_CURSOR
)
2275 foptions
= ETO_CLIPPED
;
2280 * The alternative would be to write the characters in opaque mode, but
2281 * when the text is not exactly the same proportions as normal text, too
2282 * big or too little a rectangle gets drawn for the background.
2284 SetBkMode(s_hdc
, OPAQUE
);
2285 SetBkColor(s_hdc
, gui
.currBgColor
);
2287 SetTextColor(s_hdc
, gui
.currFgColor
);
2288 SelectFont(s_hdc
, gui
.currFont
);
2290 if (pad_size
!= Columns
|| padding
== NULL
|| padding
[0] != gui
.char_width
)
2295 /* Don't give an out-of-memory message here, it would call us
2297 padding
= (int *)lalloc(pad_size
* sizeof(int), FALSE
);
2298 if (padding
!= NULL
)
2299 for (i
= 0; i
< pad_size
; i
++)
2300 padding
[i
] = gui
.char_width
;
2303 /* On NT, tell the font renderer not to "help" us with Hebrew and Arabic
2304 * text. This doesn't work in 9x, so we have to deal with it manually on
2306 if (os_version
.dwPlatformId
== VER_PLATFORM_WIN32_NT
)
2307 foptions
|= ETO_IGNORELANGUAGE
;
2310 * We have to provide the padding argument because italic and bold versions
2311 * of fixed-width fonts are often one pixel or so wider than their normal
2313 * No check for DRAW_BOLD, Windows will have done it already.
2317 /* Check if there are any UTF-8 characters. If not, use normal text
2318 * output to speed up output. */
2320 for (n
= 0; n
< len
; ++n
)
2321 if (text
[n
] >= 0x80)
2324 /* Check if the Unicode buffer exists and is big enough. Create it
2325 * with the same length as the multi-byte string, the number of wide
2326 * characters is always equal or smaller. */
2328 || (enc_codepage
> 0 && (int)GetACP() != enc_codepage
)
2330 && (unicodebuf
== NULL
|| len
> unibuflen
))
2332 vim_free(unicodebuf
);
2333 unicodebuf
= (WCHAR
*)lalloc(len
* sizeof(WCHAR
), FALSE
);
2335 vim_free(unicodepdy
);
2336 unicodepdy
= (int *)lalloc(len
* sizeof(int), FALSE
);
2341 if (enc_utf8
&& n
< len
&& unicodebuf
!= NULL
)
2343 /* Output UTF-8 characters. Caller has already separated
2344 * composing characters. */
2346 int wlen
; /* string length in words */
2347 int clen
; /* string length in characters */
2348 int cells
; /* cell width of string up to composing char */
2349 int cw
; /* width of current cell */
2355 for (i
= 0; i
< len
; )
2357 c
= utf_ptr2char(text
+ i
);
2360 /* Turn into UTF-16 encoding. */
2361 unicodebuf
[wlen
++] = ((c
- 0x10000) >> 10) + 0xD800;
2362 unicodebuf
[wlen
++] = ((c
- 0x10000) & 0x3ff) + 0xDC00;
2366 unicodebuf
[wlen
++] = c
;
2368 cw
= utf_char2cells(c
);
2369 if (cw
> 2) /* don't use 4 for unprintable char */
2371 if (unicodepdy
!= NULL
)
2373 /* Use unicodepdy to make characters fit as we expect, even
2374 * when the font uses different widths (e.g., bold character
2376 unicodepdy
[clen
] = cw
* gui
.char_width
;
2379 i
+= utfc_ptr2len_len(text
+ i
, len
- i
);
2382 ExtTextOutW(s_hdc
, TEXT_X(col
), TEXT_Y(row
),
2383 foptions
, pcliprect
, unicodebuf
, wlen
, unicodepdy
);
2384 len
= cells
; /* used for underlining */
2386 else if ((enc_codepage
> 0 && (int)GetACP() != enc_codepage
) || enc_latin9
)
2388 /* If we want to display codepage data, and the current CP is not the
2389 * ANSI one, we need to go via Unicode. */
2390 if (unicodebuf
!= NULL
)
2393 latin9_to_ucs(text
, len
, unicodebuf
);
2395 len
= MultiByteToWideChar(enc_codepage
,
2398 (LPWSTR
)unicodebuf
, unibuflen
);
2401 /* Use unicodepdy to make characters fit as we expect, even
2402 * when the font uses different widths (e.g., bold character
2404 if (unicodepdy
!= NULL
)
2409 for (i
= 0; i
< len
; ++i
)
2411 cw
= utf_char2cells(unicodebuf
[i
]);
2414 unicodepdy
[i
] = cw
* gui
.char_width
;
2417 ExtTextOutW(s_hdc
, TEXT_X(col
), TEXT_Y(row
),
2418 foptions
, pcliprect
, unicodebuf
, len
, unicodepdy
);
2425 #ifdef FEAT_RIGHTLEFT
2426 /* If we can't use ETO_IGNORELANGUAGE, we can't tell Windows not to
2427 * mess up RL text, so we have to draw it character-by-character.
2428 * Only do this if RL is on, since it's slow. */
2429 if (curwin
->w_p_rl
&& !(foptions
& ETO_IGNORELANGUAGE
))
2430 RevOut(s_hdc
, TEXT_X(col
), TEXT_Y(row
),
2431 foptions
, pcliprect
, (char *)text
, len
, padding
);
2434 ExtTextOut(s_hdc
, TEXT_X(col
), TEXT_Y(row
),
2435 foptions
, pcliprect
, (char *)text
, len
, padding
);
2439 if (flags
& DRAW_UNDERL
)
2441 hpen
= CreatePen(PS_SOLID
, 1, gui
.currFgColor
);
2442 old_pen
= SelectObject(s_hdc
, hpen
);
2443 /* When p_linespace is 0, overwrite the bottom row of pixels.
2444 * Otherwise put the line just below the character. */
2445 y
= FILL_Y(row
+ 1) - 1;
2446 #ifndef MSWIN16_FASTTEXT
2447 if (p_linespace
> 1)
2448 y
-= p_linespace
- 1;
2450 MoveToEx(s_hdc
, FILL_X(col
), y
, NULL
);
2451 /* Note: LineTo() excludes the last pixel in the line. */
2452 LineTo(s_hdc
, FILL_X(col
+ len
), y
);
2453 DeleteObject(SelectObject(s_hdc
, old_pen
));
2457 if (flags
& DRAW_UNDERC
)
2461 static const int val
[8] = {1, 0, 0, 0, 1, 2, 2, 2 };
2463 y
= FILL_Y(row
+ 1) - 1;
2464 for (x
= FILL_X(col
); x
< FILL_X(col
+ len
); ++x
)
2466 offset
= val
[x
% 8];
2467 SetPixel(s_hdc
, x
, y
- offset
, gui
.currSpColor
);
2477 /* Flush any output to the screen */
2481 # if defined(__BORLANDC__)
2483 * The GdiFlush declaration (in Borland C 5.01 <wingdi.h>) is not a
2484 * prototype declaration.
2485 * The compiler complains if __stdcall is not used in both declarations.
2487 BOOL __stdcall
GdiFlush(void);
2494 clear_rect(RECT
*rcp
)
2498 hbr
= CreateSolidBrush(gui
.back_pixel
);
2499 FillRect(s_hdc
, rcp
, hbr
);
2505 gui_mch_get_screen_dimensions(int *screen_w
, int *screen_h
)
2509 get_work_area(&workarea_rect
);
2511 *screen_w
= workarea_rect
.right
- workarea_rect
.left
2512 - GetSystemMetrics(SM_CXFRAME
) * 2;
2514 /* FIXME: dirty trick: Because the gui_get_base_height() doesn't include
2515 * the menubar for MSwin, we subtract it from the screen height, so that
2516 * the window size can be made to fit on the screen. */
2517 *screen_h
= workarea_rect
.bottom
- workarea_rect
.top
2518 - GetSystemMetrics(SM_CYFRAME
) * 2
2519 - GetSystemMetrics(SM_CYCAPTION
)
2521 - gui_mswin_get_menu_height(FALSE
)
2527 #if defined(FEAT_MENU) || defined(PROTO)
2529 * Add a sub menu to the menu bar.
2536 vimmenu_T
*parent
= menu
->parent
;
2538 menu
->submenu_id
= CreatePopupMenu();
2539 menu
->id
= s_menu_id
++;
2541 if (menu_is_menubar(menu
->name
))
2545 InsertMenu((parent
== NULL
) ? s_menuBar
: parent
->submenu_id
,
2546 (UINT
)pos
, MF_POPUP
| MF_STRING
| MF_BYPOSITION
,
2547 (long_u
)menu
->submenu_id
, (LPCTSTR
) menu
->name
);
2555 if (enc_codepage
>= 0 && (int)GetACP() != enc_codepage
)
2557 /* 'encoding' differs from active codepage: convert menu name
2558 * and use wide function */
2559 wn
= enc_to_ucs2(menu
->name
, NULL
);
2562 MENUITEMINFOW infow
;
2564 infow
.cbSize
= sizeof(infow
);
2565 infow
.fMask
= MIIM_DATA
| MIIM_TYPE
| MIIM_ID
2567 infow
.dwItemData
= (long_u
)menu
;
2568 infow
.wID
= menu
->id
;
2569 infow
.fType
= MFT_STRING
;
2570 infow
.dwTypeData
= wn
;
2571 infow
.cch
= (UINT
)wcslen(wn
);
2572 infow
.hSubMenu
= menu
->submenu_id
;
2573 n
= InsertMenuItemW((parent
== NULL
)
2574 ? s_menuBar
: parent
->submenu_id
,
2575 (UINT
)pos
, TRUE
, &infow
);
2577 if (n
== 0 && GetLastError() == ERROR_CALL_NOT_IMPLEMENTED
)
2578 /* Failed, try using non-wide function. */
2588 info
.cbSize
= sizeof(info
);
2589 info
.fMask
= MIIM_DATA
| MIIM_TYPE
| MIIM_ID
| MIIM_SUBMENU
;
2590 info
.dwItemData
= (long_u
)menu
;
2591 info
.wID
= menu
->id
;
2592 info
.fType
= MFT_STRING
;
2593 info
.dwTypeData
= (LPTSTR
)menu
->name
;
2594 info
.cch
= (UINT
)STRLEN(menu
->name
);
2595 info
.hSubMenu
= menu
->submenu_id
;
2596 InsertMenuItem((parent
== NULL
)
2597 ? s_menuBar
: parent
->submenu_id
,
2598 (UINT
)pos
, TRUE
, &info
);
2603 /* Fix window size if menu may have wrapped */
2605 gui_mswin_get_menu_height(!gui
.starting
);
2607 else if (IsWindow(parent
->tearoff_handle
))
2608 rebuild_tearoff(parent
);
2613 gui_mch_show_popupmenu(vimmenu_T
*menu
)
2617 (void)GetCursorPos((LPPOINT
)&mp
);
2618 gui_mch_show_popupmenu_at(menu
, (int)mp
.x
, (int)mp
.y
);
2622 gui_make_popup(char_u
*path_name
, int mouse_pos
)
2624 vimmenu_T
*menu
= gui_find_menu(path_name
);
2630 /* Find the position of the current cursor */
2631 GetDCOrgEx(s_hdc
, &p
);
2636 gui_mch_getmouse(&mx
, &my
);
2640 else if (curwin
!= NULL
)
2642 p
.x
+= TEXT_X(W_WINCOL(curwin
) + curwin
->w_wcol
+ 1);
2643 p
.y
+= TEXT_Y(W_WINROW(curwin
) + curwin
->w_wrow
+ 1);
2646 gui_mch_show_popupmenu_at(menu
, (int)p
.x
, (int)p
.y
);
2650 #if defined(FEAT_TEAROFF) || defined(PROTO)
2652 * Given a menu descriptor, e.g. "File.New", find it in the menu hierarchy and
2653 * create it as a pseudo-"tearoff menu".
2656 gui_make_tearoff(char_u
*path_name
)
2658 vimmenu_T
*menu
= gui_find_menu(path_name
);
2660 /* Found the menu, so tear it off. */
2662 gui_mch_tearoff(menu
->dname
, menu
, 0xffffL
, 0xffffL
);
2667 * Add a menu item to a menu
2670 gui_mch_add_menu_item(
2674 vimmenu_T
*parent
= menu
->parent
;
2676 menu
->id
= s_menu_id
++;
2677 menu
->submenu_id
= NULL
;
2680 if (STRNCMP(menu
->name
, TEAR_STRING
, TEAR_LEN
) == 0)
2682 InsertMenu(parent
->submenu_id
, (UINT
)idx
, MF_BITMAP
|MF_BYPOSITION
,
2683 (UINT
)menu
->id
, (LPCTSTR
) s_htearbitmap
);
2688 if (menu_is_toolbar(parent
->name
))
2692 vim_memset(&newtb
, 0, sizeof(newtb
));
2693 if (menu_is_separator(menu
->name
))
2696 newtb
.fsStyle
= TBSTYLE_SEP
;
2700 newtb
.iBitmap
= get_toolbar_bitmap(menu
);
2701 newtb
.fsStyle
= TBSTYLE_BUTTON
;
2703 newtb
.idCommand
= menu
->id
;
2704 newtb
.fsState
= TBSTATE_ENABLED
;
2706 SendMessage(s_toolbarhwnd
, TB_INSERTBUTTON
, (WPARAM
)idx
,
2708 menu
->submenu_id
= (HMENU
)-1;
2717 if (enc_codepage
>= 0 && (int)GetACP() != enc_codepage
)
2719 /* 'encoding' differs from active codepage: convert menu item name
2720 * and use wide function */
2721 wn
= enc_to_ucs2(menu
->name
, NULL
);
2724 n
= InsertMenuW(parent
->submenu_id
, (UINT
)idx
,
2725 (menu_is_separator(menu
->name
)
2726 ? MF_SEPARATOR
: MF_STRING
) | MF_BYPOSITION
,
2727 (UINT
)menu
->id
, wn
);
2729 if (n
== 0 && GetLastError() == ERROR_CALL_NOT_IMPLEMENTED
)
2730 /* Failed, try using non-wide function. */
2736 InsertMenu(parent
->submenu_id
, (UINT
)idx
,
2737 (menu_is_separator(menu
->name
) ? MF_SEPARATOR
: MF_STRING
)
2739 (UINT
)menu
->id
, (LPCTSTR
)menu
->name
);
2741 if (IsWindow(parent
->tearoff_handle
))
2742 rebuild_tearoff(parent
);
2748 * Destroy the machine specific menu widget.
2751 gui_mch_destroy_menu(vimmenu_T
*menu
)
2755 * is this a toolbar button?
2757 if (menu
->submenu_id
== (HMENU
)-1)
2761 iButton
= (int)SendMessage(s_toolbarhwnd
, TB_COMMANDTOINDEX
,
2762 (WPARAM
)menu
->id
, 0);
2763 SendMessage(s_toolbarhwnd
, TB_DELETEBUTTON
, (WPARAM
)iButton
, 0);
2768 if (menu
->parent
!= NULL
2769 && menu_is_popup(menu
->parent
->dname
)
2770 && menu
->parent
->submenu_id
!= NULL
)
2771 RemoveMenu(menu
->parent
->submenu_id
, menu
->id
, MF_BYCOMMAND
);
2773 RemoveMenu(s_menuBar
, menu
->id
, MF_BYCOMMAND
);
2774 if (menu
->submenu_id
!= NULL
)
2775 DestroyMenu(menu
->submenu_id
);
2777 if (IsWindow(menu
->tearoff_handle
))
2778 DestroyWindow(menu
->tearoff_handle
);
2779 if (menu
->parent
!= NULL
2780 && menu
->parent
->children
!= NULL
2781 && IsWindow(menu
->parent
->tearoff_handle
))
2783 /* This menu must not show up when rebuilding the tearoff window. */
2785 rebuild_tearoff(menu
->parent
);
2793 rebuild_tearoff(vimmenu_T
*menu
)
2802 HWND thwnd
= menu
->tearoff_handle
;
2804 GetWindowText(thwnd
, tbuf
, 127);
2805 if (GetWindowRect(thwnd
, &trect
)
2806 && GetWindowRect(s_hwnd
, &rct
)
2807 && GetClientRect(s_hwnd
, &roct
))
2809 x
= trect
.left
- rct
.left
;
2810 y
= (trect
.top
- rct
.bottom
+ roct
.bottom
);
2816 DestroyWindow(thwnd
);
2817 if (menu
->children
!= NULL
)
2819 gui_mch_tearoff(tbuf
, menu
, x
, y
);
2820 if (IsWindow(menu
->tearoff_handle
))
2821 (void) SetWindowPos(menu
->tearoff_handle
,
2826 SWP_NOSIZE
| SWP_NOZORDER
| SWP_NOACTIVATE
);
2829 #endif /* FEAT_TEAROFF */
2832 * Make a menu either grey or not grey.
2841 * is this a toolbar button?
2843 if (menu
->submenu_id
== (HMENU
)-1)
2845 SendMessage(s_toolbarhwnd
, TB_ENABLEBUTTON
,
2846 (WPARAM
)menu
->id
, (LPARAM
) MAKELONG((grey
? FALSE
: TRUE
), 0) );
2851 EnableMenuItem(s_menuBar
, menu
->id
, MF_BYCOMMAND
| MF_GRAYED
);
2853 EnableMenuItem(s_menuBar
, menu
->id
, MF_BYCOMMAND
| MF_ENABLED
);
2856 if ((menu
->parent
!= NULL
) && (IsWindow(menu
->parent
->tearoff_handle
)))
2862 * A tearoff button has changed state.
2864 if (menu
->children
== NULL
)
2865 menuID
= (WORD
)(menu
->id
);
2867 menuID
= (WORD
)((long_u
)(menu
->submenu_id
) | (DWORD
)0x8000);
2868 menuHandle
= GetDlgItem(menu
->parent
->tearoff_handle
, menuID
);
2870 EnableWindow(menuHandle
, !grey
);
2876 #endif /* FEAT_MENU */
2879 /* define some macros used to make the dialogue creation more readable */
2881 #define add_string(s) strcpy((LPSTR)p, s); (LPSTR)p += (strlen((LPSTR)p) + 1)
2882 #define add_word(x) *p++ = (x)
2883 #define add_long(x) dwp = (DWORD *)p; *dwp++ = (x); p = (WORD *)dwp
2885 #if defined(FEAT_GUI_DIALOG) || defined(PROTO)
2891 * The callback routine used by all the dialogs. Very simple. First,
2892 * acknowledges the INITDIALOG message so that Windows knows to do standard
2893 * dialog stuff (Return = default, Esc = cancel....) Second, if a button is
2894 * pressed, return that button's ID - IDCANCEL (2), which is the button's
2898 static LRESULT CALLBACK
2905 if (message
== WM_INITDIALOG
)
2907 CenterWindow(hwnd
, GetWindow(hwnd
, GW_OWNER
));
2908 /* Set focus to the dialog. Set the default button, if specified. */
2909 (void)SetFocus(hwnd
);
2910 if (dialog_default_button
> IDCANCEL
)
2911 (void)SetFocus(GetDlgItem(hwnd
, dialog_default_button
));
2913 /* We don't have a default, set focus on another element of the
2914 * dialog window, probably the icon */
2915 (void)SetFocus(GetDlgItem(hwnd
, DLG_NONBUTTON_CONTROL
));
2919 if (message
== WM_COMMAND
)
2921 int button
= LOWORD(wParam
);
2923 /* Don't end the dialog if something was selected that was
2926 if (button
>= DLG_NONBUTTON_CONTROL
)
2929 /* If the edit box exists, copy the string. */
2930 if (s_textfield
!= NULL
)
2931 GetDlgItemText(hwnd
, DLG_NONBUTTON_CONTROL
+ 2,
2932 s_textfield
, IOSIZE
);
2935 * Need to check for IDOK because if the user just hits Return to
2936 * accept the default value, some reason this is what we get.
2940 if (dialog_default_button
> IDCANCEL
)
2941 EndDialog(hwnd
, dialog_default_button
);
2944 EndDialog(hwnd
, button
- IDCANCEL
);
2948 if ((message
== WM_SYSCOMMAND
) && (wParam
== SC_CLOSE
))
2957 * Create a dialog dynamically from the parameter strings.
2958 * type = type of dialog (question, alert, etc.)
2959 * title = dialog title. may be NULL for default title.
2960 * message = text to display. Dialog sizes to accommodate it.
2961 * buttons = '\n' separated list of button captions, default first.
2962 * dfltbutton = number of default button.
2964 * This routine returns 1 if the first button is pressed,
2965 * 2 for the second, etc.
2967 * 0 indicates Esc was pressed.
2968 * -1 for unexpected error
2970 * If stubbing out this fn, return 1.
2973 static const char_u
*dlg_icons
[] = /* must match names in resource file */
2991 WORD
*p
, *pdlgtemplate
, *pnumitems
;
2994 int *buttonWidths
, *buttonPositions
;
3010 HFONT font
, oldFont
;
3011 TEXTMETRIC fontInfo
;
3013 int textWidth
, minButtonWidth
, messageWidth
;
3015 int maxDialogHeight
;
3016 int scroll_flag
= 0;
3020 #ifdef USE_SYSMENU_FONT
3022 int use_lfSysmenu
= FALSE
;
3028 /* Don't output anything in silent mode ("ex -s") */
3030 return dfltbutton
; /* return default option */
3034 /* If there is no window yet, open it. */
3035 if (s_hwnd
== NULL
&& gui_mch_init() == FAIL
)
3039 get_dialog_font_metrics();
3042 if ((type
< 0) || (type
> VIM_LAST_TYPE
))
3045 /* allocate some memory for dialog template */
3046 /* TODO should compute this really */
3047 pdlgtemplate
= p
= (PWORD
)LocalAlloc(LPTR
,
3048 DLG_ALLOC_SIZE
+ STRLEN(message
) * 2);
3054 * make a copy of 'buttons' to fiddle with it. complier grizzles because
3055 * vim_strsave() doesn't take a const arg (why not?), so cast away the
3058 tbuffer
= vim_strsave(buttons
);
3059 if (tbuffer
== NULL
)
3062 --dfltbutton
; /* Change from one-based to zero-based */
3066 for (i
= 0; tbuffer
[i
] != '\0'; i
++)
3068 if (tbuffer
[i
] == DLG_BUTTON_SEP
)
3071 if (dfltbutton
>= numButtons
)
3074 /* Allocate array to hold the width of each button */
3075 buttonWidths
= (int *)lalloc(numButtons
* sizeof(int), TRUE
);
3076 if (buttonWidths
== NULL
)
3079 /* Allocate array to hold the X position of each button */
3080 buttonPositions
= (int *)lalloc(numButtons
* sizeof(int), TRUE
);
3081 if (buttonPositions
== NULL
)
3085 * Calculate how big the dialog must be.
3087 hwnd
= GetDesktopWindow();
3088 hdc
= GetWindowDC(hwnd
);
3089 #ifdef USE_SYSMENU_FONT
3090 if (gui_w32_get_menu_font(&lfSysmenu
) == OK
)
3092 font
= CreateFontIndirect(&lfSysmenu
);
3093 use_lfSysmenu
= TRUE
;
3097 font
= CreateFont(-DLG_FONT_POINT_SIZE
, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
3098 VARIABLE_PITCH
, DLG_FONT_NAME
);
3101 oldFont
= SelectFont(hdc
, font
);
3102 dlgPaddingX
= DLG_PADDING_X
;
3103 dlgPaddingY
= DLG_PADDING_Y
;
3107 oldFont
= SelectFont(hdc
, GetStockObject(SYSTEM_FONT
));
3108 dlgPaddingX
= DLG_OLD_STYLE_PADDING_X
;
3109 dlgPaddingY
= DLG_OLD_STYLE_PADDING_Y
;
3111 GetTextMetrics(hdc
, &fontInfo
);
3112 fontHeight
= fontInfo
.tmHeight
;
3114 /* Minimum width for horizontal button */
3115 minButtonWidth
= GetTextWidth(hdc
, "Cancel", 6);
3117 /* Maximum width of a dialog, if possible */
3122 /* We don't have a window, use the desktop area. */
3123 get_work_area(&workarea_rect
);
3124 maxDialogWidth
= workarea_rect
.right
- workarea_rect
.left
- 100;
3125 if (maxDialogWidth
> 600)
3126 maxDialogWidth
= 600;
3127 maxDialogHeight
= workarea_rect
.bottom
- workarea_rect
.top
- 100;
3131 /* Use our own window for the size, unless it's very small. */
3132 GetWindowRect(s_hwnd
, &rect
);
3133 maxDialogWidth
= rect
.right
- rect
.left
3134 - GetSystemMetrics(SM_CXFRAME
) * 2;
3135 if (maxDialogWidth
< DLG_MIN_MAX_WIDTH
)
3136 maxDialogWidth
= DLG_MIN_MAX_WIDTH
;
3138 maxDialogHeight
= rect
.bottom
- rect
.top
3139 - GetSystemMetrics(SM_CXFRAME
) * 2;
3140 if (maxDialogHeight
< DLG_MIN_MAX_HEIGHT
)
3141 maxDialogHeight
= DLG_MIN_MAX_HEIGHT
;
3144 /* Set dlgwidth to width of message.
3145 * Copy the message into "ga", changing NL to CR-NL and inserting line
3146 * breaks where needed. */
3150 ga_init2(&ga
, sizeof(char), 500);
3153 msgheight
+= fontHeight
; /* at least one line */
3155 /* Need to figure out where to break the string. The system does it
3156 * at a word boundary, which would mean we can't compute the number of
3160 for (pend
= pstart
; *pend
!= NUL
&& *pend
!= '\n'; )
3163 l
= (*mb_ptr2len
)(pend
);
3167 if (l
== 1 && vim_iswhite(*pend
)
3168 && textWidth
> maxDialogWidth
* 3 / 4)
3170 textWidth
+= GetTextWidth(hdc
, pend
, l
);
3171 if (textWidth
>= maxDialogWidth
)
3173 /* Line will wrap. */
3174 messageWidth
= maxDialogWidth
;
3175 msgheight
+= fontHeight
;
3178 if (last_white
!= NULL
)
3180 /* break the line just after a space */
3181 ga
.ga_len
-= (int)(pend
- (last_white
+ 1));
3182 pend
= last_white
+ 1;
3185 ga_append(&ga
, '\r');
3186 ga_append(&ga
, '\n');
3191 ga_append(&ga
, *pend
++);
3193 if (textWidth
> messageWidth
)
3194 messageWidth
= textWidth
;
3196 ga_append(&ga
, '\r');
3197 ga_append(&ga
, '\n');
3199 } while (*pend
!= NUL
);
3201 if (ga
.ga_data
!= NULL
)
3202 message
= ga
.ga_data
;
3204 messageWidth
+= 10; /* roundoff space */
3206 /* Restrict the size to a maximum. Causes a scrollbar to show up. */
3207 if (msgheight
> maxDialogHeight
)
3209 msgheight
= maxDialogHeight
;
3210 scroll_flag
= WS_VSCROLL
;
3211 messageWidth
+= GetSystemMetrics(SM_CXVSCROLL
);
3214 /* Add width of icon to dlgwidth, and some space */
3215 dlgwidth
= messageWidth
+ DLG_ICON_WIDTH
+ 3 * dlgPaddingX
;
3217 if (msgheight
< DLG_ICON_HEIGHT
)
3218 msgheight
= DLG_ICON_HEIGHT
;
3221 * Check button names. A long one will make the dialog wider.
3222 * When called early (-register error message) p_go isn't initialized.
3224 vertical
= (p_go
!= NULL
&& vim_strchr(p_go
, GO_VERTICAL
) != NULL
);
3227 // Place buttons horizontally if they fit.
3228 horizWidth
= dlgPaddingX
;
3233 pend
= vim_strchr(pstart
, DLG_BUTTON_SEP
);
3235 pend
= pstart
+ STRLEN(pstart
); // Last button name.
3236 textWidth
= GetTextWidth(hdc
, pstart
, (int)(pend
- pstart
));
3237 if (textWidth
< minButtonWidth
)
3238 textWidth
= minButtonWidth
;
3239 textWidth
+= dlgPaddingX
; /* Padding within button */
3240 buttonWidths
[i
] = textWidth
;
3241 buttonPositions
[i
++] = horizWidth
;
3242 horizWidth
+= textWidth
+ dlgPaddingX
; /* Pad between buttons */
3244 } while (*pend
!= NUL
);
3246 if (horizWidth
> maxDialogWidth
)
3247 vertical
= TRUE
; // Too wide to fit on the screen.
3248 else if (horizWidth
> dlgwidth
)
3249 dlgwidth
= horizWidth
;
3254 // Stack buttons vertically.
3258 pend
= vim_strchr(pstart
, DLG_BUTTON_SEP
);
3260 pend
= pstart
+ STRLEN(pstart
); // Last button name.
3261 textWidth
= GetTextWidth(hdc
, pstart
, (int)(pend
- pstart
));
3262 textWidth
+= dlgPaddingX
; /* Padding within button */
3263 textWidth
+= DLG_VERT_PADDING_X
* 2; /* Padding around button */
3264 if (textWidth
> dlgwidth
)
3265 dlgwidth
= textWidth
;
3267 } while (*pend
!= NUL
);
3270 if (dlgwidth
< DLG_MIN_WIDTH
)
3271 dlgwidth
= DLG_MIN_WIDTH
; /* Don't allow a really thin dialog!*/
3273 /* start to fill in the dlgtemplate information. addressing by WORDs */
3275 lStyle
= DS_MODALFRAME
| WS_CAPTION
|DS_3DLOOK
| WS_VISIBLE
|DS_SETFONT
;
3277 lStyle
= DS_MODALFRAME
| WS_CAPTION
|DS_3DLOOK
| WS_VISIBLE
;
3280 add_long(0); // (lExtendedStyle)
3281 pnumitems
= p
; /*save where the number of items must be stored*/
3282 add_word(0); // NumberOfItems(will change later)
3285 add_word(PixelToDialogX(dlgwidth
)); // cx
3289 dlgheight
= msgheight
+ 2 * dlgPaddingY
+
3290 DLG_VERT_PADDING_Y
+ 2 * fontHeight
* numButtons
;
3292 dlgheight
= msgheight
+ 3 * dlgPaddingY
+ 2 * fontHeight
;
3294 // Dialog needs to be taller if contains an edit box.
3295 editboxheight
= fontHeight
+ dlgPaddingY
+ 4 * DLG_VERT_PADDING_Y
;
3296 if (textfield
!= NULL
)
3297 dlgheight
+= editboxheight
;
3299 add_word(PixelToDialogY(dlgheight
));
3301 add_word(0); // Menu
3302 add_word(0); // Class
3304 /* copy the title of the dialog */
3305 nchar
= nCopyAnsiToWideChar(p
, (title
?
3307 (LPSTR
)("Vim "VIM_VERSION_MEDIUM
)));
3312 /* do the font, since DS_3DLOOK doesn't work properly */
3313 #ifdef USE_SYSMENU_FONT
3317 *p
++ = -MulDiv(lfSysmenu
.lfHeight
, 72,
3318 GetDeviceCaps(hdc
, LOGPIXELSY
));
3319 nchar
= nCopyAnsiToWideChar(p
, TEXT(lfSysmenu
.lfFaceName
));
3324 *p
++ = DLG_FONT_POINT_SIZE
; // point size
3325 nchar
= nCopyAnsiToWideChar(p
, TEXT(DLG_FONT_NAME
));
3330 buttonYpos
= msgheight
+ 2 * dlgPaddingY
;
3332 if (textfield
!= NULL
)
3333 buttonYpos
+= editboxheight
;
3337 horizWidth
= (dlgwidth
- horizWidth
) / 2; /* Now it's X offset */
3338 for (i
= 0; i
< numButtons
; i
++)
3340 /* get end of this button. */
3341 for ( pend
= pstart
;
3342 *pend
&& (*pend
!= DLG_BUTTON_SEP
);
3351 * setting the BS_DEFPUSHBUTTON style doesn't work because Windows sets
3352 * the focus to the first tab-able button and in so doing makes that
3353 * the default!! Grrr. Workaround: Make the default button the only
3354 * one with WS_TABSTOP style. Means user can't tab between buttons, but
3355 * he/she can use arrow keys.
3357 * new NOTE: BS_DEFPUSHBUTTON is required to be able to select the
3358 * right button when hitting <Enter>. E.g., for the ":confirm quit"
3359 * dialog. Also needed for when the textfield is the default control.
3360 * It appears to work now (perhaps not on Win95?).
3364 p
= add_dialog_element(p
,
3366 ? BS_DEFPUSHBUTTON
: BS_PUSHBUTTON
) | WS_TABSTOP
,
3367 PixelToDialogX(DLG_VERT_PADDING_X
),
3368 PixelToDialogY(buttonYpos
/* TBK */
3369 + 2 * fontHeight
* i
),
3370 PixelToDialogX(dlgwidth
- 2 * DLG_VERT_PADDING_X
),
3371 (WORD
)(PixelToDialogY(2 * fontHeight
) - 1),
3372 (WORD
)(IDCANCEL
+ 1 + i
), (WORD
)0x0080, pstart
);
3376 p
= add_dialog_element(p
,
3378 ? BS_DEFPUSHBUTTON
: BS_PUSHBUTTON
) | WS_TABSTOP
,
3379 PixelToDialogX(horizWidth
+ buttonPositions
[i
]),
3380 PixelToDialogY(buttonYpos
), /* TBK */
3381 PixelToDialogX(buttonWidths
[i
]),
3382 (WORD
)(PixelToDialogY(2 * fontHeight
) - 1),
3383 (WORD
)(IDCANCEL
+ 1 + i
), (WORD
)0x0080, pstart
);
3385 pstart
= pend
+ 1; /*next button*/
3387 *pnumitems
+= numButtons
;
3390 p
= add_dialog_element(p
, SS_ICON
,
3391 PixelToDialogX(dlgPaddingX
),
3392 PixelToDialogY(dlgPaddingY
),
3393 PixelToDialogX(DLG_ICON_WIDTH
),
3394 PixelToDialogY(DLG_ICON_HEIGHT
),
3395 DLG_NONBUTTON_CONTROL
+ 0, (WORD
)0x0082,
3399 /* Dialog message */
3400 p
= add_dialog_element(p
, SS_LEFT
,
3401 PixelToDialogX(2 * dlgPaddingX
+ DLG_ICON_WIDTH
),
3402 PixelToDialogY(dlgPaddingY
),
3403 (WORD
)(PixelToDialogX(messageWidth
) + 1),
3404 PixelToDialogY(msgheight
),
3405 DLG_NONBUTTON_CONTROL
+ 1, (WORD
)0x0082, message
);
3407 /* Dialog message */
3408 p
= add_dialog_element(p
, ES_LEFT
|scroll_flag
|ES_MULTILINE
|ES_READONLY
,
3409 PixelToDialogX(2 * dlgPaddingX
+ DLG_ICON_WIDTH
),
3410 PixelToDialogY(dlgPaddingY
),
3411 (WORD
)(PixelToDialogX(messageWidth
) + 1),
3412 PixelToDialogY(msgheight
),
3413 DLG_NONBUTTON_CONTROL
+ 1, (WORD
)0x0081, message
);
3417 if (textfield
!= NULL
)
3419 p
= add_dialog_element(p
, ES_LEFT
|ES_AUTOHSCROLL
|WS_TABSTOP
|WS_BORDER
,
3420 PixelToDialogX(2 * dlgPaddingX
),
3421 PixelToDialogY(2 * dlgPaddingY
+ msgheight
),
3422 PixelToDialogX(dlgwidth
- 4 * dlgPaddingX
),
3423 PixelToDialogY(fontHeight
+ dlgPaddingY
),
3424 DLG_NONBUTTON_CONTROL
+ 2, (WORD
)0x0081, textfield
);
3430 SelectFont(hdc
, oldFont
);
3432 ReleaseDC(hwnd
, hdc
);
3434 /* Let the dialog_callback() function know which button to make default
3435 * If we have an edit box, make that the default. We also need to tell
3436 * dialog_callback() if this dialog contains an edit box or not. We do
3437 * this by setting s_textfield if it does.
3439 if (textfield
!= NULL
)
3441 dialog_default_button
= DLG_NONBUTTON_CONTROL
+ 2;
3442 s_textfield
= textfield
;
3446 dialog_default_button
= IDCANCEL
+ 1 + dfltbutton
;
3450 /* show the dialog box modally and get a return value */
3451 nchar
= (int)DialogBoxIndirect(
3453 (LPDLGTEMPLATE
)pdlgtemplate
,
3455 (DLGPROC
)dialog_callback
);
3457 LocalFree(LocalHandle(pdlgtemplate
));
3459 vim_free(buttonWidths
);
3460 vim_free(buttonPositions
);
3461 vim_free(ga
.ga_data
);
3463 /* Focus back to our window (for when MDI is used). */
3464 (void)SetFocus(s_hwnd
);
3469 #endif /* FEAT_GUI_DIALOG */
3472 * Put a simple element (basic class) onto a dialog template in memory.
3473 * return a pointer to where the next item should be added.
3476 * lStyle = additional style flags
3477 * (be careful, NT3.51 & Win32s will ignore the new ones)
3478 * x,y = x & y positions IN DIALOG UNITS
3479 * w,h = width and height IN DIALOG UNITS
3480 * Id = ID used in messages
3481 * clss = class ID, e.g 0x0080 for a button, 0x0082 for a static
3482 * caption = usually text or resource name
3484 * TODO: use the length information noted here to enable the dialog creation
3485 * routines to work out more exactly how much memory they need to alloc.
3497 const char *caption
)
3501 p
= lpwAlign(p
); /* Align to dword boundary*/
3502 lStyle
= lStyle
| WS_VISIBLE
| WS_CHILD
;
3503 *p
++ = LOWORD(lStyle
);
3504 *p
++ = HIWORD(lStyle
);
3505 *p
++ = 0; // LOWORD (lExtendedStyle)
3506 *p
++ = 0; // HIWORD (lExtendedStyle)
3511 *p
++ = Id
; //9 or 10 words in all
3513 *p
++ = (WORD
)0xffff;
3514 *p
++ = clss
; //2 more here
3516 nchar
= nCopyAnsiToWideChar(p
, (LPSTR
)caption
); //strlen(caption)+1
3519 *p
++ = 0; // advance pointer over nExtraStuff WORD - 2 more
3521 return p
; //total = 15+ (strlen(caption)) words
3522 // = 30 + 2(strlen(caption) bytes reqd
3527 * Helper routine. Take an input pointer, return closest pointer that is
3528 * aligned on a DWORD (4 byte) boundary. Taken from the Win32SDK samples.
3544 * Helper routine. Takes second parameter as Ansi string, copies it to first
3545 * parameter as wide character (16-bits / char) string, and returns integer
3546 * number of wide characters (words) in string (including the trailing wide
3547 * char NULL). Partly taken from the Win32SDK samples.
3550 nCopyAnsiToWideChar(
3556 int len
= lstrlen(lpAnsiIn
) + 1; /* include NUL character */
3560 if (enc_codepage
== 0 && (int)GetACP() != enc_codepage
)
3562 /* Not a codepage, use our own conversion function. */
3563 wn
= enc_to_ucs2(lpAnsiIn
, NULL
);
3566 wcscpy(lpWCStr
, wn
);
3567 nChar
= (int)wcslen(wn
) + 1;
3572 /* Use Win32 conversion function. */
3573 nChar
= MultiByteToWideChar(
3574 enc_codepage
> 0 ? enc_codepage
: CP_ACP
,
3578 for (i
= 0; i
< nChar
; ++i
)
3579 if (lpWCStr
[i
] == (WORD
)'\t') /* replace tabs with spaces */
3580 lpWCStr
[i
] = (WORD
)' ';
3584 if (*lpAnsiIn
== '\t')
3585 *lpWCStr
++ = (WORD
)' ';
3587 *lpWCStr
++ = (WORD
)*lpAnsiIn
;
3589 } while (*lpAnsiIn
++);
3598 * The callback function for all the modeless dialogs that make up the
3599 * "tearoff menus" Very simple - forward button presses (to fool Vim into
3600 * thinking its menus have been clicked), and go away when closed.
3602 static LRESULT CALLBACK
3609 if (message
== WM_INITDIALOG
)
3612 /* May show the mouse pointer again. */
3613 HandleMouseHide(message
, lParam
);
3615 if (message
== WM_COMMAND
)
3617 if ((WORD
)(LOWORD(wParam
)) & 0x8000)
3622 if (GetCursorPos(&mp
) && GetWindowRect(hwnd
, &rect
))
3624 (void)TrackPopupMenu(
3625 (HMENU
)(long_u
)(LOWORD(wParam
) ^ 0x8000),
3626 TPM_LEFTALIGN
| TPM_LEFTBUTTON
,
3627 (int)rect
.right
- 8,
3629 (int)0, /*reserved param*/
3633 * NOTE: The pop-up menu can eat the mouse up event.
3634 * We deal with this in normal.c.
3639 /* Pass on messages to the main Vim window */
3640 PostMessage(s_hwnd
, WM_COMMAND
, LOWORD(wParam
), 0);
3642 * Give main window the focus back: this is so after
3643 * choosing a tearoff button you can start typing again
3646 (void)SetFocus(s_hwnd
);
3649 if ((message
== WM_SYSCOMMAND
) && (wParam
== SC_CLOSE
))
3651 DestroyWindow(hwnd
);
3655 /* When moved around, give main window the focus back. */
3656 if (message
== WM_EXITSIZEMOVE
)
3657 (void)SetActiveWindow(s_hwnd
);
3665 * Decide whether to use the "new look" (small, non-bold font) or the "old
3666 * look" (big, clanky font) for dialogs, and work out a few values for use
3667 * later accordingly.
3670 get_dialog_font_metrics(void)
3673 HFONT hfontTools
= 0;
3676 #ifdef USE_SYSMENU_FONT
3680 s_usenewlook
= FALSE
;
3683 * For NT3.51 and Win32s, we stick with the old look
3684 * because it matches everything else.
3688 #ifdef USE_SYSMENU_FONT
3689 if (gui_w32_get_menu_font(&lfSysmenu
) == OK
)
3690 hfontTools
= CreateFontIndirect(&lfSysmenu
);
3693 hfontTools
= CreateFont(-DLG_FONT_POINT_SIZE
, 0, 0, 0, 0, 0, 0, 0,
3694 0, 0, 0, 0, VARIABLE_PITCH
, DLG_FONT_NAME
);
3698 hdc
= GetDC(s_hwnd
);
3699 SelectObject(hdc
, hfontTools
);
3701 * GetTextMetrics() doesn't return the right value in
3702 * tmAveCharWidth, so we have to figure out the dialog base units
3705 GetTextExtentPoint(hdc
,
3706 "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz",
3708 ReleaseDC(s_hwnd
, hdc
);
3710 s_dlgfntwidth
= (WORD
)((size
.cx
/ 26 + 1) / 2);
3711 s_dlgfntheight
= (WORD
)size
.cy
;
3712 s_usenewlook
= TRUE
;
3718 dlgFontSize
= GetDialogBaseUnits(); /* fall back to big old system*/
3719 s_dlgfntwidth
= LOWORD(dlgFontSize
);
3720 s_dlgfntheight
= HIWORD(dlgFontSize
);
3724 #if defined(FEAT_MENU) && defined(FEAT_TEAROFF)
3726 * Create a pseudo-"tearoff menu" based on the child
3727 * items of a given menu pointer.
3736 WORD
*p
, *pdlgtemplate
, *pnumitems
, *ptrueheight
;
3738 int nchar
, textWidth
, submenuWidth
;
3740 DWORD lExtendedStyle
;
3744 vimmenu_T
*the_menu
= menu
;
3747 HFONT font
, oldFont
;
3748 int col
, spaceWidth
, len
;
3749 int columnWidths
[2];
3750 char_u
*label
, *text
;
3753 int padding0
, padding1
, padding2
= 0;
3757 #ifdef USE_SYSMENU_FONT
3759 int use_lfSysmenu
= FALSE
;
3763 * If this menu is already torn off, move it to the mouse position.
3765 if (IsWindow(menu
->tearoff_handle
))
3768 if (GetCursorPos((LPPOINT
)&mp
))
3770 SetWindowPos(menu
->tearoff_handle
, NULL
, mp
.x
, mp
.y
, 0, 0,
3771 SWP_NOACTIVATE
| SWP_NOSIZE
| SWP_NOZORDER
);
3777 * Create a new tearoff.
3779 if (*title
== MNU_HIDDEN_CHAR
)
3782 /* Allocate memory to store the dialog template. It's made bigger when
3784 template_len
= DLG_ALLOC_SIZE
;
3785 pdlgtemplate
= p
= (WORD
*)LocalAlloc(LPTR
, template_len
);
3789 hwnd
= GetDesktopWindow();
3790 hdc
= GetWindowDC(hwnd
);
3791 #ifdef USE_SYSMENU_FONT
3792 if (gui_w32_get_menu_font(&lfSysmenu
) == OK
)
3794 font
= CreateFontIndirect(&lfSysmenu
);
3795 use_lfSysmenu
= TRUE
;
3799 font
= CreateFont(-DLG_FONT_POINT_SIZE
, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
3800 VARIABLE_PITCH
, DLG_FONT_NAME
);
3802 oldFont
= SelectFont(hdc
, font
);
3804 oldFont
= SelectFont(hdc
, GetStockObject(SYSTEM_FONT
));
3806 /* Calculate width of a single space. Used for padding columns to the
3808 spaceWidth
= GetTextWidth(hdc
, " ", 1);
3810 /* Figure out max width of the text column, the accelerator column and the
3811 * optional submenu column. */
3813 for (col
= 0; col
< 2; col
++)
3815 columnWidths
[col
] = 0;
3816 for (pmenu
= menu
->children
; pmenu
!= NULL
; pmenu
= pmenu
->next
)
3818 /* Use "dname" here to compute the width of the visible text. */
3819 text
= (col
== 0) ? pmenu
->dname
: pmenu
->actext
;
3820 if (text
!= NULL
&& *text
!= NUL
)
3822 textWidth
= GetTextWidthEnc(hdc
, text
, (int)STRLEN(text
));
3823 if (textWidth
> columnWidths
[col
])
3824 columnWidths
[col
] = textWidth
;
3826 if (pmenu
->children
!= NULL
)
3827 submenuWidth
= TEAROFF_COLUMN_PADDING
* spaceWidth
;
3830 if (columnWidths
[1] == 0)
3832 /* no accelerators */
3833 if (submenuWidth
!= 0)
3834 columnWidths
[0] += submenuWidth
;
3836 columnWidths
[0] += spaceWidth
;
3840 /* there is an accelerator column */
3841 columnWidths
[0] += TEAROFF_COLUMN_PADDING
* spaceWidth
;
3842 columnWidths
[1] += submenuWidth
;
3846 * Now find the total width of our 'menu'.
3848 textWidth
= columnWidths
[0] + columnWidths
[1];
3849 if (submenuWidth
!= 0)
3851 submenuWidth
= GetTextWidth(hdc
, TEAROFF_SUBMENU_LABEL
,
3852 (int)STRLEN(TEAROFF_SUBMENU_LABEL
));
3853 textWidth
+= submenuWidth
;
3855 dlgwidth
= GetTextWidthEnc(hdc
, title
, (int)STRLEN(title
));
3856 if (textWidth
> dlgwidth
)
3857 dlgwidth
= textWidth
;
3858 dlgwidth
+= 2 * TEAROFF_PADDING_X
+ TEAROFF_BUTTON_PAD_X
;
3860 /* W95 can't do thin dialogs, they look v. weird! */
3861 if (mch_windows95() && dlgwidth
< TEAROFF_MIN_WIDTH
)
3862 dlgwidth
= TEAROFF_MIN_WIDTH
;
3864 /* start to fill in the dlgtemplate information. addressing by WORDs */
3866 lStyle
= DS_MODALFRAME
| WS_CAPTION
| WS_SYSMENU
|DS_SETFONT
| WS_VISIBLE
;
3868 lStyle
= DS_MODALFRAME
| WS_CAPTION
| WS_SYSMENU
| WS_VISIBLE
;
3870 lExtendedStyle
= WS_EX_TOOLWINDOW
|WS_EX_STATICEDGE
;
3871 *p
++ = LOWORD(lStyle
);
3872 *p
++ = HIWORD(lStyle
);
3873 *p
++ = LOWORD(lExtendedStyle
);
3874 *p
++ = HIWORD(lExtendedStyle
);
3875 pnumitems
= p
; /* save where the number of items must be stored */
3876 *p
++ = 0; // NumberOfItems(will change later)
3877 gui_mch_getmouse(&x
, &y
);
3878 if (initX
== 0xffffL
)
3879 *p
++ = PixelToDialogX(x
); // x
3881 *p
++ = PixelToDialogX(initX
); // x
3882 if (initY
== 0xffffL
)
3883 *p
++ = PixelToDialogY(y
); // y
3885 *p
++ = PixelToDialogY(initY
); // y
3886 *p
++ = PixelToDialogX(dlgwidth
); // cx
3888 *p
++ = 0; // dialog height: changed later anyway
3892 /* copy the title of the dialog */
3893 nchar
= nCopyAnsiToWideChar(p
, ((*title
)
3895 : (LPSTR
)("Vim "VIM_VERSION_MEDIUM
)));
3900 /* do the font, since DS_3DLOOK doesn't work properly */
3901 #ifdef USE_SYSMENU_FONT
3905 *p
++ = -MulDiv(lfSysmenu
.lfHeight
, 72,
3906 GetDeviceCaps(hdc
, LOGPIXELSY
));
3907 nchar
= nCopyAnsiToWideChar(p
, TEXT(lfSysmenu
.lfFaceName
));
3912 *p
++ = DLG_FONT_POINT_SIZE
; // point size
3913 nchar
= nCopyAnsiToWideChar (p
, TEXT(DLG_FONT_NAME
));
3919 * Loop over all the items in the menu.
3920 * But skip over the tearbar.
3922 if (STRCMP(menu
->children
->name
, TEAR_STRING
) == 0)
3923 menu
= menu
->children
->next
;
3925 menu
= menu
->children
;
3926 for ( ; menu
!= NULL
; menu
= menu
->next
)
3928 if (menu
->modes
== 0) /* this menu has just been deleted */
3930 if (menu_is_separator(menu
->dname
))
3936 /* Check if there still is plenty of room in the template. Make it
3937 * larger when needed. */
3938 if (((char *)p
- (char *)pdlgtemplate
) + 1000 > template_len
)
3942 newp
= (WORD
*)LocalAlloc(LPTR
, template_len
+ 4096);
3945 template_len
+= 4096;
3946 mch_memmove(newp
, pdlgtemplate
,
3947 (char *)p
- (char *)pdlgtemplate
);
3948 p
= newp
+ (p
- pdlgtemplate
);
3949 pnumitems
= newp
+ (pnumitems
- pdlgtemplate
);
3950 ptrueheight
= newp
+ (ptrueheight
- pdlgtemplate
);
3951 LocalFree(LocalHandle(pdlgtemplate
));
3952 pdlgtemplate
= newp
;
3956 /* Figure out minimal length of this menu label. Use "name" for the
3957 * actual text, "dname" for estimating the displayed size. "name"
3958 * has "&a" for mnemonic and includes the accelerator. */
3959 len
= nameLen
= (int)STRLEN(menu
->name
);
3960 padding0
= (columnWidths
[0] - GetTextWidthEnc(hdc
, menu
->dname
,
3961 (int)STRLEN(menu
->dname
))) / spaceWidth
;
3964 if (menu
->actext
!= NULL
)
3966 acLen
= (int)STRLEN(menu
->actext
);
3968 textWidth
= GetTextWidthEnc(hdc
, menu
->actext
, acLen
);
3972 padding1
= (columnWidths
[1] - textWidth
) / spaceWidth
;
3975 if (menu
->children
== NULL
)
3977 padding2
= submenuWidth
/ spaceWidth
;
3979 menuID
= (WORD
)(menu
->id
);
3983 len
+= (int)STRLEN(TEAROFF_SUBMENU_LABEL
);
3984 menuID
= (WORD
)((long_u
)(menu
->submenu_id
) | (DWORD
)0x8000);
3987 /* Allocate menu label and fill it in */
3988 text
= label
= alloc((unsigned)len
+ 1);
3992 vim_strncpy(text
, menu
->name
, nameLen
);
3993 text
= vim_strchr(text
, TAB
); /* stop at TAB before actext */
3995 text
= label
+ nameLen
; /* no actext, use whole name */
3996 while (padding0
-- > 0)
3998 if (menu
->actext
!= NULL
)
4000 STRNCPY(text
, menu
->actext
, acLen
);
4003 while (padding1
-- > 0)
4005 if (menu
->children
!= NULL
)
4007 STRCPY(text
, TEAROFF_SUBMENU_LABEL
);
4008 text
+= STRLEN(TEAROFF_SUBMENU_LABEL
);
4012 while (padding2
-- > 0)
4018 * BS_LEFT will just be ignored on Win32s/NT3.5x - on
4019 * W95/NT4 it makes the tear-off look more like a menu.
4021 p
= add_dialog_element(p
,
4022 BS_PUSHBUTTON
|BS_LEFT
,
4023 (WORD
)PixelToDialogX(TEAROFF_PADDING_X
),
4024 (WORD
)(sepPadding
+ 1 + 13 * (*pnumitems
)),
4025 (WORD
)PixelToDialogX(dlgwidth
- 2 * TEAROFF_PADDING_X
),
4027 menuID
, (WORD
)0x0080, label
);
4032 *ptrueheight
= (WORD
)(sepPadding
+ 1 + 13 * (*pnumitems
));
4035 /* show modelessly */
4036 the_menu
->tearoff_handle
= CreateDialogIndirect(
4038 (LPDLGTEMPLATE
)pdlgtemplate
,
4040 (DLGPROC
)tearoff_callback
);
4042 LocalFree(LocalHandle(pdlgtemplate
));
4043 SelectFont(hdc
, oldFont
);
4045 ReleaseDC(hwnd
, hdc
);
4048 * Reassert ourselves as the active window. This is so that after creating
4049 * a tearoff, the user doesn't have to click with the mouse just to start
4052 (void)SetActiveWindow(s_hwnd
);
4054 /* make sure the right buttons are enabled */
4055 force_menu_update
= TRUE
;
4059 #if defined(FEAT_TOOLBAR) || defined(PROTO)
4060 #include "gui_w32_rc.h"
4062 /* This not defined in older SDKs */
4063 # ifndef TBSTYLE_FLAT
4064 # define TBSTYLE_FLAT 0x0800
4068 * Create the toolbar, initially unpopulated.
4069 * (just like the menu, there are no defaults, it's all
4070 * set up through menu.vim)
4073 initialise_toolbar(void)
4075 InitCommonControls();
4076 s_toolbarhwnd
= CreateToolbarEx(
4078 WS_CHILD
| TBSTYLE_TOOLTIPS
| TBSTYLE_FLAT
,
4079 4000, //any old big number
4080 31, //number of images in initial bitmap
4082 IDR_TOOLBAR1
, // id of initial bitmap
4084 0, // initial number of buttons
4085 TOOLBAR_BUTTON_WIDTH
, //api guide is wrong!
4086 TOOLBAR_BUTTON_HEIGHT
,
4087 TOOLBAR_BUTTON_WIDTH
,
4088 TOOLBAR_BUTTON_HEIGHT
,
4092 gui_mch_show_toolbar(vim_strchr(p_go
, GO_TOOLBAR
) != NULL
);
4096 get_toolbar_bitmap(vimmenu_T
*menu
)
4101 * Check user bitmaps first, unless builtin is specified.
4103 if (!is_winnt_3() && !menu
->icon_builtin
)
4105 char_u fname
[MAXPATHL
];
4106 HANDLE hbitmap
= NULL
;
4108 if (menu
->iconfile
!= NULL
)
4110 gui_find_iconfile(menu
->iconfile
, fname
, "bmp");
4111 hbitmap
= LoadImage(
4115 TOOLBAR_BUTTON_WIDTH
,
4116 TOOLBAR_BUTTON_HEIGHT
,
4123 * If the LoadImage call failed, or the "icon=" file
4124 * didn't exist or wasn't specified, try the menu name
4127 && (gui_find_bitmap(menu
->name
, fname
, "bmp") == OK
))
4128 hbitmap
= LoadImage(
4132 TOOLBAR_BUTTON_WIDTH
,
4133 TOOLBAR_BUTTON_HEIGHT
,
4138 if (hbitmap
!= NULL
)
4140 TBADDBITMAP tbAddBitmap
;
4142 tbAddBitmap
.hInst
= NULL
;
4143 tbAddBitmap
.nID
= (long_u
)hbitmap
;
4145 i
= (int)SendMessage(s_toolbarhwnd
, TB_ADDBITMAP
,
4146 (WPARAM
)1, (LPARAM
)&tbAddBitmap
);
4147 /* i will be set to -1 if it fails */
4150 if (i
== -1 && menu
->iconidx
>= 0 && menu
->iconidx
< TOOLBAR_BITMAP_COUNT
)
4157 #if defined(FEAT_GUI_TABLINE) || defined(PROTO)
4159 initialise_tabline(void)
4161 InitCommonControls();
4163 s_tabhwnd
= CreateWindow(WC_TABCONTROL
, "Vim tabline",
4164 WS_CHILD
|TCS_FOCUSNEVER
|TCS_TOOLTIPS
,
4165 CW_USEDEFAULT
, CW_USEDEFAULT
, CW_USEDEFAULT
,
4166 CW_USEDEFAULT
, s_hwnd
, NULL
, s_hinst
, NULL
);
4168 gui
.tabline_height
= TABLINE_HEIGHT
;
4170 # ifdef USE_SYSMENU_FONT
4176 #if defined(FEAT_OLE) || defined(FEAT_EVAL) || defined(PROTO)
4178 * Make the GUI window come to the foreground.
4181 gui_mch_set_foreground(void)
4183 if (IsIconic(s_hwnd
))
4184 SendMessage(s_hwnd
, WM_SYSCOMMAND
, SC_RESTORE
, 0);
4185 SetForegroundWindow(s_hwnd
);
4189 #if defined(FEAT_MBYTE_IME) && defined(DYNAMIC_IME)
4193 hLibImm
= LoadLibrary("imm32.dll");
4194 if (hLibImm
== NULL
)
4197 pImmGetCompositionStringA
4198 = (void *)GetProcAddress(hLibImm
, "ImmGetCompositionStringA");
4199 pImmGetCompositionStringW
4200 = (void *)GetProcAddress(hLibImm
, "ImmGetCompositionStringW");
4202 = (void *)GetProcAddress(hLibImm
, "ImmGetContext");
4203 pImmAssociateContext
4204 = (void *)GetProcAddress(hLibImm
, "ImmAssociateContext");
4206 = (void *)GetProcAddress(hLibImm
, "ImmReleaseContext");
4208 = (void *)GetProcAddress(hLibImm
, "ImmGetOpenStatus");
4210 = (void *)GetProcAddress(hLibImm
, "ImmSetOpenStatus");
4211 pImmGetCompositionFont
4212 = (void *)GetProcAddress(hLibImm
, "ImmGetCompositionFontA");
4213 pImmSetCompositionFont
4214 = (void *)GetProcAddress(hLibImm
, "ImmSetCompositionFontA");
4215 pImmSetCompositionWindow
4216 = (void *)GetProcAddress(hLibImm
, "ImmSetCompositionWindow");
4217 pImmGetConversionStatus
4218 = (void *)GetProcAddress(hLibImm
, "ImmGetConversionStatus");
4219 pImmSetConversionStatus
4220 = (void *)GetProcAddress(hLibImm
, "ImmSetConversionStatus");
4222 if ( pImmGetCompositionStringA
== NULL
4223 || pImmGetCompositionStringW
== NULL
4224 || pImmGetContext
== NULL
4225 || pImmAssociateContext
== NULL
4226 || pImmReleaseContext
== NULL
4227 || pImmGetOpenStatus
== NULL
4228 || pImmSetOpenStatus
== NULL
4229 || pImmGetCompositionFont
== NULL
4230 || pImmSetCompositionFont
== NULL
4231 || pImmSetCompositionWindow
== NULL
4232 || pImmGetConversionStatus
== NULL
4233 || pImmSetConversionStatus
== NULL
)
4235 FreeLibrary(hLibImm
);
4237 pImmGetContext
= NULL
;
4244 # if 0 /* not used */
4246 dyn_imm_unload(void)
4250 FreeLibrary(hLibImm
);
4258 #if defined(FEAT_SIGN_ICONS) || defined(PROTO)
4260 # ifdef FEAT_XPM_W32
4261 # define IMAGE_XPM 100
4264 typedef struct _signicon_t
4269 HANDLE hShape
; /* Mask bitmap handle */
4274 gui_mch_drawsign(row
, col
, typenr
)
4282 if (!gui
.in_use
|| (sign
= (signicon_t
*)sign_get_image(typenr
)) == NULL
)
4287 w
= gui
.char_width
* 2;
4288 h
= gui
.char_height
;
4289 switch (sign
->uType
)
4296 hdcMem
= CreateCompatibleDC(s_hdc
);
4297 hbmpOld
= (HBITMAP
)SelectObject(hdcMem
, sign
->hImage
);
4298 BitBlt(s_hdc
, x
, y
, w
, h
, hdcMem
, 0, 0, SRCCOPY
);
4299 SelectObject(hdcMem
, hbmpOld
);
4305 DrawIconEx(s_hdc
, x
, y
, (HICON
)sign
->hImage
, w
, h
, 0, NULL
, DI_NORMAL
);
4313 hdcMem
= CreateCompatibleDC(s_hdc
);
4314 hbmpOld
= (HBITMAP
)SelectObject(hdcMem
, sign
->hShape
);
4316 BitBlt(s_hdc
, x
, y
, w
, h
, hdcMem
, 0, 0, SRCAND
);
4318 SelectObject(hdcMem
, sign
->hImage
);
4320 BitBlt(s_hdc
, x
, y
, w
, h
, hdcMem
, 0, 0, SRCPAINT
);
4321 SelectObject(hdcMem
, hbmpOld
);
4330 close_signicon_image(signicon_t
*sign
)
4333 switch (sign
->uType
)
4336 DeleteObject((HGDIOBJ
)sign
->hImage
);
4339 DestroyCursor((HCURSOR
)sign
->hImage
);
4342 DestroyIcon((HICON
)sign
->hImage
);
4346 DeleteObject((HBITMAP
)sign
->hImage
);
4347 DeleteObject((HBITMAP
)sign
->hShape
);
4354 gui_mch_register_sign(signfile
)
4357 signicon_t sign
, *psign
;
4362 EMSG(_(e_signdata
));
4367 ext
= signfile
+ STRLEN(signfile
) - 4; /* get extention */
4372 if (!STRICMP(ext
, ".bmp"))
4373 sign
.uType
= IMAGE_BITMAP
;
4374 else if (!STRICMP(ext
, ".ico"))
4375 sign
.uType
= IMAGE_ICON
;
4376 else if (!STRICMP(ext
, ".cur") || !STRICMP(ext
, ".ani"))
4377 sign
.uType
= IMAGE_CURSOR
;
4382 sign
.hImage
= (HANDLE
)LoadImage(NULL
, signfile
, sign
.uType
,
4383 gui
.char_width
* 2, gui
.char_height
,
4384 LR_LOADFROMFILE
| LR_CREATEDIBSECTION
);
4386 if (!STRICMP(ext
, ".xpm"))
4388 sign
.uType
= IMAGE_XPM
;
4389 LoadXpmImage(signfile
, (HBITMAP
*)&sign
.hImage
, (HBITMAP
*)&sign
.hShape
);
4395 if (sign
.hImage
&& (psign
= (signicon_t
*)alloc(sizeof(signicon_t
)))
4402 close_signicon_image(&sign
);
4403 EMSG(_(e_signdata
));
4405 return (void *)psign
;
4410 gui_mch_destroy_sign(sign
)
4415 close_signicon_image((signicon_t
*)sign
);
4421 #if defined(FEAT_BEVAL) || defined(PROTO)
4423 /* BALLOON-EVAL IMPLEMENTATION FOR WINDOWS.
4424 * Added by Sergey Khorev <sergey.khorev@gmail.com>
4426 * The only reused thing is gui_beval.h and get_beval_info()
4427 * from gui_beval.c (note it uses x and y of the BalloonEval struct
4428 * to get current mouse position).
4430 * Trying to use as more Windows services as possible, and as less
4431 * IE version as possible :)).
4433 * 1) Don't create ToolTip in gui_mch_create_beval_area, only initialize
4434 * BalloonEval struct.
4435 * 2) Enable/Disable simply create/kill BalloonEval Timer
4436 * 3) When there was enough inactivity, timer procedure posts
4437 * async request to debugger
4438 * 4) gui_mch_post_balloon (invoked from netbeans.c) creates tooltip control
4439 * and performs some actions to show it ASAP
4440 * 5) WM_NOTOFY:TTN_POP destroys created tooltip
4444 * determine whether installed Common Controls support multiline tooltips
4445 * (i.e. their version is >= 4.70
4448 multiline_balloon_available(void)
4451 static char comctl_dll
[] = "comctl32.dll";
4452 static int multiline_tip
= MAYBE
;
4454 if (multiline_tip
!= MAYBE
)
4455 return multiline_tip
;
4457 hDll
= GetModuleHandle(comctl_dll
);
4460 DLLGETVERSIONPROC pGetVer
;
4461 pGetVer
= (DLLGETVERSIONPROC
)GetProcAddress(hDll
, "DllGetVersion");
4463 if (pGetVer
!= NULL
)
4468 ZeroMemory(&dvi
, sizeof(dvi
));
4469 dvi
.cbSize
= sizeof(dvi
);
4471 hr
= (*pGetVer
)(&dvi
);
4474 && (dvi
.dwMajorVersion
> 4
4475 || (dvi
.dwMajorVersion
== 4
4476 && dvi
.dwMinorVersion
>= 70)))
4478 multiline_tip
= TRUE
;
4479 return multiline_tip
;
4484 /* there is chance we have ancient CommCtl 4.70
4485 which doesn't export DllGetVersion */
4487 DWORD len
= GetFileVersionInfoSize(comctl_dll
, &dwHandle
);
4490 VS_FIXEDFILEINFO
*ver
;
4492 void *data
= alloc(len
);
4495 && GetFileVersionInfo(comctl_dll
, 0, len
, data
)
4496 && VerQueryValue(data
, "\\", (void **)&ver
, &vlen
)
4498 && HIWORD(ver
->dwFileVersionMS
) > 4
4499 || (HIWORD(ver
->dwFileVersionMS
) == 4
4500 && LOWORD(ver
->dwFileVersionMS
) >= 70))
4503 multiline_tip
= TRUE
;
4504 return multiline_tip
;
4510 multiline_tip
= FALSE
;
4511 return multiline_tip
;
4515 make_tooltip(beval
, text
, pt
)
4523 if (multiline_balloon_available() == TRUE
)
4524 ToolInfoSize
= sizeof(TOOLINFO_NEW
);
4526 ToolInfoSize
= sizeof(TOOLINFO
);
4528 pti
= (TOOLINFO
*)alloc(ToolInfoSize
);
4532 beval
->balloon
= CreateWindowEx(WS_EX_TOPMOST
, TOOLTIPS_CLASS
,
4533 NULL
, WS_POPUP
| TTS_NOPREFIX
| TTS_ALWAYSTIP
,
4534 CW_USEDEFAULT
, CW_USEDEFAULT
, CW_USEDEFAULT
, CW_USEDEFAULT
,
4535 beval
->target
, NULL
, s_hinst
, NULL
);
4537 SetWindowPos(beval
->balloon
, HWND_TOPMOST
, 0, 0, 0, 0,
4538 SWP_NOMOVE
| SWP_NOSIZE
| SWP_NOACTIVATE
);
4540 pti
->cbSize
= ToolInfoSize
;
4541 pti
->uFlags
= TTF_SUBCLASS
;
4542 pti
->hwnd
= beval
->target
;
4543 pti
->hinst
= 0; /* Don't use string resources */
4544 pti
->uId
= ID_BEVAL_TOOLTIP
;
4546 if (multiline_balloon_available() == TRUE
)
4549 TOOLINFO_NEW
*ptin
= (TOOLINFO_NEW
*)pti
;
4550 pti
->lpszText
= LPSTR_TEXTCALLBACK
;
4551 ptin
->lParam
= (LPARAM
)text
;
4552 if (GetClientRect(s_textArea
, &rect
)) /* switch multiline tooltips on */
4553 SendMessage(beval
->balloon
, TTM_SETMAXTIPWIDTH
, 0,
4554 (LPARAM
)rect
.right
);
4557 pti
->lpszText
= text
; /* do this old way */
4559 /* Limit ballooneval bounding rect to CursorPos neighbourhood */
4560 pti
->rect
.left
= pt
.x
- 3;
4561 pti
->rect
.top
= pt
.y
- 3;
4562 pti
->rect
.right
= pt
.x
+ 3;
4563 pti
->rect
.bottom
= pt
.y
+ 3;
4565 SendMessage(beval
->balloon
, TTM_ADDTOOL
, 0, (LPARAM
)pti
);
4566 /* Make tooltip appear sooner */
4567 SendMessage(beval
->balloon
, TTM_SETDELAYTIME
, TTDT_INITIAL
, 10);
4569 * HACK: force tooltip to appear, because it'll not appear until
4570 * first mouse move. D*mn M$
4572 mouse_event(MOUSEEVENTF_MOVE
, 1, 1, 0, 0);
4573 mouse_event(MOUSEEVENTF_MOVE
, (DWORD
)-1, (DWORD
)-1, 0, 0);
4578 delete_tooltip(beval
)
4581 DestroyWindow(beval
->balloon
);
4585 static VOID CALLBACK
4586 BevalTimerProc(hwnd
, uMsg
, idEvent
, dwTime
)
4595 if (cur_beval
== NULL
|| cur_beval
->showState
== ShS_SHOWING
|| !p_beval
)
4599 if (WindowFromPoint(pt
) != s_textArea
)
4602 ScreenToClient(s_textArea
, &pt
);
4603 GetClientRect(s_textArea
, &rect
);
4604 if (!PtInRect(&rect
, pt
))
4607 if (LastActivity
> 0
4608 && (dwTime
- LastActivity
) >= (DWORD
)p_bdlay
4609 && (cur_beval
->showState
!= ShS_PENDING
4610 || abs(cur_beval
->x
- pt
.x
) > 3
4611 || abs(cur_beval
->y
- pt
.y
) > 3))
4613 /* Pointer resting in one place long enough, it's time to show
4615 cur_beval
->showState
= ShS_PENDING
;
4616 cur_beval
->x
= pt
.x
;
4617 cur_beval
->y
= pt
.y
;
4619 // TRACE0("BevalTimerProc: sending request");
4621 if (cur_beval
->msgCB
!= NULL
)
4622 (*cur_beval
->msgCB
)(cur_beval
, 0);
4628 gui_mch_disable_beval_area(beval
)
4631 // TRACE0("gui_mch_disable_beval_area {{{");
4632 KillTimer(s_textArea
, BevalTimerId
);
4633 // TRACE0("gui_mch_disable_beval_area }}}");
4638 gui_mch_enable_beval_area(beval
)
4641 // TRACE0("gui_mch_enable_beval_area |||");
4644 // TRACE0("gui_mch_enable_beval_area {{{");
4645 BevalTimerId
= SetTimer(s_textArea
, 0, p_bdlay
/ 2, BevalTimerProc
);
4646 // TRACE0("gui_mch_enable_beval_area }}}");
4650 gui_mch_post_balloon(beval
, mesg
)
4655 // TRACE0("gui_mch_post_balloon {{{");
4656 if (beval
->showState
== ShS_SHOWING
)
4659 ScreenToClient(s_textArea
, &pt
);
4661 if (abs(beval
->x
- pt
.x
) < 3 && abs(beval
->y
- pt
.y
) < 3)
4662 /* cursor is still here */
4664 gui_mch_disable_beval_area(cur_beval
);
4665 beval
->showState
= ShS_SHOWING
;
4666 make_tooltip(beval
, mesg
, pt
);
4668 // TRACE0("gui_mch_post_balloon }}}");
4673 gui_mch_create_beval_area(target
, mesg
, mesgCB
, clientData
)
4674 void *target
; /* ignored, always use s_textArea */
4676 void (*mesgCB
)__ARGS((BalloonEval
*, int));
4679 /* partially stolen from gui_beval.c */
4682 if (mesg
!= NULL
&& mesgCB
!= NULL
)
4684 EMSG(_("E232: Cannot create BalloonEval with both message and callback"));
4688 beval
= (BalloonEval
*)alloc(sizeof(BalloonEval
));
4691 beval
->target
= s_textArea
;
4692 beval
->balloon
= NULL
;
4694 beval
->showState
= ShS_NEUTRAL
;
4698 beval
->msgCB
= mesgCB
;
4699 beval
->clientData
= clientData
;
4701 InitCommonControls();
4705 gui_mch_enable_beval_area(beval
);
4713 Handle_WM_Notify(hwnd
, pnmh
)
4717 if (pnmh
->idFrom
!= ID_BEVAL_TOOLTIP
) /* it is not our tooltip */
4720 if (cur_beval
!= NULL
)
4725 // TRACE0("TTN_SHOW {{{");
4726 // TRACE0("TTN_SHOW }}}");
4728 case TTN_POP
: /* Before tooltip disappear */
4729 // TRACE0("TTN_POP {{{");
4730 delete_tooltip(cur_beval
);
4731 gui_mch_enable_beval_area(cur_beval
);
4732 // TRACE0("TTN_POP }}}");
4734 cur_beval
->showState
= ShS_NEUTRAL
;
4736 case TTN_GETDISPINFO
:
4738 /* if you get there then we have new common controls */
4739 NMTTDISPINFO_NEW
*info
= (NMTTDISPINFO_NEW
*)pnmh
;
4740 info
->lpszText
= (LPSTR
)info
->lParam
;
4741 info
->uFlags
|= TTF_DI_SETITEM
;
4749 TrackUserActivity(UINT uMsg
)
4751 if ((uMsg
>= WM_MOUSEFIRST
&& uMsg
<= WM_MOUSELAST
)
4752 || (uMsg
>= WM_KEYFIRST
&& uMsg
<= WM_KEYLAST
))
4753 LastActivity
= GetTickCount();
4757 gui_mch_destroy_beval_area(beval
)
4762 #endif /* FEAT_BEVAL */
4764 #if defined(FEAT_NETBEANS_INTG) || defined(PROTO)
4766 * We have multiple signs to draw at the same location. Draw the
4767 * multi-sign indicator (down-arrow) instead. This is the Win32 version.
4770 netbeans_draw_multisign_indicator(int row
)
4779 for (i
= 0; i
< gui
.char_height
- 3; i
++)
4780 SetPixel(s_hdc
, x
+2, y
++, gui
.currFgColor
);
4782 SetPixel(s_hdc
, x
+0, y
, gui
.currFgColor
);
4783 SetPixel(s_hdc
, x
+2, y
, gui
.currFgColor
);
4784 SetPixel(s_hdc
, x
+4, y
++, gui
.currFgColor
);
4785 SetPixel(s_hdc
, x
+1, y
, gui
.currFgColor
);
4786 SetPixel(s_hdc
, x
+2, y
, gui
.currFgColor
);
4787 SetPixel(s_hdc
, x
+3, y
++, gui
.currFgColor
);
4788 SetPixel(s_hdc
, x
+2, y
, gui
.currFgColor
);