1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
/* Copyright ENPC */
/* wchoose.c
* Scilab [ gcwin32 and WIN32 ]
* Jean-Philipe Chancelier
* Bugs and mail : Scilab@inria.fr
* modeless version
*/
#include "wmen_scilab.h"
static HWND ChooseModeless = (HWND) 0 ; /* the modeless Choose Window */
extern HWND HelpModeless ; /* the modeless Help Window */
static ChooseMenu *Ch ;
/****************************************************
* Scilab Choose Menu (Windows part )
****************************************************/
EXPORT BOOL CALLBACK
ChooseDlgProc(HWND hdlg, UINT wmsg, WPARAM wparam, LPARAM lparam)
{
int i;
/** Ch = (ChooseMenu * )GetWindowLong(GetParent(hdlg), 4); **/
switch (wmsg) {
case WM_INITDIALOG:
if ( SciMenusRect.left != -1)
SetWindowPos(hdlg,HWND_TOP,SciMenusRect.left,SciMenusRect.top,0,0,
SWP_NOSIZE | SWP_NOZORDER );
for (i=0; i < Ch->nstrings ; i++) {
SendDlgItemMessage(hdlg, CHOOSE_LINENUM, LB_ADDSTRING, 0,
(LPARAM)((LPSTR) Ch->strings[i]));
}
SendDlgItemMessage(hdlg, CHOOSE_LINENUM, LB_SETCURSEL,Ch->choice, 0L);
SetDlgItemText(hdlg, CHOOSE_TEXT, Ch->description);
return TRUE;
case WM_COMMAND:
Ch->choice = (UINT)SendDlgItemMessage(hdlg,CHOOSE_LINENUM,LB_GETCURSEL,0,0L);
switch (LOWORD(wparam))
{
case CHOOSE_LINENUM:
return FALSE;
case IDOK:
GetWindowRect(hdlg,&SciMenusRect);
DestroyWindow(hdlg);
ChooseModeless = (HWND)0;
Ch->status = TRUE;
return TRUE;
case IDCANCEL:
GetWindowRect(hdlg,&SciMenusRect);
DestroyWindow(hdlg);
ChooseModeless = (HWND)0;
Ch->status = FALSE;
return TRUE;
}
break;
case WM_CLOSE:
/** sciprint("OK fini sur close : \r\n");**/
GetWindowRect(hdlg,&SciMenusRect);
DestroyWindow(hdlg);
ChooseModeless = (HWND)0;
Ch->status = FALSE;
return TRUE;
break ;
case WM_DRAWITEM:
{
LPDRAWITEMSTRUCT lpdis = (LPDRAWITEMSTRUCT)lparam;
DrawIcon(lpdis->hDC, 0, 0,
(HICON)GetClassLong(GetParent(hdlg), GCL_HICON));
Ch->choice = (UINT)SendDlgItemMessage(hdlg, CHOOSE_LINENUM, LB_GETCURSEL,
(WPARAM)0, (LPARAM)0);
}
return FALSE;
}
return FALSE;
}
/****************************************************
* Activate the Menu
****************************************************/
int ExposeChooseWindow( ChooseMenu *PCh)
{
MSG msg;
DLGPROC MyChooseDlgProc ;
PCh->status = -1;
/** SetWindowLong(textwin.hWndParent, 4, (LONG) PCh); **/
Ch = PCh;
MyChooseDlgProc = (DLGPROC) MyGetProcAddress("ChooseDlgProc",
ChooseDlgProc);
if (ChooseModeless == (HWND)0 )
ChooseModeless= CreateDialog(hdllInstance,"SciChooseDlgBox",
NULL,
/** NULL or textwin.hWndParent, **/
MyChooseDlgProc) ;
else
{
sciprint("You cannot open more than one choose dialog at a time \r\n");
return FALSE;
}
while (PeekMessage(&msg, 0, 0, 0, PM_REMOVE) || PCh->status == -1 )
{
if ( CtrlCHit(&textwin) == 1)
{
if ( ChooseModeless != (HWND) 0) DestroyWindow( ChooseModeless) ;
ChooseModeless = (HWND)0;
PCh->status = FALSE;
break;
}
if ( ChooseModeless ==0 || ! IsDialogMessage(ChooseModeless,&msg))
{
if ( HelpModeless == 0 || ! IsDialogMessage(HelpModeless,&msg) )
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}
}
SetWindowLong(textwin.hWndParent, 4, (LONG)(0L));
return PCh->status;
}
|
