blob: b2ee9ca64132036d1d5f0e7cb1248160329921e2 [file] [log] [blame]
Bram Moolenaar060f1f02007-05-10 20:17:29 +00001/* vi:set ts=8 sts=4 sw=4:
Bram Moolenaar071d4272004-06-13 20:20:40 +00002 *
3 * VIM - Vi IMproved by Bram Moolenaar
4 * GUI support by Robert Webb
5 *
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.
9 */
10/*
11 * Windows GUI.
12 *
Bram Moolenaarcf7164a2016-02-20 13:55:06 +010013 * GUI support for Microsoft Windows, aka Win32. Also for Win64.
Bram Moolenaar071d4272004-06-13 20:20:40 +000014 *
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,
17 * scrollbars, etc.
18 *
19 * Note: Clipboard stuff, for cutting and pasting text to other windows, is in
Bram Moolenaarcde88542015-08-11 19:14:00 +020020 * winclip.c. (It can also be done from the terminal version).
Bram Moolenaar071d4272004-06-13 20:20:40 +000021 *
22 * TODO: Some of the function signatures ought to be updated for Win64;
23 * e.g., replace LONG with LONG_PTR, etc.
24 */
25
Bram Moolenaar78e17622007-08-30 10:26:19 +000026#include "vim.h"
27
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +020028#if defined(FEAT_DIRECTX)
29# include "gui_dwrite.h"
30#endif
31
Bram Moolenaarb8e0bdb2014-11-12 16:10:48 +010032#if defined(FEAT_DIRECTX)
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +020033static DWriteContext *s_dwc = NULL;
34static int s_directx_enabled = 0;
35static int s_directx_load_attempted = 0;
36# define IS_ENABLE_DIRECTX() (s_directx_enabled && s_dwc != NULL)
Bram Moolenaarb8e0bdb2014-11-12 16:10:48 +010037#endif
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +020038
Bram Moolenaar065bbac2016-02-20 13:08:46 +010039#ifdef FEAT_MENU
40static int gui_mswin_get_menu_height(int fix_window);
41#endif
42
Bram Moolenaarb8e0bdb2014-11-12 16:10:48 +010043#if defined(FEAT_DIRECTX) || defined(PROTO)
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +020044 int
45directx_enabled(void)
46{
47 if (s_dwc != NULL)
48 return 1;
49 else if (s_directx_load_attempted)
50 return 0;
51 /* load DirectX */
52 DWrite_Init();
53 s_directx_load_attempted = 1;
54 s_dwc = DWriteContext_Open();
55 return s_dwc != NULL ? 1 : 0;
56}
57#endif
58
59#if defined(FEAT_RENDER_OPTIONS) || defined(PROTO)
60 int
61gui_mch_set_rendering_options(char_u *s)
62{
63#ifdef FEAT_DIRECTX
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +020064 char_u *p, *q;
65
66 int dx_enable = 0;
67 int dx_flags = 0;
68 float dx_gamma = 0.0f;
69 float dx_contrast = 0.0f;
70 float dx_level = 0.0f;
71 int dx_geom = 0;
72 int dx_renmode = 0;
73 int dx_taamode = 0;
74
75 /* parse string as rendering options. */
76 for (p = s; p != NULL && *p != NUL; )
77 {
78 char_u item[256];
79 char_u name[128];
80 char_u value[128];
81
Bram Moolenaarcde88542015-08-11 19:14:00 +020082 copy_option_part(&p, item, sizeof(item), ",");
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +020083 if (p == NULL)
84 break;
85 q = &item[0];
86 copy_option_part(&q, name, sizeof(name), ":");
87 if (q == NULL)
88 return FAIL;
89 copy_option_part(&q, value, sizeof(value), ":");
90
91 if (STRCMP(name, "type") == 0)
92 {
93 if (STRCMP(value, "directx") == 0)
94 dx_enable = 1;
95 else
96 return FAIL;
97 }
98 else if (STRCMP(name, "gamma") == 0)
99 {
100 dx_flags |= 1 << 0;
Bram Moolenaar7f0608f2016-02-18 20:46:39 +0100101 dx_gamma = (float)atof((char *)value);
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +0200102 }
103 else if (STRCMP(name, "contrast") == 0)
104 {
105 dx_flags |= 1 << 1;
Bram Moolenaar7f0608f2016-02-18 20:46:39 +0100106 dx_contrast = (float)atof((char *)value);
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +0200107 }
108 else if (STRCMP(name, "level") == 0)
109 {
110 dx_flags |= 1 << 2;
Bram Moolenaar7f0608f2016-02-18 20:46:39 +0100111 dx_level = (float)atof((char *)value);
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +0200112 }
113 else if (STRCMP(name, "geom") == 0)
114 {
115 dx_flags |= 1 << 3;
Bram Moolenaar7f0608f2016-02-18 20:46:39 +0100116 dx_geom = atoi((char *)value);
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +0200117 if (dx_geom < 0 || dx_geom > 2)
118 return FAIL;
119 }
120 else if (STRCMP(name, "renmode") == 0)
121 {
122 dx_flags |= 1 << 4;
Bram Moolenaar7f0608f2016-02-18 20:46:39 +0100123 dx_renmode = atoi((char *)value);
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +0200124 if (dx_renmode < 0 || dx_renmode > 6)
125 return FAIL;
126 }
127 else if (STRCMP(name, "taamode") == 0)
128 {
129 dx_flags |= 1 << 5;
Bram Moolenaar7f0608f2016-02-18 20:46:39 +0100130 dx_taamode = atoi((char *)value);
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +0200131 if (dx_taamode < 0 || dx_taamode > 3)
132 return FAIL;
133 }
134 else
135 return FAIL;
136 }
137
138 /* Enable DirectX/DirectWrite */
139 if (dx_enable)
140 {
141 if (!directx_enabled())
142 return FAIL;
143 DWriteContext_SetRenderingParams(s_dwc, NULL);
144 if (dx_flags)
145 {
146 DWriteRenderingParams param;
147 DWriteContext_GetRenderingParams(s_dwc, &param);
148 if (dx_flags & (1 << 0))
149 param.gamma = dx_gamma;
150 if (dx_flags & (1 << 1))
151 param.enhancedContrast = dx_contrast;
152 if (dx_flags & (1 << 2))
153 param.clearTypeLevel = dx_level;
154 if (dx_flags & (1 << 3))
155 param.pixelGeometry = dx_geom;
156 if (dx_flags & (1 << 4))
157 param.renderingMode = dx_renmode;
158 if (dx_flags & (1 << 5))
159 param.textAntialiasMode = dx_taamode;
160 DWriteContext_SetRenderingParams(s_dwc, &param);
161 }
162 }
163 s_directx_enabled = dx_enable;
164
165 return OK;
166#else
167 return FAIL;
168#endif
169}
170#endif
171
Bram Moolenaar071d4272004-06-13 20:20:40 +0000172/*
173 * These are new in Windows ME/XP, only defined in recent compilers.
174 */
175#ifndef HANDLE_WM_XBUTTONUP
176# define HANDLE_WM_XBUTTONUP(hwnd, wParam, lParam, fn) \
177 ((fn)((hwnd), (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
178#endif
179#ifndef HANDLE_WM_XBUTTONDOWN
180# define HANDLE_WM_XBUTTONDOWN(hwnd, wParam, lParam, fn) \
181 ((fn)((hwnd), FALSE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
182#endif
183#ifndef HANDLE_WM_XBUTTONDBLCLK
184# define HANDLE_WM_XBUTTONDBLCLK(hwnd, wParam, lParam, fn) \
185 ((fn)((hwnd), TRUE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
186#endif
187
Bram Moolenaarcf7164a2016-02-20 13:55:06 +0100188
189#include "version.h" /* used by dialog box routine for default title */
190#ifdef DEBUG
191# include <tchar.h>
192#endif
193
194/* cproto fails on missing include files */
195#ifndef PROTO
196
197#ifndef __MINGW32__
198# include <shellapi.h>
199#endif
200#if defined(FEAT_TOOLBAR) || defined(FEAT_BEVAL) || defined(FEAT_GUI_TABLINE)
201# include <commctrl.h>
202#endif
203#include <windowsx.h>
204
205#ifdef GLOBAL_IME
206# include "glbl_ime.h"
207#endif
208
209#endif /* PROTO */
210
211#ifdef FEAT_MENU
212# define MENUHINTS /* show menu hints in command line */
213#endif
214
215/* Some parameters for dialog boxes. All in pixels. */
216#define DLG_PADDING_X 10
217#define DLG_PADDING_Y 10
218#define DLG_OLD_STYLE_PADDING_X 5
219#define DLG_OLD_STYLE_PADDING_Y 5
220#define DLG_VERT_PADDING_X 4 /* For vertical buttons */
221#define DLG_VERT_PADDING_Y 4
222#define DLG_ICON_WIDTH 34
223#define DLG_ICON_HEIGHT 34
224#define DLG_MIN_WIDTH 150
225#define DLG_FONT_NAME "MS Sans Serif"
226#define DLG_FONT_POINT_SIZE 8
227#define DLG_MIN_MAX_WIDTH 400
228#define DLG_MIN_MAX_HEIGHT 400
229
230#define DLG_NONBUTTON_CONTROL 5000 /* First ID of non-button controls */
231
232#ifndef WM_XBUTTONDOWN /* For Win2K / winME ONLY */
233# define WM_XBUTTONDOWN 0x020B
234# define WM_XBUTTONUP 0x020C
235# define WM_XBUTTONDBLCLK 0x020D
236# define MK_XBUTTON1 0x0020
237# define MK_XBUTTON2 0x0040
238#endif
239
240#ifdef PROTO
Bram Moolenaar071d4272004-06-13 20:20:40 +0000241/*
Bram Moolenaarcf7164a2016-02-20 13:55:06 +0100242 * Define a few things for generating prototypes. This is just to avoid
243 * syntax errors, the defines do not need to be correct.
Bram Moolenaar071d4272004-06-13 20:20:40 +0000244 */
Bram Moolenaarcf7164a2016-02-20 13:55:06 +0100245# define APIENTRY
246# define CALLBACK
247# define CONST
248# define FAR
249# define NEAR
250# define _cdecl
251typedef int BOOL;
252typedef int BYTE;
253typedef int DWORD;
254typedef int WCHAR;
255typedef int ENUMLOGFONT;
256typedef int FINDREPLACE;
257typedef int HANDLE;
258typedef int HBITMAP;
259typedef int HBRUSH;
260typedef int HDROP;
261typedef int INT;
262typedef int LOGFONT[];
263typedef int LPARAM;
264typedef int LPCREATESTRUCT;
265typedef int LPCSTR;
266typedef int LPCTSTR;
267typedef int LPRECT;
268typedef int LPSTR;
269typedef int LPWINDOWPOS;
270typedef int LPWORD;
271typedef int LRESULT;
272typedef int HRESULT;
273# undef MSG
274typedef int MSG;
275typedef int NEWTEXTMETRIC;
276typedef int OSVERSIONINFO;
277typedef int PWORD;
278typedef int RECT;
279typedef int UINT;
280typedef int WORD;
281typedef int WPARAM;
282typedef int POINT;
283typedef void *HINSTANCE;
284typedef void *HMENU;
285typedef void *HWND;
286typedef void *HDC;
287typedef void VOID;
288typedef int LPNMHDR;
289typedef int LONG;
290typedef int WNDPROC;
291#endif
292
293#ifndef GET_X_LPARAM
294# define GET_X_LPARAM(lp) ((int)(short)LOWORD(lp))
295#endif
296
297static void _OnPaint( HWND hwnd);
298static void clear_rect(RECT *rcp);
299
300static WORD s_dlgfntheight; /* height of the dialog font */
301static WORD s_dlgfntwidth; /* width of the dialog font */
302
303#ifdef FEAT_MENU
304static HMENU s_menuBar = NULL;
305#endif
306#ifdef FEAT_TEAROFF
307static void rebuild_tearoff(vimmenu_T *menu);
308static HBITMAP s_htearbitmap; /* bitmap used to indicate tearoff */
309#endif
310
311/* Flag that is set while processing a message that must not be interrupted by
312 * processing another message. */
313static int s_busy_processing = FALSE;
314
315static int destroying = FALSE; /* call DestroyWindow() ourselves */
316
317#ifdef MSWIN_FIND_REPLACE
318static UINT s_findrep_msg = 0; /* set in gui_w[16/32].c */
319static FINDREPLACE s_findrep_struct;
320# if defined(FEAT_MBYTE) && defined(WIN3264)
321static FINDREPLACEW s_findrep_struct_w;
322# endif
323static HWND s_findrep_hwnd = NULL;
324static int s_findrep_is_find; /* TRUE for find dialog, FALSE
325 for find/replace dialog */
326#endif
327
328static HINSTANCE s_hinst = NULL;
Bram Moolenaar85b11762016-02-27 18:13:23 +0100329#if !defined(FEAT_GUI)
Bram Moolenaarcf7164a2016-02-20 13:55:06 +0100330static
331#endif
332HWND s_hwnd = NULL;
333static HDC s_hdc = NULL;
334static HBRUSH s_brush = NULL;
335
336#ifdef FEAT_TOOLBAR
337static HWND s_toolbarhwnd = NULL;
338static WNDPROC s_toolbar_wndproc = NULL;
339#endif
340
341#ifdef FEAT_GUI_TABLINE
342static HWND s_tabhwnd = NULL;
343static WNDPROC s_tabline_wndproc = NULL;
344static int showing_tabline = 0;
345#endif
346
347static WPARAM s_wParam = 0;
348static LPARAM s_lParam = 0;
349
350static HWND s_textArea = NULL;
351static UINT s_uMsg = 0;
352
353static char_u *s_textfield; /* Used by dialogs to pass back strings */
354
355static int s_need_activate = FALSE;
356
357/* This variable is set when waiting for an event, which is the only moment
358 * scrollbar dragging can be done directly. It's not allowed while commands
359 * are executed, because it may move the cursor and that may cause unexpected
360 * problems (e.g., while ":s" is working).
361 */
362static int allow_scrollbar = FALSE;
363
364#ifdef GLOBAL_IME
365# define MyTranslateMessage(x) global_ime_TranslateMessage(x)
366#else
367# define MyTranslateMessage(x) TranslateMessage(x)
368#endif
369
370#if (defined(WIN3264) && defined(FEAT_MBYTE)) || defined(GLOBAL_IME)
371 /* use of WindowProc depends on wide_WindowProc */
372# define MyWindowProc vim_WindowProc
373#else
374 /* use ordinary WindowProc */
375# define MyWindowProc DefWindowProc
376#endif
377
378extern int current_font_height; /* this is in os_mswin.c */
379
380static struct
381{
382 UINT key_sym;
383 char_u vim_code0;
384 char_u vim_code1;
385} special_keys[] =
386{
387 {VK_UP, 'k', 'u'},
388 {VK_DOWN, 'k', 'd'},
389 {VK_LEFT, 'k', 'l'},
390 {VK_RIGHT, 'k', 'r'},
391
392 {VK_F1, 'k', '1'},
393 {VK_F2, 'k', '2'},
394 {VK_F3, 'k', '3'},
395 {VK_F4, 'k', '4'},
396 {VK_F5, 'k', '5'},
397 {VK_F6, 'k', '6'},
398 {VK_F7, 'k', '7'},
399 {VK_F8, 'k', '8'},
400 {VK_F9, 'k', '9'},
401 {VK_F10, 'k', ';'},
402
403 {VK_F11, 'F', '1'},
404 {VK_F12, 'F', '2'},
405 {VK_F13, 'F', '3'},
406 {VK_F14, 'F', '4'},
407 {VK_F15, 'F', '5'},
408 {VK_F16, 'F', '6'},
409 {VK_F17, 'F', '7'},
410 {VK_F18, 'F', '8'},
411 {VK_F19, 'F', '9'},
412 {VK_F20, 'F', 'A'},
413
414 {VK_F21, 'F', 'B'},
415#ifdef FEAT_NETBEANS_INTG
416 {VK_PAUSE, 'F', 'B'}, /* Pause == F21 (see gui_gtk_x11.c) */
417#endif
418 {VK_F22, 'F', 'C'},
419 {VK_F23, 'F', 'D'},
420 {VK_F24, 'F', 'E'}, /* winuser.h defines up to F24 */
421
422 {VK_HELP, '%', '1'},
423 {VK_BACK, 'k', 'b'},
424 {VK_INSERT, 'k', 'I'},
425 {VK_DELETE, 'k', 'D'},
426 {VK_HOME, 'k', 'h'},
427 {VK_END, '@', '7'},
428 {VK_PRIOR, 'k', 'P'},
429 {VK_NEXT, 'k', 'N'},
430 {VK_PRINT, '%', '9'},
431 {VK_ADD, 'K', '6'},
432 {VK_SUBTRACT, 'K', '7'},
433 {VK_DIVIDE, 'K', '8'},
434 {VK_MULTIPLY, 'K', '9'},
435 {VK_SEPARATOR, 'K', 'A'}, /* Keypad Enter */
436 {VK_DECIMAL, 'K', 'B'},
437
438 {VK_NUMPAD0, 'K', 'C'},
439 {VK_NUMPAD1, 'K', 'D'},
440 {VK_NUMPAD2, 'K', 'E'},
441 {VK_NUMPAD3, 'K', 'F'},
442 {VK_NUMPAD4, 'K', 'G'},
443 {VK_NUMPAD5, 'K', 'H'},
444 {VK_NUMPAD6, 'K', 'I'},
445 {VK_NUMPAD7, 'K', 'J'},
446 {VK_NUMPAD8, 'K', 'K'},
447 {VK_NUMPAD9, 'K', 'L'},
448
449 /* Keys that we want to be able to use any modifier with: */
450 {VK_SPACE, ' ', NUL},
451 {VK_TAB, TAB, NUL},
452 {VK_ESCAPE, ESC, NUL},
453 {NL, NL, NUL},
454 {CAR, CAR, NUL},
455
456 /* End of list marker: */
457 {0, 0, 0}
458};
459
460/* Local variables */
461static int s_button_pending = -1;
462
463/* s_getting_focus is set when we got focus but didn't see mouse-up event yet,
464 * so don't reset s_button_pending. */
465static int s_getting_focus = FALSE;
466
467static int s_x_pending;
468static int s_y_pending;
469static UINT s_kFlags_pending;
470static UINT s_wait_timer = 0; /* Timer for get char from user */
471static int s_timed_out = FALSE;
472static int dead_key = 0; /* 0: no dead key, 1: dead key pressed */
473
474#ifdef WIN3264
475static OSVERSIONINFO os_version; /* like it says. Init in gui_mch_init() */
476#endif
477
478#ifdef FEAT_BEVAL
479/* balloon-eval WM_NOTIFY_HANDLER */
480static void Handle_WM_Notify(HWND hwnd, LPNMHDR pnmh);
481static void TrackUserActivity(UINT uMsg);
482#endif
483
484/*
485 * For control IME.
486 *
487 * These LOGFONT used for IME.
488 */
489#ifdef FEAT_MBYTE
490# ifdef USE_IM_CONTROL
491/* holds LOGFONT for 'guifontwide' if available, otherwise 'guifont' */
492static LOGFONT norm_logfont;
493/* holds LOGFONT for 'guifont' always. */
494static LOGFONT sub_logfont;
495# endif
496#endif
497
498#ifdef FEAT_MBYTE_IME
499static LRESULT _OnImeNotify(HWND hWnd, DWORD dwCommand, DWORD dwData);
500#endif
501
502#if defined(FEAT_BROWSE)
503static char_u *convert_filter(char_u *s);
504#endif
505
506#ifdef DEBUG_PRINT_ERROR
507/*
508 * Print out the last Windows error message
509 */
510 static void
511print_windows_error(void)
512{
513 LPVOID lpMsgBuf;
514
515 FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
516 NULL, GetLastError(),
517 MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
518 (LPTSTR) &lpMsgBuf, 0, NULL);
519 TRACE1("Error: %s\n", lpMsgBuf);
520 LocalFree(lpMsgBuf);
521}
522#endif
523
524/*
525 * Cursor blink functions.
526 *
527 * This is a simple state machine:
528 * BLINK_NONE not blinking at all
529 * BLINK_OFF blinking, cursor is not shown
530 * BLINK_ON blinking, cursor is shown
531 */
532
533#define BLINK_NONE 0
534#define BLINK_OFF 1
535#define BLINK_ON 2
536
537static int blink_state = BLINK_NONE;
538static long_u blink_waittime = 700;
539static long_u blink_ontime = 400;
540static long_u blink_offtime = 250;
541static UINT blink_timer = 0;
542
543 void
544gui_mch_set_blinking(long wait, long on, long off)
545{
546 blink_waittime = wait;
547 blink_ontime = on;
548 blink_offtime = off;
549}
550
551/* ARGSUSED */
552 static VOID CALLBACK
553_OnBlinkTimer(
554 HWND hwnd,
555 UINT uMsg,
556 UINT idEvent,
557 DWORD dwTime)
558{
559 MSG msg;
560
561 /*
562 TRACE2("Got timer event, id %d, blink_timer %d\n", idEvent, blink_timer);
563 */
564
565 KillTimer(NULL, idEvent);
566
567 /* Eat spurious WM_TIMER messages */
568 while (pPeekMessage(&msg, hwnd, WM_TIMER, WM_TIMER, PM_REMOVE))
569 ;
570
571 if (blink_state == BLINK_ON)
572 {
573 gui_undraw_cursor();
574 blink_state = BLINK_OFF;
575 blink_timer = (UINT) SetTimer(NULL, 0, (UINT)blink_offtime,
576 (TIMERPROC)_OnBlinkTimer);
577 }
578 else
579 {
580 gui_update_cursor(TRUE, FALSE);
581 blink_state = BLINK_ON;
582 blink_timer = (UINT) SetTimer(NULL, 0, (UINT)blink_ontime,
583 (TIMERPROC)_OnBlinkTimer);
584 }
585}
586
587 static void
588gui_mswin_rm_blink_timer(void)
589{
590 MSG msg;
591
592 if (blink_timer != 0)
593 {
594 KillTimer(NULL, blink_timer);
595 /* Eat spurious WM_TIMER messages */
596 while (pPeekMessage(&msg, s_hwnd, WM_TIMER, WM_TIMER, PM_REMOVE))
597 ;
598 blink_timer = 0;
599 }
600}
601
602/*
603 * Stop the cursor blinking. Show the cursor if it wasn't shown.
604 */
605 void
606gui_mch_stop_blink(void)
607{
608 gui_mswin_rm_blink_timer();
609 if (blink_state == BLINK_OFF)
610 gui_update_cursor(TRUE, FALSE);
611 blink_state = BLINK_NONE;
612}
613
614/*
615 * Start the cursor blinking. If it was already blinking, this restarts the
616 * waiting time and shows the cursor.
617 */
618 void
619gui_mch_start_blink(void)
620{
621 gui_mswin_rm_blink_timer();
622
623 /* Only switch blinking on if none of the times is zero */
624 if (blink_waittime && blink_ontime && blink_offtime && gui.in_focus)
625 {
626 blink_timer = (UINT)SetTimer(NULL, 0, (UINT)blink_waittime,
627 (TIMERPROC)_OnBlinkTimer);
628 blink_state = BLINK_ON;
629 gui_update_cursor(TRUE, FALSE);
630 }
631}
632
633/*
634 * Call-back routines.
635 */
636
637/*ARGSUSED*/
638 static VOID CALLBACK
639_OnTimer(
640 HWND hwnd,
641 UINT uMsg,
642 UINT idEvent,
643 DWORD dwTime)
644{
645 MSG msg;
646
647 /*
648 TRACE2("Got timer event, id %d, s_wait_timer %d\n", idEvent, s_wait_timer);
649 */
650 KillTimer(NULL, idEvent);
651 s_timed_out = TRUE;
652
653 /* Eat spurious WM_TIMER messages */
654 while (pPeekMessage(&msg, hwnd, WM_TIMER, WM_TIMER, PM_REMOVE))
655 ;
656 if (idEvent == s_wait_timer)
657 s_wait_timer = 0;
658}
659
660/*ARGSUSED*/
661 static void
662_OnDeadChar(
663 HWND hwnd,
664 UINT ch,
665 int cRepeat)
666{
667 dead_key = 1;
668}
669
670/*
671 * Convert Unicode character "ch" to bytes in "string[slen]".
672 * When "had_alt" is TRUE the ALT key was included in "ch".
673 * Return the length.
674 */
675 static int
676char_to_string(int ch, char_u *string, int slen, int had_alt)
677{
678 int len;
679 int i;
680#ifdef FEAT_MBYTE
681 WCHAR wstring[2];
682 char_u *ws = NULL;;
683
684 if (os_version.dwPlatformId != VER_PLATFORM_WIN32_NT)
685 {
686 /* On Windows 95/98 we apparently get the character in the active
687 * codepage, not in UCS-2. If conversion is needed convert it to
688 * UCS-2 first. */
689 if ((int)GetACP() == enc_codepage)
690 len = 0; /* no conversion required */
691 else
692 {
693 string[0] = ch;
694 len = MultiByteToWideChar(GetACP(), 0, (LPCSTR)string,
695 1, wstring, 2);
696 }
697 }
698 else
699 {
700 wstring[0] = ch;
701 len = 1;
702 }
703
704 if (len > 0)
705 {
706 /* "ch" is a UTF-16 character. Convert it to a string of bytes. When
707 * "enc_codepage" is non-zero use the standard Win32 function,
708 * otherwise use our own conversion function (e.g., for UTF-8). */
709 if (enc_codepage > 0)
710 {
711 len = WideCharToMultiByte(enc_codepage, 0, wstring, len,
712 (LPSTR)string, slen, 0, NULL);
713 /* If we had included the ALT key into the character but now the
714 * upper bit is no longer set, that probably means the conversion
715 * failed. Convert the original character and set the upper bit
716 * afterwards. */
717 if (had_alt && len == 1 && ch >= 0x80 && string[0] < 0x80)
718 {
719 wstring[0] = ch & 0x7f;
720 len = WideCharToMultiByte(enc_codepage, 0, wstring, len,
721 (LPSTR)string, slen, 0, NULL);
722 if (len == 1) /* safety check */
723 string[0] |= 0x80;
724 }
725 }
726 else
727 {
728 len = 1;
729 ws = utf16_to_enc(wstring, &len);
730 if (ws == NULL)
731 len = 0;
732 else
733 {
734 if (len > slen) /* just in case */
735 len = slen;
736 mch_memmove(string, ws, len);
737 vim_free(ws);
738 }
739 }
740 }
741
742 if (len == 0)
743#endif
744 {
745 string[0] = ch;
746 len = 1;
747 }
748
749 for (i = 0; i < len; ++i)
750 if (string[i] == CSI && len <= slen - 2)
751 {
752 /* Insert CSI as K_CSI. */
753 mch_memmove(string + i + 3, string + i + 1, len - i - 1);
754 string[++i] = KS_EXTRA;
755 string[++i] = (int)KE_CSI;
756 len += 2;
757 }
758
759 return len;
760}
761
762/*
763 * Key hit, add it to the input buffer.
764 */
765/*ARGSUSED*/
766 static void
767_OnChar(
768 HWND hwnd,
769 UINT ch,
770 int cRepeat)
771{
772 char_u string[40];
773 int len = 0;
774
775 dead_key = 0;
776
777 len = char_to_string(ch, string, 40, FALSE);
778 if (len == 1 && string[0] == Ctrl_C && ctrl_c_interrupts)
779 {
780 trash_input_buf();
781 got_int = TRUE;
782 }
783
784 add_to_input_buf(string, len);
785}
786
787/*
788 * Alt-Key hit, add it to the input buffer.
789 */
790/*ARGSUSED*/
791 static void
792_OnSysChar(
793 HWND hwnd,
794 UINT cch,
795 int cRepeat)
796{
797 char_u string[40]; /* Enough for multibyte character */
798 int len;
799 int modifiers;
800 int ch = cch; /* special keys are negative */
801
802 dead_key = 0;
803
804 /* TRACE("OnSysChar(%d, %c)\n", ch, ch); */
805
806 /* OK, we have a character key (given by ch) which was entered with the
807 * ALT key pressed. Eg, if the user presses Alt-A, then ch == 'A'. Note
808 * that the system distinguishes Alt-a and Alt-A (Alt-Shift-a unless
809 * CAPSLOCK is pressed) at this point.
810 */
811 modifiers = MOD_MASK_ALT;
812 if (GetKeyState(VK_SHIFT) & 0x8000)
813 modifiers |= MOD_MASK_SHIFT;
814 if (GetKeyState(VK_CONTROL) & 0x8000)
815 modifiers |= MOD_MASK_CTRL;
816
817 ch = simplify_key(ch, &modifiers);
818 /* remove the SHIFT modifier for keys where it's already included, e.g.,
819 * '(' and '*' */
820 if (ch < 0x100 && !isalpha(ch) && isprint(ch))
821 modifiers &= ~MOD_MASK_SHIFT;
822
823 /* Interpret the ALT key as making the key META, include SHIFT, etc. */
824 ch = extract_modifiers(ch, &modifiers);
825 if (ch == CSI)
826 ch = K_CSI;
827
828 len = 0;
829 if (modifiers)
830 {
831 string[len++] = CSI;
832 string[len++] = KS_MODIFIER;
833 string[len++] = modifiers;
834 }
835
836 if (IS_SPECIAL((int)ch))
837 {
838 string[len++] = CSI;
839 string[len++] = K_SECOND((int)ch);
840 string[len++] = K_THIRD((int)ch);
841 }
842 else
843 {
844 /* Although the documentation isn't clear about it, we assume "ch" is
845 * a Unicode character. */
846 len += char_to_string(ch, string + len, 40 - len, TRUE);
847 }
848
849 add_to_input_buf(string, len);
850}
851
852 static void
853_OnMouseEvent(
854 int button,
855 int x,
856 int y,
857 int repeated_click,
858 UINT keyFlags)
859{
860 int vim_modifiers = 0x0;
861
862 s_getting_focus = FALSE;
863
864 if (keyFlags & MK_SHIFT)
865 vim_modifiers |= MOUSE_SHIFT;
866 if (keyFlags & MK_CONTROL)
867 vim_modifiers |= MOUSE_CTRL;
868 if (GetKeyState(VK_MENU) & 0x8000)
869 vim_modifiers |= MOUSE_ALT;
870
871 gui_send_mouse_event(button, x, y, repeated_click, vim_modifiers);
872}
873
874/*ARGSUSED*/
875 static void
876_OnMouseButtonDown(
877 HWND hwnd,
878 BOOL fDoubleClick,
879 int x,
880 int y,
881 UINT keyFlags)
882{
883 static LONG s_prevTime = 0;
884
885 LONG currentTime = GetMessageTime();
886 int button = -1;
887 int repeated_click;
888
889 /* Give main window the focus: this is so the cursor isn't hollow. */
890 (void)SetFocus(s_hwnd);
891
892 if (s_uMsg == WM_LBUTTONDOWN || s_uMsg == WM_LBUTTONDBLCLK)
893 button = MOUSE_LEFT;
894 else if (s_uMsg == WM_MBUTTONDOWN || s_uMsg == WM_MBUTTONDBLCLK)
895 button = MOUSE_MIDDLE;
896 else if (s_uMsg == WM_RBUTTONDOWN || s_uMsg == WM_RBUTTONDBLCLK)
897 button = MOUSE_RIGHT;
898 else if (s_uMsg == WM_XBUTTONDOWN || s_uMsg == WM_XBUTTONDBLCLK)
899 {
900#ifndef GET_XBUTTON_WPARAM
901# define GET_XBUTTON_WPARAM(wParam) (HIWORD(wParam))
902#endif
903 button = ((GET_XBUTTON_WPARAM(s_wParam) == 1) ? MOUSE_X1 : MOUSE_X2);
904 }
905 else if (s_uMsg == WM_CAPTURECHANGED)
906 {
907 /* on W95/NT4, somehow you get in here with an odd Msg
908 * if you press one button while holding down the other..*/
909 if (s_button_pending == MOUSE_LEFT)
910 button = MOUSE_RIGHT;
911 else
912 button = MOUSE_LEFT;
913 }
914 if (button >= 0)
915 {
916 repeated_click = ((int)(currentTime - s_prevTime) < p_mouset);
917
918 /*
919 * Holding down the left and right buttons simulates pushing the middle
920 * button.
921 */
922 if (repeated_click
923 && ((button == MOUSE_LEFT && s_button_pending == MOUSE_RIGHT)
924 || (button == MOUSE_RIGHT
925 && s_button_pending == MOUSE_LEFT)))
926 {
927 /*
928 * Hmm, gui.c will ignore more than one button down at a time, so
929 * pretend we let go of it first.
930 */
931 gui_send_mouse_event(MOUSE_RELEASE, x, y, FALSE, 0x0);
932 button = MOUSE_MIDDLE;
933 repeated_click = FALSE;
934 s_button_pending = -1;
935 _OnMouseEvent(button, x, y, repeated_click, keyFlags);
936 }
937 else if ((repeated_click)
938 || (mouse_model_popup() && (button == MOUSE_RIGHT)))
939 {
940 if (s_button_pending > -1)
941 {
942 _OnMouseEvent(s_button_pending, x, y, FALSE, keyFlags);
943 s_button_pending = -1;
944 }
945 /* TRACE("Button down at x %d, y %d\n", x, y); */
946 _OnMouseEvent(button, x, y, repeated_click, keyFlags);
947 }
948 else
949 {
950 /*
951 * If this is the first press (i.e. not a multiple click) don't
952 * action immediately, but store and wait for:
953 * i) button-up
954 * ii) mouse move
955 * iii) another button press
956 * before using it.
957 * This enables us to make left+right simulate middle button,
958 * without left or right being actioned first. The side-effect is
959 * that if you click and hold the mouse without dragging, the
960 * cursor doesn't move until you release the button. In practice
961 * this is hardly a problem.
962 */
963 s_button_pending = button;
964 s_x_pending = x;
965 s_y_pending = y;
966 s_kFlags_pending = keyFlags;
967 }
968
969 s_prevTime = currentTime;
970 }
971}
972
973/*ARGSUSED*/
974 static void
975_OnMouseMoveOrRelease(
976 HWND hwnd,
977 int x,
978 int y,
979 UINT keyFlags)
980{
981 int button;
982
983 s_getting_focus = FALSE;
984 if (s_button_pending > -1)
985 {
986 /* Delayed action for mouse down event */
987 _OnMouseEvent(s_button_pending, s_x_pending,
988 s_y_pending, FALSE, s_kFlags_pending);
989 s_button_pending = -1;
990 }
991 if (s_uMsg == WM_MOUSEMOVE)
992 {
993 /*
994 * It's only a MOUSE_DRAG if one or more mouse buttons are being held
995 * down.
996 */
997 if (!(keyFlags & (MK_LBUTTON | MK_MBUTTON | MK_RBUTTON
998 | MK_XBUTTON1 | MK_XBUTTON2)))
999 {
1000 gui_mouse_moved(x, y);
1001 return;
1002 }
1003
1004 /*
1005 * While button is down, keep grabbing mouse move events when
1006 * the mouse goes outside the window
1007 */
1008 SetCapture(s_textArea);
1009 button = MOUSE_DRAG;
1010 /* TRACE(" move at x %d, y %d\n", x, y); */
1011 }
1012 else
1013 {
1014 ReleaseCapture();
1015 button = MOUSE_RELEASE;
1016 /* TRACE(" up at x %d, y %d\n", x, y); */
1017 }
1018
1019 _OnMouseEvent(button, x, y, FALSE, keyFlags);
1020}
1021
1022#ifdef FEAT_MENU
1023/*
1024 * Find the vimmenu_T with the given id
1025 */
1026 static vimmenu_T *
1027gui_mswin_find_menu(
1028 vimmenu_T *pMenu,
1029 int id)
1030{
1031 vimmenu_T *pChildMenu;
1032
1033 while (pMenu)
1034 {
1035 if (pMenu->id == (UINT)id)
1036 break;
1037 if (pMenu->children != NULL)
1038 {
1039 pChildMenu = gui_mswin_find_menu(pMenu->children, id);
1040 if (pChildMenu)
1041 {
1042 pMenu = pChildMenu;
1043 break;
1044 }
1045 }
1046 pMenu = pMenu->next;
1047 }
1048 return pMenu;
1049}
1050
1051/*ARGSUSED*/
1052 static void
1053_OnMenu(
1054 HWND hwnd,
1055 int id,
1056 HWND hwndCtl,
1057 UINT codeNotify)
1058{
1059 vimmenu_T *pMenu;
1060
1061 pMenu = gui_mswin_find_menu(root_menu, id);
1062 if (pMenu)
1063 gui_menu_cb(pMenu);
1064}
1065#endif
1066
1067#ifdef MSWIN_FIND_REPLACE
1068# if defined(FEAT_MBYTE) && defined(WIN3264)
1069/*
1070 * copy useful data from structure LPFINDREPLACE to structure LPFINDREPLACEW
1071 */
1072 static void
1073findrep_atow(LPFINDREPLACEW lpfrw, LPFINDREPLACE lpfr)
1074{
1075 WCHAR *wp;
1076
1077 lpfrw->hwndOwner = lpfr->hwndOwner;
1078 lpfrw->Flags = lpfr->Flags;
1079
1080 wp = enc_to_utf16((char_u *)lpfr->lpstrFindWhat, NULL);
1081 wcsncpy(lpfrw->lpstrFindWhat, wp, lpfrw->wFindWhatLen - 1);
1082 vim_free(wp);
1083
1084 /* the field "lpstrReplaceWith" doesn't need to be copied */
1085}
1086
1087/*
1088 * copy useful data from structure LPFINDREPLACEW to structure LPFINDREPLACE
1089 */
1090 static void
1091findrep_wtoa(LPFINDREPLACE lpfr, LPFINDREPLACEW lpfrw)
1092{
1093 char_u *p;
1094
1095 lpfr->Flags = lpfrw->Flags;
1096
1097 p = utf16_to_enc((short_u*)lpfrw->lpstrFindWhat, NULL);
1098 vim_strncpy((char_u *)lpfr->lpstrFindWhat, p, lpfr->wFindWhatLen - 1);
1099 vim_free(p);
1100
1101 p = utf16_to_enc((short_u*)lpfrw->lpstrReplaceWith, NULL);
1102 vim_strncpy((char_u *)lpfr->lpstrReplaceWith, p, lpfr->wReplaceWithLen - 1);
1103 vim_free(p);
1104}
1105# endif
1106
1107/*
1108 * Handle a Find/Replace window message.
1109 */
1110 static void
1111_OnFindRepl(void)
1112{
1113 int flags = 0;
1114 int down;
1115
1116# if defined(FEAT_MBYTE) && defined(WIN3264)
1117 /* If the OS is Windows NT, and 'encoding' differs from active codepage:
1118 * convert text from wide string. */
1119 if (os_version.dwPlatformId == VER_PLATFORM_WIN32_NT
1120 && enc_codepage >= 0 && (int)GetACP() != enc_codepage)
1121 {
1122 findrep_wtoa(&s_findrep_struct, &s_findrep_struct_w);
1123 }
1124# endif
1125
1126 if (s_findrep_struct.Flags & FR_DIALOGTERM)
1127 /* Give main window the focus back. */
1128 (void)SetFocus(s_hwnd);
1129
1130 if (s_findrep_struct.Flags & FR_FINDNEXT)
1131 {
1132 flags = FRD_FINDNEXT;
1133
1134 /* Give main window the focus back: this is so the cursor isn't
1135 * hollow. */
1136 (void)SetFocus(s_hwnd);
1137 }
1138 else if (s_findrep_struct.Flags & FR_REPLACE)
1139 {
1140 flags = FRD_REPLACE;
1141
1142 /* Give main window the focus back: this is so the cursor isn't
1143 * hollow. */
1144 (void)SetFocus(s_hwnd);
1145 }
1146 else if (s_findrep_struct.Flags & FR_REPLACEALL)
1147 {
1148 flags = FRD_REPLACEALL;
1149 }
1150
1151 if (flags != 0)
1152 {
1153 /* Call the generic GUI function to do the actual work. */
1154 if (s_findrep_struct.Flags & FR_WHOLEWORD)
1155 flags |= FRD_WHOLE_WORD;
1156 if (s_findrep_struct.Flags & FR_MATCHCASE)
1157 flags |= FRD_MATCH_CASE;
1158 down = (s_findrep_struct.Flags & FR_DOWN) != 0;
1159 gui_do_findrepl(flags, (char_u *)s_findrep_struct.lpstrFindWhat,
1160 (char_u *)s_findrep_struct.lpstrReplaceWith, down);
1161 }
1162}
1163#endif
1164
1165 static void
1166HandleMouseHide(UINT uMsg, LPARAM lParam)
1167{
1168 static LPARAM last_lParam = 0L;
1169
1170 /* We sometimes get a mousemove when the mouse didn't move... */
1171 if (uMsg == WM_MOUSEMOVE || uMsg == WM_NCMOUSEMOVE)
1172 {
1173 if (lParam == last_lParam)
1174 return;
1175 last_lParam = lParam;
1176 }
1177
1178 /* Handle specially, to centralise coding. We need to be sure we catch all
1179 * possible events which should cause us to restore the cursor (as it is a
1180 * shared resource, we take full responsibility for it).
1181 */
1182 switch (uMsg)
1183 {
1184 case WM_KEYUP:
1185 case WM_CHAR:
1186 /*
1187 * blank out the pointer if necessary
1188 */
1189 if (p_mh)
1190 gui_mch_mousehide(TRUE);
1191 break;
1192
1193 case WM_SYSKEYUP: /* show the pointer when a system-key is pressed */
1194 case WM_SYSCHAR:
1195 case WM_MOUSEMOVE: /* show the pointer on any mouse action */
1196 case WM_LBUTTONDOWN:
1197 case WM_LBUTTONUP:
1198 case WM_MBUTTONDOWN:
1199 case WM_MBUTTONUP:
1200 case WM_RBUTTONDOWN:
1201 case WM_RBUTTONUP:
1202 case WM_XBUTTONDOWN:
1203 case WM_XBUTTONUP:
1204 case WM_NCMOUSEMOVE:
1205 case WM_NCLBUTTONDOWN:
1206 case WM_NCLBUTTONUP:
1207 case WM_NCMBUTTONDOWN:
1208 case WM_NCMBUTTONUP:
1209 case WM_NCRBUTTONDOWN:
1210 case WM_NCRBUTTONUP:
1211 case WM_KILLFOCUS:
1212 /*
1213 * if the pointer is currently hidden, then we should show it.
1214 */
1215 gui_mch_mousehide(FALSE);
1216 break;
1217 }
1218}
1219
1220 static LRESULT CALLBACK
1221_TextAreaWndProc(
1222 HWND hwnd,
1223 UINT uMsg,
1224 WPARAM wParam,
1225 LPARAM lParam)
1226{
1227 /*
1228 TRACE("TextAreaWndProc: hwnd = %08x, msg = %x, wParam = %x, lParam = %x\n",
1229 hwnd, uMsg, wParam, lParam);
1230 */
1231
1232 HandleMouseHide(uMsg, lParam);
1233
1234 s_uMsg = uMsg;
1235 s_wParam = wParam;
1236 s_lParam = lParam;
1237
1238#ifdef FEAT_BEVAL
1239 TrackUserActivity(uMsg);
1240#endif
1241
1242 switch (uMsg)
1243 {
1244 HANDLE_MSG(hwnd, WM_LBUTTONDBLCLK,_OnMouseButtonDown);
1245 HANDLE_MSG(hwnd, WM_LBUTTONDOWN,_OnMouseButtonDown);
1246 HANDLE_MSG(hwnd, WM_LBUTTONUP, _OnMouseMoveOrRelease);
1247 HANDLE_MSG(hwnd, WM_MBUTTONDBLCLK,_OnMouseButtonDown);
1248 HANDLE_MSG(hwnd, WM_MBUTTONDOWN,_OnMouseButtonDown);
1249 HANDLE_MSG(hwnd, WM_MBUTTONUP, _OnMouseMoveOrRelease);
1250 HANDLE_MSG(hwnd, WM_MOUSEMOVE, _OnMouseMoveOrRelease);
1251 HANDLE_MSG(hwnd, WM_PAINT, _OnPaint);
1252 HANDLE_MSG(hwnd, WM_RBUTTONDBLCLK,_OnMouseButtonDown);
1253 HANDLE_MSG(hwnd, WM_RBUTTONDOWN,_OnMouseButtonDown);
1254 HANDLE_MSG(hwnd, WM_RBUTTONUP, _OnMouseMoveOrRelease);
1255 HANDLE_MSG(hwnd, WM_XBUTTONDBLCLK,_OnMouseButtonDown);
1256 HANDLE_MSG(hwnd, WM_XBUTTONDOWN,_OnMouseButtonDown);
1257 HANDLE_MSG(hwnd, WM_XBUTTONUP, _OnMouseMoveOrRelease);
1258
1259#ifdef FEAT_BEVAL
1260 case WM_NOTIFY: Handle_WM_Notify(hwnd, (LPNMHDR)lParam);
1261 return TRUE;
1262#endif
1263 default:
1264 return MyWindowProc(hwnd, uMsg, wParam, lParam);
1265 }
1266}
1267
1268#if (defined(WIN3264) && defined(FEAT_MBYTE)) \
1269 || defined(GLOBAL_IME) \
1270 || defined(PROTO)
1271# ifdef PROTO
1272typedef int WINAPI;
1273# endif
1274
1275 LRESULT WINAPI
1276vim_WindowProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
1277{
1278# ifdef GLOBAL_IME
1279 return global_ime_DefWindowProc(hwnd, message, wParam, lParam);
1280# else
1281 if (wide_WindowProc)
1282 return DefWindowProcW(hwnd, message, wParam, lParam);
1283 return DefWindowProc(hwnd, message, wParam, lParam);
1284#endif
1285}
1286#endif
1287
1288/*
1289 * Called when the foreground or background color has been changed.
1290 */
1291 void
1292gui_mch_new_colors(void)
1293{
1294 /* nothing to do? */
1295}
1296
1297/*
1298 * Set the colors to their default values.
1299 */
1300 void
1301gui_mch_def_colors(void)
1302{
1303 gui.norm_pixel = GetSysColor(COLOR_WINDOWTEXT);
1304 gui.back_pixel = GetSysColor(COLOR_WINDOW);
1305 gui.def_norm_pixel = gui.norm_pixel;
1306 gui.def_back_pixel = gui.back_pixel;
1307}
1308
1309/*
1310 * Open the GUI window which was created by a call to gui_mch_init().
1311 */
1312 int
1313gui_mch_open(void)
1314{
1315#ifndef SW_SHOWDEFAULT
1316# define SW_SHOWDEFAULT 10 /* Borland 5.0 doesn't have it */
1317#endif
1318 /* Actually open the window, if not already visible
1319 * (may be done already in gui_mch_set_shellsize) */
1320 if (!IsWindowVisible(s_hwnd))
1321 ShowWindow(s_hwnd, SW_SHOWDEFAULT);
1322
1323#ifdef MSWIN_FIND_REPLACE
1324 /* Init replace string here, so that we keep it when re-opening the
1325 * dialog. */
1326 s_findrep_struct.lpstrReplaceWith[0] = NUL;
1327#endif
1328
1329 return OK;
1330}
1331
1332/*
1333 * Get the position of the top left corner of the window.
1334 */
1335 int
1336gui_mch_get_winpos(int *x, int *y)
1337{
1338 RECT rect;
1339
1340 GetWindowRect(s_hwnd, &rect);
1341 *x = rect.left;
1342 *y = rect.top;
1343 return OK;
1344}
1345
1346/*
1347 * Set the position of the top left corner of the window to the given
1348 * coordinates.
1349 */
1350 void
1351gui_mch_set_winpos(int x, int y)
1352{
1353 SetWindowPos(s_hwnd, NULL, x, y, 0, 0,
1354 SWP_NOZORDER | SWP_NOSIZE | SWP_NOACTIVATE);
1355}
1356 void
1357gui_mch_set_text_area_pos(int x, int y, int w, int h)
1358{
1359 static int oldx = 0;
1360 static int oldy = 0;
1361
1362 SetWindowPos(s_textArea, NULL, x, y, w, h, SWP_NOZORDER | SWP_NOACTIVATE);
1363
1364#ifdef FEAT_TOOLBAR
1365 if (vim_strchr(p_go, GO_TOOLBAR) != NULL)
1366 SendMessage(s_toolbarhwnd, WM_SIZE,
1367 (WPARAM)0, (LPARAM)(w + ((long)(TOOLBAR_BUTTON_HEIGHT+8)<<16)));
1368#endif
1369#if defined(FEAT_GUI_TABLINE)
1370 if (showing_tabline)
1371 {
1372 int top = 0;
1373 RECT rect;
1374
1375# ifdef FEAT_TOOLBAR
1376 if (vim_strchr(p_go, GO_TOOLBAR) != NULL)
1377 top = TOOLBAR_BUTTON_HEIGHT + TOOLBAR_BORDER_HEIGHT;
1378# endif
1379 GetClientRect(s_hwnd, &rect);
1380 MoveWindow(s_tabhwnd, 0, top, rect.right, gui.tabline_height, TRUE);
1381 }
1382#endif
1383
1384 /* When side scroll bar is unshown, the size of window will change.
1385 * then, the text area move left or right. thus client rect should be
1386 * forcedly redrawn. (Yasuhiro Matsumoto) */
1387 if (oldx != x || oldy != y)
1388 {
1389 InvalidateRect(s_hwnd, NULL, FALSE);
1390 oldx = x;
1391 oldy = y;
1392 }
1393}
1394
1395
1396/*
1397 * Scrollbar stuff:
1398 */
1399
1400 void
1401gui_mch_enable_scrollbar(
1402 scrollbar_T *sb,
1403 int flag)
1404{
1405 ShowScrollBar(sb->id, SB_CTL, flag);
1406
1407 /* TODO: When the window is maximized, the size of the window stays the
1408 * same, thus the size of the text area changes. On Win98 it's OK, on Win
1409 * NT 4.0 it's not... */
1410}
1411
1412 void
1413gui_mch_set_scrollbar_pos(
1414 scrollbar_T *sb,
1415 int x,
1416 int y,
1417 int w,
1418 int h)
1419{
1420 SetWindowPos(sb->id, NULL, x, y, w, h,
1421 SWP_NOZORDER | SWP_NOACTIVATE | SWP_SHOWWINDOW);
1422}
1423
1424 void
1425gui_mch_create_scrollbar(
1426 scrollbar_T *sb,
1427 int orient) /* SBAR_VERT or SBAR_HORIZ */
1428{
1429 sb->id = CreateWindow(
1430 "SCROLLBAR", "Scrollbar",
1431 WS_CHILD | ((orient == SBAR_VERT) ? SBS_VERT : SBS_HORZ), 0, 0,
1432 10, /* Any value will do for now */
1433 10, /* Any value will do for now */
1434 s_hwnd, NULL,
1435 s_hinst, NULL);
1436}
1437
1438/*
1439 * Find the scrollbar with the given hwnd.
1440 */
1441 static scrollbar_T *
1442gui_mswin_find_scrollbar(HWND hwnd)
1443{
1444 win_T *wp;
1445
1446 if (gui.bottom_sbar.id == hwnd)
1447 return &gui.bottom_sbar;
1448 FOR_ALL_WINDOWS(wp)
1449 {
1450 if (wp->w_scrollbars[SBAR_LEFT].id == hwnd)
1451 return &wp->w_scrollbars[SBAR_LEFT];
1452 if (wp->w_scrollbars[SBAR_RIGHT].id == hwnd)
1453 return &wp->w_scrollbars[SBAR_RIGHT];
1454 }
1455 return NULL;
1456}
1457
1458/*
1459 * Get the character size of a font.
1460 */
1461 static void
1462GetFontSize(GuiFont font)
1463{
1464 HWND hwnd = GetDesktopWindow();
1465 HDC hdc = GetWindowDC(hwnd);
1466 HFONT hfntOld = SelectFont(hdc, (HFONT)font);
1467 TEXTMETRIC tm;
1468
1469 GetTextMetrics(hdc, &tm);
1470 gui.char_width = tm.tmAveCharWidth + tm.tmOverhang;
1471
1472 gui.char_height = tm.tmHeight + p_linespace;
1473
1474 SelectFont(hdc, hfntOld);
1475
1476 ReleaseDC(hwnd, hdc);
1477}
1478
1479/*
1480 * Adjust gui.char_height (after 'linespace' was changed).
1481 */
1482 int
1483gui_mch_adjust_charheight(void)
1484{
1485 GetFontSize(gui.norm_font);
1486 return OK;
1487}
1488
1489 static GuiFont
1490get_font_handle(LOGFONT *lf)
1491{
1492 HFONT font = NULL;
1493
1494 /* Load the font */
1495 font = CreateFontIndirect(lf);
1496
1497 if (font == NULL)
1498 return NOFONT;
1499
1500 return (GuiFont)font;
1501}
1502
1503 static int
1504pixels_to_points(int pixels, int vertical)
1505{
1506 int points;
1507 HWND hwnd;
1508 HDC hdc;
1509
1510 hwnd = GetDesktopWindow();
1511 hdc = GetWindowDC(hwnd);
1512
1513 points = MulDiv(pixels, 72,
1514 GetDeviceCaps(hdc, vertical ? LOGPIXELSY : LOGPIXELSX));
1515
1516 ReleaseDC(hwnd, hdc);
1517
1518 return points;
1519}
1520
1521 GuiFont
1522gui_mch_get_font(
1523 char_u *name,
1524 int giveErrorIfMissing)
1525{
1526 LOGFONT lf;
1527 GuiFont font = NOFONT;
1528
1529 if (get_logfont(&lf, name, NULL, giveErrorIfMissing) == OK)
1530 font = get_font_handle(&lf);
1531 if (font == NOFONT && giveErrorIfMissing)
1532 EMSG2(_(e_font), name);
1533 return font;
1534}
1535
1536#if defined(FEAT_EVAL) || defined(PROTO)
1537/*
1538 * Return the name of font "font" in allocated memory.
1539 * Don't know how to get the actual name, thus use the provided name.
1540 */
1541/*ARGSUSED*/
1542 char_u *
1543gui_mch_get_fontname(GuiFont font, char_u *name)
1544{
1545 if (name == NULL)
1546 return NULL;
1547 return vim_strsave(name);
1548}
1549#endif
1550
1551 void
1552gui_mch_free_font(GuiFont font)
1553{
1554 if (font)
1555 DeleteObject((HFONT)font);
1556}
1557
1558 static int
1559hex_digit(int c)
1560{
1561 if (VIM_ISDIGIT(c))
1562 return c - '0';
1563 c = TOLOWER_ASC(c);
1564 if (c >= 'a' && c <= 'f')
1565 return c - 'a' + 10;
1566 return -1000;
1567}
1568/*
1569 * Return the Pixel value (color) for the given color name.
1570 * Return INVALCOLOR for error.
1571 */
1572 guicolor_T
1573gui_mch_get_color(char_u *name)
1574{
1575 typedef struct guicolor_tTable
1576 {
1577 char *name;
1578 COLORREF color;
1579 } guicolor_tTable;
1580
1581 static guicolor_tTable table[] =
1582 {
1583 {"Black", RGB(0x00, 0x00, 0x00)},
1584 {"DarkGray", RGB(0xA9, 0xA9, 0xA9)},
1585 {"DarkGrey", RGB(0xA9, 0xA9, 0xA9)},
1586 {"Gray", RGB(0xC0, 0xC0, 0xC0)},
1587 {"Grey", RGB(0xC0, 0xC0, 0xC0)},
1588 {"LightGray", RGB(0xD3, 0xD3, 0xD3)},
1589 {"LightGrey", RGB(0xD3, 0xD3, 0xD3)},
1590 {"Gray10", RGB(0x1A, 0x1A, 0x1A)},
1591 {"Grey10", RGB(0x1A, 0x1A, 0x1A)},
1592 {"Gray20", RGB(0x33, 0x33, 0x33)},
1593 {"Grey20", RGB(0x33, 0x33, 0x33)},
1594 {"Gray30", RGB(0x4D, 0x4D, 0x4D)},
1595 {"Grey30", RGB(0x4D, 0x4D, 0x4D)},
1596 {"Gray40", RGB(0x66, 0x66, 0x66)},
1597 {"Grey40", RGB(0x66, 0x66, 0x66)},
1598 {"Gray50", RGB(0x7F, 0x7F, 0x7F)},
1599 {"Grey50", RGB(0x7F, 0x7F, 0x7F)},
1600 {"Gray60", RGB(0x99, 0x99, 0x99)},
1601 {"Grey60", RGB(0x99, 0x99, 0x99)},
1602 {"Gray70", RGB(0xB3, 0xB3, 0xB3)},
1603 {"Grey70", RGB(0xB3, 0xB3, 0xB3)},
1604 {"Gray80", RGB(0xCC, 0xCC, 0xCC)},
1605 {"Grey80", RGB(0xCC, 0xCC, 0xCC)},
1606 {"Gray90", RGB(0xE5, 0xE5, 0xE5)},
1607 {"Grey90", RGB(0xE5, 0xE5, 0xE5)},
1608 {"White", RGB(0xFF, 0xFF, 0xFF)},
1609 {"DarkRed", RGB(0x80, 0x00, 0x00)},
1610 {"Red", RGB(0xFF, 0x00, 0x00)},
1611 {"LightRed", RGB(0xFF, 0xA0, 0xA0)},
1612 {"DarkBlue", RGB(0x00, 0x00, 0x80)},
1613 {"Blue", RGB(0x00, 0x00, 0xFF)},
1614 {"LightBlue", RGB(0xAD, 0xD8, 0xE6)},
1615 {"DarkGreen", RGB(0x00, 0x80, 0x00)},
1616 {"Green", RGB(0x00, 0xFF, 0x00)},
1617 {"LightGreen", RGB(0x90, 0xEE, 0x90)},
1618 {"DarkCyan", RGB(0x00, 0x80, 0x80)},
1619 {"Cyan", RGB(0x00, 0xFF, 0xFF)},
1620 {"LightCyan", RGB(0xE0, 0xFF, 0xFF)},
1621 {"DarkMagenta", RGB(0x80, 0x00, 0x80)},
1622 {"Magenta", RGB(0xFF, 0x00, 0xFF)},
1623 {"LightMagenta", RGB(0xFF, 0xA0, 0xFF)},
1624 {"Brown", RGB(0x80, 0x40, 0x40)},
1625 {"Yellow", RGB(0xFF, 0xFF, 0x00)},
1626 {"LightYellow", RGB(0xFF, 0xFF, 0xE0)},
1627 {"DarkYellow", RGB(0xBB, 0xBB, 0x00)},
1628 {"SeaGreen", RGB(0x2E, 0x8B, 0x57)},
1629 {"Orange", RGB(0xFF, 0xA5, 0x00)},
1630 {"Purple", RGB(0xA0, 0x20, 0xF0)},
1631 {"SlateBlue", RGB(0x6A, 0x5A, 0xCD)},
1632 {"Violet", RGB(0xEE, 0x82, 0xEE)},
1633 };
1634
1635 typedef struct SysColorTable
1636 {
1637 char *name;
1638 int color;
1639 } SysColorTable;
1640
1641 static SysColorTable sys_table[] =
1642 {
1643#ifdef WIN3264
1644 {"SYS_3DDKSHADOW", COLOR_3DDKSHADOW},
1645 {"SYS_3DHILIGHT", COLOR_3DHILIGHT},
1646#ifndef __MINGW32__
1647 {"SYS_3DHIGHLIGHT", COLOR_3DHIGHLIGHT},
1648#endif
1649 {"SYS_BTNHILIGHT", COLOR_BTNHILIGHT},
1650 {"SYS_BTNHIGHLIGHT", COLOR_BTNHIGHLIGHT},
1651 {"SYS_3DLIGHT", COLOR_3DLIGHT},
1652 {"SYS_3DSHADOW", COLOR_3DSHADOW},
1653 {"SYS_DESKTOP", COLOR_DESKTOP},
1654 {"SYS_INFOBK", COLOR_INFOBK},
1655 {"SYS_INFOTEXT", COLOR_INFOTEXT},
1656 {"SYS_3DFACE", COLOR_3DFACE},
1657#endif
1658 {"SYS_BTNFACE", COLOR_BTNFACE},
1659 {"SYS_BTNSHADOW", COLOR_BTNSHADOW},
1660 {"SYS_ACTIVEBORDER", COLOR_ACTIVEBORDER},
1661 {"SYS_ACTIVECAPTION", COLOR_ACTIVECAPTION},
1662 {"SYS_APPWORKSPACE", COLOR_APPWORKSPACE},
1663 {"SYS_BACKGROUND", COLOR_BACKGROUND},
1664 {"SYS_BTNTEXT", COLOR_BTNTEXT},
1665 {"SYS_CAPTIONTEXT", COLOR_CAPTIONTEXT},
1666 {"SYS_GRAYTEXT", COLOR_GRAYTEXT},
1667 {"SYS_HIGHLIGHT", COLOR_HIGHLIGHT},
1668 {"SYS_HIGHLIGHTTEXT", COLOR_HIGHLIGHTTEXT},
1669 {"SYS_INACTIVEBORDER", COLOR_INACTIVEBORDER},
1670 {"SYS_INACTIVECAPTION", COLOR_INACTIVECAPTION},
1671 {"SYS_INACTIVECAPTIONTEXT", COLOR_INACTIVECAPTIONTEXT},
1672 {"SYS_MENU", COLOR_MENU},
1673 {"SYS_MENUTEXT", COLOR_MENUTEXT},
1674 {"SYS_SCROLLBAR", COLOR_SCROLLBAR},
1675 {"SYS_WINDOW", COLOR_WINDOW},
1676 {"SYS_WINDOWFRAME", COLOR_WINDOWFRAME},
1677 {"SYS_WINDOWTEXT", COLOR_WINDOWTEXT}
1678 };
1679
1680 int r, g, b;
1681 int i;
1682
1683 if (name[0] == '#' && STRLEN(name) == 7)
1684 {
1685 /* Name is in "#rrggbb" format */
1686 r = hex_digit(name[1]) * 16 + hex_digit(name[2]);
1687 g = hex_digit(name[3]) * 16 + hex_digit(name[4]);
1688 b = hex_digit(name[5]) * 16 + hex_digit(name[6]);
1689 if (r < 0 || g < 0 || b < 0)
1690 return INVALCOLOR;
1691 return RGB(r, g, b);
1692 }
1693 else
1694 {
1695 /* Check if the name is one of the colors we know */
1696 for (i = 0; i < sizeof(table) / sizeof(table[0]); i++)
1697 if (STRICMP(name, table[i].name) == 0)
1698 return table[i].color;
1699 }
1700
1701 /*
1702 * Try to look up a system colour.
1703 */
1704 for (i = 0; i < sizeof(sys_table) / sizeof(sys_table[0]); i++)
1705 if (STRICMP(name, sys_table[i].name) == 0)
1706 return GetSysColor(sys_table[i].color);
1707
1708 /*
1709 * Last attempt. Look in the file "$VIMRUNTIME/rgb.txt".
1710 */
1711 {
1712#define LINE_LEN 100
1713 FILE *fd;
1714 char line[LINE_LEN];
1715 char_u *fname;
1716
1717 fname = expand_env_save((char_u *)"$VIMRUNTIME/rgb.txt");
1718 if (fname == NULL)
1719 return INVALCOLOR;
1720
1721 fd = mch_fopen((char *)fname, "rt");
1722 vim_free(fname);
1723 if (fd == NULL)
1724 return INVALCOLOR;
1725
1726 while (!feof(fd))
1727 {
1728 int len;
1729 int pos;
1730 char *color;
1731
1732 fgets(line, LINE_LEN, fd);
1733 len = (int)STRLEN(line);
1734
1735 if (len <= 1 || line[len-1] != '\n')
1736 continue;
1737
1738 line[len-1] = '\0';
1739
1740 i = sscanf(line, "%d %d %d %n", &r, &g, &b, &pos);
1741 if (i != 3)
1742 continue;
1743
1744 color = line + pos;
1745
1746 if (STRICMP(color, name) == 0)
1747 {
1748 fclose(fd);
1749 return (guicolor_T) RGB(r, g, b);
1750 }
1751 }
1752
1753 fclose(fd);
1754 }
1755
1756 return INVALCOLOR;
1757}
1758/*
1759 * Return OK if the key with the termcap name "name" is supported.
1760 */
1761 int
1762gui_mch_haskey(char_u *name)
1763{
1764 int i;
1765
1766 for (i = 0; special_keys[i].vim_code1 != NUL; i++)
1767 if (name[0] == special_keys[i].vim_code0 &&
1768 name[1] == special_keys[i].vim_code1)
1769 return OK;
1770 return FAIL;
1771}
1772
1773 void
1774gui_mch_beep(void)
1775{
1776 MessageBeep(MB_OK);
1777}
1778/*
1779 * Invert a rectangle from row r, column c, for nr rows and nc columns.
1780 */
1781 void
1782gui_mch_invert_rectangle(
1783 int r,
1784 int c,
1785 int nr,
1786 int nc)
1787{
1788 RECT rc;
1789
1790 /*
1791 * Note: InvertRect() excludes right and bottom of rectangle.
1792 */
1793 rc.left = FILL_X(c);
1794 rc.top = FILL_Y(r);
1795 rc.right = rc.left + nc * gui.char_width;
1796 rc.bottom = rc.top + nr * gui.char_height;
1797 InvertRect(s_hdc, &rc);
1798}
1799
1800/*
1801 * Iconify the GUI window.
1802 */
1803 void
1804gui_mch_iconify(void)
1805{
1806 ShowWindow(s_hwnd, SW_MINIMIZE);
1807}
1808
1809/*
1810 * Draw a cursor without focus.
1811 */
1812 void
1813gui_mch_draw_hollow_cursor(guicolor_T color)
1814{
1815 HBRUSH hbr;
1816 RECT rc;
1817
1818 /*
1819 * Note: FrameRect() excludes right and bottom of rectangle.
1820 */
1821 rc.left = FILL_X(gui.col);
1822 rc.top = FILL_Y(gui.row);
1823 rc.right = rc.left + gui.char_width;
1824#ifdef FEAT_MBYTE
1825 if (mb_lefthalve(gui.row, gui.col))
1826 rc.right += gui.char_width;
1827#endif
1828 rc.bottom = rc.top + gui.char_height;
1829 hbr = CreateSolidBrush(color);
1830 FrameRect(s_hdc, &rc, hbr);
1831 DeleteBrush(hbr);
1832}
1833/*
1834 * Draw part of a cursor, "w" pixels wide, and "h" pixels high, using
1835 * color "color".
1836 */
1837 void
1838gui_mch_draw_part_cursor(
1839 int w,
1840 int h,
1841 guicolor_T color)
1842{
1843 HBRUSH hbr;
1844 RECT rc;
1845
1846 /*
1847 * Note: FillRect() excludes right and bottom of rectangle.
1848 */
1849 rc.left =
1850#ifdef FEAT_RIGHTLEFT
1851 /* vertical line should be on the right of current point */
1852 CURSOR_BAR_RIGHT ? FILL_X(gui.col + 1) - w :
1853#endif
1854 FILL_X(gui.col);
1855 rc.top = FILL_Y(gui.row) + gui.char_height - h;
1856 rc.right = rc.left + w;
1857 rc.bottom = rc.top + h;
1858 hbr = CreateSolidBrush(color);
1859 FillRect(s_hdc, &rc, hbr);
1860 DeleteBrush(hbr);
1861}
1862
1863
1864/*
1865 * Generates a VK_SPACE when the internal dead_key flag is set to output the
1866 * dead key's nominal character and re-post the original message.
1867 */
1868 static void
1869outputDeadKey_rePost(MSG originalMsg)
1870{
1871 static MSG deadCharExpel;
1872
1873 if (!dead_key)
1874 return;
1875
1876 dead_key = 0;
1877
1878 /* Make Windows generate the dead key's character */
1879 deadCharExpel.message = originalMsg.message;
1880 deadCharExpel.hwnd = originalMsg.hwnd;
1881 deadCharExpel.wParam = VK_SPACE;
1882
1883 MyTranslateMessage(&deadCharExpel);
1884
1885 /* re-generate the current character free of the dead char influence */
1886 PostMessage(originalMsg.hwnd, originalMsg.message, originalMsg.wParam,
1887 originalMsg.lParam);
1888}
1889
1890
1891/*
1892 * Process a single Windows message.
1893 * If one is not available we hang until one is.
1894 */
1895 static void
1896process_message(void)
1897{
1898 MSG msg;
1899 UINT vk = 0; /* Virtual key */
1900 char_u string[40];
1901 int i;
1902 int modifiers = 0;
1903 int key;
1904#ifdef FEAT_MENU
1905 static char_u k10[] = {K_SPECIAL, 'k', ';', 0};
1906#endif
1907
1908 pGetMessage(&msg, NULL, 0, 0);
1909
1910#ifdef FEAT_OLE
1911 /* Look after OLE Automation commands */
1912 if (msg.message == WM_OLE)
1913 {
1914 char_u *str = (char_u *)msg.lParam;
1915 if (str == NULL || *str == NUL)
1916 {
1917 /* Message can't be ours, forward it. Fixes problem with Ultramon
1918 * 3.0.4 */
1919 pDispatchMessage(&msg);
1920 }
1921 else
1922 {
1923 add_to_input_buf(str, (int)STRLEN(str));
1924 vim_free(str); /* was allocated in CVim::SendKeys() */
1925 }
1926 return;
1927 }
1928#endif
1929
Bram Moolenaarcf7164a2016-02-20 13:55:06 +01001930#ifdef MSWIN_FIND_REPLACE
1931 /* Don't process messages used by the dialog */
1932 if (s_findrep_hwnd != NULL && pIsDialogMessage(s_findrep_hwnd, &msg))
1933 {
1934 HandleMouseHide(msg.message, msg.lParam);
1935 return;
1936 }
1937#endif
1938
1939 /*
1940 * Check if it's a special key that we recognise. If not, call
1941 * TranslateMessage().
1942 */
1943 if (msg.message == WM_KEYDOWN || msg.message == WM_SYSKEYDOWN)
1944 {
1945 vk = (int) msg.wParam;
1946
1947 /*
1948 * Handle dead keys in special conditions in other cases we let Windows
1949 * handle them and do not interfere.
1950 *
1951 * The dead_key flag must be reset on several occasions:
1952 * - in _OnChar() (or _OnSysChar()) as any dead key was necessarily
1953 * consumed at that point (This is when we let Windows combine the
1954 * dead character on its own)
1955 *
1956 * - Before doing something special such as regenerating keypresses to
1957 * expel the dead character as this could trigger an infinite loop if
1958 * for some reason MyTranslateMessage() do not trigger a call
1959 * immediately to _OnChar() (or _OnSysChar()).
1960 */
1961 if (dead_key)
1962 {
1963 /*
1964 * If a dead key was pressed and the user presses VK_SPACE,
1965 * VK_BACK, or VK_ESCAPE it means that he actually wants to deal
1966 * with the dead char now, so do nothing special and let Windows
1967 * handle it.
1968 *
1969 * Note that VK_SPACE combines with the dead_key's character and
1970 * only one WM_CHAR will be generated by TranslateMessage(), in
1971 * the two other cases two WM_CHAR will be generated: the dead
1972 * char and VK_BACK or VK_ESCAPE. That is most likely what the
1973 * user expects.
1974 */
1975 if ((vk == VK_SPACE || vk == VK_BACK || vk == VK_ESCAPE))
1976 {
1977 dead_key = 0;
1978 MyTranslateMessage(&msg);
1979 return;
1980 }
1981 /* In modes where we are not typing, dead keys should behave
1982 * normally */
1983 else if (!(get_real_state() & (INSERT | CMDLINE | SELECTMODE)))
1984 {
1985 outputDeadKey_rePost(msg);
1986 return;
1987 }
1988 }
1989
1990 /* Check for CTRL-BREAK */
1991 if (vk == VK_CANCEL)
1992 {
1993 trash_input_buf();
1994 got_int = TRUE;
1995 string[0] = Ctrl_C;
1996 add_to_input_buf(string, 1);
1997 }
1998
1999 for (i = 0; special_keys[i].key_sym != 0; i++)
2000 {
2001 /* ignore VK_SPACE when ALT key pressed: system menu */
2002 if (special_keys[i].key_sym == vk
2003 && (vk != VK_SPACE || !(GetKeyState(VK_MENU) & 0x8000)))
2004 {
2005 /*
2006 * Behave as exected if we have a dead key and the special key
2007 * is a key that would normally trigger the dead key nominal
2008 * character output (such as a NUMPAD printable character or
2009 * the TAB key, etc...).
2010 */
2011 if (dead_key && (special_keys[i].vim_code0 == 'K'
2012 || vk == VK_TAB || vk == CAR))
2013 {
2014 outputDeadKey_rePost(msg);
2015 return;
2016 }
2017
2018#ifdef FEAT_MENU
2019 /* Check for <F10>: Windows selects the menu. When <F10> is
2020 * mapped we want to use the mapping instead. */
2021 if (vk == VK_F10
2022 && gui.menu_is_active
2023 && check_map(k10, State, FALSE, TRUE, FALSE,
2024 NULL, NULL) == NULL)
2025 break;
2026#endif
2027 if (GetKeyState(VK_SHIFT) & 0x8000)
2028 modifiers |= MOD_MASK_SHIFT;
2029 /*
2030 * Don't use caps-lock as shift, because these are special keys
2031 * being considered here, and we only want letters to get
2032 * shifted -- webb
2033 */
2034 /*
2035 if (GetKeyState(VK_CAPITAL) & 0x0001)
2036 modifiers ^= MOD_MASK_SHIFT;
2037 */
2038 if (GetKeyState(VK_CONTROL) & 0x8000)
2039 modifiers |= MOD_MASK_CTRL;
2040 if (GetKeyState(VK_MENU) & 0x8000)
2041 modifiers |= MOD_MASK_ALT;
2042
2043 if (special_keys[i].vim_code1 == NUL)
2044 key = special_keys[i].vim_code0;
2045 else
2046 key = TO_SPECIAL(special_keys[i].vim_code0,
2047 special_keys[i].vim_code1);
2048 key = simplify_key(key, &modifiers);
2049 if (key == CSI)
2050 key = K_CSI;
2051
2052 if (modifiers)
2053 {
2054 string[0] = CSI;
2055 string[1] = KS_MODIFIER;
2056 string[2] = modifiers;
2057 add_to_input_buf(string, 3);
2058 }
2059
2060 if (IS_SPECIAL(key))
2061 {
2062 string[0] = CSI;
2063 string[1] = K_SECOND(key);
2064 string[2] = K_THIRD(key);
2065 add_to_input_buf(string, 3);
2066 }
2067 else
2068 {
2069 int len;
2070
2071 /* Handle "key" as a Unicode character. */
2072 len = char_to_string(key, string, 40, FALSE);
2073 add_to_input_buf(string, len);
2074 }
2075 break;
2076 }
2077 }
2078 if (special_keys[i].key_sym == 0)
2079 {
2080 /* Some keys need C-S- where they should only need C-.
2081 * Ignore 0xff, Windows XP sends it when NUMLOCK has changed since
2082 * system startup (Helmut Stiegler, 2003 Oct 3). */
2083 if (vk != 0xff
2084 && (GetKeyState(VK_CONTROL) & 0x8000)
2085 && !(GetKeyState(VK_SHIFT) & 0x8000)
2086 && !(GetKeyState(VK_MENU) & 0x8000))
2087 {
2088 /* CTRL-6 is '^'; Japanese keyboard maps '^' to vk == 0xDE */
2089 if (vk == '6' || MapVirtualKey(vk, 2) == (UINT)'^')
2090 {
2091 string[0] = Ctrl_HAT;
2092 add_to_input_buf(string, 1);
2093 }
2094 /* vk == 0xBD AZERTY for CTRL-'-', but CTRL-[ for * QWERTY! */
2095 else if (vk == 0xBD) /* QWERTY for CTRL-'-' */
2096 {
2097 string[0] = Ctrl__;
2098 add_to_input_buf(string, 1);
2099 }
2100 /* CTRL-2 is '@'; Japanese keyboard maps '@' to vk == 0xC0 */
2101 else if (vk == '2' || MapVirtualKey(vk, 2) == (UINT)'@')
2102 {
2103 string[0] = Ctrl_AT;
2104 add_to_input_buf(string, 1);
2105 }
2106 else
2107 MyTranslateMessage(&msg);
2108 }
2109 else
2110 MyTranslateMessage(&msg);
2111 }
2112 }
2113#ifdef FEAT_MBYTE_IME
2114 else if (msg.message == WM_IME_NOTIFY)
2115 _OnImeNotify(msg.hwnd, (DWORD)msg.wParam, (DWORD)msg.lParam);
2116 else if (msg.message == WM_KEYUP && im_get_status())
2117 /* added for non-MS IME (Yasuhiro Matsumoto) */
2118 MyTranslateMessage(&msg);
2119#endif
2120#if !defined(FEAT_MBYTE_IME) && defined(GLOBAL_IME)
2121/* GIME_TEST */
2122 else if (msg.message == WM_IME_STARTCOMPOSITION)
2123 {
2124 POINT point;
2125
2126 global_ime_set_font(&norm_logfont);
2127 point.x = FILL_X(gui.col);
2128 point.y = FILL_Y(gui.row);
2129 MapWindowPoints(s_textArea, s_hwnd, &point, 1);
2130 global_ime_set_position(&point);
2131 }
2132#endif
2133
2134#ifdef FEAT_MENU
2135 /* Check for <F10>: Default effect is to select the menu. When <F10> is
2136 * mapped we need to stop it here to avoid strange effects (e.g., for the
2137 * key-up event) */
2138 if (vk != VK_F10 || check_map(k10, State, FALSE, TRUE, FALSE,
2139 NULL, NULL) == NULL)
2140#endif
2141 pDispatchMessage(&msg);
2142}
2143
2144/*
2145 * Catch up with any queued events. This may put keyboard input into the
2146 * input buffer, call resize call-backs, trigger timers etc. If there is
2147 * nothing in the event queue (& no timers pending), then we return
2148 * immediately.
2149 */
2150 void
2151gui_mch_update(void)
2152{
2153 MSG msg;
2154
2155 if (!s_busy_processing)
2156 while (pPeekMessage(&msg, NULL, 0, 0, PM_NOREMOVE)
2157 && !vim_is_input_buf_full())
2158 process_message();
2159}
2160
2161/*
2162 * GUI input routine called by gui_wait_for_chars(). Waits for a character
2163 * from the keyboard.
2164 * wtime == -1 Wait forever.
2165 * wtime == 0 This should never happen.
2166 * wtime > 0 Wait wtime milliseconds for a character.
2167 * Returns OK if a character was found to be available within the given time,
2168 * or FAIL otherwise.
2169 */
2170 int
2171gui_mch_wait_for_chars(int wtime)
2172{
2173 MSG msg;
2174 int focus;
2175
2176 s_timed_out = FALSE;
2177
2178 if (wtime > 0)
2179 {
2180 /* Don't do anything while processing a (scroll) message. */
2181 if (s_busy_processing)
2182 return FAIL;
2183 s_wait_timer = (UINT)SetTimer(NULL, 0, (UINT)wtime,
2184 (TIMERPROC)_OnTimer);
2185 }
2186
2187 allow_scrollbar = TRUE;
2188
2189 focus = gui.in_focus;
2190 while (!s_timed_out)
2191 {
2192 /* Stop or start blinking when focus changes */
2193 if (gui.in_focus != focus)
2194 {
2195 if (gui.in_focus)
2196 gui_mch_start_blink();
2197 else
2198 gui_mch_stop_blink();
2199 focus = gui.in_focus;
2200 }
2201
2202 if (s_need_activate)
2203 {
2204#ifdef WIN32
2205 (void)SetForegroundWindow(s_hwnd);
2206#else
2207 (void)SetActiveWindow(s_hwnd);
2208#endif
2209 s_need_activate = FALSE;
2210 }
2211
2212#ifdef MESSAGE_QUEUE
Bram Moolenaar9186a272016-02-23 19:34:01 +01002213 /* Check channel while waiting message. */
2214 for (;;)
2215 {
2216 MSG msg;
2217
2218 parse_queued_messages();
2219
2220 if (pPeekMessage(&msg, NULL, 0, 0, PM_NOREMOVE)
2221 || MsgWaitForMultipleObjects(0, NULL, FALSE, 100, QS_ALLEVENTS)
2222 != WAIT_TIMEOUT)
2223 break;
2224 }
Bram Moolenaarcf7164a2016-02-20 13:55:06 +01002225#endif
2226
Bram Moolenaarcf7164a2016-02-20 13:55:06 +01002227 /*
2228 * Don't use gui_mch_update() because then we will spin-lock until a
2229 * char arrives, instead we use GetMessage() to hang until an
2230 * event arrives. No need to check for input_buf_full because we are
2231 * returning as soon as it contains a single char -- webb
2232 */
2233 process_message();
2234
2235 if (input_available())
2236 {
2237 if (s_wait_timer != 0 && !s_timed_out)
2238 {
2239 KillTimer(NULL, s_wait_timer);
2240
2241 /* Eat spurious WM_TIMER messages */
2242 while (pPeekMessage(&msg, s_hwnd, WM_TIMER, WM_TIMER, PM_REMOVE))
2243 ;
2244 s_wait_timer = 0;
2245 }
2246 allow_scrollbar = FALSE;
2247
2248 /* Clear pending mouse button, the release event may have been
2249 * taken by the dialog window. But don't do this when getting
2250 * focus, we need the mouse-up event then. */
2251 if (!s_getting_focus)
2252 s_button_pending = -1;
2253
2254 return OK;
2255 }
2256 }
2257 allow_scrollbar = FALSE;
2258 return FAIL;
2259}
2260
2261/*
2262 * Clear a rectangular region of the screen from text pos (row1, col1) to
2263 * (row2, col2) inclusive.
2264 */
2265 void
2266gui_mch_clear_block(
2267 int row1,
2268 int col1,
2269 int row2,
2270 int col2)
2271{
2272 RECT rc;
2273
2274 /*
2275 * Clear one extra pixel at the far right, for when bold characters have
2276 * spilled over to the window border.
2277 * Note: FillRect() excludes right and bottom of rectangle.
2278 */
2279 rc.left = FILL_X(col1);
2280 rc.top = FILL_Y(row1);
2281 rc.right = FILL_X(col2 + 1) + (col2 == Columns - 1);
2282 rc.bottom = FILL_Y(row2 + 1);
2283 clear_rect(&rc);
2284}
2285
2286/*
2287 * Clear the whole text window.
2288 */
2289 void
2290gui_mch_clear_all(void)
2291{
2292 RECT rc;
2293
2294 rc.left = 0;
2295 rc.top = 0;
2296 rc.right = Columns * gui.char_width + 2 * gui.border_width;
2297 rc.bottom = Rows * gui.char_height + 2 * gui.border_width;
2298 clear_rect(&rc);
2299}
2300/*
2301 * Menu stuff.
2302 */
2303
2304 void
2305gui_mch_enable_menu(int flag)
2306{
2307#ifdef FEAT_MENU
2308 SetMenu(s_hwnd, flag ? s_menuBar : NULL);
2309#endif
2310}
2311
2312/*ARGSUSED*/
2313 void
2314gui_mch_set_menu_pos(
2315 int x,
2316 int y,
2317 int w,
2318 int h)
2319{
2320 /* It will be in the right place anyway */
2321}
2322
2323#if defined(FEAT_MENU) || defined(PROTO)
2324/*
2325 * Make menu item hidden or not hidden
2326 */
2327 void
2328gui_mch_menu_hidden(
2329 vimmenu_T *menu,
2330 int hidden)
2331{
2332 /*
2333 * This doesn't do what we want. Hmm, just grey the menu items for now.
2334 */
2335 /*
2336 if (hidden)
2337 EnableMenuItem(s_menuBar, menu->id, MF_BYCOMMAND | MF_DISABLED);
2338 else
2339 EnableMenuItem(s_menuBar, menu->id, MF_BYCOMMAND | MF_ENABLED);
2340 */
2341 gui_mch_menu_grey(menu, hidden);
2342}
2343
2344/*
2345 * This is called after setting all the menus to grey/hidden or not.
2346 */
2347 void
2348gui_mch_draw_menubar(void)
2349{
2350 DrawMenuBar(s_hwnd);
2351}
2352#endif /*FEAT_MENU*/
2353
2354#ifndef PROTO
2355void
2356#ifdef VIMDLL
2357_export
2358#endif
2359_cdecl
2360SaveInst(HINSTANCE hInst)
2361{
2362 s_hinst = hInst;
2363}
2364#endif
2365
2366/*
2367 * Return the RGB value of a pixel as a long.
2368 */
2369 long_u
2370gui_mch_get_rgb(guicolor_T pixel)
2371{
2372 return (GetRValue(pixel) << 16) + (GetGValue(pixel) << 8)
2373 + GetBValue(pixel);
2374}
2375
2376#if defined(FEAT_GUI_DIALOG) || defined(PROTO)
2377/* Convert pixels in X to dialog units */
2378 static WORD
2379PixelToDialogX(int numPixels)
2380{
2381 return (WORD)((numPixels * 4) / s_dlgfntwidth);
2382}
2383
2384/* Convert pixels in Y to dialog units */
2385 static WORD
2386PixelToDialogY(int numPixels)
2387{
2388 return (WORD)((numPixels * 8) / s_dlgfntheight);
2389}
2390
2391/* Return the width in pixels of the given text in the given DC. */
2392 static int
2393GetTextWidth(HDC hdc, char_u *str, int len)
2394{
2395 SIZE size;
2396
2397 GetTextExtentPoint(hdc, (LPCSTR)str, len, &size);
2398 return size.cx;
2399}
2400
2401#ifdef FEAT_MBYTE
2402/*
2403 * Return the width in pixels of the given text in the given DC, taking care
2404 * of 'encoding' to active codepage conversion.
2405 */
2406 static int
2407GetTextWidthEnc(HDC hdc, char_u *str, int len)
2408{
2409 SIZE size;
2410 WCHAR *wstr;
2411 int n;
2412 int wlen = len;
2413
2414 if (enc_codepage >= 0 && (int)GetACP() != enc_codepage)
2415 {
2416 /* 'encoding' differs from active codepage: convert text and use wide
2417 * function */
2418 wstr = enc_to_utf16(str, &wlen);
2419 if (wstr != NULL)
2420 {
2421 n = GetTextExtentPointW(hdc, wstr, wlen, &size);
2422 vim_free(wstr);
2423 if (n)
2424 return size.cx;
2425 }
2426 }
2427
2428 return GetTextWidth(hdc, str, len);
2429}
2430#else
2431# define GetTextWidthEnc(h, s, l) GetTextWidth((h), (s), (l))
2432#endif
2433
2434/*
2435 * A quick little routine that will center one window over another, handy for
2436 * dialog boxes. Taken from the Win32SDK samples.
2437 */
2438 static BOOL
2439CenterWindow(
2440 HWND hwndChild,
2441 HWND hwndParent)
2442{
2443 RECT rChild, rParent;
2444 int wChild, hChild, wParent, hParent;
2445 int wScreen, hScreen, xNew, yNew;
2446 HDC hdc;
2447
2448 GetWindowRect(hwndChild, &rChild);
2449 wChild = rChild.right - rChild.left;
2450 hChild = rChild.bottom - rChild.top;
2451
2452 /* If Vim is minimized put the window in the middle of the screen. */
2453 if (hwndParent == NULL || IsMinimized(hwndParent))
2454 SystemParametersInfo(SPI_GETWORKAREA, 0, &rParent, 0);
2455 else
2456 GetWindowRect(hwndParent, &rParent);
2457 wParent = rParent.right - rParent.left;
2458 hParent = rParent.bottom - rParent.top;
2459
2460 hdc = GetDC(hwndChild);
2461 wScreen = GetDeviceCaps (hdc, HORZRES);
2462 hScreen = GetDeviceCaps (hdc, VERTRES);
2463 ReleaseDC(hwndChild, hdc);
2464
2465 xNew = rParent.left + ((wParent - wChild) /2);
2466 if (xNew < 0)
2467 {
2468 xNew = 0;
2469 }
2470 else if ((xNew+wChild) > wScreen)
2471 {
2472 xNew = wScreen - wChild;
2473 }
2474
2475 yNew = rParent.top + ((hParent - hChild) /2);
2476 if (yNew < 0)
2477 yNew = 0;
2478 else if ((yNew+hChild) > hScreen)
2479 yNew = hScreen - hChild;
2480
2481 return SetWindowPos(hwndChild, NULL, xNew, yNew, 0, 0,
2482 SWP_NOSIZE | SWP_NOZORDER);
2483}
2484#endif /* FEAT_GUI_DIALOG */
2485
2486void
2487gui_mch_activate_window(void)
2488{
2489 (void)SetActiveWindow(s_hwnd);
2490}
2491
2492#if defined(FEAT_TOOLBAR) || defined(PROTO)
2493 void
2494gui_mch_show_toolbar(int showit)
2495{
2496 if (s_toolbarhwnd == NULL)
2497 return;
2498
2499 if (showit)
2500 {
2501# ifdef FEAT_MBYTE
2502# ifndef TB_SETUNICODEFORMAT
2503 /* For older compilers. We assume this never changes. */
2504# define TB_SETUNICODEFORMAT 0x2005
2505# endif
2506 /* Enable/disable unicode support */
2507 int uu = (enc_codepage >= 0 && (int)GetACP() != enc_codepage);
2508 SendMessage(s_toolbarhwnd, TB_SETUNICODEFORMAT, (WPARAM)uu, (LPARAM)0);
2509# endif
2510 ShowWindow(s_toolbarhwnd, SW_SHOW);
2511 }
2512 else
2513 ShowWindow(s_toolbarhwnd, SW_HIDE);
2514}
2515
2516/* Then number of bitmaps is fixed. Exit is missing! */
2517#define TOOLBAR_BITMAP_COUNT 31
2518
2519#endif
2520
2521#if defined(FEAT_GUI_TABLINE) || defined(PROTO)
2522 static void
2523add_tabline_popup_menu_entry(HMENU pmenu, UINT item_id, char_u *item_text)
2524{
2525#ifdef FEAT_MBYTE
2526 WCHAR *wn = NULL;
2527 int n;
2528
2529 if (enc_codepage >= 0 && (int)GetACP() != enc_codepage)
2530 {
2531 /* 'encoding' differs from active codepage: convert menu name
2532 * and use wide function */
2533 wn = enc_to_utf16(item_text, NULL);
2534 if (wn != NULL)
2535 {
2536 MENUITEMINFOW infow;
2537
2538 infow.cbSize = sizeof(infow);
2539 infow.fMask = MIIM_TYPE | MIIM_ID;
2540 infow.wID = item_id;
2541 infow.fType = MFT_STRING;
2542 infow.dwTypeData = wn;
2543 infow.cch = (UINT)wcslen(wn);
2544 n = InsertMenuItemW(pmenu, item_id, FALSE, &infow);
2545 vim_free(wn);
2546 if (n == 0 && GetLastError() == ERROR_CALL_NOT_IMPLEMENTED)
2547 /* Failed, try using non-wide function. */
2548 wn = NULL;
2549 }
2550 }
2551
2552 if (wn == NULL)
2553#endif
2554 {
2555 MENUITEMINFO info;
2556
2557 info.cbSize = sizeof(info);
2558 info.fMask = MIIM_TYPE | MIIM_ID;
2559 info.wID = item_id;
2560 info.fType = MFT_STRING;
2561 info.dwTypeData = (LPTSTR)item_text;
2562 info.cch = (UINT)STRLEN(item_text);
2563 InsertMenuItem(pmenu, item_id, FALSE, &info);
2564 }
2565}
2566
2567 static void
2568show_tabline_popup_menu(void)
2569{
2570 HMENU tab_pmenu;
2571 long rval;
2572 POINT pt;
2573
2574 /* When ignoring events don't show the menu. */
2575 if (hold_gui_events
2576# ifdef FEAT_CMDWIN
2577 || cmdwin_type != 0
2578# endif
2579 )
2580 return;
2581
2582 tab_pmenu = CreatePopupMenu();
2583 if (tab_pmenu == NULL)
2584 return;
2585
2586 if (first_tabpage->tp_next != NULL)
2587 add_tabline_popup_menu_entry(tab_pmenu,
2588 TABLINE_MENU_CLOSE, (char_u *)_("Close tab"));
2589 add_tabline_popup_menu_entry(tab_pmenu,
2590 TABLINE_MENU_NEW, (char_u *)_("New tab"));
2591 add_tabline_popup_menu_entry(tab_pmenu,
2592 TABLINE_MENU_OPEN, (char_u *)_("Open tab..."));
2593
2594 GetCursorPos(&pt);
2595 rval = TrackPopupMenuEx(tab_pmenu, TPM_RETURNCMD, pt.x, pt.y, s_tabhwnd,
2596 NULL);
2597
2598 DestroyMenu(tab_pmenu);
2599
2600 /* Add the string cmd into input buffer */
2601 if (rval > 0)
2602 {
2603 TCHITTESTINFO htinfo;
2604 int idx;
2605
2606 if (ScreenToClient(s_tabhwnd, &pt) == 0)
2607 return;
2608
2609 htinfo.pt.x = pt.x;
2610 htinfo.pt.y = pt.y;
2611 idx = TabCtrl_HitTest(s_tabhwnd, &htinfo);
2612 if (idx == -1)
2613 idx = 0;
2614 else
2615 idx += 1;
2616
2617 send_tabline_menu_event(idx, (int)rval);
2618 }
2619}
2620
2621/*
2622 * Show or hide the tabline.
2623 */
2624 void
2625gui_mch_show_tabline(int showit)
2626{
2627 if (s_tabhwnd == NULL)
2628 return;
2629
2630 if (!showit != !showing_tabline)
2631 {
2632 if (showit)
2633 ShowWindow(s_tabhwnd, SW_SHOW);
2634 else
2635 ShowWindow(s_tabhwnd, SW_HIDE);
2636 showing_tabline = showit;
2637 }
2638}
2639
2640/*
2641 * Return TRUE when tabline is displayed.
2642 */
2643 int
2644gui_mch_showing_tabline(void)
2645{
2646 return s_tabhwnd != NULL && showing_tabline;
2647}
2648
2649/*
2650 * Update the labels of the tabline.
2651 */
2652 void
2653gui_mch_update_tabline(void)
2654{
2655 tabpage_T *tp;
2656 TCITEM tie;
2657 int nr = 0;
2658 int curtabidx = 0;
2659 int tabadded = 0;
2660#ifdef FEAT_MBYTE
2661 static int use_unicode = FALSE;
2662 int uu;
2663 WCHAR *wstr = NULL;
2664#endif
2665
2666 if (s_tabhwnd == NULL)
2667 return;
2668
2669#if defined(FEAT_MBYTE)
2670# ifndef CCM_SETUNICODEFORMAT
2671 /* For older compilers. We assume this never changes. */
2672# define CCM_SETUNICODEFORMAT 0x2005
2673# endif
2674 uu = (enc_codepage >= 0 && (int)GetACP() != enc_codepage);
2675 if (uu != use_unicode)
2676 {
2677 /* Enable/disable unicode support */
2678 SendMessage(s_tabhwnd, CCM_SETUNICODEFORMAT, (WPARAM)uu, (LPARAM)0);
2679 use_unicode = uu;
2680 }
2681#endif
2682
2683 tie.mask = TCIF_TEXT;
2684 tie.iImage = -1;
2685
2686 /* Disable redraw for tab updates to eliminate O(N^2) draws. */
2687 SendMessage(s_tabhwnd, WM_SETREDRAW, (WPARAM)FALSE, 0);
2688
2689 /* Add a label for each tab page. They all contain the same text area. */
2690 for (tp = first_tabpage; tp != NULL; tp = tp->tp_next, ++nr)
2691 {
2692 if (tp == curtab)
2693 curtabidx = nr;
2694
2695 if (nr >= TabCtrl_GetItemCount(s_tabhwnd))
2696 {
2697 /* Add the tab */
2698 tie.pszText = "-Empty-";
2699 TabCtrl_InsertItem(s_tabhwnd, nr, &tie);
2700 tabadded = 1;
2701 }
2702
2703 get_tabline_label(tp, FALSE);
2704 tie.pszText = (LPSTR)NameBuff;
2705#ifdef FEAT_MBYTE
2706 wstr = NULL;
2707 if (use_unicode)
2708 {
2709 /* Need to go through Unicode. */
2710 wstr = enc_to_utf16(NameBuff, NULL);
2711 if (wstr != NULL)
2712 {
2713 TCITEMW tiw;
2714
2715 tiw.mask = TCIF_TEXT;
2716 tiw.iImage = -1;
2717 tiw.pszText = wstr;
2718 SendMessage(s_tabhwnd, TCM_SETITEMW, (WPARAM)nr, (LPARAM)&tiw);
2719 vim_free(wstr);
2720 }
2721 }
2722 if (wstr == NULL)
2723#endif
2724 {
2725 TabCtrl_SetItem(s_tabhwnd, nr, &tie);
2726 }
2727 }
2728
2729 /* Remove any old labels. */
2730 while (nr < TabCtrl_GetItemCount(s_tabhwnd))
2731 TabCtrl_DeleteItem(s_tabhwnd, nr);
2732
2733 if (!tabadded && TabCtrl_GetCurSel(s_tabhwnd) != curtabidx)
2734 TabCtrl_SetCurSel(s_tabhwnd, curtabidx);
2735
2736 /* Re-enable redraw and redraw. */
2737 SendMessage(s_tabhwnd, WM_SETREDRAW, (WPARAM)TRUE, 0);
2738 RedrawWindow(s_tabhwnd, NULL, NULL,
2739 RDW_ERASE | RDW_FRAME | RDW_INVALIDATE | RDW_ALLCHILDREN);
2740
2741 if (tabadded && TabCtrl_GetCurSel(s_tabhwnd) != curtabidx)
2742 TabCtrl_SetCurSel(s_tabhwnd, curtabidx);
2743}
2744
2745/*
2746 * Set the current tab to "nr". First tab is 1.
2747 */
2748 void
2749gui_mch_set_curtab(int nr)
2750{
2751 if (s_tabhwnd == NULL)
2752 return;
2753
2754 if (TabCtrl_GetCurSel(s_tabhwnd) != nr - 1)
2755 TabCtrl_SetCurSel(s_tabhwnd, nr - 1);
2756}
2757
2758#endif
2759
2760/*
2761 * ":simalt" command.
2762 */
2763 void
2764ex_simalt(exarg_T *eap)
2765{
2766 char_u *keys = eap->arg;
2767
2768 PostMessage(s_hwnd, WM_SYSCOMMAND, (WPARAM)SC_KEYMENU, (LPARAM)0);
2769 while (*keys)
2770 {
2771 if (*keys == '~')
2772 *keys = ' '; /* for showing system menu */
2773 PostMessage(s_hwnd, WM_CHAR, (WPARAM)*keys, (LPARAM)0);
2774 keys++;
2775 }
2776}
2777
2778/*
2779 * Create the find & replace dialogs.
2780 * You can't have both at once: ":find" when replace is showing, destroys
2781 * the replace dialog first, and the other way around.
2782 */
2783#ifdef MSWIN_FIND_REPLACE
2784 static void
2785initialise_findrep(char_u *initial_string)
2786{
2787 int wword = FALSE;
2788 int mcase = !p_ic;
2789 char_u *entry_text;
2790
2791 /* Get the search string to use. */
2792 entry_text = get_find_dialog_text(initial_string, &wword, &mcase);
2793
2794 s_findrep_struct.hwndOwner = s_hwnd;
2795 s_findrep_struct.Flags = FR_DOWN;
2796 if (mcase)
2797 s_findrep_struct.Flags |= FR_MATCHCASE;
2798 if (wword)
2799 s_findrep_struct.Flags |= FR_WHOLEWORD;
2800 if (entry_text != NULL && *entry_text != NUL)
2801 vim_strncpy((char_u *)s_findrep_struct.lpstrFindWhat, entry_text,
2802 s_findrep_struct.wFindWhatLen - 1);
2803 vim_free(entry_text);
2804}
2805#endif
2806
2807 static void
2808set_window_title(HWND hwnd, char *title)
2809{
2810#ifdef FEAT_MBYTE
2811 if (title != NULL && enc_codepage >= 0 && enc_codepage != (int)GetACP())
2812 {
2813 WCHAR *wbuf;
2814 int n;
2815
2816 /* Convert the title from 'encoding' to UTF-16. */
2817 wbuf = (WCHAR *)enc_to_utf16((char_u *)title, NULL);
2818 if (wbuf != NULL)
2819 {
2820 n = SetWindowTextW(hwnd, wbuf);
2821 vim_free(wbuf);
2822 if (n != 0 || GetLastError() != ERROR_CALL_NOT_IMPLEMENTED)
2823 return;
2824 /* Retry with non-wide function (for Windows 98). */
2825 }
2826 }
2827#endif
2828 (void)SetWindowText(hwnd, (LPCSTR)title);
2829}
2830
2831 void
2832gui_mch_find_dialog(exarg_T *eap)
2833{
2834#ifdef MSWIN_FIND_REPLACE
2835 if (s_findrep_msg != 0)
2836 {
2837 if (IsWindow(s_findrep_hwnd) && !s_findrep_is_find)
2838 DestroyWindow(s_findrep_hwnd);
2839
2840 if (!IsWindow(s_findrep_hwnd))
2841 {
2842 initialise_findrep(eap->arg);
2843# if defined(FEAT_MBYTE) && defined(WIN3264)
2844 /* If the OS is Windows NT, and 'encoding' differs from active
2845 * codepage: convert text and use wide function. */
2846 if (os_version.dwPlatformId == VER_PLATFORM_WIN32_NT
2847 && enc_codepage >= 0 && (int)GetACP() != enc_codepage)
2848 {
2849 findrep_atow(&s_findrep_struct_w, &s_findrep_struct);
2850 s_findrep_hwnd = FindTextW(
2851 (LPFINDREPLACEW) &s_findrep_struct_w);
2852 }
2853 else
2854# endif
2855 s_findrep_hwnd = FindText((LPFINDREPLACE) &s_findrep_struct);
2856 }
2857
2858 set_window_title(s_findrep_hwnd,
2859 _("Find string (use '\\\\' to find a '\\')"));
2860 (void)SetFocus(s_findrep_hwnd);
2861
2862 s_findrep_is_find = TRUE;
2863 }
2864#endif
2865}
2866
2867
2868 void
2869gui_mch_replace_dialog(exarg_T *eap)
2870{
2871#ifdef MSWIN_FIND_REPLACE
2872 if (s_findrep_msg != 0)
2873 {
2874 if (IsWindow(s_findrep_hwnd) && s_findrep_is_find)
2875 DestroyWindow(s_findrep_hwnd);
2876
2877 if (!IsWindow(s_findrep_hwnd))
2878 {
2879 initialise_findrep(eap->arg);
2880# if defined(FEAT_MBYTE) && defined(WIN3264)
2881 if (os_version.dwPlatformId == VER_PLATFORM_WIN32_NT
2882 && enc_codepage >= 0 && (int)GetACP() != enc_codepage)
2883 {
2884 findrep_atow(&s_findrep_struct_w, &s_findrep_struct);
2885 s_findrep_hwnd = ReplaceTextW(
2886 (LPFINDREPLACEW) &s_findrep_struct_w);
2887 }
2888 else
2889# endif
2890 s_findrep_hwnd = ReplaceText(
2891 (LPFINDREPLACE) &s_findrep_struct);
2892 }
2893
2894 set_window_title(s_findrep_hwnd,
2895 _("Find & Replace (use '\\\\' to find a '\\')"));
2896 (void)SetFocus(s_findrep_hwnd);
2897
2898 s_findrep_is_find = FALSE;
2899 }
2900#endif
2901}
2902
2903
2904/*
2905 * Set visibility of the pointer.
2906 */
2907 void
2908gui_mch_mousehide(int hide)
2909{
2910 if (hide != gui.pointer_hidden)
2911 {
2912 ShowCursor(!hide);
2913 gui.pointer_hidden = hide;
2914 }
2915}
2916
2917#ifdef FEAT_MENU
2918 static void
2919gui_mch_show_popupmenu_at(vimmenu_T *menu, int x, int y)
2920{
2921 /* Unhide the mouse, we don't get move events here. */
2922 gui_mch_mousehide(FALSE);
2923
2924 (void)TrackPopupMenu(
2925 (HMENU)menu->submenu_id,
2926 TPM_LEFTALIGN | TPM_LEFTBUTTON,
2927 x, y,
2928 (int)0, /*reserved param*/
2929 s_hwnd,
2930 NULL);
2931 /*
2932 * NOTE: The pop-up menu can eat the mouse up event.
2933 * We deal with this in normal.c.
2934 */
2935}
2936#endif
2937
2938/*
2939 * Got a message when the system will go down.
2940 */
2941 static void
2942_OnEndSession(void)
2943{
2944 getout_preserve_modified(1);
2945}
2946
2947/*
2948 * Get this message when the user clicks on the cross in the top right corner
2949 * of a Windows95 window.
2950 */
2951/*ARGSUSED*/
2952 static void
2953_OnClose(
2954 HWND hwnd)
2955{
2956 gui_shell_closed();
2957}
2958
2959/*
2960 * Get a message when the window is being destroyed.
2961 */
2962 static void
2963_OnDestroy(
2964 HWND hwnd)
2965{
2966 if (!destroying)
2967 _OnClose(hwnd);
2968}
2969
2970 static void
2971_OnPaint(
2972 HWND hwnd)
2973{
2974 if (!IsMinimized(hwnd))
2975 {
2976 PAINTSTRUCT ps;
2977
2978 out_flush(); /* make sure all output has been processed */
2979 (void)BeginPaint(hwnd, &ps);
2980#if defined(FEAT_DIRECTX)
2981 if (IS_ENABLE_DIRECTX())
2982 DWriteContext_BeginDraw(s_dwc);
2983#endif
2984
2985#ifdef FEAT_MBYTE
2986 /* prevent multi-byte characters from misprinting on an invalid
2987 * rectangle */
2988 if (has_mbyte)
2989 {
2990 RECT rect;
2991
2992 GetClientRect(hwnd, &rect);
2993 ps.rcPaint.left = rect.left;
2994 ps.rcPaint.right = rect.right;
2995 }
2996#endif
2997
2998 if (!IsRectEmpty(&ps.rcPaint))
2999 {
3000#if defined(FEAT_DIRECTX)
3001 if (IS_ENABLE_DIRECTX())
3002 DWriteContext_BindDC(s_dwc, s_hdc, &ps.rcPaint);
3003#endif
3004 gui_redraw(ps.rcPaint.left, ps.rcPaint.top,
3005 ps.rcPaint.right - ps.rcPaint.left + 1,
3006 ps.rcPaint.bottom - ps.rcPaint.top + 1);
3007 }
3008
3009#if defined(FEAT_DIRECTX)
3010 if (IS_ENABLE_DIRECTX())
3011 DWriteContext_EndDraw(s_dwc);
3012#endif
3013 EndPaint(hwnd, &ps);
3014 }
3015}
3016
3017/*ARGSUSED*/
3018 static void
3019_OnSize(
3020 HWND hwnd,
3021 UINT state,
3022 int cx,
3023 int cy)
3024{
3025 if (!IsMinimized(hwnd))
3026 {
3027 gui_resize_shell(cx, cy);
3028
3029#ifdef FEAT_MENU
3030 /* Menu bar may wrap differently now */
3031 gui_mswin_get_menu_height(TRUE);
3032#endif
3033 }
3034}
3035
3036 static void
3037_OnSetFocus(
3038 HWND hwnd,
3039 HWND hwndOldFocus)
3040{
3041 gui_focus_change(TRUE);
3042 s_getting_focus = TRUE;
3043 (void)MyWindowProc(hwnd, WM_SETFOCUS, (WPARAM)hwndOldFocus, 0);
3044}
3045
3046 static void
3047_OnKillFocus(
3048 HWND hwnd,
3049 HWND hwndNewFocus)
3050{
3051 gui_focus_change(FALSE);
3052 s_getting_focus = FALSE;
3053 (void)MyWindowProc(hwnd, WM_KILLFOCUS, (WPARAM)hwndNewFocus, 0);
3054}
3055
3056/*
3057 * Get a message when the user switches back to vim
3058 */
3059 static LRESULT
3060_OnActivateApp(
3061 HWND hwnd,
3062 BOOL fActivate,
3063 DWORD dwThreadId)
3064{
3065 /* we call gui_focus_change() in _OnSetFocus() */
3066 /* gui_focus_change((int)fActivate); */
3067 return MyWindowProc(hwnd, WM_ACTIVATEAPP, fActivate, (DWORD)dwThreadId);
3068}
3069
3070#if defined(FEAT_WINDOWS) || defined(PROTO)
3071 void
3072gui_mch_destroy_scrollbar(scrollbar_T *sb)
3073{
3074 DestroyWindow(sb->id);
3075}
3076#endif
3077
3078/*
3079 * Get current mouse coordinates in text window.
3080 */
3081 void
3082gui_mch_getmouse(int *x, int *y)
3083{
3084 RECT rct;
3085 POINT mp;
3086
3087 (void)GetWindowRect(s_textArea, &rct);
3088 (void)GetCursorPos((LPPOINT)&mp);
3089 *x = (int)(mp.x - rct.left);
3090 *y = (int)(mp.y - rct.top);
3091}
3092
3093/*
3094 * Move mouse pointer to character at (x, y).
3095 */
3096 void
3097gui_mch_setmouse(int x, int y)
3098{
3099 RECT rct;
3100
3101 (void)GetWindowRect(s_textArea, &rct);
3102 (void)SetCursorPos(x + gui.border_offset + rct.left,
3103 y + gui.border_offset + rct.top);
3104}
3105
3106 static void
3107gui_mswin_get_valid_dimensions(
3108 int w,
3109 int h,
3110 int *valid_w,
3111 int *valid_h)
3112{
3113 int base_width, base_height;
3114
3115 base_width = gui_get_base_width()
3116 + (GetSystemMetrics(SM_CXFRAME) +
3117 GetSystemMetrics(SM_CXPADDEDBORDER)) * 2;
3118 base_height = gui_get_base_height()
3119 + (GetSystemMetrics(SM_CYFRAME) +
3120 GetSystemMetrics(SM_CXPADDEDBORDER)) * 2
3121 + GetSystemMetrics(SM_CYCAPTION)
3122#ifdef FEAT_MENU
3123 + gui_mswin_get_menu_height(FALSE)
3124#endif
3125 ;
3126 *valid_w = base_width +
3127 ((w - base_width) / gui.char_width) * gui.char_width;
3128 *valid_h = base_height +
3129 ((h - base_height) / gui.char_height) * gui.char_height;
3130}
3131
3132 void
3133gui_mch_flash(int msec)
3134{
3135 RECT rc;
3136
3137 /*
3138 * Note: InvertRect() excludes right and bottom of rectangle.
3139 */
3140 rc.left = 0;
3141 rc.top = 0;
3142 rc.right = gui.num_cols * gui.char_width;
3143 rc.bottom = gui.num_rows * gui.char_height;
3144 InvertRect(s_hdc, &rc);
3145 gui_mch_flush(); /* make sure it's displayed */
3146
3147 ui_delay((long)msec, TRUE); /* wait for a few msec */
3148
3149 InvertRect(s_hdc, &rc);
3150}
3151
3152/*
3153 * Return flags used for scrolling.
3154 * The SW_INVALIDATE is required when part of the window is covered or
3155 * off-screen. Refer to MS KB Q75236.
3156 */
3157 static int
3158get_scroll_flags(void)
3159{
3160 HWND hwnd;
3161 RECT rcVim, rcOther, rcDest;
3162
3163 GetWindowRect(s_hwnd, &rcVim);
3164
3165 /* Check if the window is partly above or below the screen. We don't care
3166 * about partly left or right of the screen, it is not relevant when
3167 * scrolling up or down. */
3168 if (rcVim.top < 0 || rcVim.bottom > GetSystemMetrics(SM_CYFULLSCREEN))
3169 return SW_INVALIDATE;
3170
3171 /* Check if there is an window (partly) on top of us. */
3172 for (hwnd = s_hwnd; (hwnd = GetWindow(hwnd, GW_HWNDPREV)) != (HWND)0; )
3173 if (IsWindowVisible(hwnd))
3174 {
3175 GetWindowRect(hwnd, &rcOther);
3176 if (IntersectRect(&rcDest, &rcVim, &rcOther))
3177 return SW_INVALIDATE;
3178 }
3179 return 0;
3180}
3181
3182/*
3183 * On some Intel GPUs, the regions drawn just prior to ScrollWindowEx()
3184 * may not be scrolled out properly.
3185 * For gVim, when _OnScroll() is repeated, the character at the
3186 * previous cursor position may be left drawn after scroll.
3187 * The problem can be avoided by calling GetPixel() to get a pixel in
3188 * the region before ScrollWindowEx().
3189 */
3190 static void
3191intel_gpu_workaround(void)
3192{
3193 GetPixel(s_hdc, FILL_X(gui.col), FILL_Y(gui.row));
3194}
3195
3196/*
3197 * Delete the given number of lines from the given row, scrolling up any
3198 * text further down within the scroll region.
3199 */
3200 void
3201gui_mch_delete_lines(
3202 int row,
3203 int num_lines)
3204{
3205 RECT rc;
3206
3207 intel_gpu_workaround();
3208
3209 rc.left = FILL_X(gui.scroll_region_left);
3210 rc.right = FILL_X(gui.scroll_region_right + 1);
3211 rc.top = FILL_Y(row);
3212 rc.bottom = FILL_Y(gui.scroll_region_bot + 1);
3213
3214 ScrollWindowEx(s_textArea, 0, -num_lines * gui.char_height,
3215 &rc, &rc, NULL, NULL, get_scroll_flags());
3216
3217 UpdateWindow(s_textArea);
3218 /* This seems to be required to avoid the cursor disappearing when
3219 * scrolling such that the cursor ends up in the top-left character on
3220 * the screen... But why? (Webb) */
3221 /* It's probably fixed by disabling drawing the cursor while scrolling. */
3222 /* gui.cursor_is_valid = FALSE; */
3223
3224 gui_clear_block(gui.scroll_region_bot - num_lines + 1,
3225 gui.scroll_region_left,
3226 gui.scroll_region_bot, gui.scroll_region_right);
3227}
3228
3229/*
3230 * Insert the given number of lines before the given row, scrolling down any
3231 * following text within the scroll region.
3232 */
3233 void
3234gui_mch_insert_lines(
3235 int row,
3236 int num_lines)
3237{
3238 RECT rc;
3239
3240 intel_gpu_workaround();
3241
3242 rc.left = FILL_X(gui.scroll_region_left);
3243 rc.right = FILL_X(gui.scroll_region_right + 1);
3244 rc.top = FILL_Y(row);
3245 rc.bottom = FILL_Y(gui.scroll_region_bot + 1);
3246 /* The SW_INVALIDATE is required when part of the window is covered or
3247 * off-screen. How do we avoid it when it's not needed? */
3248 ScrollWindowEx(s_textArea, 0, num_lines * gui.char_height,
3249 &rc, &rc, NULL, NULL, get_scroll_flags());
3250
3251 UpdateWindow(s_textArea);
3252
3253 gui_clear_block(row, gui.scroll_region_left,
3254 row + num_lines - 1, gui.scroll_region_right);
3255}
3256
3257
3258/*ARGSUSED*/
3259 void
3260gui_mch_exit(int rc)
3261{
3262#if defined(FEAT_DIRECTX)
3263 DWriteContext_Close(s_dwc);
3264 DWrite_Final();
3265 s_dwc = NULL;
3266#endif
3267
3268 ReleaseDC(s_textArea, s_hdc);
3269 DeleteObject(s_brush);
3270
3271#ifdef FEAT_TEAROFF
3272 /* Unload the tearoff bitmap */
3273 (void)DeleteObject((HGDIOBJ)s_htearbitmap);
3274#endif
3275
3276 /* Destroy our window (if we have one). */
3277 if (s_hwnd != NULL)
3278 {
3279 destroying = TRUE; /* ignore WM_DESTROY message now */
3280 DestroyWindow(s_hwnd);
3281 }
3282
3283#ifdef GLOBAL_IME
3284 global_ime_end();
3285#endif
3286}
3287
3288 static char_u *
3289logfont2name(LOGFONT lf)
3290{
3291 char *p;
3292 char *res;
3293 char *charset_name;
3294 char *font_name = lf.lfFaceName;
3295
3296 charset_name = charset_id2name((int)lf.lfCharSet);
3297#ifdef FEAT_MBYTE
3298 /* Convert a font name from the current codepage to 'encoding'.
3299 * TODO: Use Wide APIs (including LOGFONTW) instead of ANSI APIs. */
3300 if (enc_codepage >= 0 && (int)GetACP() != enc_codepage)
3301 {
3302 int len;
3303 acp_to_enc((char_u *)lf.lfFaceName, (int)strlen(lf.lfFaceName),
3304 (char_u **)&font_name, &len);
3305 }
3306#endif
3307 res = (char *)alloc((unsigned)(strlen(font_name) + 20
3308 + (charset_name == NULL ? 0 : strlen(charset_name) + 2)));
3309 if (res != NULL)
3310 {
3311 p = res;
3312 /* make a normal font string out of the lf thing:*/
3313 sprintf((char *)p, "%s:h%d", font_name, pixels_to_points(
3314 lf.lfHeight < 0 ? -lf.lfHeight : lf.lfHeight, TRUE));
3315 while (*p)
3316 {
3317 if (*p == ' ')
3318 *p = '_';
3319 ++p;
3320 }
3321 if (lf.lfItalic)
3322 STRCAT(p, ":i");
3323 if (lf.lfWeight >= FW_BOLD)
3324 STRCAT(p, ":b");
3325 if (lf.lfUnderline)
3326 STRCAT(p, ":u");
3327 if (lf.lfStrikeOut)
3328 STRCAT(p, ":s");
3329 if (charset_name != NULL)
3330 {
3331 STRCAT(p, ":c");
3332 STRCAT(p, charset_name);
3333 }
3334 }
3335
3336#ifdef FEAT_MBYTE
3337 if (font_name != lf.lfFaceName)
3338 vim_free(font_name);
3339#endif
3340 return (char_u *)res;
3341}
3342
3343
3344#ifdef FEAT_MBYTE_IME
3345/*
3346 * Set correct LOGFONT to IME. Use 'guifontwide' if available, otherwise use
3347 * 'guifont'
3348 */
3349 static void
3350update_im_font(void)
3351{
3352 LOGFONT lf_wide;
3353
3354 if (p_guifontwide != NULL && *p_guifontwide != NUL
3355 && gui.wide_font != NOFONT
3356 && GetObject((HFONT)gui.wide_font, sizeof(lf_wide), &lf_wide))
3357 norm_logfont = lf_wide;
3358 else
3359 norm_logfont = sub_logfont;
3360 im_set_font(&norm_logfont);
3361}
3362#endif
3363
3364#ifdef FEAT_MBYTE
3365/*
3366 * Handler of gui.wide_font (p_guifontwide) changed notification.
3367 */
3368 void
3369gui_mch_wide_font_changed(void)
3370{
3371 LOGFONT lf;
3372
3373# ifdef FEAT_MBYTE_IME
3374 update_im_font();
3375# endif
3376
3377 gui_mch_free_font(gui.wide_ital_font);
3378 gui.wide_ital_font = NOFONT;
3379 gui_mch_free_font(gui.wide_bold_font);
3380 gui.wide_bold_font = NOFONT;
3381 gui_mch_free_font(gui.wide_boldital_font);
3382 gui.wide_boldital_font = NOFONT;
3383
3384 if (gui.wide_font
3385 && GetObject((HFONT)gui.wide_font, sizeof(lf), &lf))
3386 {
3387 if (!lf.lfItalic)
3388 {
3389 lf.lfItalic = TRUE;
3390 gui.wide_ital_font = get_font_handle(&lf);
3391 lf.lfItalic = FALSE;
3392 }
3393 if (lf.lfWeight < FW_BOLD)
3394 {
3395 lf.lfWeight = FW_BOLD;
3396 gui.wide_bold_font = get_font_handle(&lf);
3397 if (!lf.lfItalic)
3398 {
3399 lf.lfItalic = TRUE;
3400 gui.wide_boldital_font = get_font_handle(&lf);
3401 }
3402 }
3403 }
3404}
3405#endif
3406
3407/*
3408 * Initialise vim to use the font with the given name.
3409 * Return FAIL if the font could not be loaded, OK otherwise.
3410 */
3411/*ARGSUSED*/
3412 int
3413gui_mch_init_font(char_u *font_name, int fontset)
3414{
3415 LOGFONT lf;
3416 GuiFont font = NOFONT;
3417 char_u *p;
3418
3419 /* Load the font */
3420 if (get_logfont(&lf, font_name, NULL, TRUE) == OK)
3421 font = get_font_handle(&lf);
3422 if (font == NOFONT)
3423 return FAIL;
3424
3425 if (font_name == NULL)
3426 font_name = (char_u *)lf.lfFaceName;
3427#if defined(FEAT_MBYTE_IME) || defined(GLOBAL_IME)
3428 norm_logfont = lf;
3429 sub_logfont = lf;
3430#endif
3431#ifdef FEAT_MBYTE_IME
3432 update_im_font();
3433#endif
3434 gui_mch_free_font(gui.norm_font);
3435 gui.norm_font = font;
3436 current_font_height = lf.lfHeight;
3437 GetFontSize(font);
3438
3439 p = logfont2name(lf);
3440 if (p != NULL)
3441 {
3442 hl_set_font_name(p);
3443
3444 /* When setting 'guifont' to "*" replace it with the actual font name.
3445 * */
3446 if (STRCMP(font_name, "*") == 0 && STRCMP(p_guifont, "*") == 0)
3447 {
3448 vim_free(p_guifont);
3449 p_guifont = p;
3450 }
3451 else
3452 vim_free(p);
3453 }
3454
3455 gui_mch_free_font(gui.ital_font);
3456 gui.ital_font = NOFONT;
3457 gui_mch_free_font(gui.bold_font);
3458 gui.bold_font = NOFONT;
3459 gui_mch_free_font(gui.boldital_font);
3460 gui.boldital_font = NOFONT;
3461
3462 if (!lf.lfItalic)
3463 {
3464 lf.lfItalic = TRUE;
3465 gui.ital_font = get_font_handle(&lf);
3466 lf.lfItalic = FALSE;
3467 }
3468 if (lf.lfWeight < FW_BOLD)
3469 {
3470 lf.lfWeight = FW_BOLD;
3471 gui.bold_font = get_font_handle(&lf);
3472 if (!lf.lfItalic)
3473 {
3474 lf.lfItalic = TRUE;
3475 gui.boldital_font = get_font_handle(&lf);
3476 }
3477 }
3478
3479 return OK;
3480}
3481
3482#ifndef WPF_RESTORETOMAXIMIZED
3483# define WPF_RESTORETOMAXIMIZED 2 /* just in case someone doesn't have it */
3484#endif
3485
3486/*
3487 * Return TRUE if the GUI window is maximized, filling the whole screen.
3488 */
3489 int
3490gui_mch_maximized(void)
3491{
3492 WINDOWPLACEMENT wp;
3493
3494 wp.length = sizeof(WINDOWPLACEMENT);
3495 if (GetWindowPlacement(s_hwnd, &wp))
3496 return wp.showCmd == SW_SHOWMAXIMIZED
3497 || (wp.showCmd == SW_SHOWMINIMIZED
3498 && wp.flags == WPF_RESTORETOMAXIMIZED);
3499
3500 return 0;
3501}
3502
3503/*
3504 * Called when the font changed while the window is maximized. Compute the
3505 * new Rows and Columns. This is like resizing the window.
3506 */
3507 void
3508gui_mch_newfont(void)
3509{
3510 RECT rect;
3511
3512 GetWindowRect(s_hwnd, &rect);
3513 if (win_socket_id == 0)
3514 {
3515 gui_resize_shell(rect.right - rect.left
3516 - (GetSystemMetrics(SM_CXFRAME) +
3517 GetSystemMetrics(SM_CXPADDEDBORDER)) * 2,
3518 rect.bottom - rect.top
3519 - (GetSystemMetrics(SM_CYFRAME) +
3520 GetSystemMetrics(SM_CXPADDEDBORDER)) * 2
3521 - GetSystemMetrics(SM_CYCAPTION)
3522#ifdef FEAT_MENU
3523 - gui_mswin_get_menu_height(FALSE)
3524#endif
3525 );
3526 }
3527 else
3528 {
3529 /* Inside another window, don't use the frame and border. */
3530 gui_resize_shell(rect.right - rect.left,
3531 rect.bottom - rect.top
3532#ifdef FEAT_MENU
3533 - gui_mswin_get_menu_height(FALSE)
3534#endif
3535 );
3536 }
3537}
3538
3539/*
3540 * Set the window title
3541 */
3542/*ARGSUSED*/
3543 void
3544gui_mch_settitle(
3545 char_u *title,
3546 char_u *icon)
3547{
3548 set_window_title(s_hwnd, (title == NULL ? "VIM" : (char *)title));
3549}
3550
3551#ifdef FEAT_MOUSESHAPE
3552/* Table for shape IDCs. Keep in sync with the mshape_names[] table in
3553 * misc2.c! */
3554static LPCSTR mshape_idcs[] =
3555{
3556 IDC_ARROW, /* arrow */
3557 MAKEINTRESOURCE(0), /* blank */
3558 IDC_IBEAM, /* beam */
3559 IDC_SIZENS, /* updown */
3560 IDC_SIZENS, /* udsizing */
3561 IDC_SIZEWE, /* leftright */
3562 IDC_SIZEWE, /* lrsizing */
3563 IDC_WAIT, /* busy */
3564#ifdef WIN3264
3565 IDC_NO, /* no */
3566#else
3567 IDC_ICON, /* no */
3568#endif
3569 IDC_ARROW, /* crosshair */
3570 IDC_ARROW, /* hand1 */
3571 IDC_ARROW, /* hand2 */
3572 IDC_ARROW, /* pencil */
3573 IDC_ARROW, /* question */
3574 IDC_ARROW, /* right-arrow */
3575 IDC_UPARROW, /* up-arrow */
3576 IDC_ARROW /* last one */
3577};
3578
3579 void
3580mch_set_mouse_shape(int shape)
3581{
3582 LPCSTR idc;
3583
3584 if (shape == MSHAPE_HIDE)
3585 ShowCursor(FALSE);
3586 else
3587 {
3588 if (shape >= MSHAPE_NUMBERED)
3589 idc = IDC_ARROW;
3590 else
3591 idc = mshape_idcs[shape];
3592#ifdef SetClassLongPtr
3593 SetClassLongPtr(s_textArea, GCLP_HCURSOR, (__int3264)(LONG_PTR)LoadCursor(NULL, idc));
3594#else
3595# ifdef WIN32
3596 SetClassLong(s_textArea, GCL_HCURSOR, (long_u)LoadCursor(NULL, idc));
3597# else /* Win16 */
3598 SetClassWord(s_textArea, GCW_HCURSOR, (WORD)LoadCursor(NULL, idc));
3599# endif
3600#endif
3601 if (!p_mh)
3602 {
3603 POINT mp;
3604
3605 /* Set the position to make it redrawn with the new shape. */
3606 (void)GetCursorPos((LPPOINT)&mp);
3607 (void)SetCursorPos(mp.x, mp.y);
3608 ShowCursor(TRUE);
3609 }
3610 }
3611}
3612#endif
3613
3614#ifdef FEAT_BROWSE
3615/*
3616 * The file browser exists in two versions: with "W" uses wide characters,
3617 * without "W" the current codepage. When FEAT_MBYTE is defined and on
3618 * Windows NT/2000/XP the "W" functions are used.
3619 */
3620
3621# if defined(FEAT_MBYTE) && defined(WIN3264)
3622/*
3623 * Wide version of convert_filter().
3624 */
3625 static WCHAR *
3626convert_filterW(char_u *s)
3627{
3628 char_u *tmp;
3629 int len;
3630 WCHAR *res;
3631
3632 tmp = convert_filter(s);
3633 if (tmp == NULL)
3634 return NULL;
3635 len = (int)STRLEN(s) + 3;
3636 res = enc_to_utf16(tmp, &len);
3637 vim_free(tmp);
3638 return res;
3639}
3640
3641/*
3642 * Wide version of gui_mch_browse(). Keep in sync!
3643 */
3644 static char_u *
3645gui_mch_browseW(
3646 int saving,
3647 char_u *title,
3648 char_u *dflt,
3649 char_u *ext,
3650 char_u *initdir,
3651 char_u *filter)
3652{
3653 /* We always use the wide function. This means enc_to_utf16() must work,
3654 * otherwise it fails miserably! */
3655 OPENFILENAMEW fileStruct;
3656 WCHAR fileBuf[MAXPATHL];
3657 WCHAR *wp;
3658 int i;
3659 WCHAR *titlep = NULL;
3660 WCHAR *extp = NULL;
3661 WCHAR *initdirp = NULL;
3662 WCHAR *filterp;
3663 char_u *p;
3664
3665 if (dflt == NULL)
3666 fileBuf[0] = NUL;
3667 else
3668 {
3669 wp = enc_to_utf16(dflt, NULL);
3670 if (wp == NULL)
3671 fileBuf[0] = NUL;
3672 else
3673 {
3674 for (i = 0; wp[i] != NUL && i < MAXPATHL - 1; ++i)
3675 fileBuf[i] = wp[i];
3676 fileBuf[i] = NUL;
3677 vim_free(wp);
3678 }
3679 }
3680
3681 /* Convert the filter to Windows format. */
3682 filterp = convert_filterW(filter);
3683
3684 vim_memset(&fileStruct, 0, sizeof(OPENFILENAMEW));
Bram Moolenaar89e375a2016-03-15 18:09:57 +01003685#ifdef OPENFILENAME_SIZE_VERSION_400W
Bram Moolenaarcf7164a2016-02-20 13:55:06 +01003686 /* be compatible with Windows NT 4.0 */
Bram Moolenaar89e375a2016-03-15 18:09:57 +01003687 fileStruct.lStructSize = OPENFILENAME_SIZE_VERSION_400W;
Bram Moolenaarcf7164a2016-02-20 13:55:06 +01003688#else
3689 fileStruct.lStructSize = sizeof(fileStruct);
3690#endif
3691
3692 if (title != NULL)
3693 titlep = enc_to_utf16(title, NULL);
3694 fileStruct.lpstrTitle = titlep;
3695
3696 if (ext != NULL)
3697 extp = enc_to_utf16(ext, NULL);
3698 fileStruct.lpstrDefExt = extp;
3699
3700 fileStruct.lpstrFile = fileBuf;
3701 fileStruct.nMaxFile = MAXPATHL;
3702 fileStruct.lpstrFilter = filterp;
3703 fileStruct.hwndOwner = s_hwnd; /* main Vim window is owner*/
3704 /* has an initial dir been specified? */
3705 if (initdir != NULL && *initdir != NUL)
3706 {
3707 /* Must have backslashes here, no matter what 'shellslash' says */
3708 initdirp = enc_to_utf16(initdir, NULL);
3709 if (initdirp != NULL)
3710 {
3711 for (wp = initdirp; *wp != NUL; ++wp)
3712 if (*wp == '/')
3713 *wp = '\\';
3714 }
3715 fileStruct.lpstrInitialDir = initdirp;
3716 }
3717
3718 /*
3719 * TODO: Allow selection of multiple files. Needs another arg to this
3720 * function to ask for it, and need to use OFN_ALLOWMULTISELECT below.
3721 * Also, should we use OFN_FILEMUSTEXIST when opening? Vim can edit on
3722 * files that don't exist yet, so I haven't put it in. What about
3723 * OFN_PATHMUSTEXIST?
3724 * Don't use OFN_OVERWRITEPROMPT, Vim has its own ":confirm" dialog.
3725 */
3726 fileStruct.Flags = (OFN_NOCHANGEDIR | OFN_PATHMUSTEXIST | OFN_HIDEREADONLY);
3727#ifdef FEAT_SHORTCUT
3728 if (curbuf->b_p_bin)
3729 fileStruct.Flags |= OFN_NODEREFERENCELINKS;
3730#endif
3731 if (saving)
3732 {
3733 if (!GetSaveFileNameW(&fileStruct))
3734 return NULL;
3735 }
3736 else
3737 {
3738 if (!GetOpenFileNameW(&fileStruct))
3739 return NULL;
3740 }
3741
3742 vim_free(filterp);
3743 vim_free(initdirp);
3744 vim_free(titlep);
3745 vim_free(extp);
3746
3747 /* Convert from UCS2 to 'encoding'. */
3748 p = utf16_to_enc(fileBuf, NULL);
3749 if (p != NULL)
3750 /* when out of memory we get garbage for non-ASCII chars */
3751 STRCPY(fileBuf, p);
3752 vim_free(p);
3753
3754 /* Give focus back to main window (when using MDI). */
3755 SetFocus(s_hwnd);
3756
3757 /* Shorten the file name if possible */
3758 return vim_strsave(shorten_fname1((char_u *)fileBuf));
3759}
3760# endif /* FEAT_MBYTE */
3761
3762
3763/*
3764 * Convert the string s to the proper format for a filter string by replacing
3765 * the \t and \n delimiters with \0.
3766 * Returns the converted string in allocated memory.
3767 *
3768 * Keep in sync with convert_filterW() above!
3769 */
3770 static char_u *
3771convert_filter(char_u *s)
3772{
3773 char_u *res;
3774 unsigned s_len = (unsigned)STRLEN(s);
3775 unsigned i;
3776
3777 res = alloc(s_len + 3);
3778 if (res != NULL)
3779 {
3780 for (i = 0; i < s_len; ++i)
3781 if (s[i] == '\t' || s[i] == '\n')
3782 res[i] = '\0';
3783 else
3784 res[i] = s[i];
3785 res[s_len] = NUL;
3786 /* Add two extra NULs to make sure it's properly terminated. */
3787 res[s_len + 1] = NUL;
3788 res[s_len + 2] = NUL;
3789 }
3790 return res;
3791}
3792
3793/*
3794 * Select a directory.
3795 */
3796 char_u *
3797gui_mch_browsedir(char_u *title, char_u *initdir)
3798{
3799 /* We fake this: Use a filter that doesn't select anything and a default
3800 * file name that won't be used. */
3801 return gui_mch_browse(0, title, (char_u *)_("Not Used"), NULL,
3802 initdir, (char_u *)_("Directory\t*.nothing\n"));
3803}
3804
3805/*
3806 * Pop open a file browser and return the file selected, in allocated memory,
3807 * or NULL if Cancel is hit.
3808 * saving - TRUE if the file will be saved to, FALSE if it will be opened.
3809 * title - Title message for the file browser dialog.
3810 * dflt - Default name of file.
3811 * ext - Default extension to be added to files without extensions.
3812 * initdir - directory in which to open the browser (NULL = current dir)
3813 * filter - Filter for matched files to choose from.
3814 *
3815 * Keep in sync with gui_mch_browseW() above!
3816 */
3817 char_u *
3818gui_mch_browse(
3819 int saving,
3820 char_u *title,
3821 char_u *dflt,
3822 char_u *ext,
3823 char_u *initdir,
3824 char_u *filter)
3825{
3826 OPENFILENAME fileStruct;
3827 char_u fileBuf[MAXPATHL];
3828 char_u *initdirp = NULL;
3829 char_u *filterp;
3830 char_u *p;
3831
3832# if defined(FEAT_MBYTE) && defined(WIN3264)
3833 if (os_version.dwPlatformId == VER_PLATFORM_WIN32_NT)
3834 return gui_mch_browseW(saving, title, dflt, ext, initdir, filter);
3835# endif
3836
3837 if (dflt == NULL)
3838 fileBuf[0] = NUL;
3839 else
3840 vim_strncpy(fileBuf, dflt, MAXPATHL - 1);
3841
3842 /* Convert the filter to Windows format. */
3843 filterp = convert_filter(filter);
3844
3845 vim_memset(&fileStruct, 0, sizeof(OPENFILENAME));
3846#ifdef OPENFILENAME_SIZE_VERSION_400
3847 /* be compatible with Windows NT 4.0 */
3848 fileStruct.lStructSize = OPENFILENAME_SIZE_VERSION_400;
3849#else
3850 fileStruct.lStructSize = sizeof(fileStruct);
3851#endif
3852
3853 fileStruct.lpstrTitle = (LPSTR)title;
3854 fileStruct.lpstrDefExt = (LPSTR)ext;
3855
3856 fileStruct.lpstrFile = (LPSTR)fileBuf;
3857 fileStruct.nMaxFile = MAXPATHL;
3858 fileStruct.lpstrFilter = (LPSTR)filterp;
3859 fileStruct.hwndOwner = s_hwnd; /* main Vim window is owner*/
3860 /* has an initial dir been specified? */
3861 if (initdir != NULL && *initdir != NUL)
3862 {
3863 /* Must have backslashes here, no matter what 'shellslash' says */
3864 initdirp = vim_strsave(initdir);
3865 if (initdirp != NULL)
3866 for (p = initdirp; *p != NUL; ++p)
3867 if (*p == '/')
3868 *p = '\\';
3869 fileStruct.lpstrInitialDir = (LPSTR)initdirp;
3870 }
3871
3872 /*
3873 * TODO: Allow selection of multiple files. Needs another arg to this
3874 * function to ask for it, and need to use OFN_ALLOWMULTISELECT below.
3875 * Also, should we use OFN_FILEMUSTEXIST when opening? Vim can edit on
3876 * files that don't exist yet, so I haven't put it in. What about
3877 * OFN_PATHMUSTEXIST?
3878 * Don't use OFN_OVERWRITEPROMPT, Vim has its own ":confirm" dialog.
3879 */
3880 fileStruct.Flags = (OFN_NOCHANGEDIR | OFN_PATHMUSTEXIST | OFN_HIDEREADONLY);
3881#ifdef FEAT_SHORTCUT
3882 if (curbuf->b_p_bin)
3883 fileStruct.Flags |= OFN_NODEREFERENCELINKS;
3884#endif
3885 if (saving)
3886 {
3887 if (!GetSaveFileName(&fileStruct))
3888 return NULL;
3889 }
3890 else
3891 {
3892 if (!GetOpenFileName(&fileStruct))
3893 return NULL;
3894 }
3895
3896 vim_free(filterp);
3897 vim_free(initdirp);
3898
3899 /* Give focus back to main window (when using MDI). */
3900 SetFocus(s_hwnd);
3901
3902 /* Shorten the file name if possible */
3903 return vim_strsave(shorten_fname1((char_u *)fileBuf));
3904}
3905#endif /* FEAT_BROWSE */
3906
3907/*ARGSUSED*/
3908 static void
3909_OnDropFiles(
3910 HWND hwnd,
3911 HDROP hDrop)
3912{
3913#ifdef FEAT_WINDOWS
3914#ifdef WIN3264
3915# define BUFPATHLEN _MAX_PATH
3916# define DRAGQVAL 0xFFFFFFFF
3917#else
3918# define BUFPATHLEN MAXPATHL
3919# define DRAGQVAL 0xFFFF
3920#endif
3921#ifdef FEAT_MBYTE
3922 WCHAR wszFile[BUFPATHLEN];
3923#endif
3924 char szFile[BUFPATHLEN];
3925 UINT cFiles = DragQueryFile(hDrop, DRAGQVAL, NULL, 0);
3926 UINT i;
3927 char_u **fnames;
3928 POINT pt;
3929 int_u modifiers = 0;
3930
3931 /* TRACE("_OnDropFiles: %d files dropped\n", cFiles); */
3932
3933 /* Obtain dropped position */
3934 DragQueryPoint(hDrop, &pt);
3935 MapWindowPoints(s_hwnd, s_textArea, &pt, 1);
3936
3937 reset_VIsual();
3938
3939 fnames = (char_u **)alloc(cFiles * sizeof(char_u *));
3940
3941 if (fnames != NULL)
3942 for (i = 0; i < cFiles; ++i)
3943 {
3944#ifdef FEAT_MBYTE
3945 if (DragQueryFileW(hDrop, i, wszFile, BUFPATHLEN) > 0)
3946 fnames[i] = utf16_to_enc(wszFile, NULL);
3947 else
3948#endif
3949 {
3950 DragQueryFile(hDrop, i, szFile, BUFPATHLEN);
3951 fnames[i] = vim_strsave((char_u *)szFile);
3952 }
3953 }
3954
3955 DragFinish(hDrop);
3956
3957 if (fnames != NULL)
3958 {
3959 if ((GetKeyState(VK_SHIFT) & 0x8000) != 0)
3960 modifiers |= MOUSE_SHIFT;
3961 if ((GetKeyState(VK_CONTROL) & 0x8000) != 0)
3962 modifiers |= MOUSE_CTRL;
3963 if ((GetKeyState(VK_MENU) & 0x8000) != 0)
3964 modifiers |= MOUSE_ALT;
3965
3966 gui_handle_drop(pt.x, pt.y, modifiers, fnames, cFiles);
3967
3968 s_need_activate = TRUE;
3969 }
3970#endif
3971}
3972
3973/*ARGSUSED*/
3974 static int
3975_OnScroll(
3976 HWND hwnd,
3977 HWND hwndCtl,
3978 UINT code,
3979 int pos)
3980{
3981 static UINT prev_code = 0; /* code of previous call */
3982 scrollbar_T *sb, *sb_info;
3983 long val;
3984 int dragging = FALSE;
3985 int dont_scroll_save = dont_scroll;
3986#ifndef WIN3264
3987 int nPos;
3988#else
3989 SCROLLINFO si;
3990
3991 si.cbSize = sizeof(si);
3992 si.fMask = SIF_POS;
3993#endif
3994
3995 sb = gui_mswin_find_scrollbar(hwndCtl);
3996 if (sb == NULL)
3997 return 0;
3998
3999 if (sb->wp != NULL) /* Left or right scrollbar */
4000 {
4001 /*
4002 * Careful: need to get scrollbar info out of first (left) scrollbar
4003 * for window, but keep real scrollbar too because we must pass it to
4004 * gui_drag_scrollbar().
4005 */
4006 sb_info = &sb->wp->w_scrollbars[0];
4007 }
4008 else /* Bottom scrollbar */
4009 sb_info = sb;
4010 val = sb_info->value;
4011
4012 switch (code)
4013 {
4014 case SB_THUMBTRACK:
4015 val = pos;
4016 dragging = TRUE;
4017 if (sb->scroll_shift > 0)
4018 val <<= sb->scroll_shift;
4019 break;
4020 case SB_LINEDOWN:
4021 val++;
4022 break;
4023 case SB_LINEUP:
4024 val--;
4025 break;
4026 case SB_PAGEDOWN:
4027 val += (sb_info->size > 2 ? sb_info->size - 2 : 1);
4028 break;
4029 case SB_PAGEUP:
4030 val -= (sb_info->size > 2 ? sb_info->size - 2 : 1);
4031 break;
4032 case SB_TOP:
4033 val = 0;
4034 break;
4035 case SB_BOTTOM:
4036 val = sb_info->max;
4037 break;
4038 case SB_ENDSCROLL:
4039 if (prev_code == SB_THUMBTRACK)
4040 {
4041 /*
4042 * "pos" only gives us 16-bit data. In case of large file,
4043 * use GetScrollPos() which returns 32-bit. Unfortunately it
4044 * is not valid while the scrollbar is being dragged.
4045 */
4046 val = GetScrollPos(hwndCtl, SB_CTL);
4047 if (sb->scroll_shift > 0)
4048 val <<= sb->scroll_shift;
4049 }
4050 break;
4051
4052 default:
4053 /* TRACE("Unknown scrollbar event %d\n", code); */
4054 return 0;
4055 }
4056 prev_code = code;
4057
4058#ifdef WIN3264
4059 si.nPos = (sb->scroll_shift > 0) ? val >> sb->scroll_shift : val;
4060 SetScrollInfo(hwndCtl, SB_CTL, &si, TRUE);
4061#else
4062 nPos = (sb->scroll_shift > 0) ? val >> sb->scroll_shift : val;
4063 SetScrollPos(hwndCtl, SB_CTL, nPos, TRUE);
4064#endif
4065
4066 /*
4067 * When moving a vertical scrollbar, move the other vertical scrollbar too.
4068 */
4069 if (sb->wp != NULL)
4070 {
4071 scrollbar_T *sba = sb->wp->w_scrollbars;
4072 HWND id = sba[ (sb == sba + SBAR_LEFT) ? SBAR_RIGHT : SBAR_LEFT].id;
4073
4074#ifdef WIN3264
4075 SetScrollInfo(id, SB_CTL, &si, TRUE);
4076#else
4077 SetScrollPos(id, SB_CTL, nPos, TRUE);
4078#endif
4079 }
4080
4081 /* Don't let us be interrupted here by another message. */
4082 s_busy_processing = TRUE;
4083
4084 /* When "allow_scrollbar" is FALSE still need to remember the new
4085 * position, but don't actually scroll by setting "dont_scroll". */
4086 dont_scroll = !allow_scrollbar;
4087
4088 gui_drag_scrollbar(sb, val, dragging);
4089
4090 s_busy_processing = FALSE;
4091 dont_scroll = dont_scroll_save;
4092
4093 return 0;
4094}
4095
4096
4097/*
4098 * Get command line arguments.
4099 * Use "prog" as the name of the program and "cmdline" as the arguments.
4100 * Copy the arguments to allocated memory.
4101 * Return the number of arguments (including program name).
4102 * Return pointers to the arguments in "argvp". Memory is allocated with
4103 * malloc(), use free() instead of vim_free().
4104 * Return pointer to buffer in "tofree".
4105 * Returns zero when out of memory.
4106 */
4107/*ARGSUSED*/
4108 int
4109get_cmd_args(char *prog, char *cmdline, char ***argvp, char **tofree)
4110{
4111 int i;
4112 char *p;
4113 char *progp;
4114 char *pnew = NULL;
4115 char *newcmdline;
4116 int inquote;
4117 int argc;
4118 char **argv = NULL;
4119 int round;
4120
4121 *tofree = NULL;
4122
4123#ifdef FEAT_MBYTE
4124 /* Try using the Unicode version first, it takes care of conversion when
4125 * 'encoding' is changed. */
4126 argc = get_cmd_argsW(&argv);
4127 if (argc != 0)
4128 goto done;
4129#endif
4130
4131 /* Handle the program name. Remove the ".exe" extension, and find the 1st
4132 * non-space. */
4133 p = strrchr(prog, '.');
4134 if (p != NULL)
4135 *p = NUL;
4136 for (progp = prog; *progp == ' '; ++progp)
4137 ;
4138
4139 /* The command line is copied to allocated memory, so that we can change
4140 * it. Add the size of the string, the separating NUL and a terminating
4141 * NUL. */
4142 newcmdline = malloc(STRLEN(cmdline) + STRLEN(progp) + 2);
4143 if (newcmdline == NULL)
4144 return 0;
4145
4146 /*
4147 * First round: count the number of arguments ("pnew" == NULL).
4148 * Second round: produce the arguments.
4149 */
4150 for (round = 1; round <= 2; ++round)
4151 {
4152 /* First argument is the program name. */
4153 if (pnew != NULL)
4154 {
4155 argv[0] = pnew;
4156 strcpy(pnew, progp);
4157 pnew += strlen(pnew);
4158 *pnew++ = NUL;
4159 }
4160
4161 /*
4162 * Isolate each argument and put it in argv[].
4163 */
4164 p = cmdline;
4165 argc = 1;
4166 while (*p != NUL)
4167 {
4168 inquote = FALSE;
4169 if (pnew != NULL)
4170 argv[argc] = pnew;
4171 ++argc;
4172 while (*p != NUL && (inquote || (*p != ' ' && *p != '\t')))
4173 {
4174 /* Backslashes are only special when followed by a double
4175 * quote. */
4176 i = (int)strspn(p, "\\");
4177 if (p[i] == '"')
4178 {
4179 /* Halve the number of backslashes. */
4180 if (i > 1 && pnew != NULL)
4181 {
4182 vim_memset(pnew, '\\', i / 2);
4183 pnew += i / 2;
4184 }
4185
4186 /* Even nr of backslashes toggles quoting, uneven copies
4187 * the double quote. */
4188 if ((i & 1) == 0)
4189 inquote = !inquote;
4190 else if (pnew != NULL)
4191 *pnew++ = '"';
4192 p += i + 1;
4193 }
4194 else if (i > 0)
4195 {
4196 /* Copy span of backslashes unmodified. */
4197 if (pnew != NULL)
4198 {
4199 vim_memset(pnew, '\\', i);
4200 pnew += i;
4201 }
4202 p += i;
4203 }
4204 else
4205 {
4206 if (pnew != NULL)
4207 *pnew++ = *p;
4208#ifdef FEAT_MBYTE
4209 /* Can't use mb_* functions, because 'encoding' is not
4210 * initialized yet here. */
4211 if (IsDBCSLeadByte(*p))
4212 {
4213 ++p;
4214 if (pnew != NULL)
4215 *pnew++ = *p;
4216 }
4217#endif
4218 ++p;
4219 }
4220 }
4221
4222 if (pnew != NULL)
4223 *pnew++ = NUL;
4224 while (*p == ' ' || *p == '\t')
4225 ++p; /* advance until a non-space */
4226 }
4227
4228 if (round == 1)
4229 {
4230 argv = (char **)malloc((argc + 1) * sizeof(char *));
4231 if (argv == NULL )
4232 {
4233 free(newcmdline);
4234 return 0; /* malloc error */
4235 }
4236 pnew = newcmdline;
4237 *tofree = newcmdline;
4238 }
4239 }
4240
4241#ifdef FEAT_MBYTE
4242done:
4243#endif
4244 argv[argc] = NULL; /* NULL-terminated list */
4245 *argvp = argv;
4246 return argc;
4247}
Bram Moolenaar071d4272004-06-13 20:20:40 +00004248
4249#ifdef FEAT_XPM_W32
4250# include "xpm_w32.h"
4251#endif
4252
4253#ifdef PROTO
4254# define WINAPI
4255#endif
4256
4257#ifdef __MINGW32__
4258/*
4259 * Add a lot of missing defines.
4260 * They are not always missing, we need the #ifndef's.
4261 */
4262# ifndef _cdecl
4263# define _cdecl
4264# endif
4265# ifndef IsMinimized
4266# define IsMinimized(hwnd) IsIconic(hwnd)
4267# endif
4268# ifndef IsMaximized
4269# define IsMaximized(hwnd) IsZoomed(hwnd)
4270# endif
4271# ifndef SelectFont
4272# define SelectFont(hdc, hfont) ((HFONT)SelectObject((hdc), (HGDIOBJ)(HFONT)(hfont)))
4273# endif
4274# ifndef GetStockBrush
4275# define GetStockBrush(i) ((HBRUSH)GetStockObject(i))
4276# endif
4277# ifndef DeleteBrush
4278# define DeleteBrush(hbr) DeleteObject((HGDIOBJ)(HBRUSH)(hbr))
4279# endif
4280
4281# ifndef HANDLE_WM_RBUTTONDBLCLK
4282# define HANDLE_WM_RBUTTONDBLCLK(hwnd, wParam, lParam, fn) \
4283 ((fn)((hwnd), TRUE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
4284# endif
4285# ifndef HANDLE_WM_MBUTTONUP
4286# define HANDLE_WM_MBUTTONUP(hwnd, wParam, lParam, fn) \
4287 ((fn)((hwnd), (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
4288# endif
4289# ifndef HANDLE_WM_MBUTTONDBLCLK
4290# define HANDLE_WM_MBUTTONDBLCLK(hwnd, wParam, lParam, fn) \
4291 ((fn)((hwnd), TRUE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
4292# endif
4293# ifndef HANDLE_WM_LBUTTONDBLCLK
4294# define HANDLE_WM_LBUTTONDBLCLK(hwnd, wParam, lParam, fn) \
4295 ((fn)((hwnd), TRUE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
4296# endif
4297# ifndef HANDLE_WM_RBUTTONDOWN
4298# define HANDLE_WM_RBUTTONDOWN(hwnd, wParam, lParam, fn) \
4299 ((fn)((hwnd), FALSE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
4300# endif
4301# ifndef HANDLE_WM_MOUSEMOVE
4302# define HANDLE_WM_MOUSEMOVE(hwnd, wParam, lParam, fn) \
4303 ((fn)((hwnd), (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
4304# endif
4305# ifndef HANDLE_WM_RBUTTONUP
4306# define HANDLE_WM_RBUTTONUP(hwnd, wParam, lParam, fn) \
4307 ((fn)((hwnd), (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
4308# endif
4309# ifndef HANDLE_WM_MBUTTONDOWN
4310# define HANDLE_WM_MBUTTONDOWN(hwnd, wParam, lParam, fn) \
4311 ((fn)((hwnd), FALSE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
4312# endif
4313# ifndef HANDLE_WM_LBUTTONUP
4314# define HANDLE_WM_LBUTTONUP(hwnd, wParam, lParam, fn) \
4315 ((fn)((hwnd), (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
4316# endif
4317# ifndef HANDLE_WM_LBUTTONDOWN
4318# define HANDLE_WM_LBUTTONDOWN(hwnd, wParam, lParam, fn) \
4319 ((fn)((hwnd), FALSE, (int)(short)LOWORD(lParam), (int)(short)HIWORD(lParam), (UINT)(wParam)), 0L)
4320# endif
4321# ifndef HANDLE_WM_SYSCHAR
4322# define HANDLE_WM_SYSCHAR(hwnd, wParam, lParam, fn) \
4323 ((fn)((hwnd), (TCHAR)(wParam), (int)(short)LOWORD(lParam)), 0L)
4324# endif
4325# ifndef HANDLE_WM_ACTIVATEAPP
4326# define HANDLE_WM_ACTIVATEAPP(hwnd, wParam, lParam, fn) \
4327 ((fn)((hwnd), (BOOL)(wParam), (DWORD)(lParam)), 0L)
4328# endif
4329# ifndef HANDLE_WM_WINDOWPOSCHANGING
4330# define HANDLE_WM_WINDOWPOSCHANGING(hwnd, wParam, lParam, fn) \
4331 (LRESULT)(DWORD)(BOOL)(fn)((hwnd), (LPWINDOWPOS)(lParam))
4332# endif
4333# ifndef HANDLE_WM_VSCROLL
4334# define HANDLE_WM_VSCROLL(hwnd, wParam, lParam, fn) \
4335 ((fn)((hwnd), (HWND)(lParam), (UINT)(LOWORD(wParam)), (int)(short)HIWORD(wParam)), 0L)
4336# endif
4337# ifndef HANDLE_WM_SETFOCUS
4338# define HANDLE_WM_SETFOCUS(hwnd, wParam, lParam, fn) \
4339 ((fn)((hwnd), (HWND)(wParam)), 0L)
4340# endif
4341# ifndef HANDLE_WM_KILLFOCUS
4342# define HANDLE_WM_KILLFOCUS(hwnd, wParam, lParam, fn) \
4343 ((fn)((hwnd), (HWND)(wParam)), 0L)
4344# endif
4345# ifndef HANDLE_WM_HSCROLL
4346# define HANDLE_WM_HSCROLL(hwnd, wParam, lParam, fn) \
4347 ((fn)((hwnd), (HWND)(lParam), (UINT)(LOWORD(wParam)), (int)(short)HIWORD(wParam)), 0L)
4348# endif
4349# ifndef HANDLE_WM_DROPFILES
4350# define HANDLE_WM_DROPFILES(hwnd, wParam, lParam, fn) \
4351 ((fn)((hwnd), (HDROP)(wParam)), 0L)
4352# endif
4353# ifndef HANDLE_WM_CHAR
4354# define HANDLE_WM_CHAR(hwnd, wParam, lParam, fn) \
4355 ((fn)((hwnd), (TCHAR)(wParam), (int)(short)LOWORD(lParam)), 0L)
4356# endif
4357# ifndef HANDLE_WM_SYSDEADCHAR
4358# define HANDLE_WM_SYSDEADCHAR(hwnd, wParam, lParam, fn) \
4359 ((fn)((hwnd), (TCHAR)(wParam), (int)(short)LOWORD(lParam)), 0L)
4360# endif
4361# ifndef HANDLE_WM_DEADCHAR
4362# define HANDLE_WM_DEADCHAR(hwnd, wParam, lParam, fn) \
4363 ((fn)((hwnd), (TCHAR)(wParam), (int)(short)LOWORD(lParam)), 0L)
4364# endif
4365#endif /* __MINGW32__ */
4366
4367
4368/* Some parameters for tearoff menus. All in pixels. */
4369#define TEAROFF_PADDING_X 2
4370#define TEAROFF_BUTTON_PAD_X 8
4371#define TEAROFF_MIN_WIDTH 200
4372#define TEAROFF_SUBMENU_LABEL ">>"
4373#define TEAROFF_COLUMN_PADDING 3 // # spaces to pad column with.
4374
4375
4376/* For the Intellimouse: */
4377#ifndef WM_MOUSEWHEEL
4378#define WM_MOUSEWHEEL 0x20a
4379#endif
4380
4381
4382#ifdef FEAT_BEVAL
4383# define ID_BEVAL_TOOLTIP 200
4384# define BEVAL_TEXT_LEN MAXPATHL
4385
Bram Moolenaar167632f2010-05-26 21:42:54 +02004386#if (defined(_MSC_VER) && _MSC_VER < 1300) || !defined(MAXULONG_PTR)
Bram Moolenaar446cb832008-06-24 21:56:24 +00004387/* Work around old versions of basetsd.h which wrongly declares
4388 * UINT_PTR as unsigned long. */
Bram Moolenaar167632f2010-05-26 21:42:54 +02004389# undef UINT_PTR
Bram Moolenaar8424a622006-04-19 21:23:36 +00004390# define UINT_PTR UINT
4391#endif
Bram Moolenaareb3593b2006-04-22 22:33:57 +00004392
Bram Moolenaard25c16e2016-01-29 22:13:30 +01004393static void make_tooltip(BalloonEval *beval, char *text, POINT pt);
4394static void delete_tooltip(BalloonEval *beval);
4395static VOID CALLBACK BevalTimerProc(HWND hwnd, UINT uMsg, UINT_PTR idEvent, DWORD dwTime);
Bram Moolenaareb3593b2006-04-22 22:33:57 +00004396
Bram Moolenaar071d4272004-06-13 20:20:40 +00004397static BalloonEval *cur_beval = NULL;
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00004398static UINT_PTR BevalTimerId = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004399static DWORD LastActivity = 0;
Bram Moolenaar45360022005-07-21 21:08:21 +00004400
Bram Moolenaar82881492012-11-20 16:53:39 +01004401
4402/* cproto fails on missing include files */
4403#ifndef PROTO
4404
Bram Moolenaar45360022005-07-21 21:08:21 +00004405/*
4406 * excerpts from headers since this may not be presented
Bram Moolenaar551dbcc2006-04-25 22:13:59 +00004407 * in the extremely old compilers
Bram Moolenaar45360022005-07-21 21:08:21 +00004408 */
Bram Moolenaar82881492012-11-20 16:53:39 +01004409# include <pshpack1.h>
4410
4411#endif
Bram Moolenaar45360022005-07-21 21:08:21 +00004412
4413typedef struct _DllVersionInfo
4414{
4415 DWORD cbSize;
4416 DWORD dwMajorVersion;
4417 DWORD dwMinorVersion;
4418 DWORD dwBuildNumber;
4419 DWORD dwPlatformID;
4420} DLLVERSIONINFO;
4421
Bram Moolenaar82881492012-11-20 16:53:39 +01004422#ifndef PROTO
4423# include <poppack.h>
4424#endif
Bram Moolenaar281daf62009-12-24 15:11:40 +00004425
Bram Moolenaar45360022005-07-21 21:08:21 +00004426typedef struct tagTOOLINFOA_NEW
4427{
4428 UINT cbSize;
4429 UINT uFlags;
4430 HWND hwnd;
Bram Moolenaar281daf62009-12-24 15:11:40 +00004431 UINT_PTR uId;
Bram Moolenaar45360022005-07-21 21:08:21 +00004432 RECT rect;
4433 HINSTANCE hinst;
4434 LPSTR lpszText;
4435 LPARAM lParam;
4436} TOOLINFO_NEW;
4437
4438typedef struct tagNMTTDISPINFO_NEW
4439{
4440 NMHDR hdr;
Bram Moolenaar281daf62009-12-24 15:11:40 +00004441 LPSTR lpszText;
Bram Moolenaar45360022005-07-21 21:08:21 +00004442 char szText[80];
4443 HINSTANCE hinst;
4444 UINT uFlags;
4445 LPARAM lParam;
4446} NMTTDISPINFO_NEW;
4447
Bram Moolenaar45360022005-07-21 21:08:21 +00004448typedef HRESULT (WINAPI* DLLGETVERSIONPROC)(DLLVERSIONINFO *);
4449#ifndef TTM_SETMAXTIPWIDTH
Bram Moolenaarf9393ef2006-04-24 19:47:27 +00004450# define TTM_SETMAXTIPWIDTH (WM_USER+24)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004451#endif
4452
Bram Moolenaar45360022005-07-21 21:08:21 +00004453#ifndef TTF_DI_SETITEM
Bram Moolenaarf9393ef2006-04-24 19:47:27 +00004454# define TTF_DI_SETITEM 0x8000
Bram Moolenaar45360022005-07-21 21:08:21 +00004455#endif
4456
4457#ifndef TTN_GETDISPINFO
Bram Moolenaarf9393ef2006-04-24 19:47:27 +00004458# define TTN_GETDISPINFO (TTN_FIRST - 0)
Bram Moolenaar45360022005-07-21 21:08:21 +00004459#endif
4460
4461#endif /* defined(FEAT_BEVAL) */
4462
Bram Moolenaar2c7a7632007-05-10 18:19:11 +00004463#if defined(FEAT_TOOLBAR) || defined(FEAT_GUI_TABLINE)
4464/* Older MSVC compilers don't have LPNMTTDISPINFO[AW] thus we need to define
4465 * it here if LPNMTTDISPINFO isn't defined.
4466 * MingW doesn't define LPNMTTDISPINFO but typedefs it. Thus we need to check
4467 * _MSC_VER. */
4468# if !defined(LPNMTTDISPINFO) && defined(_MSC_VER)
4469typedef struct tagNMTTDISPINFOA {
4470 NMHDR hdr;
4471 LPSTR lpszText;
4472 char szText[80];
4473 HINSTANCE hinst;
4474 UINT uFlags;
4475 LPARAM lParam;
4476} NMTTDISPINFOA, *LPNMTTDISPINFOA;
4477# define LPNMTTDISPINFO LPNMTTDISPINFOA
4478
4479# ifdef FEAT_MBYTE
4480typedef struct tagNMTTDISPINFOW {
4481 NMHDR hdr;
4482 LPWSTR lpszText;
4483 WCHAR szText[80];
4484 HINSTANCE hinst;
4485 UINT uFlags;
4486 LPARAM lParam;
4487} NMTTDISPINFOW, *LPNMTTDISPINFOW;
4488# endif
4489# endif
4490#endif
4491
Bram Moolenaarf9393ef2006-04-24 19:47:27 +00004492#ifndef TTN_GETDISPINFOW
4493# define TTN_GETDISPINFOW (TTN_FIRST - 10)
4494#endif
4495
Bram Moolenaar071d4272004-06-13 20:20:40 +00004496/* Local variables: */
4497
4498#ifdef FEAT_MENU
4499static UINT s_menu_id = 100;
Bram Moolenaar786989b2010-10-27 12:15:33 +02004500#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00004501
4502/*
4503 * Use the system font for dialogs and tear-off menus. Remove this line to
4504 * use DLG_FONT_NAME.
4505 */
Bram Moolenaar786989b2010-10-27 12:15:33 +02004506#define USE_SYSMENU_FONT
Bram Moolenaar071d4272004-06-13 20:20:40 +00004507
4508#define VIM_NAME "vim"
4509#define VIM_CLASS "Vim"
4510#define VIM_CLASSW L"Vim"
4511
4512/* Initial size for the dialog template. For gui_mch_dialog() it's fixed,
4513 * thus there should be room for every dialog. For tearoffs it's made bigger
4514 * when needed. */
4515#define DLG_ALLOC_SIZE 16 * 1024
4516
4517/*
4518 * stuff for dialogs, menus, tearoffs etc.
4519 */
4520static LRESULT APIENTRY dialog_callback(HWND, UINT, WPARAM, LPARAM);
Bram Moolenaar065bbac2016-02-20 13:08:46 +01004521#ifdef FEAT_TEAROFF
Bram Moolenaar071d4272004-06-13 20:20:40 +00004522static LRESULT APIENTRY tearoff_callback(HWND, UINT, WPARAM, LPARAM);
Bram Moolenaar065bbac2016-02-20 13:08:46 +01004523#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00004524static PWORD
4525add_dialog_element(
4526 PWORD p,
4527 DWORD lStyle,
4528 WORD x,
4529 WORD y,
4530 WORD w,
4531 WORD h,
4532 WORD Id,
4533 WORD clss,
4534 const char *caption);
4535static LPWORD lpwAlign(LPWORD);
4536static int nCopyAnsiToWideChar(LPWORD, LPSTR);
Bram Moolenaar065bbac2016-02-20 13:08:46 +01004537#if defined(FEAT_MENU) && defined(FEAT_TEAROFF)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004538static void gui_mch_tearoff(char_u *title, vimmenu_T *menu, int initX, int initY);
Bram Moolenaar065bbac2016-02-20 13:08:46 +01004539#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00004540static void get_dialog_font_metrics(void);
4541
4542static int dialog_default_button = -1;
4543
4544/* Intellimouse support */
4545static int mouse_scroll_lines = 0;
4546static UINT msh_msgmousewheel = 0;
4547
4548static int s_usenewlook; /* emulate W95/NT4 non-bold dialogs */
4549#ifdef FEAT_TOOLBAR
4550static void initialise_toolbar(void);
Bram Moolenaar5f919ee2013-07-21 17:46:43 +02004551static LRESULT CALLBACK toolbar_wndproc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004552static int get_toolbar_bitmap(vimmenu_T *menu);
4553#endif
4554
Bram Moolenaar3991dab2006-03-27 17:01:56 +00004555#ifdef FEAT_GUI_TABLINE
4556static void initialise_tabline(void);
Bram Moolenaar5f919ee2013-07-21 17:46:43 +02004557static LRESULT CALLBACK tabline_wndproc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam);
Bram Moolenaar3991dab2006-03-27 17:01:56 +00004558#endif
4559
Bram Moolenaar071d4272004-06-13 20:20:40 +00004560#ifdef FEAT_MBYTE_IME
4561static LRESULT _OnImeComposition(HWND hwnd, WPARAM dbcs, LPARAM param);
4562static char_u *GetResultStr(HWND hwnd, int GCS, int *lenp);
4563#endif
4564#if defined(FEAT_MBYTE_IME) && defined(DYNAMIC_IME)
4565# ifdef NOIME
4566typedef struct tagCOMPOSITIONFORM {
4567 DWORD dwStyle;
4568 POINT ptCurrentPos;
4569 RECT rcArea;
4570} COMPOSITIONFORM, *PCOMPOSITIONFORM, NEAR *NPCOMPOSITIONFORM, FAR *LPCOMPOSITIONFORM;
4571typedef HANDLE HIMC;
4572# endif
4573
Bram Moolenaard857f0e2005-06-21 22:37:39 +00004574static HINSTANCE hLibImm = NULL;
4575static LONG (WINAPI *pImmGetCompositionStringA)(HIMC, DWORD, LPVOID, DWORD);
4576static LONG (WINAPI *pImmGetCompositionStringW)(HIMC, DWORD, LPVOID, DWORD);
4577static HIMC (WINAPI *pImmGetContext)(HWND);
4578static HIMC (WINAPI *pImmAssociateContext)(HWND, HIMC);
4579static BOOL (WINAPI *pImmReleaseContext)(HWND, HIMC);
4580static BOOL (WINAPI *pImmGetOpenStatus)(HIMC);
4581static BOOL (WINAPI *pImmSetOpenStatus)(HIMC, BOOL);
4582static BOOL (WINAPI *pImmGetCompositionFont)(HIMC, LPLOGFONTA);
4583static BOOL (WINAPI *pImmSetCompositionFont)(HIMC, LPLOGFONTA);
4584static BOOL (WINAPI *pImmSetCompositionWindow)(HIMC, LPCOMPOSITIONFORM);
4585static BOOL (WINAPI *pImmGetConversionStatus)(HIMC, LPDWORD, LPDWORD);
Bram Moolenaarca003e12006-03-17 23:19:38 +00004586static BOOL (WINAPI *pImmSetConversionStatus)(HIMC, DWORD, DWORD);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004587static void dyn_imm_load(void);
4588#else
4589# define pImmGetCompositionStringA ImmGetCompositionStringA
4590# define pImmGetCompositionStringW ImmGetCompositionStringW
4591# define pImmGetContext ImmGetContext
4592# define pImmAssociateContext ImmAssociateContext
4593# define pImmReleaseContext ImmReleaseContext
4594# define pImmGetOpenStatus ImmGetOpenStatus
4595# define pImmSetOpenStatus ImmSetOpenStatus
4596# define pImmGetCompositionFont ImmGetCompositionFontA
4597# define pImmSetCompositionFont ImmSetCompositionFontA
4598# define pImmSetCompositionWindow ImmSetCompositionWindow
4599# define pImmGetConversionStatus ImmGetConversionStatus
Bram Moolenaarca003e12006-03-17 23:19:38 +00004600# define pImmSetConversionStatus ImmSetConversionStatus
Bram Moolenaar071d4272004-06-13 20:20:40 +00004601#endif
4602
Bram Moolenaar071d4272004-06-13 20:20:40 +00004603/* multi monitor support */
4604typedef struct _MONITORINFOstruct
4605{
4606 DWORD cbSize;
4607 RECT rcMonitor;
4608 RECT rcWork;
4609 DWORD dwFlags;
4610} _MONITORINFO;
4611
4612typedef HANDLE _HMONITOR;
4613typedef _HMONITOR (WINAPI *TMonitorFromWindow)(HWND, DWORD);
4614typedef BOOL (WINAPI *TGetMonitorInfo)(_HMONITOR, _MONITORINFO *);
4615
4616static TMonitorFromWindow pMonitorFromWindow = NULL;
4617static TGetMonitorInfo pGetMonitorInfo = NULL;
4618static HANDLE user32_lib = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004619/*
4620 * Return TRUE when running under Windows NT 3.x or Win32s, both of which have
4621 * less fancy GUI APIs.
4622 */
4623 static int
4624is_winnt_3(void)
4625{
4626 return ((os_version.dwPlatformId == VER_PLATFORM_WIN32_NT
4627 && os_version.dwMajorVersion == 3)
4628 || (os_version.dwPlatformId == VER_PLATFORM_WIN32s));
4629}
4630
4631/*
4632 * Return TRUE when running under Win32s.
4633 */
4634 int
4635gui_is_win32s(void)
4636{
4637 return (os_version.dwPlatformId == VER_PLATFORM_WIN32s);
4638}
4639
4640#ifdef FEAT_MENU
4641/*
4642 * Figure out how high the menu bar is at the moment.
4643 */
4644 static int
4645gui_mswin_get_menu_height(
4646 int fix_window) /* If TRUE, resize window if menu height changed */
4647{
4648 static int old_menu_height = -1;
4649
4650 RECT rc1, rc2;
4651 int num;
4652 int menu_height;
4653
4654 if (gui.menu_is_active)
4655 num = GetMenuItemCount(s_menuBar);
4656 else
4657 num = 0;
4658
4659 if (num == 0)
4660 menu_height = 0;
Bram Moolenaar71371b12015-03-24 17:57:12 +01004661 else if (IsMinimized(s_hwnd))
4662 {
4663 /* The height of the menu cannot be determined while the window is
4664 * minimized. Take the previous height if the menu is changed in that
4665 * state, to avoid that Vim's vertical window size accidentally
4666 * increases due to the unaccounted-for menu height. */
4667 menu_height = old_menu_height == -1 ? 0 : old_menu_height;
4668 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00004669 else
4670 {
4671 if (is_winnt_3()) /* for NT 3.xx */
4672 {
4673 if (gui.starting)
4674 menu_height = GetSystemMetrics(SM_CYMENU);
4675 else
4676 {
4677 RECT r1, r2;
4678 int frameht = GetSystemMetrics(SM_CYFRAME);
4679 int capht = GetSystemMetrics(SM_CYCAPTION);
4680
4681 /* get window rect of s_hwnd
4682 * get client rect of s_hwnd
4683 * get cap height
4684 * subtract from window rect, the sum of client height,
4685 * (if not maximized)frame thickness, and caption height.
4686 */
4687 GetWindowRect(s_hwnd, &r1);
4688 GetClientRect(s_hwnd, &r2);
4689 menu_height = r1.bottom - r1.top - (r2.bottom - r2.top
4690 + 2 * frameht * (!IsZoomed(s_hwnd)) + capht);
4691 }
4692 }
4693 else /* win95 and variants (NT 4.0, I guess) */
4694 {
4695 /*
4696 * In case 'lines' is set in _vimrc/_gvimrc window width doesn't
4697 * seem to have been set yet, so menu wraps in default window
4698 * width which is very narrow. Instead just return height of a
4699 * single menu item. Will still be wrong when the menu really
4700 * should wrap over more than one line.
4701 */
4702 GetMenuItemRect(s_hwnd, s_menuBar, 0, &rc1);
4703 if (gui.starting)
4704 menu_height = rc1.bottom - rc1.top + 1;
4705 else
4706 {
4707 GetMenuItemRect(s_hwnd, s_menuBar, num - 1, &rc2);
4708 menu_height = rc2.bottom - rc1.top + 1;
4709 }
4710 }
4711 }
4712
4713 if (fix_window && menu_height != old_menu_height)
4714 {
Bram Moolenaarafa24992006-03-27 20:58:26 +00004715 gui_set_shellsize(FALSE, FALSE, RESIZE_VERT);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004716 }
Bram Moolenaar71371b12015-03-24 17:57:12 +01004717 old_menu_height = menu_height;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004718
4719 return menu_height;
4720}
4721#endif /*FEAT_MENU*/
4722
4723
4724/*
4725 * Setup for the Intellimouse
4726 */
4727 static void
4728init_mouse_wheel(void)
4729{
4730
4731#ifndef SPI_GETWHEELSCROLLLINES
4732# define SPI_GETWHEELSCROLLLINES 104
4733#endif
Bram Moolenaare7566042005-06-17 22:00:15 +00004734#ifndef SPI_SETWHEELSCROLLLINES
4735# define SPI_SETWHEELSCROLLLINES 105
4736#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00004737
4738#define VMOUSEZ_CLASSNAME "MouseZ" /* hidden wheel window class */
4739#define VMOUSEZ_TITLE "Magellan MSWHEEL" /* hidden wheel window title */
4740#define VMSH_MOUSEWHEEL "MSWHEEL_ROLLMSG"
4741#define VMSH_SCROLL_LINES "MSH_SCROLL_LINES_MSG"
4742
4743 HWND hdl_mswheel;
4744 UINT msh_msgscrolllines;
4745
4746 msh_msgmousewheel = 0;
4747 mouse_scroll_lines = 3; /* reasonable default */
4748
4749 if ((os_version.dwPlatformId == VER_PLATFORM_WIN32_NT
4750 && os_version.dwMajorVersion >= 4)
4751 || (os_version.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS
4752 && ((os_version.dwMajorVersion == 4
4753 && os_version.dwMinorVersion >= 10)
4754 || os_version.dwMajorVersion >= 5)))
4755 {
4756 /* if NT 4.0+ (or Win98) get scroll lines directly from system */
4757 SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0,
4758 &mouse_scroll_lines, 0);
4759 }
4760 else if (os_version.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS
4761 || (os_version.dwPlatformId == VER_PLATFORM_WIN32_NT
4762 && os_version.dwMajorVersion < 4))
4763 { /*
4764 * If Win95 or NT 3.51,
4765 * try to find the hidden point32 window.
4766 */
4767 hdl_mswheel = FindWindow(VMOUSEZ_CLASSNAME, VMOUSEZ_TITLE);
4768 if (hdl_mswheel)
4769 {
4770 msh_msgscrolllines = RegisterWindowMessage(VMSH_SCROLL_LINES);
4771 if (msh_msgscrolllines)
4772 {
4773 mouse_scroll_lines = (int)SendMessage(hdl_mswheel,
4774 msh_msgscrolllines, 0, 0);
4775 msh_msgmousewheel = RegisterWindowMessage(VMSH_MOUSEWHEEL);
4776 }
4777 }
4778 }
4779}
4780
4781
4782/* Intellimouse wheel handler */
4783 static void
4784_OnMouseWheel(
4785 HWND hwnd,
4786 short zDelta)
4787{
4788/* Treat a mouse wheel event as if it were a scroll request */
4789 int i;
4790 int size;
4791 HWND hwndCtl;
4792
4793 if (curwin->w_scrollbars[SBAR_RIGHT].id != 0)
4794 {
4795 hwndCtl = curwin->w_scrollbars[SBAR_RIGHT].id;
4796 size = curwin->w_scrollbars[SBAR_RIGHT].size;
4797 }
4798 else if (curwin->w_scrollbars[SBAR_LEFT].id != 0)
4799 {
4800 hwndCtl = curwin->w_scrollbars[SBAR_LEFT].id;
4801 size = curwin->w_scrollbars[SBAR_LEFT].size;
4802 }
4803 else
4804 return;
4805
4806 size = curwin->w_height;
4807 if (mouse_scroll_lines == 0)
4808 init_mouse_wheel();
4809
4810 if (mouse_scroll_lines > 0
4811 && mouse_scroll_lines < (size > 2 ? size - 2 : 1))
4812 {
4813 for (i = mouse_scroll_lines; i > 0; --i)
4814 _OnScroll(hwnd, hwndCtl, zDelta >= 0 ? SB_LINEUP : SB_LINEDOWN, 0);
4815 }
4816 else
4817 _OnScroll(hwnd, hwndCtl, zDelta >= 0 ? SB_PAGEUP : SB_PAGEDOWN, 0);
4818}
4819
Bram Moolenaar551dbcc2006-04-25 22:13:59 +00004820#ifdef USE_SYSMENU_FONT
4821/*
4822 * Get Menu Font.
4823 * Return OK or FAIL.
4824 */
4825 static int
4826gui_w32_get_menu_font(LOGFONT *lf)
4827{
4828 NONCLIENTMETRICS nm;
4829
4830 nm.cbSize = sizeof(NONCLIENTMETRICS);
4831 if (!SystemParametersInfo(
4832 SPI_GETNONCLIENTMETRICS,
4833 sizeof(NONCLIENTMETRICS),
4834 &nm,
4835 0))
4836 return FAIL;
4837 *lf = nm.lfMenuFont;
4838 return OK;
4839}
4840#endif
4841
4842
4843#if defined(FEAT_GUI_TABLINE) && defined(USE_SYSMENU_FONT)
4844/*
4845 * Set the GUI tabline font to the system menu font
4846 */
4847 static void
4848set_tabline_font(void)
4849{
4850 LOGFONT lfSysmenu;
4851 HFONT font;
4852 HWND hwnd;
4853 HDC hdc;
4854 HFONT hfntOld;
4855 TEXTMETRIC tm;
4856
4857 if (gui_w32_get_menu_font(&lfSysmenu) != OK)
4858 return;
4859
4860 font = CreateFontIndirect(&lfSysmenu);
4861
4862 SendMessage(s_tabhwnd, WM_SETFONT, (WPARAM)font, TRUE);
4863
4864 /*
4865 * Compute the height of the font used for the tab text
4866 */
4867 hwnd = GetDesktopWindow();
4868 hdc = GetWindowDC(hwnd);
4869 hfntOld = SelectFont(hdc, font);
4870
4871 GetTextMetrics(hdc, &tm);
4872
4873 SelectFont(hdc, hfntOld);
4874 ReleaseDC(hwnd, hdc);
4875
4876 /*
4877 * The space used by the tab border and the space between the tab label
4878 * and the tab border is included as 7.
4879 */
4880 gui.tabline_height = tm.tmHeight + tm.tmInternalLeading + 7;
4881}
4882#endif
4883
Bram Moolenaar520470a2005-06-16 21:59:56 +00004884/*
4885 * Invoked when a setting was changed.
4886 */
4887 static LRESULT CALLBACK
4888_OnSettingChange(UINT n)
4889{
4890 if (n == SPI_SETWHEELSCROLLLINES)
4891 SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0,
4892 &mouse_scroll_lines, 0);
Bram Moolenaar551dbcc2006-04-25 22:13:59 +00004893#if defined(FEAT_GUI_TABLINE) && defined(USE_SYSMENU_FONT)
4894 if (n == SPI_SETNONCLIENTMETRICS)
4895 set_tabline_font();
4896#endif
Bram Moolenaar520470a2005-06-16 21:59:56 +00004897 return 0;
4898}
4899
Bram Moolenaar071d4272004-06-13 20:20:40 +00004900#ifdef FEAT_NETBEANS_INTG
4901 static void
4902_OnWindowPosChanged(
4903 HWND hwnd,
4904 const LPWINDOWPOS lpwpos)
4905{
4906 static int x = 0, y = 0, cx = 0, cy = 0;
Bram Moolenaarf12d9832016-01-29 21:11:25 +01004907 extern int WSInitialized;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004908
4909 if (WSInitialized && (lpwpos->x != x || lpwpos->y != y
4910 || lpwpos->cx != cx || lpwpos->cy != cy))
4911 {
4912 x = lpwpos->x;
4913 y = lpwpos->y;
4914 cx = lpwpos->cx;
4915 cy = lpwpos->cy;
4916 netbeans_frame_moved(x, y);
4917 }
4918 /* Allow to send WM_SIZE and WM_MOVE */
4919 FORWARD_WM_WINDOWPOSCHANGED(hwnd, lpwpos, MyWindowProc);
4920}
4921#endif
4922
4923 static int
4924_DuringSizing(
Bram Moolenaar071d4272004-06-13 20:20:40 +00004925 UINT fwSide,
4926 LPRECT lprc)
4927{
4928 int w, h;
4929 int valid_w, valid_h;
4930 int w_offset, h_offset;
4931
4932 w = lprc->right - lprc->left;
4933 h = lprc->bottom - lprc->top;
4934 gui_mswin_get_valid_dimensions(w, h, &valid_w, &valid_h);
4935 w_offset = w - valid_w;
4936 h_offset = h - valid_h;
4937
4938 if (fwSide == WMSZ_LEFT || fwSide == WMSZ_TOPLEFT
4939 || fwSide == WMSZ_BOTTOMLEFT)
4940 lprc->left += w_offset;
4941 else if (fwSide == WMSZ_RIGHT || fwSide == WMSZ_TOPRIGHT
4942 || fwSide == WMSZ_BOTTOMRIGHT)
4943 lprc->right -= w_offset;
4944
4945 if (fwSide == WMSZ_TOP || fwSide == WMSZ_TOPLEFT
4946 || fwSide == WMSZ_TOPRIGHT)
4947 lprc->top += h_offset;
4948 else if (fwSide == WMSZ_BOTTOM || fwSide == WMSZ_BOTTOMLEFT
4949 || fwSide == WMSZ_BOTTOMRIGHT)
4950 lprc->bottom -= h_offset;
4951 return TRUE;
4952}
4953
4954
4955
4956 static LRESULT CALLBACK
4957_WndProc(
4958 HWND hwnd,
4959 UINT uMsg,
4960 WPARAM wParam,
4961 LPARAM lParam)
4962{
4963 /*
4964 TRACE("WndProc: hwnd = %08x, msg = %x, wParam = %x, lParam = %x\n",
4965 hwnd, uMsg, wParam, lParam);
4966 */
4967
4968 HandleMouseHide(uMsg, lParam);
4969
4970 s_uMsg = uMsg;
4971 s_wParam = wParam;
4972 s_lParam = lParam;
4973
4974 switch (uMsg)
4975 {
4976 HANDLE_MSG(hwnd, WM_DEADCHAR, _OnDeadChar);
4977 HANDLE_MSG(hwnd, WM_SYSDEADCHAR, _OnDeadChar);
4978 /* HANDLE_MSG(hwnd, WM_ACTIVATE, _OnActivate); */
4979 HANDLE_MSG(hwnd, WM_CLOSE, _OnClose);
4980 /* HANDLE_MSG(hwnd, WM_COMMAND, _OnCommand); */
4981 HANDLE_MSG(hwnd, WM_DESTROY, _OnDestroy);
4982 HANDLE_MSG(hwnd, WM_DROPFILES, _OnDropFiles);
4983 HANDLE_MSG(hwnd, WM_HSCROLL, _OnScroll);
4984 HANDLE_MSG(hwnd, WM_KILLFOCUS, _OnKillFocus);
4985#ifdef FEAT_MENU
4986 HANDLE_MSG(hwnd, WM_COMMAND, _OnMenu);
4987#endif
4988 /* HANDLE_MSG(hwnd, WM_MOVE, _OnMove); */
4989 /* HANDLE_MSG(hwnd, WM_NCACTIVATE, _OnNCActivate); */
4990 HANDLE_MSG(hwnd, WM_SETFOCUS, _OnSetFocus);
4991 HANDLE_MSG(hwnd, WM_SIZE, _OnSize);
4992 /* HANDLE_MSG(hwnd, WM_SYSCOMMAND, _OnSysCommand); */
4993 /* HANDLE_MSG(hwnd, WM_SYSKEYDOWN, _OnAltKey); */
4994 HANDLE_MSG(hwnd, WM_VSCROLL, _OnScroll);
4995 // HANDLE_MSG(hwnd, WM_WINDOWPOSCHANGING, _OnWindowPosChanging);
4996 HANDLE_MSG(hwnd, WM_ACTIVATEAPP, _OnActivateApp);
4997#ifdef FEAT_NETBEANS_INTG
4998 HANDLE_MSG(hwnd, WM_WINDOWPOSCHANGED, _OnWindowPosChanged);
4999#endif
5000
Bram Moolenaarafa24992006-03-27 20:58:26 +00005001#ifdef FEAT_GUI_TABLINE
5002 case WM_RBUTTONUP:
5003 {
5004 if (gui_mch_showing_tabline())
5005 {
5006 POINT pt;
5007 RECT rect;
5008
5009 /*
5010 * If the cursor is on the tabline, display the tab menu
5011 */
5012 GetCursorPos((LPPOINT)&pt);
5013 GetWindowRect(s_textArea, &rect);
5014 if (pt.y < rect.top)
5015 {
5016 show_tabline_popup_menu();
Bram Moolenaar213ae482011-12-15 21:51:36 +01005017 return 0L;
Bram Moolenaarafa24992006-03-27 20:58:26 +00005018 }
5019 }
5020 return MyWindowProc(hwnd, uMsg, wParam, lParam);
5021 }
Bram Moolenaar910f66f2006-04-05 20:41:53 +00005022 case WM_LBUTTONDBLCLK:
5023 {
5024 /*
5025 * If the user double clicked the tabline, create a new tab
5026 */
5027 if (gui_mch_showing_tabline())
5028 {
5029 POINT pt;
5030 RECT rect;
5031
5032 GetCursorPos((LPPOINT)&pt);
5033 GetWindowRect(s_textArea, &rect);
5034 if (pt.y < rect.top)
Bram Moolenaarc6fe9192006-04-09 21:54:49 +00005035 send_tabline_menu_event(0, TABLINE_MENU_NEW);
Bram Moolenaar910f66f2006-04-05 20:41:53 +00005036 }
5037 return MyWindowProc(hwnd, uMsg, wParam, lParam);
5038 }
Bram Moolenaarafa24992006-03-27 20:58:26 +00005039#endif
5040
Bram Moolenaar071d4272004-06-13 20:20:40 +00005041 case WM_QUERYENDSESSION: /* System wants to go down. */
5042 gui_shell_closed(); /* Will exit when no changed buffers. */
5043 return FALSE; /* Do NOT allow system to go down. */
5044
5045 case WM_ENDSESSION:
5046 if (wParam) /* system only really goes down when wParam is TRUE */
Bram Moolenaar213ae482011-12-15 21:51:36 +01005047 {
Bram Moolenaar071d4272004-06-13 20:20:40 +00005048 _OnEndSession();
Bram Moolenaar213ae482011-12-15 21:51:36 +01005049 return 0L;
5050 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00005051 break;
5052
5053 case WM_CHAR:
5054 /* Don't use HANDLE_MSG() for WM_CHAR, it truncates wParam to a single
5055 * byte while we want the UTF-16 character value. */
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00005056 _OnChar(hwnd, (UINT)wParam, (int)(short)LOWORD(lParam));
Bram Moolenaar071d4272004-06-13 20:20:40 +00005057 return 0L;
5058
5059 case WM_SYSCHAR:
5060 /*
5061 * if 'winaltkeys' is "no", or it's "menu" and it's not a menu
5062 * shortcut key, handle like a typed ALT key, otherwise call Windows
5063 * ALT key handling.
5064 */
5065#ifdef FEAT_MENU
5066 if ( !gui.menu_is_active
5067 || p_wak[0] == 'n'
5068 || (p_wak[0] == 'm' && !gui_is_menu_shortcut((int)wParam))
5069 )
5070#endif
5071 {
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00005072 _OnSysChar(hwnd, (UINT)wParam, (int)(short)LOWORD(lParam));
Bram Moolenaar071d4272004-06-13 20:20:40 +00005073 return 0L;
5074 }
5075#ifdef FEAT_MENU
5076 else
5077 return MyWindowProc(hwnd, uMsg, wParam, lParam);
5078#endif
5079
5080 case WM_SYSKEYUP:
5081#ifdef FEAT_MENU
5082 /* This used to be done only when menu is active: ALT key is used for
5083 * that. But that caused problems when menu is disabled and using
5084 * Alt-Tab-Esc: get into a strange state where no mouse-moved events
5085 * are received, mouse pointer remains hidden. */
5086 return MyWindowProc(hwnd, uMsg, wParam, lParam);
5087#else
Bram Moolenaar213ae482011-12-15 21:51:36 +01005088 return 0L;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005089#endif
5090
5091 case WM_SIZING: /* HANDLE_MSG doesn't seem to handle this one */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00005092 return _DuringSizing((UINT)wParam, (LPRECT)lParam);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005093
5094 case WM_MOUSEWHEEL:
5095 _OnMouseWheel(hwnd, HIWORD(wParam));
Bram Moolenaar213ae482011-12-15 21:51:36 +01005096 return 0L;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005097
Bram Moolenaar520470a2005-06-16 21:59:56 +00005098 /* Notification for change in SystemParametersInfo() */
5099 case WM_SETTINGCHANGE:
5100 return _OnSettingChange((UINT)wParam);
5101
Bram Moolenaar3991dab2006-03-27 17:01:56 +00005102#if defined(FEAT_TOOLBAR) || defined(FEAT_GUI_TABLINE)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005103 case WM_NOTIFY:
5104 switch (((LPNMHDR) lParam)->code)
5105 {
Bram Moolenaareb3593b2006-04-22 22:33:57 +00005106# ifdef FEAT_MBYTE
5107 case TTN_GETDISPINFOW:
5108# endif
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005109 case TTN_GETDISPINFO:
Bram Moolenaar071d4272004-06-13 20:20:40 +00005110 {
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005111 LPNMHDR hdr = (LPNMHDR)lParam;
5112 char_u *str = NULL;
5113 static void *tt_text = NULL;
Bram Moolenaareb3593b2006-04-22 22:33:57 +00005114
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005115 vim_free(tt_text);
5116 tt_text = NULL;
Bram Moolenaareb3593b2006-04-22 22:33:57 +00005117
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005118# ifdef FEAT_GUI_TABLINE
5119 if (gui_mch_showing_tabline()
5120 && hdr->hwndFrom == TabCtrl_GetToolTips(s_tabhwnd))
Bram Moolenaareb3593b2006-04-22 22:33:57 +00005121 {
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005122 POINT pt;
Bram Moolenaareb3593b2006-04-22 22:33:57 +00005123 /*
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005124 * Mouse is over the GUI tabline. Display the
5125 * tooltip for the tab under the cursor
5126 *
5127 * Get the cursor position within the tab control
Bram Moolenaareb3593b2006-04-22 22:33:57 +00005128 */
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005129 GetCursorPos(&pt);
5130 if (ScreenToClient(s_tabhwnd, &pt) != 0)
Bram Moolenaareb3593b2006-04-22 22:33:57 +00005131 {
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005132 TCHITTESTINFO htinfo;
5133 int idx;
Bram Moolenaareb3593b2006-04-22 22:33:57 +00005134
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005135 /*
5136 * Get the tab under the cursor
5137 */
5138 htinfo.pt.x = pt.x;
5139 htinfo.pt.y = pt.y;
5140 idx = TabCtrl_HitTest(s_tabhwnd, &htinfo);
5141 if (idx != -1)
Bram Moolenaareb3593b2006-04-22 22:33:57 +00005142 {
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005143 tabpage_T *tp;
Bram Moolenaareb3593b2006-04-22 22:33:57 +00005144
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005145 tp = find_tabpage(idx + 1);
5146 if (tp != NULL)
Bram Moolenaareb3593b2006-04-22 22:33:57 +00005147 {
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005148 get_tabline_label(tp, TRUE);
5149 str = NameBuff;
Bram Moolenaareb3593b2006-04-22 22:33:57 +00005150 }
5151 }
5152 }
5153 }
Bram Moolenaareb3593b2006-04-22 22:33:57 +00005154# endif
Bram Moolenaareb3593b2006-04-22 22:33:57 +00005155# ifdef FEAT_TOOLBAR
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005156# ifdef FEAT_GUI_TABLINE
5157 else
5158# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00005159 {
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005160 UINT idButton;
5161 vimmenu_T *pMenu;
5162
5163 idButton = (UINT) hdr->idFrom;
5164 pMenu = gui_mswin_find_menu(root_menu, idButton);
5165 if (pMenu)
5166 str = pMenu->strings[MENU_INDEX_TIP];
Bram Moolenaar071d4272004-06-13 20:20:40 +00005167 }
Bram Moolenaareb3593b2006-04-22 22:33:57 +00005168# endif
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005169 if (str != NULL)
5170 {
5171# ifdef FEAT_MBYTE
5172 if (hdr->code == TTN_GETDISPINFOW)
5173 {
5174 LPNMTTDISPINFOW lpdi = (LPNMTTDISPINFOW)lParam;
5175
Bram Moolenaar6c9176d2008-01-03 19:45:15 +00005176 /* Set the maximum width, this also enables using
5177 * \n for line break. */
5178 SendMessage(lpdi->hdr.hwndFrom, TTM_SETMAXTIPWIDTH,
5179 0, 500);
5180
Bram Moolenaar36f692d2008-11-20 16:10:17 +00005181 tt_text = enc_to_utf16(str, NULL);
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005182 lpdi->lpszText = tt_text;
5183 /* can't show tooltip if failed */
5184 }
5185 else
5186# endif
5187 {
5188 LPNMTTDISPINFO lpdi = (LPNMTTDISPINFO)lParam;
5189
Bram Moolenaar6c9176d2008-01-03 19:45:15 +00005190 /* Set the maximum width, this also enables using
5191 * \n for line break. */
5192 SendMessage(lpdi->hdr.hwndFrom, TTM_SETMAXTIPWIDTH,
5193 0, 500);
5194
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005195 if (STRLEN(str) < sizeof(lpdi->szText)
5196 || ((tt_text = vim_strsave(str)) == NULL))
Bram Moolenaar418f81b2016-02-16 20:12:02 +01005197 vim_strncpy((char_u *)lpdi->szText, str,
Bram Moolenaar8f2ff9f2006-08-29 19:26:50 +00005198 sizeof(lpdi->szText) - 1);
5199 else
5200 lpdi->lpszText = tt_text;
5201 }
5202 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00005203 }
5204 break;
Bram Moolenaar3991dab2006-03-27 17:01:56 +00005205# ifdef FEAT_GUI_TABLINE
5206 case TCN_SELCHANGE:
5207 if (gui_mch_showing_tabline()
5208 && ((LPNMHDR)lParam)->hwndFrom == s_tabhwnd)
Bram Moolenaar213ae482011-12-15 21:51:36 +01005209 {
Bram Moolenaar3991dab2006-03-27 17:01:56 +00005210 send_tabline_event(TabCtrl_GetCurSel(s_tabhwnd) + 1);
Bram Moolenaar213ae482011-12-15 21:51:36 +01005211 return 0L;
5212 }
Bram Moolenaar3991dab2006-03-27 17:01:56 +00005213 break;
Bram Moolenaarafa24992006-03-27 20:58:26 +00005214
5215 case NM_RCLICK:
5216 if (gui_mch_showing_tabline()
5217 && ((LPNMHDR)lParam)->hwndFrom == s_tabhwnd)
Bram Moolenaar213ae482011-12-15 21:51:36 +01005218 {
Bram Moolenaarafa24992006-03-27 20:58:26 +00005219 show_tabline_popup_menu();
Bram Moolenaar213ae482011-12-15 21:51:36 +01005220 return 0L;
5221 }
Bram Moolenaarafa24992006-03-27 20:58:26 +00005222 break;
Bram Moolenaar3991dab2006-03-27 17:01:56 +00005223# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00005224 default:
Bram Moolenaar3991dab2006-03-27 17:01:56 +00005225# ifdef FEAT_GUI_TABLINE
5226 if (gui_mch_showing_tabline()
5227 && ((LPNMHDR)lParam)->hwndFrom == s_tabhwnd)
5228 return MyWindowProc(hwnd, uMsg, wParam, lParam);
5229# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00005230 break;
5231 }
5232 break;
5233#endif
5234#if defined(MENUHINTS) && defined(FEAT_MENU)
5235 case WM_MENUSELECT:
5236 if (((UINT) HIWORD(wParam)
5237 & (0xffff ^ (MF_MOUSESELECT + MF_BITMAP + MF_POPUP)))
5238 == MF_HILITE
5239 && (State & CMDLINE) == 0)
5240 {
5241 UINT idButton;
5242 vimmenu_T *pMenu;
5243 static int did_menu_tip = FALSE;
5244
5245 if (did_menu_tip)
5246 {
5247 msg_clr_cmdline();
5248 setcursor();
5249 out_flush();
5250 did_menu_tip = FALSE;
5251 }
5252
5253 idButton = (UINT)LOWORD(wParam);
5254 pMenu = gui_mswin_find_menu(root_menu, idButton);
5255 if (pMenu != NULL && pMenu->strings[MENU_INDEX_TIP] != 0
5256 && GetMenuState(s_menuBar, pMenu->id, MF_BYCOMMAND) != -1)
5257 {
Bram Moolenaar2d8ab992007-06-19 08:06:18 +00005258 ++msg_hist_off;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005259 msg(pMenu->strings[MENU_INDEX_TIP]);
Bram Moolenaar2d8ab992007-06-19 08:06:18 +00005260 --msg_hist_off;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005261 setcursor();
5262 out_flush();
5263 did_menu_tip = TRUE;
5264 }
Bram Moolenaar213ae482011-12-15 21:51:36 +01005265 return 0L;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005266 }
5267 break;
5268#endif
5269 case WM_NCHITTEST:
5270 {
5271 LRESULT result;
5272 int x, y;
5273 int xPos = GET_X_LPARAM(lParam);
5274
5275 result = MyWindowProc(hwnd, uMsg, wParam, lParam);
5276 if (result == HTCLIENT)
5277 {
Bram Moolenaar3991dab2006-03-27 17:01:56 +00005278#ifdef FEAT_GUI_TABLINE
5279 if (gui_mch_showing_tabline())
5280 {
5281 int yPos = GET_Y_LPARAM(lParam);
5282 RECT rct;
5283
5284 /* If the cursor is on the GUI tabline, don't process this
5285 * event */
5286 GetWindowRect(s_textArea, &rct);
5287 if (yPos < rct.top)
5288 return result;
5289 }
5290#endif
Bram Moolenaarcde88542015-08-11 19:14:00 +02005291 (void)gui_mch_get_winpos(&x, &y);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005292 xPos -= x;
5293
5294 if (xPos < 48) /* <VN> TODO should use system metric? */
5295 return HTBOTTOMLEFT;
5296 else
5297 return HTBOTTOMRIGHT;
5298 }
5299 else
5300 return result;
5301 }
5302 /* break; notreached */
5303
5304#ifdef FEAT_MBYTE_IME
5305 case WM_IME_NOTIFY:
5306 if (!_OnImeNotify(hwnd, (DWORD)wParam, (DWORD)lParam))
5307 return MyWindowProc(hwnd, uMsg, wParam, lParam);
Bram Moolenaar213ae482011-12-15 21:51:36 +01005308 return 1L;
5309
Bram Moolenaar071d4272004-06-13 20:20:40 +00005310 case WM_IME_COMPOSITION:
5311 if (!_OnImeComposition(hwnd, wParam, lParam))
5312 return MyWindowProc(hwnd, uMsg, wParam, lParam);
Bram Moolenaar213ae482011-12-15 21:51:36 +01005313 return 1L;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005314#endif
5315
5316 default:
5317 if (uMsg == msh_msgmousewheel && msh_msgmousewheel != 0)
5318 { /* handle MSH_MOUSEWHEEL messages for Intellimouse */
5319 _OnMouseWheel(hwnd, HIWORD(wParam));
Bram Moolenaar213ae482011-12-15 21:51:36 +01005320 return 0L;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005321 }
5322#ifdef MSWIN_FIND_REPLACE
Bram Moolenaar293ee4d2004-12-09 21:34:53 +00005323 else if (uMsg == s_findrep_msg && s_findrep_msg != 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005324 {
5325 _OnFindRepl();
5326 }
5327#endif
5328 return MyWindowProc(hwnd, uMsg, wParam, lParam);
5329 }
5330
Bram Moolenaar2787ab92011-12-14 15:23:59 +01005331 return DefWindowProc(hwnd, uMsg, wParam, lParam);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005332}
5333
5334/*
5335 * End of call-back routines
5336 */
5337
5338/* parent window, if specified with -P */
5339HWND vim_parent_hwnd = NULL;
5340
5341 static BOOL CALLBACK
5342FindWindowTitle(HWND hwnd, LPARAM lParam)
5343{
5344 char buf[2048];
5345 char *title = (char *)lParam;
5346
5347 if (GetWindowText(hwnd, buf, sizeof(buf)))
5348 {
5349 if (strstr(buf, title) != NULL)
5350 {
Bram Moolenaar69a7cb42004-06-20 12:51:53 +00005351 /* Found it. Store the window ref. and quit searching if MDI
5352 * works. */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005353 vim_parent_hwnd = FindWindowEx(hwnd, NULL, "MDIClient", NULL);
Bram Moolenaar69a7cb42004-06-20 12:51:53 +00005354 if (vim_parent_hwnd != NULL)
5355 return FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005356 }
5357 }
5358 return TRUE; /* continue searching */
5359}
5360
5361/*
5362 * Invoked for '-P "title"' argument: search for parent application to open
5363 * our window in.
5364 */
5365 void
5366gui_mch_set_parent(char *title)
5367{
5368 EnumWindows(FindWindowTitle, (LPARAM)title);
5369 if (vim_parent_hwnd == NULL)
5370 {
5371 EMSG2(_("E671: Cannot find window title \"%s\""), title);
5372 mch_exit(2);
5373 }
5374}
5375
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00005376#ifndef FEAT_OLE
Bram Moolenaar071d4272004-06-13 20:20:40 +00005377 static void
5378ole_error(char *arg)
5379{
Bram Moolenaaraea02fa2007-05-04 20:29:09 +00005380 char buf[IOSIZE];
5381
5382 /* Can't use EMSG() here, we have not finished initialisation yet. */
5383 vim_snprintf(buf, IOSIZE,
5384 _("E243: Argument not supported: \"-%s\"; Use the OLE version."),
5385 arg);
5386 mch_errmsg(buf);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005387}
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00005388#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00005389
5390/*
5391 * Parse the GUI related command-line arguments. Any arguments used are
5392 * deleted from argv, and *argc is decremented accordingly. This is called
5393 * when vim is started, whether or not the GUI has been started.
5394 */
5395 void
5396gui_mch_prepare(int *argc, char **argv)
5397{
5398 int silent = FALSE;
5399 int idx;
5400
5401 /* Check for special OLE command line parameters */
5402 if ((*argc == 2 || *argc == 3) && (argv[1][0] == '-' || argv[1][0] == '/'))
5403 {
5404 /* Check for a "-silent" argument first. */
5405 if (*argc == 3 && STRICMP(argv[1] + 1, "silent") == 0
5406 && (argv[2][0] == '-' || argv[2][0] == '/'))
5407 {
5408 silent = TRUE;
5409 idx = 2;
5410 }
5411 else
5412 idx = 1;
5413
5414 /* Register Vim as an OLE Automation server */
5415 if (STRICMP(argv[idx] + 1, "register") == 0)
5416 {
5417#ifdef FEAT_OLE
5418 RegisterMe(silent);
5419 mch_exit(0);
5420#else
5421 if (!silent)
5422 ole_error("register");
5423 mch_exit(2);
5424#endif
5425 }
5426
5427 /* Unregister Vim as an OLE Automation server */
5428 if (STRICMP(argv[idx] + 1, "unregister") == 0)
5429 {
5430#ifdef FEAT_OLE
5431 UnregisterMe(!silent);
5432 mch_exit(0);
5433#else
5434 if (!silent)
5435 ole_error("unregister");
5436 mch_exit(2);
5437#endif
5438 }
5439
5440 /* Ignore an -embedding argument. It is only relevant if the
5441 * application wants to treat the case when it is started manually
5442 * differently from the case where it is started via automation (and
5443 * we don't).
5444 */
5445 if (STRICMP(argv[idx] + 1, "embedding") == 0)
5446 {
5447#ifdef FEAT_OLE
5448 *argc = 1;
5449#else
5450 ole_error("embedding");
5451 mch_exit(2);
5452#endif
5453 }
5454 }
5455
5456#ifdef FEAT_OLE
5457 {
5458 int bDoRestart = FALSE;
5459
5460 InitOLE(&bDoRestart);
5461 /* automatically exit after registering */
5462 if (bDoRestart)
5463 mch_exit(0);
5464 }
5465#endif
5466
5467#ifdef FEAT_NETBEANS_INTG
5468 {
Bram Moolenaar84a05ac2013-05-06 04:24:17 +02005469 /* stolen from gui_x11.c */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005470 int arg;
5471
5472 for (arg = 1; arg < *argc; arg++)
5473 if (strncmp("-nb", argv[arg], 3) == 0)
5474 {
Bram Moolenaar071d4272004-06-13 20:20:40 +00005475 netbeansArg = argv[arg];
5476 mch_memmove(&argv[arg], &argv[arg + 1],
5477 (--*argc - arg) * sizeof(char *));
5478 argv[*argc] = NULL;
5479 break; /* enough? */
5480 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00005481 }
5482#endif
5483
5484 /* get the OS version info */
5485 os_version.dwOSVersionInfoSize = sizeof(os_version);
5486 GetVersionEx(&os_version); /* this call works on Win32s, Win95 and WinNT */
5487
5488 /* try and load the user32.dll library and get the entry points for
5489 * multi-monitor-support. */
Bram Moolenaarebbcb822010-10-23 14:02:54 +02005490 if ((user32_lib = vimLoadLib("User32.dll")) != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005491 {
5492 pMonitorFromWindow = (TMonitorFromWindow)GetProcAddress(user32_lib,
5493 "MonitorFromWindow");
5494
5495 /* there are ...A and ...W version of GetMonitorInfo - looking at
5496 * winuser.h, they have exactly the same declaration. */
5497 pGetMonitorInfo = (TGetMonitorInfo)GetProcAddress(user32_lib,
5498 "GetMonitorInfoA");
5499 }
Bram Moolenaar8c85fa32011-08-10 17:08:03 +02005500
5501#ifdef FEAT_MBYTE
5502 /* If the OS is Windows NT, use wide functions;
5503 * this enables common dialogs input unicode from IME. */
5504 if (os_version.dwPlatformId == VER_PLATFORM_WIN32_NT)
5505 {
5506 pDispatchMessage = DispatchMessageW;
5507 pGetMessage = GetMessageW;
5508 pIsDialogMessage = IsDialogMessageW;
5509 pPeekMessage = PeekMessageW;
5510 }
5511 else
5512 {
5513 pDispatchMessage = DispatchMessageA;
5514 pGetMessage = GetMessageA;
5515 pIsDialogMessage = IsDialogMessageA;
5516 pPeekMessage = PeekMessageA;
5517 }
5518#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00005519}
5520
5521/*
5522 * Initialise the GUI. Create all the windows, set up all the call-backs
5523 * etc.
5524 */
5525 int
5526gui_mch_init(void)
5527{
5528 const char szVimWndClass[] = VIM_CLASS;
5529 const char szTextAreaClass[] = "VimTextArea";
5530 WNDCLASS wndclass;
5531#ifdef FEAT_MBYTE
5532 const WCHAR szVimWndClassW[] = VIM_CLASSW;
Bram Moolenaar33d0b692010-02-17 16:31:32 +01005533 const WCHAR szTextAreaClassW[] = L"VimTextArea";
Bram Moolenaar071d4272004-06-13 20:20:40 +00005534 WNDCLASSW wndclassw;
5535#endif
5536#ifdef GLOBAL_IME
5537 ATOM atom;
5538#endif
5539
Bram Moolenaar071d4272004-06-13 20:20:40 +00005540 /* Return here if the window was already opened (happens when
5541 * gui_mch_dialog() is called early). */
5542 if (s_hwnd != NULL)
Bram Moolenaar748bf032005-02-02 23:04:36 +00005543 goto theend;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005544
5545 /*
5546 * Load the tearoff bitmap
5547 */
5548#ifdef FEAT_TEAROFF
5549 s_htearbitmap = LoadBitmap(s_hinst, "IDB_TEAROFF");
5550#endif
5551
5552 gui.scrollbar_width = GetSystemMetrics(SM_CXVSCROLL);
5553 gui.scrollbar_height = GetSystemMetrics(SM_CYHSCROLL);
5554#ifdef FEAT_MENU
5555 gui.menu_height = 0; /* Windows takes care of this */
5556#endif
5557 gui.border_width = 0;
5558
5559 s_brush = CreateSolidBrush(GetSysColor(COLOR_BTNFACE));
5560
5561#ifdef FEAT_MBYTE
5562 /* First try using the wide version, so that we can use any title.
5563 * Otherwise only characters in the active codepage will work. */
5564 if (GetClassInfoW(s_hinst, szVimWndClassW, &wndclassw) == 0)
5565 {
Bram Moolenaar910f66f2006-04-05 20:41:53 +00005566 wndclassw.style = CS_DBLCLKS;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005567 wndclassw.lpfnWndProc = _WndProc;
5568 wndclassw.cbClsExtra = 0;
5569 wndclassw.cbWndExtra = 0;
5570 wndclassw.hInstance = s_hinst;
5571 wndclassw.hIcon = LoadIcon(wndclassw.hInstance, "IDR_VIM");
5572 wndclassw.hCursor = LoadCursor(NULL, IDC_ARROW);
5573 wndclassw.hbrBackground = s_brush;
5574 wndclassw.lpszMenuName = NULL;
5575 wndclassw.lpszClassName = szVimWndClassW;
5576
5577 if ((
5578#ifdef GLOBAL_IME
5579 atom =
5580#endif
5581 RegisterClassW(&wndclassw)) == 0)
5582 {
5583 if (GetLastError() != ERROR_CALL_NOT_IMPLEMENTED)
5584 return FAIL;
5585
5586 /* Must be Windows 98, fall back to non-wide function. */
5587 }
5588 else
5589 wide_WindowProc = TRUE;
5590 }
5591
5592 if (!wide_WindowProc)
5593#endif
5594
5595 if (GetClassInfo(s_hinst, szVimWndClass, &wndclass) == 0)
5596 {
Bram Moolenaar910f66f2006-04-05 20:41:53 +00005597 wndclass.style = CS_DBLCLKS;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005598 wndclass.lpfnWndProc = _WndProc;
5599 wndclass.cbClsExtra = 0;
5600 wndclass.cbWndExtra = 0;
5601 wndclass.hInstance = s_hinst;
5602 wndclass.hIcon = LoadIcon(wndclass.hInstance, "IDR_VIM");
5603 wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);
5604 wndclass.hbrBackground = s_brush;
5605 wndclass.lpszMenuName = NULL;
5606 wndclass.lpszClassName = szVimWndClass;
5607
5608 if ((
5609#ifdef GLOBAL_IME
5610 atom =
5611#endif
5612 RegisterClass(&wndclass)) == 0)
5613 return FAIL;
5614 }
5615
5616 if (vim_parent_hwnd != NULL)
5617 {
5618#ifdef HAVE_TRY_EXCEPT
5619 __try
5620 {
5621#endif
5622 /* Open inside the specified parent window.
5623 * TODO: last argument should point to a CLIENTCREATESTRUCT
5624 * structure. */
5625 s_hwnd = CreateWindowEx(
5626 WS_EX_MDICHILD,
5627 szVimWndClass, "Vim MSWindows GUI",
Bram Moolenaare78c2062011-08-10 15:56:27 +02005628 WS_OVERLAPPEDWINDOW | WS_CHILD
5629 | WS_CLIPSIBLINGS | WS_CLIPCHILDREN | 0xC000,
Bram Moolenaar071d4272004-06-13 20:20:40 +00005630 gui_win_x == -1 ? CW_USEDEFAULT : gui_win_x,
5631 gui_win_y == -1 ? CW_USEDEFAULT : gui_win_y,
5632 100, /* Any value will do */
5633 100, /* Any value will do */
5634 vim_parent_hwnd, NULL,
5635 s_hinst, NULL);
5636#ifdef HAVE_TRY_EXCEPT
5637 }
5638 __except(EXCEPTION_EXECUTE_HANDLER)
5639 {
5640 /* NOP */
5641 }
5642#endif
5643 if (s_hwnd == NULL)
5644 {
5645 EMSG(_("E672: Unable to open window inside MDI application"));
5646 mch_exit(2);
5647 }
5648 }
5649 else
Bram Moolenaar78e17622007-08-30 10:26:19 +00005650 {
5651 /* If the provided windowid is not valid reset it to zero, so that it
5652 * is ignored and we open our own window. */
5653 if (IsWindow((HWND)win_socket_id) <= 0)
5654 win_socket_id = 0;
5655
5656 /* Create a window. If win_socket_id is not zero without border and
5657 * titlebar, it will be reparented below. */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005658 s_hwnd = CreateWindow(
Bram Moolenaar78e17622007-08-30 10:26:19 +00005659 szVimWndClass, "Vim MSWindows GUI",
Bram Moolenaare78c2062011-08-10 15:56:27 +02005660 (win_socket_id == 0 ? WS_OVERLAPPEDWINDOW : WS_POPUP)
5661 | WS_CLIPSIBLINGS | WS_CLIPCHILDREN,
Bram Moolenaar78e17622007-08-30 10:26:19 +00005662 gui_win_x == -1 ? CW_USEDEFAULT : gui_win_x,
5663 gui_win_y == -1 ? CW_USEDEFAULT : gui_win_y,
5664 100, /* Any value will do */
5665 100, /* Any value will do */
5666 NULL, NULL,
5667 s_hinst, NULL);
5668 if (s_hwnd != NULL && win_socket_id != 0)
5669 {
5670 SetParent(s_hwnd, (HWND)win_socket_id);
5671 ShowWindow(s_hwnd, SW_SHOWMAXIMIZED);
5672 }
5673 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00005674
5675 if (s_hwnd == NULL)
5676 return FAIL;
5677
5678#ifdef GLOBAL_IME
5679 global_ime_init(atom, s_hwnd);
5680#endif
5681#if defined(FEAT_MBYTE_IME) && defined(DYNAMIC_IME)
5682 dyn_imm_load();
5683#endif
5684
5685 /* Create the text area window */
Bram Moolenaar33d0b692010-02-17 16:31:32 +01005686#ifdef FEAT_MBYTE
5687 if (wide_WindowProc)
5688 {
5689 if (GetClassInfoW(s_hinst, szTextAreaClassW, &wndclassw) == 0)
5690 {
5691 wndclassw.style = CS_OWNDC;
5692 wndclassw.lpfnWndProc = _TextAreaWndProc;
5693 wndclassw.cbClsExtra = 0;
5694 wndclassw.cbWndExtra = 0;
5695 wndclassw.hInstance = s_hinst;
5696 wndclassw.hIcon = NULL;
5697 wndclassw.hCursor = LoadCursor(NULL, IDC_ARROW);
5698 wndclassw.hbrBackground = NULL;
5699 wndclassw.lpszMenuName = NULL;
5700 wndclassw.lpszClassName = szTextAreaClassW;
5701
5702 if (RegisterClassW(&wndclassw) == 0)
5703 return FAIL;
5704 }
5705 }
5706 else
5707#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00005708 if (GetClassInfo(s_hinst, szTextAreaClass, &wndclass) == 0)
5709 {
5710 wndclass.style = CS_OWNDC;
5711 wndclass.lpfnWndProc = _TextAreaWndProc;
5712 wndclass.cbClsExtra = 0;
5713 wndclass.cbWndExtra = 0;
5714 wndclass.hInstance = s_hinst;
5715 wndclass.hIcon = NULL;
5716 wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);
5717 wndclass.hbrBackground = NULL;
5718 wndclass.lpszMenuName = NULL;
5719 wndclass.lpszClassName = szTextAreaClass;
5720
5721 if (RegisterClass(&wndclass) == 0)
5722 return FAIL;
5723 }
5724 s_textArea = CreateWindowEx(
Bram Moolenaar97b0b0e2015-11-19 20:23:37 +01005725 0,
Bram Moolenaar071d4272004-06-13 20:20:40 +00005726 szTextAreaClass, "Vim text area",
5727 WS_CHILD | WS_VISIBLE, 0, 0,
5728 100, /* Any value will do for now */
5729 100, /* Any value will do for now */
5730 s_hwnd, NULL,
5731 s_hinst, NULL);
5732
5733 if (s_textArea == NULL)
5734 return FAIL;
5735
Bram Moolenaar20321902016-02-17 12:30:17 +01005736#ifdef FEAT_LIBCALL
Bram Moolenaarcddc91c2014-09-23 21:53:41 +02005737 /* Try loading an icon from $RUNTIMEPATH/bitmaps/vim.ico. */
5738 {
5739 HANDLE hIcon = NULL;
5740
5741 if (mch_icon_load(&hIcon) == OK && hIcon != NULL)
Bram Moolenaar0f519a02014-10-06 18:10:09 +02005742 SendMessage(s_hwnd, WM_SETICON, ICON_SMALL, (LPARAM)hIcon);
Bram Moolenaarcddc91c2014-09-23 21:53:41 +02005743 }
Bram Moolenaar20321902016-02-17 12:30:17 +01005744#endif
Bram Moolenaarcddc91c2014-09-23 21:53:41 +02005745
Bram Moolenaar071d4272004-06-13 20:20:40 +00005746#ifdef FEAT_MENU
5747 s_menuBar = CreateMenu();
5748#endif
5749 s_hdc = GetDC(s_textArea);
5750
Bram Moolenaar071d4272004-06-13 20:20:40 +00005751#ifdef FEAT_WINDOWS
5752 DragAcceptFiles(s_hwnd, TRUE);
5753#endif
5754
5755 /* Do we need to bother with this? */
5756 /* m_fMouseAvail = GetSystemMetrics(SM_MOUSEPRESENT); */
5757
5758 /* Get background/foreground colors from the system */
5759 gui_mch_def_colors();
5760
5761 /* Get the colors from the "Normal" group (set in syntax.c or in a vimrc
5762 * file) */
5763 set_normal_colors();
5764
5765 /*
5766 * Check that none of the colors are the same as the background color.
5767 * Then store the current values as the defaults.
5768 */
5769 gui_check_colors();
5770 gui.def_norm_pixel = gui.norm_pixel;
5771 gui.def_back_pixel = gui.back_pixel;
5772
5773 /* Get the colors for the highlight groups (gui_check_colors() might have
5774 * changed them) */
5775 highlight_gui_started();
5776
5777 /*
Bram Moolenaar97b0b0e2015-11-19 20:23:37 +01005778 * Start out by adding the configured border width into the border offset.
Bram Moolenaar071d4272004-06-13 20:20:40 +00005779 */
Bram Moolenaar97b0b0e2015-11-19 20:23:37 +01005780 gui.border_offset = gui.border_width;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005781
5782 /*
5783 * Set up for Intellimouse processing
5784 */
5785 init_mouse_wheel();
5786
5787 /*
5788 * compute a couple of metrics used for the dialogs
5789 */
5790 get_dialog_font_metrics();
5791#ifdef FEAT_TOOLBAR
5792 /*
5793 * Create the toolbar
5794 */
5795 initialise_toolbar();
5796#endif
Bram Moolenaar3991dab2006-03-27 17:01:56 +00005797#ifdef FEAT_GUI_TABLINE
5798 /*
5799 * Create the tabline
5800 */
5801 initialise_tabline();
5802#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00005803#ifdef MSWIN_FIND_REPLACE
5804 /*
5805 * Initialise the dialog box stuff
5806 */
5807 s_findrep_msg = RegisterWindowMessage(FINDMSGSTRING);
5808
5809 /* Initialise the struct */
5810 s_findrep_struct.lStructSize = sizeof(s_findrep_struct);
Bram Moolenaar418f81b2016-02-16 20:12:02 +01005811 s_findrep_struct.lpstrFindWhat = (LPSTR)alloc(MSWIN_FR_BUFSIZE);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005812 s_findrep_struct.lpstrFindWhat[0] = NUL;
Bram Moolenaar418f81b2016-02-16 20:12:02 +01005813 s_findrep_struct.lpstrReplaceWith = (LPSTR)alloc(MSWIN_FR_BUFSIZE);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005814 s_findrep_struct.lpstrReplaceWith[0] = NUL;
5815 s_findrep_struct.wFindWhatLen = MSWIN_FR_BUFSIZE;
5816 s_findrep_struct.wReplaceWithLen = MSWIN_FR_BUFSIZE;
Bram Moolenaar3ca9a8a2009-01-28 20:23:17 +00005817# if defined(FEAT_MBYTE) && defined(WIN3264)
5818 s_findrep_struct_w.lStructSize = sizeof(s_findrep_struct_w);
5819 s_findrep_struct_w.lpstrFindWhat =
5820 (LPWSTR)alloc(MSWIN_FR_BUFSIZE * sizeof(WCHAR));
5821 s_findrep_struct_w.lpstrFindWhat[0] = NUL;
5822 s_findrep_struct_w.lpstrReplaceWith =
5823 (LPWSTR)alloc(MSWIN_FR_BUFSIZE * sizeof(WCHAR));
5824 s_findrep_struct_w.lpstrReplaceWith[0] = NUL;
5825 s_findrep_struct_w.wFindWhatLen = MSWIN_FR_BUFSIZE;
5826 s_findrep_struct_w.wReplaceWithLen = MSWIN_FR_BUFSIZE;
5827# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00005828#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00005829
Bram Moolenaar264e9fd2010-10-27 12:33:17 +02005830#ifdef FEAT_EVAL
Bram Moolenaarf32c5cd2016-01-10 16:07:44 +01005831# if !defined(_MSC_VER) || (_MSC_VER < 1400)
5832/* Define HandleToLong for old MS and non-MS compilers if not defined. */
5833# ifndef HandleToLong
Bram Moolenaara87e2c22016-02-17 20:48:19 +01005834# define HandleToLong(h) ((long)(intptr_t)(h))
Bram Moolenaarf32c5cd2016-01-10 16:07:44 +01005835# endif
Bram Moolenaar4da95d32011-07-07 17:43:41 +02005836# endif
Bram Moolenaar264e9fd2010-10-27 12:33:17 +02005837 /* set the v:windowid variable */
Bram Moolenaar7154b322011-05-25 21:18:06 +02005838 set_vim_var_nr(VV_WINDOWID, HandleToLong(s_hwnd));
Bram Moolenaar264e9fd2010-10-27 12:33:17 +02005839#endif
5840
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +02005841#ifdef FEAT_RENDER_OPTIONS
5842 if (p_rop)
5843 (void)gui_mch_set_rendering_options(p_rop);
5844#endif
5845
Bram Moolenaar748bf032005-02-02 23:04:36 +00005846theend:
5847 /* Display any pending error messages */
5848 display_errors();
5849
Bram Moolenaar071d4272004-06-13 20:20:40 +00005850 return OK;
5851}
5852
5853/*
5854 * Get the size of the screen, taking position on multiple monitors into
5855 * account (if supported).
5856 */
5857 static void
5858get_work_area(RECT *spi_rect)
5859{
5860 _HMONITOR mon;
5861 _MONITORINFO moninfo;
5862
5863 /* use these functions only if available */
5864 if (pMonitorFromWindow != NULL && pGetMonitorInfo != NULL)
5865 {
5866 /* work out which monitor the window is on, and get *it's* work area */
5867 mon = pMonitorFromWindow(s_hwnd, 1 /*MONITOR_DEFAULTTOPRIMARY*/);
5868 if (mon != NULL)
5869 {
5870 moninfo.cbSize = sizeof(_MONITORINFO);
5871 if (pGetMonitorInfo(mon, &moninfo))
5872 {
5873 *spi_rect = moninfo.rcWork;
5874 return;
5875 }
5876 }
5877 }
5878 /* this is the old method... */
5879 SystemParametersInfo(SPI_GETWORKAREA, 0, spi_rect, 0);
5880}
5881
5882/*
5883 * Set the size of the window to the given width and height in pixels.
5884 */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00005885/*ARGSUSED*/
Bram Moolenaar071d4272004-06-13 20:20:40 +00005886 void
5887gui_mch_set_shellsize(int width, int height,
Bram Moolenaarafa24992006-03-27 20:58:26 +00005888 int min_width, int min_height, int base_width, int base_height,
5889 int direction)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005890{
5891 RECT workarea_rect;
5892 int win_width, win_height;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005893 WINDOWPLACEMENT wndpl;
5894
Bram Moolenaar910f66f2006-04-05 20:41:53 +00005895 /* Try to keep window completely on screen. */
5896 /* Get position of the screen work area. This is the part that is not
5897 * used by the taskbar or appbars. */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005898 get_work_area(&workarea_rect);
5899
Bram Moolenaar84a05ac2013-05-06 04:24:17 +02005900 /* Get current position of our window. Note that the .left and .top are
Bram Moolenaar910f66f2006-04-05 20:41:53 +00005901 * relative to the work area. */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005902 wndpl.length = sizeof(WINDOWPLACEMENT);
5903 GetWindowPlacement(s_hwnd, &wndpl);
5904
5905 /* Resizing a maximized window looks very strange, unzoom it first.
5906 * But don't do it when still starting up, it may have been requested in
5907 * the shortcut. */
5908 if (wndpl.showCmd == SW_SHOWMAXIMIZED && starting == 0)
5909 {
5910 ShowWindow(s_hwnd, SW_SHOWNORMAL);
5911 /* Need to get the settings of the normal window. */
5912 GetWindowPlacement(s_hwnd, &wndpl);
5913 }
5914
Bram Moolenaar071d4272004-06-13 20:20:40 +00005915 /* compute the size of the outside of the window */
Bram Moolenaar9d488952013-07-21 17:53:58 +02005916 win_width = width + (GetSystemMetrics(SM_CXFRAME) +
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +02005917 GetSystemMetrics(SM_CXPADDEDBORDER)) * 2;
Bram Moolenaar9d488952013-07-21 17:53:58 +02005918 win_height = height + (GetSystemMetrics(SM_CYFRAME) +
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +02005919 GetSystemMetrics(SM_CXPADDEDBORDER)) * 2
Bram Moolenaar071d4272004-06-13 20:20:40 +00005920 + GetSystemMetrics(SM_CYCAPTION)
5921#ifdef FEAT_MENU
5922 + gui_mswin_get_menu_height(FALSE)
5923#endif
5924 ;
5925
Bram Moolenaar6ef47c22012-01-04 20:29:22 +01005926 /* The following should take care of keeping Vim on the same monitor, no
5927 * matter if the secondary monitor is left or right of the primary
5928 * monitor. */
5929 wndpl.rcNormalPosition.right = wndpl.rcNormalPosition.left + win_width;
5930 wndpl.rcNormalPosition.bottom = wndpl.rcNormalPosition.top + win_height;
Bram Moolenaar56a907a2006-05-06 21:44:30 +00005931
Bram Moolenaar6ef47c22012-01-04 20:29:22 +01005932 /* If the window is going off the screen, move it on to the screen. */
Bram Moolenaar910f66f2006-04-05 20:41:53 +00005933 if ((direction & RESIZE_HOR)
Bram Moolenaar6ef47c22012-01-04 20:29:22 +01005934 && wndpl.rcNormalPosition.right > workarea_rect.right)
5935 OffsetRect(&wndpl.rcNormalPosition,
5936 workarea_rect.right - wndpl.rcNormalPosition.right, 0);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005937
Bram Moolenaar6ef47c22012-01-04 20:29:22 +01005938 if ((direction & RESIZE_HOR)
5939 && wndpl.rcNormalPosition.left < workarea_rect.left)
5940 OffsetRect(&wndpl.rcNormalPosition,
5941 workarea_rect.left - wndpl.rcNormalPosition.left, 0);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005942
Bram Moolenaarafa24992006-03-27 20:58:26 +00005943 if ((direction & RESIZE_VERT)
Bram Moolenaar6ef47c22012-01-04 20:29:22 +01005944 && wndpl.rcNormalPosition.bottom > workarea_rect.bottom)
5945 OffsetRect(&wndpl.rcNormalPosition,
5946 0, workarea_rect.bottom - wndpl.rcNormalPosition.bottom);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005947
Bram Moolenaar6ef47c22012-01-04 20:29:22 +01005948 if ((direction & RESIZE_VERT)
5949 && wndpl.rcNormalPosition.top < workarea_rect.top)
5950 OffsetRect(&wndpl.rcNormalPosition,
5951 0, workarea_rect.top - wndpl.rcNormalPosition.top);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005952
5953 /* set window position - we should use SetWindowPlacement rather than
5954 * SetWindowPos as the MSDN docs say the coord systems returned by
5955 * these two are not compatible. */
5956 SetWindowPlacement(s_hwnd, &wndpl);
5957
5958 SetActiveWindow(s_hwnd);
5959 SetFocus(s_hwnd);
5960
5961#ifdef FEAT_MENU
5962 /* Menu may wrap differently now */
5963 gui_mswin_get_menu_height(!gui.starting);
5964#endif
5965}
5966
5967
5968 void
5969gui_mch_set_scrollbar_thumb(
5970 scrollbar_T *sb,
5971 long val,
5972 long size,
5973 long max)
5974{
5975 SCROLLINFO info;
5976
5977 sb->scroll_shift = 0;
5978 while (max > 32767)
5979 {
5980 max = (max + 1) >> 1;
5981 val >>= 1;
5982 size >>= 1;
5983 ++sb->scroll_shift;
5984 }
5985
5986 if (sb->scroll_shift > 0)
5987 ++size;
5988
5989 info.cbSize = sizeof(info);
5990 info.fMask = SIF_POS | SIF_RANGE | SIF_PAGE;
5991 info.nPos = val;
5992 info.nMin = 0;
5993 info.nMax = max;
5994 info.nPage = size;
5995 SetScrollInfo(sb->id, SB_CTL, &info, TRUE);
5996}
5997
5998
5999/*
6000 * Set the current text font.
6001 */
6002 void
6003gui_mch_set_font(GuiFont font)
6004{
6005 gui.currFont = font;
6006}
6007
6008
6009/*
6010 * Set the current text foreground color.
6011 */
6012 void
6013gui_mch_set_fg_color(guicolor_T color)
6014{
6015 gui.currFgColor = color;
6016}
6017
6018/*
6019 * Set the current text background color.
6020 */
6021 void
6022gui_mch_set_bg_color(guicolor_T color)
6023{
6024 gui.currBgColor = color;
6025}
6026
Bram Moolenaare2cc9702005-03-15 22:43:58 +00006027/*
6028 * Set the current text special color.
6029 */
6030 void
6031gui_mch_set_sp_color(guicolor_T color)
6032{
6033 gui.currSpColor = color;
6034}
6035
Bram Moolenaar071d4272004-06-13 20:20:40 +00006036#if defined(FEAT_MBYTE) && defined(FEAT_MBYTE_IME)
6037/*
6038 * Multi-byte handling, originally by Sung-Hoon Baek.
6039 * First static functions (no prototypes generated).
6040 */
6041#ifdef _MSC_VER
6042# include <ime.h> /* Apparently not needed for Cygwin, MingW or Borland. */
6043#endif
6044#include <imm.h>
6045
6046/*
Bram Moolenaar071d4272004-06-13 20:20:40 +00006047 * handle WM_IME_NOTIFY message
6048 */
Bram Moolenaard857f0e2005-06-21 22:37:39 +00006049/*ARGSUSED*/
Bram Moolenaar071d4272004-06-13 20:20:40 +00006050 static LRESULT
6051_OnImeNotify(HWND hWnd, DWORD dwCommand, DWORD dwData)
6052{
6053 LRESULT lResult = 0;
6054 HIMC hImc;
6055
6056 if (!pImmGetContext || (hImc = pImmGetContext(hWnd)) == (HIMC)0)
6057 return lResult;
6058 switch (dwCommand)
6059 {
6060 case IMN_SETOPENSTATUS:
6061 if (pImmGetOpenStatus(hImc))
6062 {
6063 pImmSetCompositionFont(hImc, &norm_logfont);
6064 im_set_position(gui.row, gui.col);
6065
6066 /* Disable langmap */
6067 State &= ~LANGMAP;
6068 if (State & INSERT)
6069 {
6070#if defined(FEAT_WINDOWS) && defined(FEAT_KEYMAP)
6071 /* Unshown 'keymap' in status lines */
6072 if (curbuf->b_p_iminsert == B_IMODE_LMAP)
6073 {
6074 /* Save cursor position */
6075 int old_row = gui.row;
6076 int old_col = gui.col;
6077
6078 // This must be called here before
6079 // status_redraw_curbuf(), otherwise the mode
6080 // message may appear in the wrong position.
6081 showmode();
6082 status_redraw_curbuf();
6083 update_screen(0);
6084 /* Restore cursor position */
6085 gui.row = old_row;
6086 gui.col = old_col;
6087 }
6088#endif
6089 }
6090 }
6091 gui_update_cursor(TRUE, FALSE);
6092 lResult = 0;
6093 break;
6094 }
6095 pImmReleaseContext(hWnd, hImc);
6096 return lResult;
6097}
6098
Bram Moolenaard857f0e2005-06-21 22:37:39 +00006099/*ARGSUSED*/
Bram Moolenaar071d4272004-06-13 20:20:40 +00006100 static LRESULT
6101_OnImeComposition(HWND hwnd, WPARAM dbcs, LPARAM param)
6102{
6103 char_u *ret;
6104 int len;
6105
6106 if ((param & GCS_RESULTSTR) == 0) /* Composition unfinished. */
6107 return 0;
6108
6109 ret = GetResultStr(hwnd, GCS_RESULTSTR, &len);
6110 if (ret != NULL)
6111 {
6112 add_to_input_buf_csi(ret, len);
6113 vim_free(ret);
6114 return 1;
6115 }
6116 return 0;
6117}
6118
6119/*
6120 * get the current composition string, in UCS-2; *lenp is the number of
6121 * *lenp is the number of Unicode characters.
6122 */
6123 static short_u *
6124GetCompositionString_inUCS2(HIMC hIMC, DWORD GCS, int *lenp)
6125{
6126 LONG ret;
6127 LPWSTR wbuf = NULL;
6128 char_u *buf;
6129
6130 if (!pImmGetContext)
6131 return NULL; /* no imm32.dll */
6132
6133 /* Try Unicode; this'll always work on NT regardless of codepage. */
6134 ret = pImmGetCompositionStringW(hIMC, GCS, NULL, 0);
6135 if (ret == 0)
6136 return NULL; /* empty */
6137
6138 if (ret > 0)
6139 {
6140 /* Allocate the requested buffer plus space for the NUL character. */
6141 wbuf = (LPWSTR)alloc(ret + sizeof(WCHAR));
6142 if (wbuf != NULL)
6143 {
6144 pImmGetCompositionStringW(hIMC, GCS, wbuf, ret);
6145 *lenp = ret / sizeof(WCHAR);
6146 }
6147 return (short_u *)wbuf;
6148 }
6149
6150 /* ret < 0; we got an error, so try the ANSI version. This'll work
6151 * on 9x/ME, but only if the codepage happens to be set to whatever
6152 * we're inputting. */
6153 ret = pImmGetCompositionStringA(hIMC, GCS, NULL, 0);
6154 if (ret <= 0)
6155 return NULL; /* empty or error */
6156
6157 buf = alloc(ret);
6158 if (buf == NULL)
6159 return NULL;
6160 pImmGetCompositionStringA(hIMC, GCS, buf, ret);
6161
6162 /* convert from codepage to UCS-2 */
Bram Moolenaar418f81b2016-02-16 20:12:02 +01006163 MultiByteToWideChar_alloc(GetACP(), 0, (LPCSTR)buf, ret, &wbuf, lenp);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006164 vim_free(buf);
6165
6166 return (short_u *)wbuf;
6167}
6168
6169/*
6170 * void GetResultStr()
6171 *
6172 * This handles WM_IME_COMPOSITION with GCS_RESULTSTR flag on.
6173 * get complete composition string
6174 */
6175 static char_u *
6176GetResultStr(HWND hwnd, int GCS, int *lenp)
6177{
6178 HIMC hIMC; /* Input context handle. */
6179 short_u *buf = NULL;
6180 char_u *convbuf = NULL;
6181
6182 if (!pImmGetContext || (hIMC = pImmGetContext(hwnd)) == (HIMC)0)
6183 return NULL;
6184
6185 /* Reads in the composition string. */
6186 buf = GetCompositionString_inUCS2(hIMC, GCS, lenp);
6187 if (buf == NULL)
6188 return NULL;
6189
Bram Moolenaar36f692d2008-11-20 16:10:17 +00006190 convbuf = utf16_to_enc(buf, lenp);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006191 pImmReleaseContext(hwnd, hIMC);
6192 vim_free(buf);
6193 return convbuf;
6194}
6195#endif
6196
6197/* For global functions we need prototypes. */
6198#if (defined(FEAT_MBYTE) && defined(FEAT_MBYTE_IME)) || defined(PROTO)
6199
6200/*
6201 * set font to IM.
6202 */
6203 void
6204im_set_font(LOGFONT *lf)
6205{
6206 HIMC hImc;
6207
6208 if (pImmGetContext && (hImc = pImmGetContext(s_hwnd)) != (HIMC)0)
6209 {
6210 pImmSetCompositionFont(hImc, lf);
6211 pImmReleaseContext(s_hwnd, hImc);
6212 }
6213}
6214
6215/*
6216 * Notify cursor position to IM.
6217 */
6218 void
6219im_set_position(int row, int col)
6220{
6221 HIMC hImc;
6222
6223 if (pImmGetContext && (hImc = pImmGetContext(s_hwnd)) != (HIMC)0)
6224 {
6225 COMPOSITIONFORM cfs;
6226
6227 cfs.dwStyle = CFS_POINT;
6228 cfs.ptCurrentPos.x = FILL_X(col);
6229 cfs.ptCurrentPos.y = FILL_Y(row);
6230 MapWindowPoints(s_textArea, s_hwnd, &cfs.ptCurrentPos, 1);
6231 pImmSetCompositionWindow(hImc, &cfs);
6232
6233 pImmReleaseContext(s_hwnd, hImc);
6234 }
6235}
6236
6237/*
6238 * Set IM status on ("active" is TRUE) or off ("active" is FALSE).
6239 */
6240 void
6241im_set_active(int active)
6242{
6243 HIMC hImc;
6244 static HIMC hImcOld = (HIMC)0;
6245
6246 if (pImmGetContext) /* if NULL imm32.dll wasn't loaded (yet) */
6247 {
6248 if (p_imdisable)
6249 {
6250 if (hImcOld == (HIMC)0)
6251 {
6252 hImcOld = pImmGetContext(s_hwnd);
6253 if (hImcOld)
6254 pImmAssociateContext(s_hwnd, (HIMC)0);
6255 }
6256 active = FALSE;
6257 }
6258 else if (hImcOld != (HIMC)0)
6259 {
6260 pImmAssociateContext(s_hwnd, hImcOld);
6261 hImcOld = (HIMC)0;
6262 }
6263
6264 hImc = pImmGetContext(s_hwnd);
6265 if (hImc)
6266 {
Bram Moolenaarca003e12006-03-17 23:19:38 +00006267 /*
6268 * for Korean ime
6269 */
6270 HKL hKL = GetKeyboardLayout(0);
6271
6272 if (LOWORD(hKL) == MAKELANGID(LANG_KOREAN, SUBLANG_KOREAN))
6273 {
6274 static DWORD dwConversionSaved = 0, dwSentenceSaved = 0;
6275 static BOOL bSaved = FALSE;
6276
6277 if (active)
6278 {
6279 /* if we have a saved conversion status, restore it */
6280 if (bSaved)
6281 pImmSetConversionStatus(hImc, dwConversionSaved,
6282 dwSentenceSaved);
6283 bSaved = FALSE;
6284 }
6285 else
6286 {
6287 /* save conversion status and disable korean */
6288 if (pImmGetConversionStatus(hImc, &dwConversionSaved,
6289 &dwSentenceSaved))
6290 {
6291 bSaved = TRUE;
6292 pImmSetConversionStatus(hImc,
6293 dwConversionSaved & ~(IME_CMODE_NATIVE
6294 | IME_CMODE_FULLSHAPE),
6295 dwSentenceSaved);
6296 }
6297 }
6298 }
6299
Bram Moolenaar071d4272004-06-13 20:20:40 +00006300 pImmSetOpenStatus(hImc, active);
6301 pImmReleaseContext(s_hwnd, hImc);
6302 }
6303 }
6304}
6305
6306/*
6307 * Get IM status. When IM is on, return not 0. Else return 0.
6308 */
6309 int
Bram Moolenaar68c2f632016-01-30 17:24:07 +01006310im_get_status(void)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006311{
6312 int status = 0;
6313 HIMC hImc;
6314
6315 if (pImmGetContext && (hImc = pImmGetContext(s_hwnd)) != (HIMC)0)
6316 {
6317 status = pImmGetOpenStatus(hImc) ? 1 : 0;
6318 pImmReleaseContext(s_hwnd, hImc);
6319 }
6320 return status;
6321}
6322
6323#endif /* FEAT_MBYTE && FEAT_MBYTE_IME */
6324
6325#if defined(FEAT_MBYTE) && !defined(FEAT_MBYTE_IME) && defined(GLOBAL_IME)
6326/* Win32 with GLOBAL IME */
6327
6328/*
6329 * Notify cursor position to IM.
6330 */
6331 void
6332im_set_position(int row, int col)
6333{
6334 /* Win32 with GLOBAL IME */
6335 POINT p;
6336
6337 p.x = FILL_X(col);
6338 p.y = FILL_Y(row);
6339 MapWindowPoints(s_textArea, s_hwnd, &p, 1);
6340 global_ime_set_position(&p);
6341}
6342
6343/*
6344 * Set IM status on ("active" is TRUE) or off ("active" is FALSE).
6345 */
6346 void
6347im_set_active(int active)
6348{
6349 global_ime_set_status(active);
6350}
6351
6352/*
6353 * Get IM status. When IM is on, return not 0. Else return 0.
6354 */
6355 int
Bram Moolenaard14e00e2016-01-31 17:30:51 +01006356im_get_status(void)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006357{
6358 return global_ime_get_status();
6359}
6360#endif
6361
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +00006362#ifdef FEAT_MBYTE
6363/*
Bram Moolenaar39f05632006-03-19 22:15:26 +00006364 * Convert latin9 text "text[len]" to ucs-2 in "unicodebuf".
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +00006365 */
6366 static void
6367latin9_to_ucs(char_u *text, int len, WCHAR *unicodebuf)
6368{
6369 int c;
6370
Bram Moolenaarca003e12006-03-17 23:19:38 +00006371 while (--len >= 0)
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +00006372 {
6373 c = *text++;
6374 switch (c)
6375 {
6376 case 0xa4: c = 0x20ac; break; /* euro */
6377 case 0xa6: c = 0x0160; break; /* S hat */
6378 case 0xa8: c = 0x0161; break; /* S -hat */
6379 case 0xb4: c = 0x017d; break; /* Z hat */
6380 case 0xb8: c = 0x017e; break; /* Z -hat */
6381 case 0xbc: c = 0x0152; break; /* OE */
6382 case 0xbd: c = 0x0153; break; /* oe */
6383 case 0xbe: c = 0x0178; break; /* Y */
6384 }
6385 *unicodebuf++ = c;
6386 }
6387}
6388#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00006389
6390#ifdef FEAT_RIGHTLEFT
6391/*
6392 * What is this for? In the case where you are using Win98 or Win2K or later,
6393 * and you are using a Hebrew font (or Arabic!), Windows does you a favor and
6394 * reverses the string sent to the TextOut... family. This sucks, because we
6395 * go to a lot of effort to do the right thing, and there doesn't seem to be a
6396 * way to tell Windblows not to do this!
6397 *
6398 * The short of it is that this 'RevOut' only gets called if you are running
6399 * one of the new, "improved" MS OSes, and only if you are running in
6400 * 'rightleft' mode. It makes display take *slightly* longer, but not
6401 * noticeably so.
6402 */
6403 static void
6404RevOut( HDC s_hdc,
6405 int col,
6406 int row,
6407 UINT foptions,
6408 CONST RECT *pcliprect,
6409 LPCTSTR text,
6410 UINT len,
6411 CONST INT *padding)
6412{
6413 int ix;
6414 static int special = -1;
6415
6416 if (special == -1)
6417 {
6418 /* Check windows version: special treatment is needed if it is NT 5 or
6419 * Win98 or higher. */
6420 if ((os_version.dwPlatformId == VER_PLATFORM_WIN32_NT
6421 && os_version.dwMajorVersion >= 5)
6422 || (os_version.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS
6423 && (os_version.dwMajorVersion > 4
6424 || (os_version.dwMajorVersion == 4
6425 && os_version.dwMinorVersion > 0))))
6426 special = 1;
6427 else
6428 special = 0;
6429 }
6430
6431 if (special)
6432 for (ix = 0; ix < (int)len; ++ix)
6433 ExtTextOut(s_hdc, col + TEXT_X(ix), row, foptions,
6434 pcliprect, text + ix, 1, padding);
6435 else
6436 ExtTextOut(s_hdc, col, row, foptions, pcliprect, text, len, padding);
6437}
6438#endif
6439
6440 void
6441gui_mch_draw_string(
6442 int row,
6443 int col,
6444 char_u *text,
6445 int len,
6446 int flags)
6447{
6448 static int *padding = NULL;
6449 static int pad_size = 0;
6450 int i;
6451 const RECT *pcliprect = NULL;
6452 UINT foptions = 0;
6453#ifdef FEAT_MBYTE
6454 static WCHAR *unicodebuf = NULL;
6455 static int *unicodepdy = NULL;
Bram Moolenaar402d2fe2005-04-15 21:00:38 +00006456 static int unibuflen = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006457 int n = 0;
6458#endif
6459 HPEN hpen, old_pen;
6460 int y;
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +02006461#ifdef FEAT_DIRECTX
6462 int font_is_ttf_or_vector = 0;
6463#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00006464
Bram Moolenaar071d4272004-06-13 20:20:40 +00006465 /*
6466 * Italic and bold text seems to have an extra row of pixels at the bottom
6467 * (below where the bottom of the character should be). If we draw the
6468 * characters with a solid background, the top row of pixels in the
6469 * character below will be overwritten. We can fix this by filling in the
6470 * background ourselves, to the correct character proportions, and then
6471 * writing the character in transparent mode. Still have a problem when
6472 * the character is "_", which gets written on to the character below.
6473 * New fix: set gui.char_ascent to -1. This shifts all characters up one
6474 * pixel in their slots, which fixes the problem with the bottom row of
6475 * pixels. We still need this code because otherwise the top row of pixels
6476 * becomes a problem. - webb.
6477 */
6478 static HBRUSH hbr_cache[2] = {NULL, NULL};
6479 static guicolor_T brush_color[2] = {INVALCOLOR, INVALCOLOR};
6480 static int brush_lru = 0;
6481 HBRUSH hbr;
6482 RECT rc;
6483
6484 if (!(flags & DRAW_TRANSP))
6485 {
6486 /*
6487 * Clear background first.
6488 * Note: FillRect() excludes right and bottom of rectangle.
6489 */
6490 rc.left = FILL_X(col);
6491 rc.top = FILL_Y(row);
6492#ifdef FEAT_MBYTE
6493 if (has_mbyte)
6494 {
Bram Moolenaar071d4272004-06-13 20:20:40 +00006495 /* Compute the length in display cells. */
Bram Moolenaar72597a52010-07-18 15:31:08 +02006496 rc.right = FILL_X(col + mb_string2cells(text, len));
Bram Moolenaar071d4272004-06-13 20:20:40 +00006497 }
6498 else
6499#endif
6500 rc.right = FILL_X(col + len);
6501 rc.bottom = FILL_Y(row + 1);
6502
6503 /* Cache the created brush, that saves a lot of time. We need two:
6504 * one for cursor background and one for the normal background. */
6505 if (gui.currBgColor == brush_color[0])
6506 {
6507 hbr = hbr_cache[0];
6508 brush_lru = 1;
6509 }
6510 else if (gui.currBgColor == brush_color[1])
6511 {
6512 hbr = hbr_cache[1];
6513 brush_lru = 0;
6514 }
6515 else
6516 {
6517 if (hbr_cache[brush_lru] != NULL)
6518 DeleteBrush(hbr_cache[brush_lru]);
6519 hbr_cache[brush_lru] = CreateSolidBrush(gui.currBgColor);
6520 brush_color[brush_lru] = gui.currBgColor;
6521 hbr = hbr_cache[brush_lru];
6522 brush_lru = !brush_lru;
6523 }
6524 FillRect(s_hdc, &rc, hbr);
6525
6526 SetBkMode(s_hdc, TRANSPARENT);
6527
6528 /*
6529 * When drawing block cursor, prevent inverted character spilling
6530 * over character cell (can happen with bold/italic)
6531 */
6532 if (flags & DRAW_CURSOR)
6533 {
6534 pcliprect = &rc;
6535 foptions = ETO_CLIPPED;
6536 }
6537 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00006538 SetTextColor(s_hdc, gui.currFgColor);
6539 SelectFont(s_hdc, gui.currFont);
6540
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +02006541#ifdef FEAT_DIRECTX
6542 if (IS_ENABLE_DIRECTX())
6543 {
6544 TEXTMETRIC tm;
6545
6546 GetTextMetrics(s_hdc, &tm);
6547 if (tm.tmPitchAndFamily & (TMPF_TRUETYPE | TMPF_VECTOR))
6548 {
6549 font_is_ttf_or_vector = 1;
6550 DWriteContext_SetFont(s_dwc, (HFONT)gui.currFont);
6551 }
6552 }
6553#endif
6554
Bram Moolenaar071d4272004-06-13 20:20:40 +00006555 if (pad_size != Columns || padding == NULL || padding[0] != gui.char_width)
6556 {
6557 vim_free(padding);
6558 pad_size = Columns;
6559
Bram Moolenaarc54b8a72005-09-30 21:20:29 +00006560 /* Don't give an out-of-memory message here, it would call us
6561 * recursively. */
6562 padding = (int *)lalloc(pad_size * sizeof(int), FALSE);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006563 if (padding != NULL)
6564 for (i = 0; i < pad_size; i++)
6565 padding[i] = gui.char_width;
6566 }
6567
Bram Moolenaar071d4272004-06-13 20:20:40 +00006568 /*
6569 * We have to provide the padding argument because italic and bold versions
6570 * of fixed-width fonts are often one pixel or so wider than their normal
6571 * versions.
6572 * No check for DRAW_BOLD, Windows will have done it already.
6573 */
6574
6575#ifdef FEAT_MBYTE
6576 /* Check if there are any UTF-8 characters. If not, use normal text
6577 * output to speed up output. */
6578 if (enc_utf8)
6579 for (n = 0; n < len; ++n)
6580 if (text[n] >= 0x80)
6581 break;
6582
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +02006583#if defined(FEAT_DIRECTX)
6584 /* Quick hack to enable DirectWrite. To use DirectWrite (antialias), it is
6585 * required that unicode drawing routine, currently. So this forces it
6586 * enabled. */
6587 if (enc_utf8 && IS_ENABLE_DIRECTX())
6588 n = 0; /* Keep n < len, to enter block for unicode. */
6589#endif
6590
Bram Moolenaar071d4272004-06-13 20:20:40 +00006591 /* Check if the Unicode buffer exists and is big enough. Create it
Bram Moolenaar402d2fe2005-04-15 21:00:38 +00006592 * with the same length as the multi-byte string, the number of wide
Bram Moolenaar071d4272004-06-13 20:20:40 +00006593 * characters is always equal or smaller. */
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +00006594 if ((enc_utf8
6595 || (enc_codepage > 0 && (int)GetACP() != enc_codepage)
6596 || enc_latin9)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006597 && (unicodebuf == NULL || len > unibuflen))
6598 {
6599 vim_free(unicodebuf);
Bram Moolenaarc54b8a72005-09-30 21:20:29 +00006600 unicodebuf = (WCHAR *)lalloc(len * sizeof(WCHAR), FALSE);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006601
6602 vim_free(unicodepdy);
Bram Moolenaarc54b8a72005-09-30 21:20:29 +00006603 unicodepdy = (int *)lalloc(len * sizeof(int), FALSE);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006604
6605 unibuflen = len;
6606 }
6607
6608 if (enc_utf8 && n < len && unicodebuf != NULL)
6609 {
6610 /* Output UTF-8 characters. Caller has already separated
6611 * composing characters. */
Bram Moolenaarca003e12006-03-17 23:19:38 +00006612 int i;
6613 int wlen; /* string length in words */
6614 int clen; /* string length in characters */
Bram Moolenaar071d4272004-06-13 20:20:40 +00006615 int cells; /* cell width of string up to composing char */
6616 int cw; /* width of current cell */
Bram Moolenaar362e1a32006-03-06 23:29:24 +00006617 int c;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006618
Bram Moolenaar97b2ad32006-03-18 21:40:56 +00006619 wlen = 0;
Bram Moolenaarca003e12006-03-17 23:19:38 +00006620 clen = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006621 cells = 0;
Bram Moolenaarca003e12006-03-17 23:19:38 +00006622 for (i = 0; i < len; )
Bram Moolenaar071d4272004-06-13 20:20:40 +00006623 {
Bram Moolenaar362e1a32006-03-06 23:29:24 +00006624 c = utf_ptr2char(text + i);
6625 if (c >= 0x10000)
6626 {
6627 /* Turn into UTF-16 encoding. */
Bram Moolenaarca003e12006-03-17 23:19:38 +00006628 unicodebuf[wlen++] = ((c - 0x10000) >> 10) + 0xD800;
6629 unicodebuf[wlen++] = ((c - 0x10000) & 0x3ff) + 0xDC00;
Bram Moolenaar362e1a32006-03-06 23:29:24 +00006630 }
6631 else
6632 {
Bram Moolenaarca003e12006-03-17 23:19:38 +00006633 unicodebuf[wlen++] = c;
Bram Moolenaar362e1a32006-03-06 23:29:24 +00006634 }
6635 cw = utf_char2cells(c);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006636 if (cw > 2) /* don't use 4 for unprintable char */
6637 cw = 1;
6638 if (unicodepdy != NULL)
6639 {
6640 /* Use unicodepdy to make characters fit as we expect, even
6641 * when the font uses different widths (e.g., bold character
6642 * is wider). */
Bram Moolenaard804fdf2016-02-27 16:04:58 +01006643 if (c >= 0x10000)
6644 {
6645 unicodepdy[wlen - 2] = cw * gui.char_width;
6646 unicodepdy[wlen - 1] = 0;
6647 }
6648 else
6649 unicodepdy[wlen - 1] = cw * gui.char_width;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006650 }
6651 cells += cw;
Bram Moolenaar0fa313a2005-08-10 21:07:57 +00006652 i += utfc_ptr2len_len(text + i, len - i);
Bram Moolenaarca003e12006-03-17 23:19:38 +00006653 ++clen;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006654 }
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +02006655#if defined(FEAT_DIRECTX)
6656 if (IS_ENABLE_DIRECTX() && font_is_ttf_or_vector)
6657 {
Bram Moolenaar9b352c42014-08-06 16:49:55 +02006658 /* Add one to "cells" for italics. */
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +02006659 DWriteContext_DrawText(s_dwc, s_hdc, unicodebuf, wlen,
Bram Moolenaar9b352c42014-08-06 16:49:55 +02006660 TEXT_X(col), TEXT_Y(row), FILL_X(cells + 1), FILL_Y(1),
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +02006661 gui.char_width, gui.currFgColor);
6662 }
6663 else
6664#endif
6665 ExtTextOutW(s_hdc, TEXT_X(col), TEXT_Y(row),
6666 foptions, pcliprect, unicodebuf, wlen, unicodepdy);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006667 len = cells; /* used for underlining */
6668 }
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +00006669 else if ((enc_codepage > 0 && (int)GetACP() != enc_codepage) || enc_latin9)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006670 {
6671 /* If we want to display codepage data, and the current CP is not the
6672 * ANSI one, we need to go via Unicode. */
6673 if (unicodebuf != NULL)
6674 {
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +00006675 if (enc_latin9)
6676 latin9_to_ucs(text, len, unicodebuf);
6677 else
6678 len = MultiByteToWideChar(enc_codepage,
Bram Moolenaar071d4272004-06-13 20:20:40 +00006679 MB_PRECOMPOSED,
6680 (char *)text, len,
6681 (LPWSTR)unicodebuf, unibuflen);
6682 if (len != 0)
Bram Moolenaar19a09a12005-03-04 23:39:37 +00006683 {
6684 /* Use unicodepdy to make characters fit as we expect, even
6685 * when the font uses different widths (e.g., bold character
6686 * is wider). */
6687 if (unicodepdy != NULL)
6688 {
6689 int i;
6690 int cw;
6691
6692 for (i = 0; i < len; ++i)
6693 {
6694 cw = utf_char2cells(unicodebuf[i]);
6695 if (cw > 2)
6696 cw = 1;
6697 unicodepdy[i] = cw * gui.char_width;
6698 }
6699 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00006700 ExtTextOutW(s_hdc, TEXT_X(col), TEXT_Y(row),
Bram Moolenaar19a09a12005-03-04 23:39:37 +00006701 foptions, pcliprect, unicodebuf, len, unicodepdy);
6702 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00006703 }
6704 }
6705 else
6706#endif
6707 {
6708#ifdef FEAT_RIGHTLEFT
Bram Moolenaar4ee40b02014-09-19 16:13:53 +02006709 /* Windows will mess up RL text, so we have to draw it character by
6710 * character. Only do this if RL is on, since it's slow. */
6711 if (curwin->w_p_rl)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006712 RevOut(s_hdc, TEXT_X(col), TEXT_Y(row),
6713 foptions, pcliprect, (char *)text, len, padding);
6714 else
6715#endif
6716 ExtTextOut(s_hdc, TEXT_X(col), TEXT_Y(row),
6717 foptions, pcliprect, (char *)text, len, padding);
6718 }
6719
Bram Moolenaare2cc9702005-03-15 22:43:58 +00006720 /* Underline */
Bram Moolenaar071d4272004-06-13 20:20:40 +00006721 if (flags & DRAW_UNDERL)
6722 {
6723 hpen = CreatePen(PS_SOLID, 1, gui.currFgColor);
6724 old_pen = SelectObject(s_hdc, hpen);
6725 /* When p_linespace is 0, overwrite the bottom row of pixels.
6726 * Otherwise put the line just below the character. */
6727 y = FILL_Y(row + 1) - 1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006728 if (p_linespace > 1)
6729 y -= p_linespace - 1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006730 MoveToEx(s_hdc, FILL_X(col), y, NULL);
6731 /* Note: LineTo() excludes the last pixel in the line. */
6732 LineTo(s_hdc, FILL_X(col + len), y);
6733 DeleteObject(SelectObject(s_hdc, old_pen));
6734 }
Bram Moolenaare2cc9702005-03-15 22:43:58 +00006735
6736 /* Undercurl */
6737 if (flags & DRAW_UNDERC)
6738 {
6739 int x;
6740 int offset;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00006741 static const int val[8] = {1, 0, 0, 0, 1, 2, 2, 2 };
Bram Moolenaare2cc9702005-03-15 22:43:58 +00006742
6743 y = FILL_Y(row + 1) - 1;
6744 for (x = FILL_X(col); x < FILL_X(col + len); ++x)
6745 {
6746 offset = val[x % 8];
6747 SetPixel(s_hdc, x, y - offset, gui.currSpColor);
6748 }
6749 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00006750}
6751
6752
6753/*
6754 * Output routines.
6755 */
6756
6757/* Flush any output to the screen */
6758 void
6759gui_mch_flush(void)
6760{
6761# if defined(__BORLANDC__)
6762 /*
6763 * The GdiFlush declaration (in Borland C 5.01 <wingdi.h>) is not a
6764 * prototype declaration.
6765 * The compiler complains if __stdcall is not used in both declarations.
6766 */
6767 BOOL __stdcall GdiFlush(void);
6768# endif
6769
6770 GdiFlush();
6771}
6772
6773 static void
6774clear_rect(RECT *rcp)
6775{
6776 HBRUSH hbr;
6777
6778 hbr = CreateSolidBrush(gui.back_pixel);
6779 FillRect(s_hdc, rcp, hbr);
6780 DeleteBrush(hbr);
6781}
6782
6783
Bram Moolenaarc716c302006-01-21 22:12:51 +00006784 void
6785gui_mch_get_screen_dimensions(int *screen_w, int *screen_h)
6786{
6787 RECT workarea_rect;
6788
6789 get_work_area(&workarea_rect);
6790
Bram Moolenaar910f66f2006-04-05 20:41:53 +00006791 *screen_w = workarea_rect.right - workarea_rect.left
Bram Moolenaar9d488952013-07-21 17:53:58 +02006792 - (GetSystemMetrics(SM_CXFRAME) +
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +02006793 GetSystemMetrics(SM_CXPADDEDBORDER)) * 2;
Bram Moolenaarc716c302006-01-21 22:12:51 +00006794
6795 /* FIXME: dirty trick: Because the gui_get_base_height() doesn't include
6796 * the menubar for MSwin, we subtract it from the screen height, so that
6797 * the window size can be made to fit on the screen. */
Bram Moolenaar910f66f2006-04-05 20:41:53 +00006798 *screen_h = workarea_rect.bottom - workarea_rect.top
Bram Moolenaar9d488952013-07-21 17:53:58 +02006799 - (GetSystemMetrics(SM_CYFRAME) +
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +02006800 GetSystemMetrics(SM_CXPADDEDBORDER)) * 2
Bram Moolenaarc716c302006-01-21 22:12:51 +00006801 - GetSystemMetrics(SM_CYCAPTION)
6802#ifdef FEAT_MENU
Bram Moolenaarc9b4b052006-04-30 18:54:39 +00006803 - gui_mswin_get_menu_height(FALSE)
Bram Moolenaarc716c302006-01-21 22:12:51 +00006804#endif
Bram Moolenaarc9b4b052006-04-30 18:54:39 +00006805 ;
Bram Moolenaarc716c302006-01-21 22:12:51 +00006806}
6807
6808
Bram Moolenaar071d4272004-06-13 20:20:40 +00006809#if defined(FEAT_MENU) || defined(PROTO)
6810/*
6811 * Add a sub menu to the menu bar.
6812 */
6813 void
6814gui_mch_add_menu(
6815 vimmenu_T *menu,
6816 int pos)
6817{
6818 vimmenu_T *parent = menu->parent;
6819
6820 menu->submenu_id = CreatePopupMenu();
6821 menu->id = s_menu_id++;
6822
6823 if (menu_is_menubar(menu->name))
6824 {
6825 if (is_winnt_3())
6826 {
6827 InsertMenu((parent == NULL) ? s_menuBar : parent->submenu_id,
6828 (UINT)pos, MF_POPUP | MF_STRING | MF_BYPOSITION,
Bram Moolenaareb3593b2006-04-22 22:33:57 +00006829 (long_u)menu->submenu_id, (LPCTSTR) menu->name);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006830 }
6831 else
6832 {
6833#ifdef FEAT_MBYTE
6834 WCHAR *wn = NULL;
6835 int n;
6836
6837 if (enc_codepage >= 0 && (int)GetACP() != enc_codepage)
6838 {
6839 /* 'encoding' differs from active codepage: convert menu name
6840 * and use wide function */
Bram Moolenaar36f692d2008-11-20 16:10:17 +00006841 wn = enc_to_utf16(menu->name, NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006842 if (wn != NULL)
6843 {
6844 MENUITEMINFOW infow;
6845
6846 infow.cbSize = sizeof(infow);
6847 infow.fMask = MIIM_DATA | MIIM_TYPE | MIIM_ID
6848 | MIIM_SUBMENU;
Bram Moolenaareb3593b2006-04-22 22:33:57 +00006849 infow.dwItemData = (long_u)menu;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006850 infow.wID = menu->id;
6851 infow.fType = MFT_STRING;
6852 infow.dwTypeData = wn;
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00006853 infow.cch = (UINT)wcslen(wn);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006854 infow.hSubMenu = menu->submenu_id;
6855 n = InsertMenuItemW((parent == NULL)
6856 ? s_menuBar : parent->submenu_id,
6857 (UINT)pos, TRUE, &infow);
6858 vim_free(wn);
6859 if (n == 0 && GetLastError() == ERROR_CALL_NOT_IMPLEMENTED)
6860 /* Failed, try using non-wide function. */
6861 wn = NULL;
6862 }
6863 }
6864
6865 if (wn == NULL)
6866#endif
6867 {
6868 MENUITEMINFO info;
6869
6870 info.cbSize = sizeof(info);
6871 info.fMask = MIIM_DATA | MIIM_TYPE | MIIM_ID | MIIM_SUBMENU;
Bram Moolenaareb3593b2006-04-22 22:33:57 +00006872 info.dwItemData = (long_u)menu;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006873 info.wID = menu->id;
6874 info.fType = MFT_STRING;
6875 info.dwTypeData = (LPTSTR)menu->name;
6876 info.cch = (UINT)STRLEN(menu->name);
6877 info.hSubMenu = menu->submenu_id;
6878 InsertMenuItem((parent == NULL)
6879 ? s_menuBar : parent->submenu_id,
6880 (UINT)pos, TRUE, &info);
6881 }
6882 }
6883 }
6884
6885 /* Fix window size if menu may have wrapped */
6886 if (parent == NULL)
6887 gui_mswin_get_menu_height(!gui.starting);
6888#ifdef FEAT_TEAROFF
6889 else if (IsWindow(parent->tearoff_handle))
6890 rebuild_tearoff(parent);
6891#endif
6892}
6893
6894 void
6895gui_mch_show_popupmenu(vimmenu_T *menu)
6896{
6897 POINT mp;
6898
6899 (void)GetCursorPos((LPPOINT)&mp);
6900 gui_mch_show_popupmenu_at(menu, (int)mp.x, (int)mp.y);
6901}
6902
6903 void
Bram Moolenaar045e82d2005-07-08 22:25:33 +00006904gui_make_popup(char_u *path_name, int mouse_pos)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006905{
6906 vimmenu_T *menu = gui_find_menu(path_name);
6907
6908 if (menu != NULL)
6909 {
6910 POINT p;
6911
6912 /* Find the position of the current cursor */
6913 GetDCOrgEx(s_hdc, &p);
Bram Moolenaar045e82d2005-07-08 22:25:33 +00006914 if (mouse_pos)
6915 {
6916 int mx, my;
6917
6918 gui_mch_getmouse(&mx, &my);
6919 p.x += mx;
6920 p.y += my;
6921 }
6922 else if (curwin != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006923 {
6924 p.x += TEXT_X(W_WINCOL(curwin) + curwin->w_wcol + 1);
6925 p.y += TEXT_Y(W_WINROW(curwin) + curwin->w_wrow + 1);
6926 }
6927 msg_scroll = FALSE;
6928 gui_mch_show_popupmenu_at(menu, (int)p.x, (int)p.y);
6929 }
6930}
6931
6932#if defined(FEAT_TEAROFF) || defined(PROTO)
6933/*
6934 * Given a menu descriptor, e.g. "File.New", find it in the menu hierarchy and
6935 * create it as a pseudo-"tearoff menu".
6936 */
6937 void
6938gui_make_tearoff(char_u *path_name)
6939{
6940 vimmenu_T *menu = gui_find_menu(path_name);
6941
6942 /* Found the menu, so tear it off. */
6943 if (menu != NULL)
6944 gui_mch_tearoff(menu->dname, menu, 0xffffL, 0xffffL);
6945}
6946#endif
6947
6948/*
6949 * Add a menu item to a menu
6950 */
6951 void
6952gui_mch_add_menu_item(
6953 vimmenu_T *menu,
6954 int idx)
6955{
6956 vimmenu_T *parent = menu->parent;
6957
6958 menu->id = s_menu_id++;
6959 menu->submenu_id = NULL;
6960
6961#ifdef FEAT_TEAROFF
6962 if (STRNCMP(menu->name, TEAR_STRING, TEAR_LEN) == 0)
6963 {
6964 InsertMenu(parent->submenu_id, (UINT)idx, MF_BITMAP|MF_BYPOSITION,
6965 (UINT)menu->id, (LPCTSTR) s_htearbitmap);
6966 }
6967 else
6968#endif
6969#ifdef FEAT_TOOLBAR
6970 if (menu_is_toolbar(parent->name))
6971 {
6972 TBBUTTON newtb;
6973
6974 vim_memset(&newtb, 0, sizeof(newtb));
6975 if (menu_is_separator(menu->name))
6976 {
6977 newtb.iBitmap = 0;
6978 newtb.fsStyle = TBSTYLE_SEP;
6979 }
6980 else
6981 {
6982 newtb.iBitmap = get_toolbar_bitmap(menu);
6983 newtb.fsStyle = TBSTYLE_BUTTON;
6984 }
6985 newtb.idCommand = menu->id;
6986 newtb.fsState = TBSTATE_ENABLED;
6987 newtb.iString = 0;
6988 SendMessage(s_toolbarhwnd, TB_INSERTBUTTON, (WPARAM)idx,
6989 (LPARAM)&newtb);
6990 menu->submenu_id = (HMENU)-1;
6991 }
6992 else
6993#endif
6994 {
6995#ifdef FEAT_MBYTE
6996 WCHAR *wn = NULL;
6997 int n;
6998
6999 if (enc_codepage >= 0 && (int)GetACP() != enc_codepage)
7000 {
7001 /* 'encoding' differs from active codepage: convert menu item name
7002 * and use wide function */
Bram Moolenaar36f692d2008-11-20 16:10:17 +00007003 wn = enc_to_utf16(menu->name, NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007004 if (wn != NULL)
7005 {
7006 n = InsertMenuW(parent->submenu_id, (UINT)idx,
7007 (menu_is_separator(menu->name)
7008 ? MF_SEPARATOR : MF_STRING) | MF_BYPOSITION,
7009 (UINT)menu->id, wn);
7010 vim_free(wn);
7011 if (n == 0 && GetLastError() == ERROR_CALL_NOT_IMPLEMENTED)
7012 /* Failed, try using non-wide function. */
7013 wn = NULL;
7014 }
7015 }
7016 if (wn == NULL)
7017#endif
7018 InsertMenu(parent->submenu_id, (UINT)idx,
7019 (menu_is_separator(menu->name) ? MF_SEPARATOR : MF_STRING)
7020 | MF_BYPOSITION,
7021 (UINT)menu->id, (LPCTSTR)menu->name);
7022#ifdef FEAT_TEAROFF
7023 if (IsWindow(parent->tearoff_handle))
7024 rebuild_tearoff(parent);
7025#endif
7026 }
7027}
7028
7029/*
7030 * Destroy the machine specific menu widget.
7031 */
7032 void
7033gui_mch_destroy_menu(vimmenu_T *menu)
7034{
7035#ifdef FEAT_TOOLBAR
7036 /*
7037 * is this a toolbar button?
7038 */
7039 if (menu->submenu_id == (HMENU)-1)
7040 {
7041 int iButton;
7042
7043 iButton = (int)SendMessage(s_toolbarhwnd, TB_COMMANDTOINDEX,
7044 (WPARAM)menu->id, 0);
7045 SendMessage(s_toolbarhwnd, TB_DELETEBUTTON, (WPARAM)iButton, 0);
7046 }
7047 else
7048#endif
7049 {
7050 if (menu->parent != NULL
7051 && menu_is_popup(menu->parent->dname)
7052 && menu->parent->submenu_id != NULL)
7053 RemoveMenu(menu->parent->submenu_id, menu->id, MF_BYCOMMAND);
7054 else
7055 RemoveMenu(s_menuBar, menu->id, MF_BYCOMMAND);
7056 if (menu->submenu_id != NULL)
7057 DestroyMenu(menu->submenu_id);
7058#ifdef FEAT_TEAROFF
7059 if (IsWindow(menu->tearoff_handle))
7060 DestroyWindow(menu->tearoff_handle);
7061 if (menu->parent != NULL
7062 && menu->parent->children != NULL
7063 && IsWindow(menu->parent->tearoff_handle))
7064 {
7065 /* This menu must not show up when rebuilding the tearoff window. */
7066 menu->modes = 0;
7067 rebuild_tearoff(menu->parent);
7068 }
7069#endif
7070 }
7071}
7072
7073#ifdef FEAT_TEAROFF
7074 static void
7075rebuild_tearoff(vimmenu_T *menu)
7076{
7077 /*hackish*/
7078 char_u tbuf[128];
7079 RECT trect;
7080 RECT rct;
7081 RECT roct;
7082 int x, y;
7083
7084 HWND thwnd = menu->tearoff_handle;
7085
Bram Moolenaar418f81b2016-02-16 20:12:02 +01007086 GetWindowText(thwnd, (LPSTR)tbuf, 127);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007087 if (GetWindowRect(thwnd, &trect)
7088 && GetWindowRect(s_hwnd, &rct)
7089 && GetClientRect(s_hwnd, &roct))
7090 {
7091 x = trect.left - rct.left;
7092 y = (trect.top - rct.bottom + roct.bottom);
7093 }
7094 else
7095 {
7096 x = y = 0xffffL;
7097 }
7098 DestroyWindow(thwnd);
7099 if (menu->children != NULL)
7100 {
7101 gui_mch_tearoff(tbuf, menu, x, y);
7102 if (IsWindow(menu->tearoff_handle))
7103 (void) SetWindowPos(menu->tearoff_handle,
7104 NULL,
7105 (int)trect.left,
7106 (int)trect.top,
7107 0, 0,
7108 SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE);
7109 }
7110}
7111#endif /* FEAT_TEAROFF */
7112
7113/*
7114 * Make a menu either grey or not grey.
7115 */
7116 void
7117gui_mch_menu_grey(
7118 vimmenu_T *menu,
7119 int grey)
7120{
7121#ifdef FEAT_TOOLBAR
7122 /*
7123 * is this a toolbar button?
7124 */
7125 if (menu->submenu_id == (HMENU)-1)
7126 {
7127 SendMessage(s_toolbarhwnd, TB_ENABLEBUTTON,
7128 (WPARAM)menu->id, (LPARAM) MAKELONG((grey ? FALSE : TRUE), 0) );
7129 }
7130 else
7131#endif
7132 if (grey)
7133 EnableMenuItem(s_menuBar, menu->id, MF_BYCOMMAND | MF_GRAYED);
7134 else
7135 EnableMenuItem(s_menuBar, menu->id, MF_BYCOMMAND | MF_ENABLED);
7136
7137#ifdef FEAT_TEAROFF
7138 if ((menu->parent != NULL) && (IsWindow(menu->parent->tearoff_handle)))
7139 {
7140 WORD menuID;
7141 HWND menuHandle;
7142
7143 /*
7144 * A tearoff button has changed state.
7145 */
7146 if (menu->children == NULL)
7147 menuID = (WORD)(menu->id);
7148 else
Bram Moolenaareb3593b2006-04-22 22:33:57 +00007149 menuID = (WORD)((long_u)(menu->submenu_id) | (DWORD)0x8000);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007150 menuHandle = GetDlgItem(menu->parent->tearoff_handle, menuID);
7151 if (menuHandle)
7152 EnableWindow(menuHandle, !grey);
7153
7154 }
7155#endif
7156}
7157
7158#endif /* FEAT_MENU */
7159
7160
7161/* define some macros used to make the dialogue creation more readable */
7162
7163#define add_string(s) strcpy((LPSTR)p, s); (LPSTR)p += (strlen((LPSTR)p) + 1)
7164#define add_word(x) *p++ = (x)
Bram Moolenaarf4cd3e82005-12-22 22:47:02 +00007165#define add_long(x) dwp = (DWORD *)p; *dwp++ = (x); p = (WORD *)dwp
Bram Moolenaar071d4272004-06-13 20:20:40 +00007166
7167#if defined(FEAT_GUI_DIALOG) || defined(PROTO)
7168/*
7169 * stuff for dialogs
7170 */
7171
7172/*
7173 * The callback routine used by all the dialogs. Very simple. First,
7174 * acknowledges the INITDIALOG message so that Windows knows to do standard
7175 * dialog stuff (Return = default, Esc = cancel....) Second, if a button is
7176 * pressed, return that button's ID - IDCANCEL (2), which is the button's
7177 * number.
7178 */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00007179/*ARGSUSED*/
Bram Moolenaar071d4272004-06-13 20:20:40 +00007180 static LRESULT CALLBACK
7181dialog_callback(
7182 HWND hwnd,
7183 UINT message,
7184 WPARAM wParam,
7185 LPARAM lParam)
7186{
7187 if (message == WM_INITDIALOG)
7188 {
7189 CenterWindow(hwnd, GetWindow(hwnd, GW_OWNER));
7190 /* Set focus to the dialog. Set the default button, if specified. */
7191 (void)SetFocus(hwnd);
7192 if (dialog_default_button > IDCANCEL)
7193 (void)SetFocus(GetDlgItem(hwnd, dialog_default_button));
Bram Moolenaar2b80e652007-08-14 14:57:55 +00007194 else
7195 /* We don't have a default, set focus on another element of the
7196 * dialog window, probably the icon */
7197 (void)SetFocus(GetDlgItem(hwnd, DLG_NONBUTTON_CONTROL));
Bram Moolenaar071d4272004-06-13 20:20:40 +00007198 return FALSE;
7199 }
7200
7201 if (message == WM_COMMAND)
7202 {
7203 int button = LOWORD(wParam);
7204
7205 /* Don't end the dialog if something was selected that was
7206 * not a button.
7207 */
7208 if (button >= DLG_NONBUTTON_CONTROL)
7209 return TRUE;
7210
7211 /* If the edit box exists, copy the string. */
7212 if (s_textfield != NULL)
Bram Moolenaar3ca9a8a2009-01-28 20:23:17 +00007213 {
7214# if defined(FEAT_MBYTE) && defined(WIN3264)
7215 /* If the OS is Windows NT, and 'encoding' differs from active
7216 * codepage: use wide function and convert text. */
7217 if (os_version.dwPlatformId == VER_PLATFORM_WIN32_NT
7218 && enc_codepage >= 0 && (int)GetACP() != enc_codepage)
Bram Moolenaarcc448b32010-07-14 16:52:17 +02007219 {
Bram Moolenaar3ca9a8a2009-01-28 20:23:17 +00007220 WCHAR *wp = (WCHAR *)alloc(IOSIZE * sizeof(WCHAR));
7221 char_u *p;
7222
7223 GetDlgItemTextW(hwnd, DLG_NONBUTTON_CONTROL + 2, wp, IOSIZE);
7224 p = utf16_to_enc(wp, NULL);
7225 vim_strncpy(s_textfield, p, IOSIZE);
7226 vim_free(p);
7227 vim_free(wp);
7228 }
7229 else
7230# endif
7231 GetDlgItemText(hwnd, DLG_NONBUTTON_CONTROL + 2,
Bram Moolenaar418f81b2016-02-16 20:12:02 +01007232 (LPSTR)s_textfield, IOSIZE);
Bram Moolenaar3ca9a8a2009-01-28 20:23:17 +00007233 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00007234
7235 /*
7236 * Need to check for IDOK because if the user just hits Return to
7237 * accept the default value, some reason this is what we get.
7238 */
7239 if (button == IDOK)
7240 {
7241 if (dialog_default_button > IDCANCEL)
7242 EndDialog(hwnd, dialog_default_button);
7243 }
7244 else
7245 EndDialog(hwnd, button - IDCANCEL);
7246 return TRUE;
7247 }
7248
7249 if ((message == WM_SYSCOMMAND) && (wParam == SC_CLOSE))
7250 {
7251 EndDialog(hwnd, 0);
7252 return TRUE;
7253 }
7254 return FALSE;
7255}
7256
7257/*
7258 * Create a dialog dynamically from the parameter strings.
7259 * type = type of dialog (question, alert, etc.)
7260 * title = dialog title. may be NULL for default title.
7261 * message = text to display. Dialog sizes to accommodate it.
7262 * buttons = '\n' separated list of button captions, default first.
7263 * dfltbutton = number of default button.
7264 *
7265 * This routine returns 1 if the first button is pressed,
7266 * 2 for the second, etc.
7267 *
7268 * 0 indicates Esc was pressed.
7269 * -1 for unexpected error
7270 *
7271 * If stubbing out this fn, return 1.
7272 */
7273
Bram Moolenaar418f81b2016-02-16 20:12:02 +01007274static const char *dlg_icons[] = /* must match names in resource file */
Bram Moolenaar071d4272004-06-13 20:20:40 +00007275{
7276 "IDR_VIM",
7277 "IDR_VIM_ERROR",
7278 "IDR_VIM_ALERT",
7279 "IDR_VIM_INFO",
7280 "IDR_VIM_QUESTION"
7281};
7282
Bram Moolenaar071d4272004-06-13 20:20:40 +00007283 int
7284gui_mch_dialog(
7285 int type,
7286 char_u *title,
7287 char_u *message,
7288 char_u *buttons,
7289 int dfltbutton,
Bram Moolenaard2c340a2011-01-17 20:08:11 +01007290 char_u *textfield,
7291 int ex_cmd)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007292{
7293 WORD *p, *pdlgtemplate, *pnumitems;
Bram Moolenaarf4cd3e82005-12-22 22:47:02 +00007294 DWORD *dwp;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007295 int numButtons;
7296 int *buttonWidths, *buttonPositions;
7297 int buttonYpos;
7298 int nchar, i;
7299 DWORD lStyle;
7300 int dlgwidth = 0;
7301 int dlgheight;
7302 int editboxheight;
7303 int horizWidth = 0;
7304 int msgheight;
7305 char_u *pstart;
7306 char_u *pend;
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007307 char_u *last_white;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007308 char_u *tbuffer;
7309 RECT rect;
7310 HWND hwnd;
7311 HDC hdc;
7312 HFONT font, oldFont;
7313 TEXTMETRIC fontInfo;
7314 int fontHeight;
7315 int textWidth, minButtonWidth, messageWidth;
7316 int maxDialogWidth;
Bram Moolenaar748bf032005-02-02 23:04:36 +00007317 int maxDialogHeight;
7318 int scroll_flag = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007319 int vertical;
7320 int dlgPaddingX;
7321 int dlgPaddingY;
7322#ifdef USE_SYSMENU_FONT
7323 LOGFONT lfSysmenu;
7324 int use_lfSysmenu = FALSE;
7325#endif
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007326 garray_T ga;
7327 int l;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007328
7329#ifndef NO_CONSOLE
7330 /* Don't output anything in silent mode ("ex -s") */
7331 if (silent_mode)
7332 return dfltbutton; /* return default option */
7333#endif
7334
Bram Moolenaar748bf032005-02-02 23:04:36 +00007335 if (s_hwnd == NULL)
7336 get_dialog_font_metrics();
Bram Moolenaar071d4272004-06-13 20:20:40 +00007337
7338 if ((type < 0) || (type > VIM_LAST_TYPE))
7339 type = 0;
7340
7341 /* allocate some memory for dialog template */
Bram Moolenaar1cd871b2004-12-19 22:46:22 +00007342 /* TODO should compute this really */
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007343 pdlgtemplate = p = (PWORD)LocalAlloc(LPTR,
Bram Moolenaareb3593b2006-04-22 22:33:57 +00007344 DLG_ALLOC_SIZE + STRLEN(message) * 2);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007345
7346 if (p == NULL)
7347 return -1;
7348
7349 /*
Bram Moolenaar84a05ac2013-05-06 04:24:17 +02007350 * make a copy of 'buttons' to fiddle with it. compiler grizzles because
Bram Moolenaar071d4272004-06-13 20:20:40 +00007351 * vim_strsave() doesn't take a const arg (why not?), so cast away the
7352 * const.
7353 */
7354 tbuffer = vim_strsave(buttons);
7355 if (tbuffer == NULL)
7356 return -1;
7357
7358 --dfltbutton; /* Change from one-based to zero-based */
7359
7360 /* Count buttons */
7361 numButtons = 1;
7362 for (i = 0; tbuffer[i] != '\0'; i++)
7363 {
7364 if (tbuffer[i] == DLG_BUTTON_SEP)
7365 numButtons++;
7366 }
7367 if (dfltbutton >= numButtons)
7368 dfltbutton = -1;
7369
7370 /* Allocate array to hold the width of each button */
Bram Moolenaarc54b8a72005-09-30 21:20:29 +00007371 buttonWidths = (int *)lalloc(numButtons * sizeof(int), TRUE);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007372 if (buttonWidths == NULL)
7373 return -1;
7374
7375 /* Allocate array to hold the X position of each button */
Bram Moolenaarc54b8a72005-09-30 21:20:29 +00007376 buttonPositions = (int *)lalloc(numButtons * sizeof(int), TRUE);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007377 if (buttonPositions == NULL)
7378 return -1;
7379
7380 /*
7381 * Calculate how big the dialog must be.
7382 */
7383 hwnd = GetDesktopWindow();
7384 hdc = GetWindowDC(hwnd);
7385#ifdef USE_SYSMENU_FONT
7386 if (gui_w32_get_menu_font(&lfSysmenu) == OK)
7387 {
7388 font = CreateFontIndirect(&lfSysmenu);
7389 use_lfSysmenu = TRUE;
7390 }
7391 else
7392#endif
7393 font = CreateFont(-DLG_FONT_POINT_SIZE, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
7394 VARIABLE_PITCH , DLG_FONT_NAME);
7395 if (s_usenewlook)
7396 {
7397 oldFont = SelectFont(hdc, font);
7398 dlgPaddingX = DLG_PADDING_X;
7399 dlgPaddingY = DLG_PADDING_Y;
7400 }
7401 else
7402 {
7403 oldFont = SelectFont(hdc, GetStockObject(SYSTEM_FONT));
7404 dlgPaddingX = DLG_OLD_STYLE_PADDING_X;
7405 dlgPaddingY = DLG_OLD_STYLE_PADDING_Y;
7406 }
7407 GetTextMetrics(hdc, &fontInfo);
7408 fontHeight = fontInfo.tmHeight;
7409
7410 /* Minimum width for horizontal button */
Bram Moolenaar418f81b2016-02-16 20:12:02 +01007411 minButtonWidth = GetTextWidth(hdc, (char_u *)"Cancel", 6);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007412
7413 /* Maximum width of a dialog, if possible */
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007414 if (s_hwnd == NULL)
7415 {
7416 RECT workarea_rect;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007417
Bram Moolenaarc716c302006-01-21 22:12:51 +00007418 /* We don't have a window, use the desktop area. */
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007419 get_work_area(&workarea_rect);
7420 maxDialogWidth = workarea_rect.right - workarea_rect.left - 100;
7421 if (maxDialogWidth > 600)
7422 maxDialogWidth = 600;
Bram Moolenaar1b1b0942013-08-01 13:20:42 +02007423 /* Leave some room for the taskbar. */
7424 maxDialogHeight = workarea_rect.bottom - workarea_rect.top - 150;
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007425 }
7426 else
7427 {
Bram Moolenaara95d8232013-08-07 15:27:11 +02007428 /* Use our own window for the size, unless it's very small. */
7429 GetWindowRect(s_hwnd, &rect);
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007430 maxDialogWidth = rect.right - rect.left
Bram Moolenaar9d488952013-07-21 17:53:58 +02007431 - (GetSystemMetrics(SM_CXFRAME) +
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +02007432 GetSystemMetrics(SM_CXPADDEDBORDER)) * 2;
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007433 if (maxDialogWidth < DLG_MIN_MAX_WIDTH)
7434 maxDialogWidth = DLG_MIN_MAX_WIDTH;
Bram Moolenaar748bf032005-02-02 23:04:36 +00007435
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007436 maxDialogHeight = rect.bottom - rect.top
Bram Moolenaar1b1b0942013-08-01 13:20:42 +02007437 - (GetSystemMetrics(SM_CYFRAME) +
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +02007438 GetSystemMetrics(SM_CXPADDEDBORDER)) * 4
Bram Moolenaara95d8232013-08-07 15:27:11 +02007439 - GetSystemMetrics(SM_CYCAPTION);
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007440 if (maxDialogHeight < DLG_MIN_MAX_HEIGHT)
7441 maxDialogHeight = DLG_MIN_MAX_HEIGHT;
7442 }
7443
7444 /* Set dlgwidth to width of message.
7445 * Copy the message into "ga", changing NL to CR-NL and inserting line
7446 * breaks where needed. */
Bram Moolenaar071d4272004-06-13 20:20:40 +00007447 pstart = message;
7448 messageWidth = 0;
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007449 msgheight = 0;
7450 ga_init2(&ga, sizeof(char), 500);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007451 do
7452 {
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007453 msgheight += fontHeight; /* at least one line */
7454
7455 /* Need to figure out where to break the string. The system does it
7456 * at a word boundary, which would mean we can't compute the number of
7457 * wrapped lines. */
7458 textWidth = 0;
7459 last_white = NULL;
7460 for (pend = pstart; *pend != NUL && *pend != '\n'; )
Bram Moolenaar748bf032005-02-02 23:04:36 +00007461 {
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007462#ifdef FEAT_MBYTE
Bram Moolenaar0fa313a2005-08-10 21:07:57 +00007463 l = (*mb_ptr2len)(pend);
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007464#else
7465 l = 1;
7466#endif
7467 if (l == 1 && vim_iswhite(*pend)
7468 && textWidth > maxDialogWidth * 3 / 4)
7469 last_white = pend;
Bram Moolenaarf05d8112013-06-26 12:58:32 +02007470 textWidth += GetTextWidthEnc(hdc, pend, l);
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007471 if (textWidth >= maxDialogWidth)
Bram Moolenaar748bf032005-02-02 23:04:36 +00007472 {
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007473 /* Line will wrap. */
7474 messageWidth = maxDialogWidth;
Bram Moolenaar748bf032005-02-02 23:04:36 +00007475 msgheight += fontHeight;
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007476 textWidth = 0;
7477
7478 if (last_white != NULL)
7479 {
7480 /* break the line just after a space */
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00007481 ga.ga_len -= (int)(pend - (last_white + 1));
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007482 pend = last_white + 1;
7483 last_white = NULL;
7484 }
7485 ga_append(&ga, '\r');
7486 ga_append(&ga, '\n');
7487 continue;
Bram Moolenaar748bf032005-02-02 23:04:36 +00007488 }
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007489
7490 while (--l >= 0)
7491 ga_append(&ga, *pend++);
Bram Moolenaar748bf032005-02-02 23:04:36 +00007492 }
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007493 if (textWidth > messageWidth)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007494 messageWidth = textWidth;
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007495
7496 ga_append(&ga, '\r');
7497 ga_append(&ga, '\n');
Bram Moolenaar071d4272004-06-13 20:20:40 +00007498 pstart = pend + 1;
7499 } while (*pend != NUL);
Bram Moolenaar748bf032005-02-02 23:04:36 +00007500
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007501 if (ga.ga_data != NULL)
7502 message = ga.ga_data;
7503
Bram Moolenaar748bf032005-02-02 23:04:36 +00007504 messageWidth += 10; /* roundoff space */
7505
Bram Moolenaar071d4272004-06-13 20:20:40 +00007506 /* Add width of icon to dlgwidth, and some space */
Bram Moolenaara95d8232013-08-07 15:27:11 +02007507 dlgwidth = messageWidth + DLG_ICON_WIDTH + 3 * dlgPaddingX
7508 + GetSystemMetrics(SM_CXVSCROLL);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007509
7510 if (msgheight < DLG_ICON_HEIGHT)
7511 msgheight = DLG_ICON_HEIGHT;
7512
7513 /*
7514 * Check button names. A long one will make the dialog wider.
Bram Moolenaaraea02fa2007-05-04 20:29:09 +00007515 * When called early (-register error message) p_go isn't initialized.
Bram Moolenaar071d4272004-06-13 20:20:40 +00007516 */
Bram Moolenaaraea02fa2007-05-04 20:29:09 +00007517 vertical = (p_go != NULL && vim_strchr(p_go, GO_VERTICAL) != NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007518 if (!vertical)
7519 {
7520 // Place buttons horizontally if they fit.
7521 horizWidth = dlgPaddingX;
7522 pstart = tbuffer;
7523 i = 0;
7524 do
7525 {
7526 pend = vim_strchr(pstart, DLG_BUTTON_SEP);
7527 if (pend == NULL)
7528 pend = pstart + STRLEN(pstart); // Last button name.
Bram Moolenaarb052fe02013-06-26 13:16:20 +02007529 textWidth = GetTextWidthEnc(hdc, pstart, (int)(pend - pstart));
Bram Moolenaar071d4272004-06-13 20:20:40 +00007530 if (textWidth < minButtonWidth)
7531 textWidth = minButtonWidth;
7532 textWidth += dlgPaddingX; /* Padding within button */
7533 buttonWidths[i] = textWidth;
7534 buttonPositions[i++] = horizWidth;
7535 horizWidth += textWidth + dlgPaddingX; /* Pad between buttons */
7536 pstart = pend + 1;
7537 } while (*pend != NUL);
7538
7539 if (horizWidth > maxDialogWidth)
7540 vertical = TRUE; // Too wide to fit on the screen.
7541 else if (horizWidth > dlgwidth)
7542 dlgwidth = horizWidth;
7543 }
7544
7545 if (vertical)
7546 {
7547 // Stack buttons vertically.
7548 pstart = tbuffer;
7549 do
7550 {
7551 pend = vim_strchr(pstart, DLG_BUTTON_SEP);
7552 if (pend == NULL)
7553 pend = pstart + STRLEN(pstart); // Last button name.
Bram Moolenaarb052fe02013-06-26 13:16:20 +02007554 textWidth = GetTextWidthEnc(hdc, pstart, (int)(pend - pstart));
Bram Moolenaar071d4272004-06-13 20:20:40 +00007555 textWidth += dlgPaddingX; /* Padding within button */
7556 textWidth += DLG_VERT_PADDING_X * 2; /* Padding around button */
7557 if (textWidth > dlgwidth)
7558 dlgwidth = textWidth;
7559 pstart = pend + 1;
7560 } while (*pend != NUL);
7561 }
7562
7563 if (dlgwidth < DLG_MIN_WIDTH)
7564 dlgwidth = DLG_MIN_WIDTH; /* Don't allow a really thin dialog!*/
7565
7566 /* start to fill in the dlgtemplate information. addressing by WORDs */
7567 if (s_usenewlook)
7568 lStyle = DS_MODALFRAME | WS_CAPTION |DS_3DLOOK| WS_VISIBLE |DS_SETFONT;
7569 else
7570 lStyle = DS_MODALFRAME | WS_CAPTION |DS_3DLOOK| WS_VISIBLE;
7571
7572 add_long(lStyle);
7573 add_long(0); // (lExtendedStyle)
7574 pnumitems = p; /*save where the number of items must be stored*/
7575 add_word(0); // NumberOfItems(will change later)
7576 add_word(10); // x
7577 add_word(10); // y
7578 add_word(PixelToDialogX(dlgwidth)); // cx
7579
7580 // Dialog height.
7581 if (vertical)
Bram Moolenaara95d8232013-08-07 15:27:11 +02007582 dlgheight = msgheight + 2 * dlgPaddingY
7583 + DLG_VERT_PADDING_Y + 2 * fontHeight * numButtons;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007584 else
7585 dlgheight = msgheight + 3 * dlgPaddingY + 2 * fontHeight;
7586
7587 // Dialog needs to be taller if contains an edit box.
7588 editboxheight = fontHeight + dlgPaddingY + 4 * DLG_VERT_PADDING_Y;
7589 if (textfield != NULL)
7590 dlgheight += editboxheight;
7591
Bram Moolenaara95d8232013-08-07 15:27:11 +02007592 /* Restrict the size to a maximum. Causes a scrollbar to show up. */
7593 if (dlgheight > maxDialogHeight)
7594 {
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +02007595 msgheight = msgheight - (dlgheight - maxDialogHeight);
7596 dlgheight = maxDialogHeight;
7597 scroll_flag = WS_VSCROLL;
7598 /* Make sure scrollbar doesn't appear in the middle of the dialog */
7599 messageWidth = dlgwidth - DLG_ICON_WIDTH - 3 * dlgPaddingX;
Bram Moolenaara95d8232013-08-07 15:27:11 +02007600 }
7601
Bram Moolenaar071d4272004-06-13 20:20:40 +00007602 add_word(PixelToDialogY(dlgheight));
7603
7604 add_word(0); // Menu
7605 add_word(0); // Class
7606
7607 /* copy the title of the dialog */
7608 nchar = nCopyAnsiToWideChar(p, (title ?
7609 (LPSTR)title :
7610 (LPSTR)("Vim "VIM_VERSION_MEDIUM)));
7611 p += nchar;
7612
7613 if (s_usenewlook)
7614 {
7615 /* do the font, since DS_3DLOOK doesn't work properly */
7616#ifdef USE_SYSMENU_FONT
7617 if (use_lfSysmenu)
7618 {
7619 /* point size */
7620 *p++ = -MulDiv(lfSysmenu.lfHeight, 72,
7621 GetDeviceCaps(hdc, LOGPIXELSY));
7622 nchar = nCopyAnsiToWideChar(p, TEXT(lfSysmenu.lfFaceName));
7623 }
7624 else
7625#endif
7626 {
7627 *p++ = DLG_FONT_POINT_SIZE; // point size
7628 nchar = nCopyAnsiToWideChar(p, TEXT(DLG_FONT_NAME));
7629 }
7630 p += nchar;
7631 }
7632
7633 buttonYpos = msgheight + 2 * dlgPaddingY;
7634
7635 if (textfield != NULL)
7636 buttonYpos += editboxheight;
7637
7638 pstart = tbuffer;
7639 if (!vertical)
7640 horizWidth = (dlgwidth - horizWidth) / 2; /* Now it's X offset */
7641 for (i = 0; i < numButtons; i++)
7642 {
7643 /* get end of this button. */
7644 for ( pend = pstart;
7645 *pend && (*pend != DLG_BUTTON_SEP);
7646 pend++)
7647 ;
7648
7649 if (*pend)
7650 *pend = '\0';
7651
7652 /*
7653 * old NOTE:
7654 * setting the BS_DEFPUSHBUTTON style doesn't work because Windows sets
7655 * the focus to the first tab-able button and in so doing makes that
7656 * the default!! Grrr. Workaround: Make the default button the only
7657 * one with WS_TABSTOP style. Means user can't tab between buttons, but
7658 * he/she can use arrow keys.
7659 *
7660 * new NOTE: BS_DEFPUSHBUTTON is required to be able to select the
Bram Moolenaar2c7a7632007-05-10 18:19:11 +00007661 * right button when hitting <Enter>. E.g., for the ":confirm quit"
Bram Moolenaar071d4272004-06-13 20:20:40 +00007662 * dialog. Also needed for when the textfield is the default control.
7663 * It appears to work now (perhaps not on Win95?).
7664 */
7665 if (vertical)
7666 {
7667 p = add_dialog_element(p,
7668 (i == dfltbutton
7669 ? BS_DEFPUSHBUTTON : BS_PUSHBUTTON) | WS_TABSTOP,
7670 PixelToDialogX(DLG_VERT_PADDING_X),
7671 PixelToDialogY(buttonYpos /* TBK */
7672 + 2 * fontHeight * i),
7673 PixelToDialogX(dlgwidth - 2 * DLG_VERT_PADDING_X),
7674 (WORD)(PixelToDialogY(2 * fontHeight) - 1),
Bram Moolenaar418f81b2016-02-16 20:12:02 +01007675 (WORD)(IDCANCEL + 1 + i), (WORD)0x0080, (char *)pstart);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007676 }
7677 else
7678 {
7679 p = add_dialog_element(p,
7680 (i == dfltbutton
7681 ? BS_DEFPUSHBUTTON : BS_PUSHBUTTON) | WS_TABSTOP,
7682 PixelToDialogX(horizWidth + buttonPositions[i]),
7683 PixelToDialogY(buttonYpos), /* TBK */
7684 PixelToDialogX(buttonWidths[i]),
7685 (WORD)(PixelToDialogY(2 * fontHeight) - 1),
Bram Moolenaar418f81b2016-02-16 20:12:02 +01007686 (WORD)(IDCANCEL + 1 + i), (WORD)0x0080, (char *)pstart);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007687 }
7688 pstart = pend + 1; /*next button*/
7689 }
7690 *pnumitems += numButtons;
7691
7692 /* Vim icon */
7693 p = add_dialog_element(p, SS_ICON,
7694 PixelToDialogX(dlgPaddingX),
7695 PixelToDialogY(dlgPaddingY),
7696 PixelToDialogX(DLG_ICON_WIDTH),
7697 PixelToDialogY(DLG_ICON_HEIGHT),
7698 DLG_NONBUTTON_CONTROL + 0, (WORD)0x0082,
7699 dlg_icons[type]);
7700
Bram Moolenaar748bf032005-02-02 23:04:36 +00007701 /* Dialog message */
7702 p = add_dialog_element(p, ES_LEFT|scroll_flag|ES_MULTILINE|ES_READONLY,
7703 PixelToDialogX(2 * dlgPaddingX + DLG_ICON_WIDTH),
7704 PixelToDialogY(dlgPaddingY),
7705 (WORD)(PixelToDialogX(messageWidth) + 1),
7706 PixelToDialogY(msgheight),
Bram Moolenaar418f81b2016-02-16 20:12:02 +01007707 DLG_NONBUTTON_CONTROL + 1, (WORD)0x0081, (char *)message);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007708
7709 /* Edit box */
7710 if (textfield != NULL)
7711 {
7712 p = add_dialog_element(p, ES_LEFT|ES_AUTOHSCROLL|WS_TABSTOP|WS_BORDER,
7713 PixelToDialogX(2 * dlgPaddingX),
7714 PixelToDialogY(2 * dlgPaddingY + msgheight),
7715 PixelToDialogX(dlgwidth - 4 * dlgPaddingX),
7716 PixelToDialogY(fontHeight + dlgPaddingY),
Bram Moolenaar418f81b2016-02-16 20:12:02 +01007717 DLG_NONBUTTON_CONTROL + 2, (WORD)0x0081, (char *)textfield);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007718 *pnumitems += 1;
7719 }
7720
7721 *pnumitems += 2;
7722
7723 SelectFont(hdc, oldFont);
7724 DeleteObject(font);
7725 ReleaseDC(hwnd, hdc);
7726
7727 /* Let the dialog_callback() function know which button to make default
7728 * If we have an edit box, make that the default. We also need to tell
7729 * dialog_callback() if this dialog contains an edit box or not. We do
7730 * this by setting s_textfield if it does.
7731 */
7732 if (textfield != NULL)
7733 {
7734 dialog_default_button = DLG_NONBUTTON_CONTROL + 2;
7735 s_textfield = textfield;
7736 }
7737 else
7738 {
7739 dialog_default_button = IDCANCEL + 1 + dfltbutton;
7740 s_textfield = NULL;
7741 }
7742
7743 /* show the dialog box modally and get a return value */
7744 nchar = (int)DialogBoxIndirect(
7745 s_hinst,
7746 (LPDLGTEMPLATE)pdlgtemplate,
7747 s_hwnd,
7748 (DLGPROC)dialog_callback);
7749
7750 LocalFree(LocalHandle(pdlgtemplate));
7751 vim_free(tbuffer);
7752 vim_free(buttonWidths);
7753 vim_free(buttonPositions);
Bram Moolenaar3a7c85b2005-02-05 21:39:53 +00007754 vim_free(ga.ga_data);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007755
7756 /* Focus back to our window (for when MDI is used). */
7757 (void)SetFocus(s_hwnd);
7758
7759 return nchar;
7760}
7761
7762#endif /* FEAT_GUI_DIALOG */
Bram Moolenaareb3593b2006-04-22 22:33:57 +00007763
Bram Moolenaar071d4272004-06-13 20:20:40 +00007764/*
7765 * Put a simple element (basic class) onto a dialog template in memory.
7766 * return a pointer to where the next item should be added.
7767 *
7768 * parameters:
7769 * lStyle = additional style flags
7770 * (be careful, NT3.51 & Win32s will ignore the new ones)
7771 * x,y = x & y positions IN DIALOG UNITS
7772 * w,h = width and height IN DIALOG UNITS
7773 * Id = ID used in messages
7774 * clss = class ID, e.g 0x0080 for a button, 0x0082 for a static
7775 * caption = usually text or resource name
7776 *
7777 * TODO: use the length information noted here to enable the dialog creation
7778 * routines to work out more exactly how much memory they need to alloc.
7779 */
7780 static PWORD
7781add_dialog_element(
7782 PWORD p,
7783 DWORD lStyle,
7784 WORD x,
7785 WORD y,
7786 WORD w,
7787 WORD h,
7788 WORD Id,
7789 WORD clss,
7790 const char *caption)
7791{
7792 int nchar;
7793
7794 p = lpwAlign(p); /* Align to dword boundary*/
7795 lStyle = lStyle | WS_VISIBLE | WS_CHILD;
7796 *p++ = LOWORD(lStyle);
7797 *p++ = HIWORD(lStyle);
7798 *p++ = 0; // LOWORD (lExtendedStyle)
7799 *p++ = 0; // HIWORD (lExtendedStyle)
7800 *p++ = x;
7801 *p++ = y;
7802 *p++ = w;
7803 *p++ = h;
7804 *p++ = Id; //9 or 10 words in all
7805
7806 *p++ = (WORD)0xffff;
7807 *p++ = clss; //2 more here
7808
7809 nchar = nCopyAnsiToWideChar(p, (LPSTR)caption); //strlen(caption)+1
7810 p += nchar;
7811
7812 *p++ = 0; // advance pointer over nExtraStuff WORD - 2 more
7813
7814 return p; //total = 15+ (strlen(caption)) words
7815 // = 30 + 2(strlen(caption) bytes reqd
7816}
7817
7818
7819/*
7820 * Helper routine. Take an input pointer, return closest pointer that is
7821 * aligned on a DWORD (4 byte) boundary. Taken from the Win32SDK samples.
7822 */
7823 static LPWORD
7824lpwAlign(
7825 LPWORD lpIn)
7826{
Bram Moolenaareb3593b2006-04-22 22:33:57 +00007827 long_u ul;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007828
Bram Moolenaareb3593b2006-04-22 22:33:57 +00007829 ul = (long_u)lpIn;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007830 ul += 3;
7831 ul >>= 2;
7832 ul <<= 2;
7833 return (LPWORD)ul;
7834}
7835
7836/*
7837 * Helper routine. Takes second parameter as Ansi string, copies it to first
7838 * parameter as wide character (16-bits / char) string, and returns integer
7839 * number of wide characters (words) in string (including the trailing wide
7840 * char NULL). Partly taken from the Win32SDK samples.
7841 */
7842 static int
7843nCopyAnsiToWideChar(
7844 LPWORD lpWCStr,
7845 LPSTR lpAnsiIn)
7846{
7847 int nChar = 0;
7848#ifdef FEAT_MBYTE
7849 int len = lstrlen(lpAnsiIn) + 1; /* include NUL character */
7850 int i;
7851 WCHAR *wn;
7852
7853 if (enc_codepage == 0 && (int)GetACP() != enc_codepage)
7854 {
7855 /* Not a codepage, use our own conversion function. */
Bram Moolenaar418f81b2016-02-16 20:12:02 +01007856 wn = enc_to_utf16((char_u *)lpAnsiIn, NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007857 if (wn != NULL)
7858 {
7859 wcscpy(lpWCStr, wn);
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00007860 nChar = (int)wcslen(wn) + 1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007861 vim_free(wn);
7862 }
7863 }
7864 if (nChar == 0)
7865 /* Use Win32 conversion function. */
7866 nChar = MultiByteToWideChar(
7867 enc_codepage > 0 ? enc_codepage : CP_ACP,
7868 MB_PRECOMPOSED,
7869 lpAnsiIn, len,
7870 lpWCStr, len);
7871 for (i = 0; i < nChar; ++i)
7872 if (lpWCStr[i] == (WORD)'\t') /* replace tabs with spaces */
7873 lpWCStr[i] = (WORD)' ';
7874#else
7875 do
7876 {
7877 if (*lpAnsiIn == '\t')
7878 *lpWCStr++ = (WORD)' ';
7879 else
7880 *lpWCStr++ = (WORD)*lpAnsiIn;
7881 nChar++;
7882 } while (*lpAnsiIn++);
7883#endif
7884
7885 return nChar;
7886}
7887
7888
7889#ifdef FEAT_TEAROFF
7890/*
7891 * The callback function for all the modeless dialogs that make up the
7892 * "tearoff menus" Very simple - forward button presses (to fool Vim into
7893 * thinking its menus have been clicked), and go away when closed.
7894 */
7895 static LRESULT CALLBACK
7896tearoff_callback(
7897 HWND hwnd,
7898 UINT message,
7899 WPARAM wParam,
7900 LPARAM lParam)
7901{
7902 if (message == WM_INITDIALOG)
7903 return (TRUE);
7904
7905 /* May show the mouse pointer again. */
7906 HandleMouseHide(message, lParam);
7907
7908 if (message == WM_COMMAND)
7909 {
7910 if ((WORD)(LOWORD(wParam)) & 0x8000)
7911 {
7912 POINT mp;
7913 RECT rect;
7914
7915 if (GetCursorPos(&mp) && GetWindowRect(hwnd, &rect))
7916 {
7917 (void)TrackPopupMenu(
Bram Moolenaareb3593b2006-04-22 22:33:57 +00007918 (HMENU)(long_u)(LOWORD(wParam) ^ 0x8000),
Bram Moolenaar071d4272004-06-13 20:20:40 +00007919 TPM_LEFTALIGN | TPM_LEFTBUTTON,
7920 (int)rect.right - 8,
7921 (int)mp.y,
7922 (int)0, /*reserved param*/
7923 s_hwnd,
7924 NULL);
7925 /*
7926 * NOTE: The pop-up menu can eat the mouse up event.
7927 * We deal with this in normal.c.
7928 */
7929 }
7930 }
7931 else
7932 /* Pass on messages to the main Vim window */
7933 PostMessage(s_hwnd, WM_COMMAND, LOWORD(wParam), 0);
7934 /*
7935 * Give main window the focus back: this is so after
7936 * choosing a tearoff button you can start typing again
7937 * straight away.
7938 */
7939 (void)SetFocus(s_hwnd);
7940 return TRUE;
7941 }
7942 if ((message == WM_SYSCOMMAND) && (wParam == SC_CLOSE))
7943 {
7944 DestroyWindow(hwnd);
7945 return TRUE;
7946 }
7947
7948 /* When moved around, give main window the focus back. */
7949 if (message == WM_EXITSIZEMOVE)
7950 (void)SetActiveWindow(s_hwnd);
7951
7952 return FALSE;
7953}
7954#endif
7955
7956
7957/*
7958 * Decide whether to use the "new look" (small, non-bold font) or the "old
7959 * look" (big, clanky font) for dialogs, and work out a few values for use
7960 * later accordingly.
7961 */
7962 static void
7963get_dialog_font_metrics(void)
7964{
7965 HDC hdc;
7966 HFONT hfontTools = 0;
7967 DWORD dlgFontSize;
7968 SIZE size;
7969#ifdef USE_SYSMENU_FONT
7970 LOGFONT lfSysmenu;
7971#endif
7972
7973 s_usenewlook = FALSE;
7974
7975 /*
7976 * For NT3.51 and Win32s, we stick with the old look
7977 * because it matches everything else.
7978 */
7979 if (!is_winnt_3())
7980 {
7981#ifdef USE_SYSMENU_FONT
7982 if (gui_w32_get_menu_font(&lfSysmenu) == OK)
7983 hfontTools = CreateFontIndirect(&lfSysmenu);
7984 else
7985#endif
7986 hfontTools = CreateFont(-DLG_FONT_POINT_SIZE, 0, 0, 0, 0, 0, 0, 0,
7987 0, 0, 0, 0, VARIABLE_PITCH , DLG_FONT_NAME);
7988
7989 if (hfontTools)
7990 {
7991 hdc = GetDC(s_hwnd);
7992 SelectObject(hdc, hfontTools);
7993 /*
7994 * GetTextMetrics() doesn't return the right value in
7995 * tmAveCharWidth, so we have to figure out the dialog base units
7996 * ourselves.
7997 */
7998 GetTextExtentPoint(hdc,
7999 "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz",
8000 52, &size);
8001 ReleaseDC(s_hwnd, hdc);
8002
8003 s_dlgfntwidth = (WORD)((size.cx / 26 + 1) / 2);
8004 s_dlgfntheight = (WORD)size.cy;
8005 s_usenewlook = TRUE;
8006 }
8007 }
8008
8009 if (!s_usenewlook)
8010 {
8011 dlgFontSize = GetDialogBaseUnits(); /* fall back to big old system*/
8012 s_dlgfntwidth = LOWORD(dlgFontSize);
8013 s_dlgfntheight = HIWORD(dlgFontSize);
8014 }
8015}
8016
8017#if defined(FEAT_MENU) && defined(FEAT_TEAROFF)
8018/*
8019 * Create a pseudo-"tearoff menu" based on the child
8020 * items of a given menu pointer.
8021 */
8022 static void
8023gui_mch_tearoff(
8024 char_u *title,
8025 vimmenu_T *menu,
8026 int initX,
8027 int initY)
8028{
8029 WORD *p, *pdlgtemplate, *pnumitems, *ptrueheight;
8030 int template_len;
8031 int nchar, textWidth, submenuWidth;
8032 DWORD lStyle;
8033 DWORD lExtendedStyle;
8034 WORD dlgwidth;
8035 WORD menuID;
8036 vimmenu_T *pmenu;
8037 vimmenu_T *the_menu = menu;
8038 HWND hwnd;
8039 HDC hdc;
8040 HFONT font, oldFont;
8041 int col, spaceWidth, len;
8042 int columnWidths[2];
8043 char_u *label, *text;
8044 int acLen = 0;
8045 int nameLen;
8046 int padding0, padding1, padding2 = 0;
8047 int sepPadding=0;
Bram Moolenaar9588a0f2005-01-08 21:45:39 +00008048 int x;
8049 int y;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008050#ifdef USE_SYSMENU_FONT
8051 LOGFONT lfSysmenu;
8052 int use_lfSysmenu = FALSE;
8053#endif
8054
8055 /*
8056 * If this menu is already torn off, move it to the mouse position.
8057 */
8058 if (IsWindow(menu->tearoff_handle))
8059 {
8060 POINT mp;
8061 if (GetCursorPos((LPPOINT)&mp))
8062 {
8063 SetWindowPos(menu->tearoff_handle, NULL, mp.x, mp.y, 0, 0,
8064 SWP_NOACTIVATE | SWP_NOSIZE | SWP_NOZORDER);
8065 }
8066 return;
8067 }
8068
8069 /*
8070 * Create a new tearoff.
8071 */
8072 if (*title == MNU_HIDDEN_CHAR)
8073 title++;
8074
8075 /* Allocate memory to store the dialog template. It's made bigger when
8076 * needed. */
8077 template_len = DLG_ALLOC_SIZE;
8078 pdlgtemplate = p = (WORD *)LocalAlloc(LPTR, template_len);
8079 if (p == NULL)
8080 return;
8081
8082 hwnd = GetDesktopWindow();
8083 hdc = GetWindowDC(hwnd);
8084#ifdef USE_SYSMENU_FONT
8085 if (gui_w32_get_menu_font(&lfSysmenu) == OK)
8086 {
8087 font = CreateFontIndirect(&lfSysmenu);
8088 use_lfSysmenu = TRUE;
8089 }
8090 else
8091#endif
8092 font = CreateFont(-DLG_FONT_POINT_SIZE, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
8093 VARIABLE_PITCH , DLG_FONT_NAME);
8094 if (s_usenewlook)
8095 oldFont = SelectFont(hdc, font);
8096 else
8097 oldFont = SelectFont(hdc, GetStockObject(SYSTEM_FONT));
8098
8099 /* Calculate width of a single space. Used for padding columns to the
8100 * right width. */
Bram Moolenaar418f81b2016-02-16 20:12:02 +01008101 spaceWidth = GetTextWidth(hdc, (char_u *)" ", 1);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008102
8103 /* Figure out max width of the text column, the accelerator column and the
8104 * optional submenu column. */
8105 submenuWidth = 0;
8106 for (col = 0; col < 2; col++)
8107 {
8108 columnWidths[col] = 0;
8109 for (pmenu = menu->children; pmenu != NULL; pmenu = pmenu->next)
8110 {
8111 /* Use "dname" here to compute the width of the visible text. */
8112 text = (col == 0) ? pmenu->dname : pmenu->actext;
8113 if (text != NULL && *text != NUL)
8114 {
8115 textWidth = GetTextWidthEnc(hdc, text, (int)STRLEN(text));
8116 if (textWidth > columnWidths[col])
8117 columnWidths[col] = textWidth;
8118 }
8119 if (pmenu->children != NULL)
8120 submenuWidth = TEAROFF_COLUMN_PADDING * spaceWidth;
8121 }
8122 }
8123 if (columnWidths[1] == 0)
8124 {
8125 /* no accelerators */
8126 if (submenuWidth != 0)
8127 columnWidths[0] += submenuWidth;
8128 else
8129 columnWidths[0] += spaceWidth;
8130 }
8131 else
8132 {
8133 /* there is an accelerator column */
8134 columnWidths[0] += TEAROFF_COLUMN_PADDING * spaceWidth;
8135 columnWidths[1] += submenuWidth;
8136 }
8137
8138 /*
8139 * Now find the total width of our 'menu'.
8140 */
8141 textWidth = columnWidths[0] + columnWidths[1];
8142 if (submenuWidth != 0)
8143 {
Bram Moolenaar418f81b2016-02-16 20:12:02 +01008144 submenuWidth = GetTextWidth(hdc, (char_u *)TEAROFF_SUBMENU_LABEL,
Bram Moolenaar071d4272004-06-13 20:20:40 +00008145 (int)STRLEN(TEAROFF_SUBMENU_LABEL));
8146 textWidth += submenuWidth;
8147 }
8148 dlgwidth = GetTextWidthEnc(hdc, title, (int)STRLEN(title));
8149 if (textWidth > dlgwidth)
8150 dlgwidth = textWidth;
8151 dlgwidth += 2 * TEAROFF_PADDING_X + TEAROFF_BUTTON_PAD_X;
8152
8153 /* W95 can't do thin dialogs, they look v. weird! */
8154 if (mch_windows95() && dlgwidth < TEAROFF_MIN_WIDTH)
8155 dlgwidth = TEAROFF_MIN_WIDTH;
8156
8157 /* start to fill in the dlgtemplate information. addressing by WORDs */
8158 if (s_usenewlook)
8159 lStyle = DS_MODALFRAME | WS_CAPTION| WS_SYSMENU |DS_SETFONT| WS_VISIBLE;
8160 else
8161 lStyle = DS_MODALFRAME | WS_CAPTION| WS_SYSMENU | WS_VISIBLE;
8162
8163 lExtendedStyle = WS_EX_TOOLWINDOW|WS_EX_STATICEDGE;
8164 *p++ = LOWORD(lStyle);
8165 *p++ = HIWORD(lStyle);
8166 *p++ = LOWORD(lExtendedStyle);
8167 *p++ = HIWORD(lExtendedStyle);
8168 pnumitems = p; /* save where the number of items must be stored */
8169 *p++ = 0; // NumberOfItems(will change later)
Bram Moolenaar9588a0f2005-01-08 21:45:39 +00008170 gui_mch_getmouse(&x, &y);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008171 if (initX == 0xffffL)
Bram Moolenaar9588a0f2005-01-08 21:45:39 +00008172 *p++ = PixelToDialogX(x); // x
Bram Moolenaar071d4272004-06-13 20:20:40 +00008173 else
8174 *p++ = PixelToDialogX(initX); // x
8175 if (initY == 0xffffL)
Bram Moolenaar9588a0f2005-01-08 21:45:39 +00008176 *p++ = PixelToDialogY(y); // y
Bram Moolenaar071d4272004-06-13 20:20:40 +00008177 else
8178 *p++ = PixelToDialogY(initY); // y
8179 *p++ = PixelToDialogX(dlgwidth); // cx
8180 ptrueheight = p;
8181 *p++ = 0; // dialog height: changed later anyway
8182 *p++ = 0; // Menu
8183 *p++ = 0; // Class
8184
8185 /* copy the title of the dialog */
8186 nchar = nCopyAnsiToWideChar(p, ((*title)
8187 ? (LPSTR)title
8188 : (LPSTR)("Vim "VIM_VERSION_MEDIUM)));
8189 p += nchar;
8190
8191 if (s_usenewlook)
8192 {
8193 /* do the font, since DS_3DLOOK doesn't work properly */
8194#ifdef USE_SYSMENU_FONT
8195 if (use_lfSysmenu)
8196 {
8197 /* point size */
8198 *p++ = -MulDiv(lfSysmenu.lfHeight, 72,
8199 GetDeviceCaps(hdc, LOGPIXELSY));
8200 nchar = nCopyAnsiToWideChar(p, TEXT(lfSysmenu.lfFaceName));
8201 }
8202 else
8203#endif
8204 {
8205 *p++ = DLG_FONT_POINT_SIZE; // point size
8206 nchar = nCopyAnsiToWideChar (p, TEXT(DLG_FONT_NAME));
8207 }
8208 p += nchar;
8209 }
8210
8211 /*
8212 * Loop over all the items in the menu.
8213 * But skip over the tearbar.
8214 */
8215 if (STRCMP(menu->children->name, TEAR_STRING) == 0)
8216 menu = menu->children->next;
8217 else
8218 menu = menu->children;
8219 for ( ; menu != NULL; menu = menu->next)
8220 {
8221 if (menu->modes == 0) /* this menu has just been deleted */
8222 continue;
8223 if (menu_is_separator(menu->dname))
8224 {
8225 sepPadding += 3;
8226 continue;
8227 }
8228
8229 /* Check if there still is plenty of room in the template. Make it
8230 * larger when needed. */
8231 if (((char *)p - (char *)pdlgtemplate) + 1000 > template_len)
8232 {
8233 WORD *newp;
8234
8235 newp = (WORD *)LocalAlloc(LPTR, template_len + 4096);
8236 if (newp != NULL)
8237 {
8238 template_len += 4096;
8239 mch_memmove(newp, pdlgtemplate,
8240 (char *)p - (char *)pdlgtemplate);
8241 p = newp + (p - pdlgtemplate);
8242 pnumitems = newp + (pnumitems - pdlgtemplate);
8243 ptrueheight = newp + (ptrueheight - pdlgtemplate);
8244 LocalFree(LocalHandle(pdlgtemplate));
8245 pdlgtemplate = newp;
8246 }
8247 }
8248
8249 /* Figure out minimal length of this menu label. Use "name" for the
8250 * actual text, "dname" for estimating the displayed size. "name"
8251 * has "&a" for mnemonic and includes the accelerator. */
8252 len = nameLen = (int)STRLEN(menu->name);
8253 padding0 = (columnWidths[0] - GetTextWidthEnc(hdc, menu->dname,
8254 (int)STRLEN(menu->dname))) / spaceWidth;
8255 len += padding0;
8256
8257 if (menu->actext != NULL)
8258 {
8259 acLen = (int)STRLEN(menu->actext);
8260 len += acLen;
8261 textWidth = GetTextWidthEnc(hdc, menu->actext, acLen);
8262 }
8263 else
8264 textWidth = 0;
8265 padding1 = (columnWidths[1] - textWidth) / spaceWidth;
8266 len += padding1;
8267
8268 if (menu->children == NULL)
8269 {
8270 padding2 = submenuWidth / spaceWidth;
8271 len += padding2;
8272 menuID = (WORD)(menu->id);
8273 }
8274 else
8275 {
8276 len += (int)STRLEN(TEAROFF_SUBMENU_LABEL);
Bram Moolenaareb3593b2006-04-22 22:33:57 +00008277 menuID = (WORD)((long_u)(menu->submenu_id) | (DWORD)0x8000);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008278 }
8279
8280 /* Allocate menu label and fill it in */
8281 text = label = alloc((unsigned)len + 1);
8282 if (label == NULL)
8283 break;
8284
Bram Moolenaarce0842a2005-07-18 21:58:11 +00008285 vim_strncpy(text, menu->name, nameLen);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008286 text = vim_strchr(text, TAB); /* stop at TAB before actext */
8287 if (text == NULL)
8288 text = label + nameLen; /* no actext, use whole name */
8289 while (padding0-- > 0)
8290 *text++ = ' ';
8291 if (menu->actext != NULL)
8292 {
8293 STRNCPY(text, menu->actext, acLen);
8294 text += acLen;
8295 }
8296 while (padding1-- > 0)
8297 *text++ = ' ';
8298 if (menu->children != NULL)
8299 {
8300 STRCPY(text, TEAROFF_SUBMENU_LABEL);
8301 text += STRLEN(TEAROFF_SUBMENU_LABEL);
8302 }
8303 else
8304 {
8305 while (padding2-- > 0)
8306 *text++ = ' ';
8307 }
8308 *text = NUL;
8309
8310 /*
8311 * BS_LEFT will just be ignored on Win32s/NT3.5x - on
8312 * W95/NT4 it makes the tear-off look more like a menu.
8313 */
8314 p = add_dialog_element(p,
8315 BS_PUSHBUTTON|BS_LEFT,
8316 (WORD)PixelToDialogX(TEAROFF_PADDING_X),
8317 (WORD)(sepPadding + 1 + 13 * (*pnumitems)),
8318 (WORD)PixelToDialogX(dlgwidth - 2 * TEAROFF_PADDING_X),
8319 (WORD)12,
Bram Moolenaar418f81b2016-02-16 20:12:02 +01008320 menuID, (WORD)0x0080, (char *)label);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008321 vim_free(label);
8322 (*pnumitems)++;
8323 }
8324
8325 *ptrueheight = (WORD)(sepPadding + 1 + 13 * (*pnumitems));
8326
8327
8328 /* show modelessly */
8329 the_menu->tearoff_handle = CreateDialogIndirect(
8330 s_hinst,
8331 (LPDLGTEMPLATE)pdlgtemplate,
8332 s_hwnd,
8333 (DLGPROC)tearoff_callback);
8334
8335 LocalFree(LocalHandle(pdlgtemplate));
8336 SelectFont(hdc, oldFont);
8337 DeleteObject(font);
8338 ReleaseDC(hwnd, hdc);
8339
8340 /*
8341 * Reassert ourselves as the active window. This is so that after creating
8342 * a tearoff, the user doesn't have to click with the mouse just to start
8343 * typing again!
8344 */
8345 (void)SetActiveWindow(s_hwnd);
8346
8347 /* make sure the right buttons are enabled */
8348 force_menu_update = TRUE;
8349}
8350#endif
8351
8352#if defined(FEAT_TOOLBAR) || defined(PROTO)
8353#include "gui_w32_rc.h"
8354
8355/* This not defined in older SDKs */
8356# ifndef TBSTYLE_FLAT
8357# define TBSTYLE_FLAT 0x0800
8358# endif
8359
8360/*
8361 * Create the toolbar, initially unpopulated.
8362 * (just like the menu, there are no defaults, it's all
8363 * set up through menu.vim)
8364 */
8365 static void
8366initialise_toolbar(void)
8367{
8368 InitCommonControls();
8369 s_toolbarhwnd = CreateToolbarEx(
8370 s_hwnd,
8371 WS_CHILD | TBSTYLE_TOOLTIPS | TBSTYLE_FLAT,
8372 4000, //any old big number
Bram Moolenaar2c7a7632007-05-10 18:19:11 +00008373 31, //number of images in initial bitmap
Bram Moolenaar071d4272004-06-13 20:20:40 +00008374 s_hinst,
8375 IDR_TOOLBAR1, // id of initial bitmap
8376 NULL,
8377 0, // initial number of buttons
8378 TOOLBAR_BUTTON_WIDTH, //api guide is wrong!
8379 TOOLBAR_BUTTON_HEIGHT,
8380 TOOLBAR_BUTTON_WIDTH,
8381 TOOLBAR_BUTTON_HEIGHT,
8382 sizeof(TBBUTTON)
8383 );
Bram Moolenaar5f919ee2013-07-21 17:46:43 +02008384 s_toolbar_wndproc = SubclassWindow(s_toolbarhwnd, toolbar_wndproc);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008385
8386 gui_mch_show_toolbar(vim_strchr(p_go, GO_TOOLBAR) != NULL);
8387}
8388
Bram Moolenaar5f919ee2013-07-21 17:46:43 +02008389 static LRESULT CALLBACK
8390toolbar_wndproc(
8391 HWND hwnd,
8392 UINT uMsg,
8393 WPARAM wParam,
8394 LPARAM lParam)
8395{
8396 HandleMouseHide(uMsg, lParam);
8397 return CallWindowProc(s_toolbar_wndproc, hwnd, uMsg, wParam, lParam);
8398}
8399
Bram Moolenaar071d4272004-06-13 20:20:40 +00008400 static int
8401get_toolbar_bitmap(vimmenu_T *menu)
8402{
8403 int i = -1;
8404
8405 /*
8406 * Check user bitmaps first, unless builtin is specified.
8407 */
8408 if (!is_winnt_3() && !menu->icon_builtin)
8409 {
8410 char_u fname[MAXPATHL];
8411 HANDLE hbitmap = NULL;
8412
8413 if (menu->iconfile != NULL)
8414 {
8415 gui_find_iconfile(menu->iconfile, fname, "bmp");
8416 hbitmap = LoadImage(
8417 NULL,
Bram Moolenaar418f81b2016-02-16 20:12:02 +01008418 (LPCSTR)fname,
Bram Moolenaar071d4272004-06-13 20:20:40 +00008419 IMAGE_BITMAP,
8420 TOOLBAR_BUTTON_WIDTH,
8421 TOOLBAR_BUTTON_HEIGHT,
8422 LR_LOADFROMFILE |
8423 LR_LOADMAP3DCOLORS
8424 );
8425 }
8426
8427 /*
8428 * If the LoadImage call failed, or the "icon=" file
8429 * didn't exist or wasn't specified, try the menu name
8430 */
8431 if (hbitmap == NULL
Bram Moolenaara5f5c8b2013-06-27 22:29:38 +02008432 && (gui_find_bitmap(
8433#ifdef FEAT_MULTI_LANG
8434 menu->en_dname != NULL ? menu->en_dname :
8435#endif
8436 menu->dname, fname, "bmp") == OK))
Bram Moolenaar071d4272004-06-13 20:20:40 +00008437 hbitmap = LoadImage(
8438 NULL,
Bram Moolenaar418f81b2016-02-16 20:12:02 +01008439 (LPCSTR)fname,
Bram Moolenaar071d4272004-06-13 20:20:40 +00008440 IMAGE_BITMAP,
8441 TOOLBAR_BUTTON_WIDTH,
8442 TOOLBAR_BUTTON_HEIGHT,
8443 LR_LOADFROMFILE |
8444 LR_LOADMAP3DCOLORS
8445 );
8446
8447 if (hbitmap != NULL)
8448 {
8449 TBADDBITMAP tbAddBitmap;
8450
8451 tbAddBitmap.hInst = NULL;
Bram Moolenaareb3593b2006-04-22 22:33:57 +00008452 tbAddBitmap.nID = (long_u)hbitmap;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008453
8454 i = (int)SendMessage(s_toolbarhwnd, TB_ADDBITMAP,
8455 (WPARAM)1, (LPARAM)&tbAddBitmap);
8456 /* i will be set to -1 if it fails */
8457 }
8458 }
8459 if (i == -1 && menu->iconidx >= 0 && menu->iconidx < TOOLBAR_BITMAP_COUNT)
8460 i = menu->iconidx;
8461
8462 return i;
8463}
8464#endif
8465
Bram Moolenaar3991dab2006-03-27 17:01:56 +00008466#if defined(FEAT_GUI_TABLINE) || defined(PROTO)
8467 static void
8468initialise_tabline(void)
8469{
8470 InitCommonControls();
8471
Bram Moolenaar910f66f2006-04-05 20:41:53 +00008472 s_tabhwnd = CreateWindow(WC_TABCONTROL, "Vim tabline",
Bram Moolenaareb3593b2006-04-22 22:33:57 +00008473 WS_CHILD|TCS_FOCUSNEVER|TCS_TOOLTIPS,
Bram Moolenaar3991dab2006-03-27 17:01:56 +00008474 CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
8475 CW_USEDEFAULT, s_hwnd, NULL, s_hinst, NULL);
Bram Moolenaar5f919ee2013-07-21 17:46:43 +02008476 s_tabline_wndproc = SubclassWindow(s_tabhwnd, tabline_wndproc);
Bram Moolenaar910f66f2006-04-05 20:41:53 +00008477
Bram Moolenaar551dbcc2006-04-25 22:13:59 +00008478 gui.tabline_height = TABLINE_HEIGHT;
8479
Bram Moolenaar910f66f2006-04-05 20:41:53 +00008480# ifdef USE_SYSMENU_FONT
Bram Moolenaar551dbcc2006-04-25 22:13:59 +00008481 set_tabline_font();
Bram Moolenaar910f66f2006-04-05 20:41:53 +00008482# endif
Bram Moolenaar3991dab2006-03-27 17:01:56 +00008483}
Bram Moolenaar5f919ee2013-07-21 17:46:43 +02008484
8485 static LRESULT CALLBACK
8486tabline_wndproc(
8487 HWND hwnd,
8488 UINT uMsg,
8489 WPARAM wParam,
8490 LPARAM lParam)
8491{
8492 HandleMouseHide(uMsg, lParam);
8493 return CallWindowProc(s_tabline_wndproc, hwnd, uMsg, wParam, lParam);
8494}
Bram Moolenaar3991dab2006-03-27 17:01:56 +00008495#endif
8496
Bram Moolenaar071d4272004-06-13 20:20:40 +00008497#if defined(FEAT_OLE) || defined(FEAT_EVAL) || defined(PROTO)
8498/*
8499 * Make the GUI window come to the foreground.
8500 */
8501 void
8502gui_mch_set_foreground(void)
8503{
8504 if (IsIconic(s_hwnd))
8505 SendMessage(s_hwnd, WM_SYSCOMMAND, SC_RESTORE, 0);
8506 SetForegroundWindow(s_hwnd);
8507}
8508#endif
8509
8510#if defined(FEAT_MBYTE_IME) && defined(DYNAMIC_IME)
8511 static void
8512dyn_imm_load(void)
8513{
Bram Moolenaarebbcb822010-10-23 14:02:54 +02008514 hLibImm = vimLoadLib("imm32.dll");
Bram Moolenaar071d4272004-06-13 20:20:40 +00008515 if (hLibImm == NULL)
8516 return;
8517
8518 pImmGetCompositionStringA
8519 = (void *)GetProcAddress(hLibImm, "ImmGetCompositionStringA");
8520 pImmGetCompositionStringW
8521 = (void *)GetProcAddress(hLibImm, "ImmGetCompositionStringW");
8522 pImmGetContext
8523 = (void *)GetProcAddress(hLibImm, "ImmGetContext");
8524 pImmAssociateContext
8525 = (void *)GetProcAddress(hLibImm, "ImmAssociateContext");
8526 pImmReleaseContext
8527 = (void *)GetProcAddress(hLibImm, "ImmReleaseContext");
8528 pImmGetOpenStatus
8529 = (void *)GetProcAddress(hLibImm, "ImmGetOpenStatus");
8530 pImmSetOpenStatus
8531 = (void *)GetProcAddress(hLibImm, "ImmSetOpenStatus");
8532 pImmGetCompositionFont
8533 = (void *)GetProcAddress(hLibImm, "ImmGetCompositionFontA");
8534 pImmSetCompositionFont
8535 = (void *)GetProcAddress(hLibImm, "ImmSetCompositionFontA");
8536 pImmSetCompositionWindow
8537 = (void *)GetProcAddress(hLibImm, "ImmSetCompositionWindow");
8538 pImmGetConversionStatus
8539 = (void *)GetProcAddress(hLibImm, "ImmGetConversionStatus");
Bram Moolenaarca003e12006-03-17 23:19:38 +00008540 pImmSetConversionStatus
8541 = (void *)GetProcAddress(hLibImm, "ImmSetConversionStatus");
Bram Moolenaar071d4272004-06-13 20:20:40 +00008542
8543 if ( pImmGetCompositionStringA == NULL
8544 || pImmGetCompositionStringW == NULL
8545 || pImmGetContext == NULL
8546 || pImmAssociateContext == NULL
8547 || pImmReleaseContext == NULL
8548 || pImmGetOpenStatus == NULL
8549 || pImmSetOpenStatus == NULL
8550 || pImmGetCompositionFont == NULL
8551 || pImmSetCompositionFont == NULL
8552 || pImmSetCompositionWindow == NULL
Bram Moolenaarca003e12006-03-17 23:19:38 +00008553 || pImmGetConversionStatus == NULL
8554 || pImmSetConversionStatus == NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008555 {
8556 FreeLibrary(hLibImm);
8557 hLibImm = NULL;
8558 pImmGetContext = NULL;
8559 return;
8560 }
8561
8562 return;
8563}
8564
Bram Moolenaar071d4272004-06-13 20:20:40 +00008565#endif
8566
8567#if defined(FEAT_SIGN_ICONS) || defined(PROTO)
8568
8569# ifdef FEAT_XPM_W32
8570# define IMAGE_XPM 100
8571# endif
8572
8573typedef struct _signicon_t
8574{
8575 HANDLE hImage;
8576 UINT uType;
8577#ifdef FEAT_XPM_W32
8578 HANDLE hShape; /* Mask bitmap handle */
8579#endif
8580} signicon_t;
8581
8582 void
Bram Moolenaar68c2f632016-01-30 17:24:07 +01008583gui_mch_drawsign(int row, int col, int typenr)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008584{
8585 signicon_t *sign;
8586 int x, y, w, h;
8587
8588 if (!gui.in_use || (sign = (signicon_t *)sign_get_image(typenr)) == NULL)
8589 return;
8590
8591 x = TEXT_X(col);
8592 y = TEXT_Y(row);
8593 w = gui.char_width * 2;
8594 h = gui.char_height;
8595 switch (sign->uType)
8596 {
8597 case IMAGE_BITMAP:
8598 {
8599 HDC hdcMem;
8600 HBITMAP hbmpOld;
8601
8602 hdcMem = CreateCompatibleDC(s_hdc);
8603 hbmpOld = (HBITMAP)SelectObject(hdcMem, sign->hImage);
8604 BitBlt(s_hdc, x, y, w, h, hdcMem, 0, 0, SRCCOPY);
8605 SelectObject(hdcMem, hbmpOld);
8606 DeleteDC(hdcMem);
8607 }
8608 break;
8609 case IMAGE_ICON:
8610 case IMAGE_CURSOR:
8611 DrawIconEx(s_hdc, x, y, (HICON)sign->hImage, w, h, 0, NULL, DI_NORMAL);
8612 break;
8613#ifdef FEAT_XPM_W32
8614 case IMAGE_XPM:
8615 {
8616 HDC hdcMem;
8617 HBITMAP hbmpOld;
8618
8619 hdcMem = CreateCompatibleDC(s_hdc);
8620 hbmpOld = (HBITMAP)SelectObject(hdcMem, sign->hShape);
8621 /* Make hole */
8622 BitBlt(s_hdc, x, y, w, h, hdcMem, 0, 0, SRCAND);
8623
8624 SelectObject(hdcMem, sign->hImage);
8625 /* Paint sign */
8626 BitBlt(s_hdc, x, y, w, h, hdcMem, 0, 0, SRCPAINT);
8627 SelectObject(hdcMem, hbmpOld);
8628 DeleteDC(hdcMem);
8629 }
8630 break;
8631#endif
8632 }
8633}
8634
8635 static void
8636close_signicon_image(signicon_t *sign)
8637{
8638 if (sign)
8639 switch (sign->uType)
8640 {
8641 case IMAGE_BITMAP:
8642 DeleteObject((HGDIOBJ)sign->hImage);
8643 break;
8644 case IMAGE_CURSOR:
8645 DestroyCursor((HCURSOR)sign->hImage);
8646 break;
8647 case IMAGE_ICON:
8648 DestroyIcon((HICON)sign->hImage);
8649 break;
8650#ifdef FEAT_XPM_W32
8651 case IMAGE_XPM:
8652 DeleteObject((HBITMAP)sign->hImage);
8653 DeleteObject((HBITMAP)sign->hShape);
8654 break;
8655#endif
8656 }
8657}
8658
8659 void *
Bram Moolenaar68c2f632016-01-30 17:24:07 +01008660gui_mch_register_sign(char_u *signfile)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008661{
8662 signicon_t sign, *psign;
8663 char_u *ext;
8664
8665 if (is_winnt_3())
8666 {
8667 EMSG(_(e_signdata));
8668 return NULL;
8669 }
8670
8671 sign.hImage = NULL;
Bram Moolenaar84a05ac2013-05-06 04:24:17 +02008672 ext = signfile + STRLEN(signfile) - 4; /* get extension */
Bram Moolenaar071d4272004-06-13 20:20:40 +00008673 if (ext > signfile)
8674 {
8675 int do_load = 1;
8676
8677 if (!STRICMP(ext, ".bmp"))
8678 sign.uType = IMAGE_BITMAP;
8679 else if (!STRICMP(ext, ".ico"))
8680 sign.uType = IMAGE_ICON;
8681 else if (!STRICMP(ext, ".cur") || !STRICMP(ext, ".ani"))
8682 sign.uType = IMAGE_CURSOR;
8683 else
8684 do_load = 0;
8685
8686 if (do_load)
Bram Moolenaar418f81b2016-02-16 20:12:02 +01008687 sign.hImage = (HANDLE)LoadImage(NULL, (LPCSTR)signfile, sign.uType,
Bram Moolenaar071d4272004-06-13 20:20:40 +00008688 gui.char_width * 2, gui.char_height,
8689 LR_LOADFROMFILE | LR_CREATEDIBSECTION);
8690#ifdef FEAT_XPM_W32
8691 if (!STRICMP(ext, ".xpm"))
8692 {
8693 sign.uType = IMAGE_XPM;
Bram Moolenaar418f81b2016-02-16 20:12:02 +01008694 LoadXpmImage((char *)signfile, (HBITMAP *)&sign.hImage,
8695 (HBITMAP *)&sign.hShape);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008696 }
8697#endif
8698 }
8699
8700 psign = NULL;
8701 if (sign.hImage && (psign = (signicon_t *)alloc(sizeof(signicon_t)))
8702 != NULL)
8703 *psign = sign;
8704
8705 if (!psign)
8706 {
8707 if (sign.hImage)
8708 close_signicon_image(&sign);
8709 EMSG(_(e_signdata));
8710 }
8711 return (void *)psign;
8712
8713}
8714
8715 void
Bram Moolenaar68c2f632016-01-30 17:24:07 +01008716gui_mch_destroy_sign(void *sign)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008717{
8718 if (sign)
8719 {
8720 close_signicon_image((signicon_t *)sign);
8721 vim_free(sign);
8722 }
8723}
Bram Moolenaar5c06f8b2005-05-31 22:14:58 +00008724#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00008725
8726#if defined(FEAT_BEVAL) || defined(PROTO)
8727
8728/* BALLOON-EVAL IMPLEMENTATION FOR WINDOWS.
Bram Moolenaar2ce06f62005-01-31 19:19:04 +00008729 * Added by Sergey Khorev <sergey.khorev@gmail.com>
Bram Moolenaar071d4272004-06-13 20:20:40 +00008730 *
Bram Moolenaare4efc3b2005-03-07 23:16:51 +00008731 * The only reused thing is gui_beval.h and get_beval_info()
Bram Moolenaar071d4272004-06-13 20:20:40 +00008732 * from gui_beval.c (note it uses x and y of the BalloonEval struct
8733 * to get current mouse position).
8734 *
8735 * Trying to use as more Windows services as possible, and as less
8736 * IE version as possible :)).
8737 *
8738 * 1) Don't create ToolTip in gui_mch_create_beval_area, only initialize
8739 * BalloonEval struct.
8740 * 2) Enable/Disable simply create/kill BalloonEval Timer
8741 * 3) When there was enough inactivity, timer procedure posts
8742 * async request to debugger
8743 * 4) gui_mch_post_balloon (invoked from netbeans.c) creates tooltip control
8744 * and performs some actions to show it ASAP
Bram Moolenaar446cb832008-06-24 21:56:24 +00008745 * 5) WM_NOTIFY:TTN_POP destroys created tooltip
Bram Moolenaar071d4272004-06-13 20:20:40 +00008746 */
8747
Bram Moolenaar45360022005-07-21 21:08:21 +00008748/*
8749 * determine whether installed Common Controls support multiline tooltips
8750 * (i.e. their version is >= 4.70
8751 */
8752 int
8753multiline_balloon_available(void)
8754{
8755 HINSTANCE hDll;
8756 static char comctl_dll[] = "comctl32.dll";
8757 static int multiline_tip = MAYBE;
8758
8759 if (multiline_tip != MAYBE)
8760 return multiline_tip;
8761
8762 hDll = GetModuleHandle(comctl_dll);
8763 if (hDll != NULL)
8764 {
Bram Moolenaarc9b4b052006-04-30 18:54:39 +00008765 DLLGETVERSIONPROC pGetVer;
8766 pGetVer = (DLLGETVERSIONPROC)GetProcAddress(hDll, "DllGetVersion");
Bram Moolenaar45360022005-07-21 21:08:21 +00008767
Bram Moolenaarc9b4b052006-04-30 18:54:39 +00008768 if (pGetVer != NULL)
8769 {
8770 DLLVERSIONINFO dvi;
8771 HRESULT hr;
Bram Moolenaar45360022005-07-21 21:08:21 +00008772
Bram Moolenaarc9b4b052006-04-30 18:54:39 +00008773 ZeroMemory(&dvi, sizeof(dvi));
8774 dvi.cbSize = sizeof(dvi);
Bram Moolenaar45360022005-07-21 21:08:21 +00008775
Bram Moolenaarc9b4b052006-04-30 18:54:39 +00008776 hr = (*pGetVer)(&dvi);
Bram Moolenaar45360022005-07-21 21:08:21 +00008777
Bram Moolenaarc9b4b052006-04-30 18:54:39 +00008778 if (SUCCEEDED(hr)
Bram Moolenaar45360022005-07-21 21:08:21 +00008779 && (dvi.dwMajorVersion > 4
Bram Moolenaarc9b4b052006-04-30 18:54:39 +00008780 || (dvi.dwMajorVersion == 4
8781 && dvi.dwMinorVersion >= 70)))
Bram Moolenaar45360022005-07-21 21:08:21 +00008782 {
8783 multiline_tip = TRUE;
8784 return multiline_tip;
8785 }
Bram Moolenaarc9b4b052006-04-30 18:54:39 +00008786 }
Bram Moolenaar45360022005-07-21 21:08:21 +00008787 else
8788 {
8789 /* there is chance we have ancient CommCtl 4.70
8790 which doesn't export DllGetVersion */
8791 DWORD dwHandle = 0;
8792 DWORD len = GetFileVersionInfoSize(comctl_dll, &dwHandle);
8793 if (len > 0)
8794 {
8795 VS_FIXEDFILEINFO *ver;
8796 UINT vlen = 0;
8797 void *data = alloc(len);
8798
Bram Moolenaar418f81b2016-02-16 20:12:02 +01008799 if ((data != NULL
Bram Moolenaar45360022005-07-21 21:08:21 +00008800 && GetFileVersionInfo(comctl_dll, 0, len, data)
8801 && VerQueryValue(data, "\\", (void **)&ver, &vlen)
8802 && vlen
Bram Moolenaar418f81b2016-02-16 20:12:02 +01008803 && HIWORD(ver->dwFileVersionMS) > 4)
8804 || ((HIWORD(ver->dwFileVersionMS) == 4
8805 && LOWORD(ver->dwFileVersionMS) >= 70)))
Bram Moolenaar45360022005-07-21 21:08:21 +00008806 {
8807 vim_free(data);
8808 multiline_tip = TRUE;
8809 return multiline_tip;
8810 }
8811 vim_free(data);
8812 }
8813 }
8814 }
8815 multiline_tip = FALSE;
8816 return multiline_tip;
8817}
8818
Bram Moolenaar071d4272004-06-13 20:20:40 +00008819 static void
Bram Moolenaar68c2f632016-01-30 17:24:07 +01008820make_tooltip(BalloonEval *beval, char *text, POINT pt)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008821{
Bram Moolenaar45360022005-07-21 21:08:21 +00008822 TOOLINFO *pti;
8823 int ToolInfoSize;
8824
8825 if (multiline_balloon_available() == TRUE)
8826 ToolInfoSize = sizeof(TOOLINFO_NEW);
8827 else
8828 ToolInfoSize = sizeof(TOOLINFO);
8829
8830 pti = (TOOLINFO *)alloc(ToolInfoSize);
8831 if (pti == NULL)
8832 return;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008833
8834 beval->balloon = CreateWindowEx(WS_EX_TOPMOST, TOOLTIPS_CLASS,
8835 NULL, WS_POPUP | TTS_NOPREFIX | TTS_ALWAYSTIP,
8836 CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
8837 beval->target, NULL, s_hinst, NULL);
8838
8839 SetWindowPos(beval->balloon, HWND_TOPMOST, 0, 0, 0, 0,
8840 SWP_NOMOVE | SWP_NOSIZE | SWP_NOACTIVATE);
8841
Bram Moolenaar45360022005-07-21 21:08:21 +00008842 pti->cbSize = ToolInfoSize;
8843 pti->uFlags = TTF_SUBCLASS;
8844 pti->hwnd = beval->target;
8845 pti->hinst = 0; /* Don't use string resources */
8846 pti->uId = ID_BEVAL_TOOLTIP;
8847
8848 if (multiline_balloon_available() == TRUE)
8849 {
8850 RECT rect;
8851 TOOLINFO_NEW *ptin = (TOOLINFO_NEW *)pti;
8852 pti->lpszText = LPSTR_TEXTCALLBACK;
8853 ptin->lParam = (LPARAM)text;
8854 if (GetClientRect(s_textArea, &rect)) /* switch multiline tooltips on */
8855 SendMessage(beval->balloon, TTM_SETMAXTIPWIDTH, 0,
8856 (LPARAM)rect.right);
8857 }
8858 else
8859 pti->lpszText = text; /* do this old way */
Bram Moolenaar071d4272004-06-13 20:20:40 +00008860
8861 /* Limit ballooneval bounding rect to CursorPos neighbourhood */
Bram Moolenaar45360022005-07-21 21:08:21 +00008862 pti->rect.left = pt.x - 3;
8863 pti->rect.top = pt.y - 3;
8864 pti->rect.right = pt.x + 3;
8865 pti->rect.bottom = pt.y + 3;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008866
Bram Moolenaar45360022005-07-21 21:08:21 +00008867 SendMessage(beval->balloon, TTM_ADDTOOL, 0, (LPARAM)pti);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008868 /* Make tooltip appear sooner */
8869 SendMessage(beval->balloon, TTM_SETDELAYTIME, TTDT_INITIAL, 10);
Bram Moolenaarb52e5322008-01-05 12:15:52 +00008870 /* I've performed some tests and it seems the longest possible life time
8871 * of tooltip is 30 seconds */
8872 SendMessage(beval->balloon, TTM_SETDELAYTIME, TTDT_AUTOPOP, 30000);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008873 /*
8874 * HACK: force tooltip to appear, because it'll not appear until
8875 * first mouse move. D*mn M$
Bram Moolenaarb52e5322008-01-05 12:15:52 +00008876 * Amazingly moving (2, 2) and then (-1, -1) the mouse doesn't move.
Bram Moolenaar071d4272004-06-13 20:20:40 +00008877 */
Bram Moolenaarb52e5322008-01-05 12:15:52 +00008878 mouse_event(MOUSEEVENTF_MOVE, 2, 2, 0, 0);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008879 mouse_event(MOUSEEVENTF_MOVE, (DWORD)-1, (DWORD)-1, 0, 0);
Bram Moolenaar45360022005-07-21 21:08:21 +00008880 vim_free(pti);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008881}
8882
8883 static void
Bram Moolenaar68c2f632016-01-30 17:24:07 +01008884delete_tooltip(BalloonEval *beval)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008885{
Bram Moolenaar8e5f5b42015-08-26 23:12:38 +02008886 PostMessage(beval->balloon, WM_CLOSE, 0, 0);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008887}
8888
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00008889/*ARGSUSED*/
Bram Moolenaar071d4272004-06-13 20:20:40 +00008890 static VOID CALLBACK
Bram Moolenaar68c2f632016-01-30 17:24:07 +01008891BevalTimerProc(
8892 HWND hwnd,
8893 UINT uMsg,
8894 UINT_PTR idEvent,
8895 DWORD dwTime)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008896{
8897 POINT pt;
8898 RECT rect;
8899
8900 if (cur_beval == NULL || cur_beval->showState == ShS_SHOWING || !p_beval)
8901 return;
8902
8903 GetCursorPos(&pt);
8904 if (WindowFromPoint(pt) != s_textArea)
8905 return;
8906
8907 ScreenToClient(s_textArea, &pt);
8908 GetClientRect(s_textArea, &rect);
8909 if (!PtInRect(&rect, pt))
8910 return;
8911
8912 if (LastActivity > 0
8913 && (dwTime - LastActivity) >= (DWORD)p_bdlay
8914 && (cur_beval->showState != ShS_PENDING
8915 || abs(cur_beval->x - pt.x) > 3
8916 || abs(cur_beval->y - pt.y) > 3))
8917 {
8918 /* Pointer resting in one place long enough, it's time to show
8919 * the tooltip. */
8920 cur_beval->showState = ShS_PENDING;
8921 cur_beval->x = pt.x;
8922 cur_beval->y = pt.y;
8923
Bram Moolenaare2cc9702005-03-15 22:43:58 +00008924 // TRACE0("BevalTimerProc: sending request");
Bram Moolenaar071d4272004-06-13 20:20:40 +00008925
8926 if (cur_beval->msgCB != NULL)
8927 (*cur_beval->msgCB)(cur_beval, 0);
8928 }
8929}
8930
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00008931/*ARGSUSED*/
Bram Moolenaar071d4272004-06-13 20:20:40 +00008932 void
Bram Moolenaar68c2f632016-01-30 17:24:07 +01008933gui_mch_disable_beval_area(BalloonEval *beval)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008934{
Bram Moolenaare2cc9702005-03-15 22:43:58 +00008935 // TRACE0("gui_mch_disable_beval_area {{{");
Bram Moolenaar071d4272004-06-13 20:20:40 +00008936 KillTimer(s_textArea, BevalTimerId);
Bram Moolenaare2cc9702005-03-15 22:43:58 +00008937 // TRACE0("gui_mch_disable_beval_area }}}");
Bram Moolenaar071d4272004-06-13 20:20:40 +00008938}
8939
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00008940/*ARGSUSED*/
Bram Moolenaar071d4272004-06-13 20:20:40 +00008941 void
Bram Moolenaar68c2f632016-01-30 17:24:07 +01008942gui_mch_enable_beval_area(BalloonEval *beval)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008943{
Bram Moolenaare2cc9702005-03-15 22:43:58 +00008944 // TRACE0("gui_mch_enable_beval_area |||");
Bram Moolenaar071d4272004-06-13 20:20:40 +00008945 if (beval == NULL)
8946 return;
Bram Moolenaare2cc9702005-03-15 22:43:58 +00008947 // TRACE0("gui_mch_enable_beval_area {{{");
Bram Moolenaar167632f2010-05-26 21:42:54 +02008948 BevalTimerId = SetTimer(s_textArea, 0, (UINT)(p_bdlay / 2), BevalTimerProc);
Bram Moolenaare2cc9702005-03-15 22:43:58 +00008949 // TRACE0("gui_mch_enable_beval_area }}}");
Bram Moolenaar071d4272004-06-13 20:20:40 +00008950}
8951
8952 void
Bram Moolenaar68c2f632016-01-30 17:24:07 +01008953gui_mch_post_balloon(BalloonEval *beval, char_u *mesg)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008954{
8955 POINT pt;
Bram Moolenaare2cc9702005-03-15 22:43:58 +00008956 // TRACE0("gui_mch_post_balloon {{{");
Bram Moolenaar071d4272004-06-13 20:20:40 +00008957 if (beval->showState == ShS_SHOWING)
8958 return;
8959 GetCursorPos(&pt);
8960 ScreenToClient(s_textArea, &pt);
8961
8962 if (abs(beval->x - pt.x) < 3 && abs(beval->y - pt.y) < 3)
8963 /* cursor is still here */
8964 {
8965 gui_mch_disable_beval_area(cur_beval);
8966 beval->showState = ShS_SHOWING;
Bram Moolenaar418f81b2016-02-16 20:12:02 +01008967 make_tooltip(beval, (char *)mesg, pt);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008968 }
Bram Moolenaare2cc9702005-03-15 22:43:58 +00008969 // TRACE0("gui_mch_post_balloon }}}");
Bram Moolenaar071d4272004-06-13 20:20:40 +00008970}
8971
Bram Moolenaard857f0e2005-06-21 22:37:39 +00008972/*ARGSUSED*/
Bram Moolenaar071d4272004-06-13 20:20:40 +00008973 BalloonEval *
Bram Moolenaar68c2f632016-01-30 17:24:07 +01008974gui_mch_create_beval_area(
8975 void *target, /* ignored, always use s_textArea */
8976 char_u *mesg,
8977 void (*mesgCB)(BalloonEval *, int),
8978 void *clientData)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008979{
8980 /* partially stolen from gui_beval.c */
8981 BalloonEval *beval;
8982
8983 if (mesg != NULL && mesgCB != NULL)
8984 {
8985 EMSG(_("E232: Cannot create BalloonEval with both message and callback"));
8986 return NULL;
8987 }
8988
8989 beval = (BalloonEval *)alloc(sizeof(BalloonEval));
8990 if (beval != NULL)
8991 {
8992 beval->target = s_textArea;
8993 beval->balloon = NULL;
8994
8995 beval->showState = ShS_NEUTRAL;
8996 beval->x = 0;
8997 beval->y = 0;
8998 beval->msg = mesg;
8999 beval->msgCB = mesgCB;
9000 beval->clientData = clientData;
9001
9002 InitCommonControls();
Bram Moolenaar071d4272004-06-13 20:20:40 +00009003 cur_beval = beval;
9004
9005 if (p_beval)
9006 gui_mch_enable_beval_area(beval);
9007
9008 }
9009 return beval;
9010}
9011
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009012/*ARGSUSED*/
Bram Moolenaar071d4272004-06-13 20:20:40 +00009013 static void
Bram Moolenaar442b4222010-05-24 21:34:22 +02009014Handle_WM_Notify(HWND hwnd, LPNMHDR pnmh)
Bram Moolenaar071d4272004-06-13 20:20:40 +00009015{
9016 if (pnmh->idFrom != ID_BEVAL_TOOLTIP) /* it is not our tooltip */
9017 return;
9018
9019 if (cur_beval != NULL)
9020 {
Bram Moolenaar45360022005-07-21 21:08:21 +00009021 switch (pnmh->code)
Bram Moolenaar071d4272004-06-13 20:20:40 +00009022 {
Bram Moolenaar45360022005-07-21 21:08:21 +00009023 case TTN_SHOW:
Bram Moolenaare2cc9702005-03-15 22:43:58 +00009024 // TRACE0("TTN_SHOW {{{");
9025 // TRACE0("TTN_SHOW }}}");
Bram Moolenaar45360022005-07-21 21:08:21 +00009026 break;
9027 case TTN_POP: /* Before tooltip disappear */
Bram Moolenaare2cc9702005-03-15 22:43:58 +00009028 // TRACE0("TTN_POP {{{");
Bram Moolenaar071d4272004-06-13 20:20:40 +00009029 delete_tooltip(cur_beval);
9030 gui_mch_enable_beval_area(cur_beval);
Bram Moolenaare2cc9702005-03-15 22:43:58 +00009031 // TRACE0("TTN_POP }}}");
Bram Moolenaar071d4272004-06-13 20:20:40 +00009032
9033 cur_beval->showState = ShS_NEUTRAL;
Bram Moolenaar45360022005-07-21 21:08:21 +00009034 break;
9035 case TTN_GETDISPINFO:
Bram Moolenaar6c9176d2008-01-03 19:45:15 +00009036 {
9037 /* if you get there then we have new common controls */
9038 NMTTDISPINFO_NEW *info = (NMTTDISPINFO_NEW *)pnmh;
9039 info->lpszText = (LPSTR)info->lParam;
9040 info->uFlags |= TTF_DI_SETITEM;
9041 }
Bram Moolenaar45360022005-07-21 21:08:21 +00009042 break;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009043 }
9044 }
9045}
9046
9047 static void
9048TrackUserActivity(UINT uMsg)
9049{
9050 if ((uMsg >= WM_MOUSEFIRST && uMsg <= WM_MOUSELAST)
9051 || (uMsg >= WM_KEYFIRST && uMsg <= WM_KEYLAST))
9052 LastActivity = GetTickCount();
9053}
9054
9055 void
Bram Moolenaar68c2f632016-01-30 17:24:07 +01009056gui_mch_destroy_beval_area(BalloonEval *beval)
Bram Moolenaar071d4272004-06-13 20:20:40 +00009057{
9058 vim_free(beval);
9059}
9060#endif /* FEAT_BEVAL */
9061
9062#if defined(FEAT_NETBEANS_INTG) || defined(PROTO)
9063/*
9064 * We have multiple signs to draw at the same location. Draw the
9065 * multi-sign indicator (down-arrow) instead. This is the Win32 version.
9066 */
9067 void
9068netbeans_draw_multisign_indicator(int row)
9069{
9070 int i;
9071 int y;
9072 int x;
9073
Bram Moolenaarb26e6322010-05-22 21:34:09 +02009074 if (!netbeans_active())
Bram Moolenaarcc448b32010-07-14 16:52:17 +02009075 return;
Bram Moolenaarb26e6322010-05-22 21:34:09 +02009076
Bram Moolenaar071d4272004-06-13 20:20:40 +00009077 x = 0;
9078 y = TEXT_Y(row);
9079
9080 for (i = 0; i < gui.char_height - 3; i++)
9081 SetPixel(s_hdc, x+2, y++, gui.currFgColor);
9082
9083 SetPixel(s_hdc, x+0, y, gui.currFgColor);
9084 SetPixel(s_hdc, x+2, y, gui.currFgColor);
9085 SetPixel(s_hdc, x+4, y++, gui.currFgColor);
9086 SetPixel(s_hdc, x+1, y, gui.currFgColor);
9087 SetPixel(s_hdc, x+2, y, gui.currFgColor);
9088 SetPixel(s_hdc, x+3, y++, gui.currFgColor);
9089 SetPixel(s_hdc, x+2, y, gui.currFgColor);
9090}
Bram Moolenaare0874f82016-01-24 20:36:41 +01009091#endif