source: trunk/dll/common.c@ 1528

Last change on this file since 1528 was 1498, checked in by Gregg Young, 16 years ago

Changes to get FM2 to compile with the latest watcom 1.9 beta (mostly type casts of CHAR CONSTANT * to CHAR *). Changes to get the environment settings working everywhere again (broken by the change that moved commands to the INI); Added an environment size variable (set to 2048 which was the largest I found hard coded). Still need to find everywhere the environment size is set and use this variable.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 25.1 KB
Line 
1
2/***********************************************************************
3
4 $Id: common.c 1498 2010-01-18 00:57:01Z gyoung $
5
6 Common window functions
7
8 Copyright (c) 1993, 1998 M. Kimes
9 Copyright (c) 2001, 2010 Steven H. Levine
10
11 13 Aug 05 SHL Renames
12 22 Jul 06 SHL Check more run time errors
13 15 Aug 06 SHL Use Dos_Error
14 03 Nov 06 SHL Rework thread usage count logic
15 07 Jan 07 GKY Move error strings etc. to string file
16 07 Jan 07 GKY Updated Helv font to vector font Helvetica
17 22 Mar 07 GKY Use QWL_USER
18 30 Mar 07 GKY Remove GetPString for window class names
19 02 Aug 07 SHL Sync with CNRITEM mods
20 20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat
21 26 Aug 07 SHL Change to DosSleep(0)
22 29 Feb 08 GKY Use xfree where appropriate
23 06 Jul 08 GKY Update delete/undelete to include move to and open XWP trashcan
24 01 Jan 09 GKY Add option to rescan tree container on eject of removable media
25 11 Jan 09 GKY Replace font names in the string file with global set at compile in init.c
26 07 Feb 09 GKY Eliminate Win_Error2 by moving function names to PCSZs used in Win_Error
27 08 Mar 09 GKY Additional strings move to PCSZs in init.c
28 22 Jul 09 GKY Drivebar enhancements add refresh removable, rescan all drives, drive button
29 22 Jul 09 GKY Drivebar enhancements add refresh removable, rescan all drives, drive button
30 loads drive root directory in directory container or expands drive tree
31 and rescans drive in tree container depending on container focus, greyed out
32 inappropriate menu context choices
33 14 Sep 09 SHL Blink thread LEDs while threads working
34 17 JAN 10 GKY Changes to get working with Watcom 1.9 Beta (1/16/10). Mostly cast CHAR CONSTANT * as CHAR *.
35
36***********************************************************************/
37
38#include <stdlib.h>
39#include <string.h>
40#include <ctype.h>
41
42#define INCL_DOS
43#define INCL_DOSERRORS
44#define INCL_WIN
45#define INCL_GPI
46#define INCL_LONGLONG // dircnrs.h
47
48#include "fm3dll.h"
49#include "fm3dll2.h" // #define's for UM_*, control id's, etc.
50#include "mainwnd2.h" // Data declaration(s)
51#include "killproc.h" // Data declaration(s)
52#include "collect.h" // Data declaration(s)
53#include "grep.h" // Data declaration(s)
54#include "dircnrs.h" // Data declaration(s)
55#include "notebook.h" // Data declaration(s)
56#include "inis.h" // Data declaration(s)
57#include "init.h" // Data declaration(s)
58#include "treecnr.h" // Data declaration(s)
59#include "fm3dlg.h"
60#include "fm3str.h"
61#include "mle.h"
62#include "filldir.h" // RemoveCnrItems
63#include "errutil.h" // Dos_Error...
64#include "strutil.h" // GetPString
65#include "autoview.h" // AutoViewProc
66#include "mainwnd.h" // BuildDriveBarButtons, GetNextWindowPos, TopWindow
67#include "common.h"
68#include "dirsize.h" // DirSizeProc
69#include "info.h" // DrvInfoProc, SetDrvProc
70#include "seeall.h" // StartSeeAll
71#include "misc.h" // Broadcast
72#include "valid.h" // CheckDrive
73#include "mkdir.h" // PMMkDir
74#include "presparm.h" // SetPresParams
75#include "undel.h" // UndeleteDlgProc
76#include "systemf.h" // runemf2
77#include "wrappers.h" // xfree
78#include "fortify.h"
79
80// Data definitions
81#pragma data_seg(DATA1)
82static PSZ pszSrcFile = __FILE__;
83static HWND hwndLED;
84static HWND hwndLEDHdr;
85
86#pragma data_seg(GLOBAL1)
87HWND hwndBack;
88
89MRESULT EXPENTRY CommonFrameWndProc(USHORT id,
90 HWND hwnd,
91 ULONG msg, MPARAM mp1, MPARAM mp2)
92{
93 PFNWP oldproc = (PFNWP) WinQueryWindowPtr(hwnd, QWL_USER);
94
95 switch (msg) {
96 case UM_TIMER:
97 case UM_ACTION:
98 case UM_SHOWME:
99 case UM_OPENWINDOWFORME:
100 case UM_MINIMIZE:
101 case UM_MAXIMIZE:
102 case UM_CONTAINERDIR:
103 case UM_FILTER:
104 case UM_INITMENU:
105 case UM_COMMAND:
106 case UM_UPDATERECORD:
107 case UM_UPDATERECORDLIST:
108 case WM_COMMAND:
109 case MM_PORTHOLEINIT:
110 case WM_INITMENU:
111 case UM_CONTAINER_FILLED:
112 case UM_FILESMENU:
113 return WinSendMsg(WinWindowFromID(hwnd, FID_CLIENT), msg, mp1, mp2);
114
115 case UM_CONTEXTMENU:
116 PostMsg(WinWindowFromID(hwnd, FID_CLIENT), msg, mp1, mp2);
117 return 0;
118
119 case UM_CONTAINERHWND:
120 return MRFROMLONG(WinWindowFromID(hwnd, id));
121
122 case DM_DROP:
123 case DM_DRAGOVER:
124 case DM_DRAGLEAVE:
125 case DM_DROPHELP:
126 {
127 CNRDRAGINFO cnd;
128 USHORT dcmd;
129
130 switch (msg) {
131 case DM_DROP:
132 dcmd = CN_DROP;
133 break;
134 case DM_DRAGOVER:
135 dcmd = CN_DRAGOVER;
136 break;
137 case DM_DRAGLEAVE:
138 dcmd = CN_DRAGLEAVE;
139 break;
140 case DM_DROPHELP:
141 dcmd = CN_DROPHELP;
142 break;
143 }
144 cnd.pDragInfo = (PDRAGINFO) mp1;
145 cnd.pRecord = NULL;
146 return WinSendMsg(WinWindowFromID(hwnd, FID_CLIENT),
147 WM_CONTROL, MPFROM2SHORT(id, dcmd), MPFROMP(&cnd));
148 }
149
150 case UM_RESCAN:
151 if (fAutoTile &&
152 !fAmClosing && !fNoTileUpdate && !ParentIsDesktop(hwnd, (HWND) 0))
153 PostMsg(WinQueryWindow(hwnd, QW_PARENT), UM_RESCAN, MPVOID, MPVOID);
154 return 0;
155
156 case WM_MINMAXFRAME:
157 {
158 PSWP pswp = (PSWP) mp1;
159 MRESULT rc;
160
161 rc = oldproc(hwnd, msg, mp1, mp2);
162 if (pswp->fl & (SWP_MINIMIZE | SWP_HIDE | SWP_RESTORE))
163 WinSendMsg(hwnd, UM_RESCAN, MPVOID, MPVOID);
164 return rc;
165 }
166
167 case WM_DESTROY:
168 WinSendMsg(hwnd, UM_RESCAN, MPVOID, MPVOID);
169 break;
170 }
171 return oldproc(hwnd, msg, mp1, mp2);
172}
173
174MRESULT EXPENTRY CommonTextProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
175{
176 switch (msg) {
177 case WM_CREATE:
178 {
179 MRESULT rc;
180
181 rc = PFNWPStatic(hwnd, msg, mp1, mp2);
182 switch (WinQueryWindowUShort(hwnd, QWS_ID))
183 case DIR_SORT:
184 case DIR_VIEW:
185 case DIR_FILTER:
186 //fixme to allow user to change presparams 1-10-09 GKY
187 SetPresParams(hwnd, &RGBGREY, &RGBBLACK, &RGBBLACK, FNT_8HELVETICA);
188 return rc;
189 }
190 }
191 return PFNWPStatic(hwnd, msg, mp1, mp2);
192}
193
194void CommonTextPaint(HWND hwnd, HPS hps)
195{
196 int x;
197 USHORT ids[] = { DIR_FOLDERICON, DIR_TOTALS, DIR_SELECTED, DIR_VIEW,
198 DIR_FILTER, DIR_SORT, DIR_MAX, 0
199 };
200 BOOL bools[] = { TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE };
201
202 for (x = 0; ids[x]; x++) {
203 if (WinWindowFromID(hwnd, ids[x]) != (HWND) 0)
204 PaintRecessedWindow(WinWindowFromID(hwnd, ids[x]), hps,
205 bools[x], FALSE);
206 }
207}
208
209void CommonCreateTextChildren(HWND hwnd, PCSZ class, USHORT * ids)
210{
211 int x;
212 CHAR s[33];
213 ULONG attrs;
214 HWND hwndTmp;
215
216 if (!hwnd || !class || !ids) {
217 Runtime_Error(pszSrcFile, __LINE__, NULL);
218 return;
219 }
220
221 for (x = 0; ids[x]; x++) {
222 *s = 0;
223 switch (ids[x]) {
224 case DIR_SORT:
225 case DIR_FILTER:
226 case DIR_VIEW:
227 attrs = SS_TEXT | DT_LEFT | DT_VCENTER;
228 break;
229 case DIR_FOLDERICON:
230 case DIR_MAX:
231 attrs = SS_BITMAP;
232 sprintf(s, "#%d", ids[x]);
233 break;
234 default:
235 attrs = SS_TEXT | DT_CENTER | DT_VCENTER;
236 break;
237 }
238 hwndTmp = WinCreateWindow(hwnd, (CHAR *) class, s, attrs, 0, 0, 0, 0, hwnd,
239 HWND_TOP, ids[x], NULL, NULL);
240 if (!hwndTmp)
241 Win_Error(hwnd, hwnd, pszSrcFile, __LINE__,
242 PCSZ_WINCREATEWINDOW);
243 } // for
244}
245
246void CommonDriveCmd(HWND hwnd, char *drive, USHORT cmd)
247{
248 char dv[CCHMAXPATH];
249
250 if (!drive || !*drive)
251 return;
252 strcpy(dv, drive);
253 MakeValidDir(dv);
254
255 switch (cmd) {
256 case IDM_MKDIR:
257 PMMkDir(hwnd, dv, FALSE);
258 break;
259 case IDM_INFO:
260 WinDlgBox(HWND_DESKTOP,
261 HWND_DESKTOP,
262 DrvInfoProc, FM3ModHandle, INFO_FRAME, (PVOID) dv);
263 break;
264 case IDM_DRVFLAGS:
265 strcpy(dv, drive); // Must use original drive letter
266 if (WinDlgBox(HWND_DESKTOP,
267 hwnd,
268 SetDrvProc,
269 FM3ModHandle, DVS_FRAME, MPFROMP(dv)) && hwndTree)
270 if (!PostMsg(hwndTree, UM_SHOWME, MPFROMP(dv), MPVOID))
271 PostMsg(hwndTree, WM_COMMAND, MPFROM2SHORT(IDM_UPDATE, 0), MPVOID);
272 break;
273 case IDM_SIZES:
274 WinDlgBox(HWND_DESKTOP,
275 HWND_DESKTOP, DirSizeProc, FM3ModHandle, DSZ_FRAME, dv);
276 break;
277 case IDM_SHOWALLFILES:
278 StartSeeAll(HWND_DESKTOP, FALSE, dv);
279 break;
280 case IDM_UNDELETE:
281 {
282 HOBJECT hObject;
283 HWND hwndDesktop;
284
285 hObject = WinQueryObject("<XWP_TRASHCAN>");
286 if (hObject != NULLHANDLE && fTrashCan) {
287 hwndDesktop = WinQueryDesktopWindow((HAB) 0, NULLHANDLE);
288 WinSetFocus(HWND_DESKTOP, hwndDesktop);
289 WinOpenObject(hObject, 0, TRUE);
290 }
291 else
292 WinDlgBox(HWND_DESKTOP,
293 hwnd,
294 UndeleteDlgProc,
295 FM3ModHandle, UNDEL_FRAME, MPFROMP(dv));
296 }
297 break;
298 case IDM_CHKDSK:
299 runemf2(SEPARATE | WINDOWED,
300 hwnd, pszSrcFile, __LINE__, NULL, NULL,
301 "PMCHKDSK.EXE %c:", toupper(*dv));
302 break;
303 case IDM_OPTIMIZE:
304 {
305 CHAR FileSystem[CCHMAXPATH];
306 ULONG type;
307
308 CheckDrive(*dv, FileSystem, &type);
309 if (*FileSystem) {
310 strcat(FileSystem, "OPT.CMD");
311 runemf2(SEPARATE | WINDOWED,
312 hwnd, pszSrcFile, __LINE__,
313 NULL,
314 NULL,
315 "%s /C %s %c:", GetCmdSpec(FALSE), FileSystem, toupper(*dv));
316 }
317 }
318 break;
319 case IDM_FORMAT:
320 runemf2(SEPARATE | WINDOWED,
321 hwnd, pszSrcFile, __LINE__, NULL, NULL,
322 "PMFORMAT.EXE %c:", toupper(*dv));
323 break;
324
325#if 0 // fixme to be gone?
326
327 case IDM_CLOSETRAY:
328 if (driveflags[*dv - 'A'] & DRIVE_CDROM) {
329
330 BYTE parm[4] = { "CD01" };
331 ULONGLONG dlen;
332 ULONG plen;
333 HFILE hfile;
334 APIRET rc;
335
336 dv[2] = 0;
337 rc = DosOpen(dv,
338 &hfile,
339 &dlen,
340 0,
341 0,
342 OPEN_ACTION_OPEN_IF_EXISTS |
343 OPEN_ACTION_CREATE_IF_NEW,
344 OPEN_FLAGS_DASD |
345 OPEN_FLAGS_FAIL_ON_ERROR | OPEN_SHARE_DENYNONE, NULL);
346 if (rc)
347 Dos_Error(MB_CANCEL, rc, hwnd, pszSrcFile, __LINE__, "DosOpen");
348 else {
349 dlen = 0;
350 plen = sizeof(parm);
351 rc = DosDevIOCtl(hfile,
352 0x80,
353 0x45, &parm, sizeof(parm), &plen, NULL, 0, &dlen);
354 DosClose(hfile);
355 if (rc)
356 Dos_Error(MB_CANCEL, rc, hwnd, pszSrcFile, __LINE__, "DosDevIOCtl");
357 }
358 }
359 break;
360#endif // fixme to be gone?
361
362 case IDM_LOCK:
363 case IDM_UNLOCK:
364 case IDM_EJECT:
365 {
366 UCHAR parm[2];
367 ULONG plen = sizeof(parm), dlen = 0L;
368 APIRET rc;
369
370 switch (SHORT1FROMMP(cmd)) {
371 case IDM_LOCK:
372 parm[0] = 1;
373 break;
374 case IDM_UNLOCK:
375 parm[0] = 0;
376 break;
377 case IDM_EJECT:
378 parm[0] = 2;
379 break;
380 }
381 parm[1] = *dv - 'A';
382 DosError(FERR_DISABLEHARDERR);
383 rc = DosDevIOCtl(-1L, 8L, 0x40L, &parm, sizeof(parm), &plen, NULL, 0L, &dlen);
384 if (cmd == IDM_EJECT &&
385 (fEjectFlpyScan ? TRUE : parm[1] > 1) &&
386 (fEjectCDScan ? TRUE : !(driveflags[parm[1]] & DRIVE_CDROM)) &&
387 (fEjectRemovableScan ? TRUE : (parm[1] < 2 || driveflags[parm[1]] & DRIVE_CDROM))) {
388 BOOL toggleTree = FALSE;
389
390 if (!hwndTree) {
391 WinSendMsg(hwndMain, WM_COMMAND, MPFROM2SHORT(IDM_VTREE, 0), MPVOID);
392 toggleTree = TRUE;
393 }
394 WinSendMsg(hwndTree, WM_COMMAND, MPFROM2SHORT(IDM_RESCAN, 0), MPVOID);
395 if (toggleTree)
396 WinSendMsg(hwndMain, WM_COMMAND, MPFROM2SHORT(IDM_VTREE, 0), MPVOID);
397 }
398 }
399 break;
400
401 case IDM_RESCAN:
402 {
403 BOOL toggleTree = FALSE;
404
405 if (!hwndTree) {
406 WinSendMsg(hwndMain, WM_COMMAND, MPFROM2SHORT(IDM_VTREE, 0), MPVOID);
407 toggleTree = TRUE;
408 }
409 WinSendMsg(hwndTree, WM_COMMAND, MPFROM2SHORT(IDM_RESCAN, 0), MPVOID);
410 if (toggleTree)
411 WinSendMsg(hwndMain, WM_COMMAND, MPFROM2SHORT(IDM_VTREE, 0), MPVOID);
412 }
413 break;
414
415 case IDM_REFRESHREMOVABLES:
416 {
417 BOOL toggleTree = FALSE;
418
419 if (!hwndTree) {
420 WinSendMsg(hwndMain, WM_COMMAND, MPFROM2SHORT(IDM_VTREE, 0), MPVOID);
421 toggleTree = TRUE;
422 }
423 WinSendMsg(hwndTree, WM_COMMAND, MPFROM2SHORT(IDM_REFRESHREMOVABLES, 0), MPVOID);
424 if (toggleTree)
425 WinSendMsg(hwndMain, WM_COMMAND, MPFROM2SHORT(IDM_VTREE, 0), MPVOID);
426 }
427 break;
428 }
429}
430
431void CommonCreateMainChildren(HWND hwnd, SWP * swp)
432{
433 HWND hwndFrame = WinQueryWindow(hwnd, QW_PARENT);
434 HWND hwndTmp;
435 PFNWP oldproc;
436
437 // Create a children of frame window
438 // Left status window
439 hwndStatus = WinCreateWindow(hwndFrame,
440 (CHAR *) WC_STATUS,
441 "Status",
442 WS_VISIBLE | SS_TEXT | DT_LEFT |
443 DT_VCENTER,
444 swp->x + 4 +
445 WinQuerySysValue(HWND_DESKTOP,
446 SV_CXSIZEBORDER),
447 swp->y + 4 +
448 WinQuerySysValue(HWND_DESKTOP,
449 SV_CYSIZEBORDER),
450 ((swp->cx / 2) - 8) -
451 (WinQuerySysValue(HWND_DESKTOP,
452 SV_CXSIZEBORDER) * 2),
453 20,
454 hwndFrame, HWND_TOP, MAIN_STATUS, NULL, NULL);
455 if (!hwndStatus)
456 Win_Error(hwndFrame, hwnd, pszSrcFile, __LINE__,
457 PCSZ_WINCREATEWINDOW);
458
459 // Right status window
460 hwndStatus2 = WinCreateWindow(hwndFrame,
461 (CHAR *) WC_STATUS,
462 "Status2",
463 WS_VISIBLE | SS_TEXT | DT_LEFT |
464 DT_VCENTER,
465 ((swp->cx / 2) + 4) +
466 WinQuerySysValue(HWND_DESKTOP,
467 SV_CXSIZEBORDER),
468 ((swp->cy / 2) + 4) +
469 WinQuerySysValue(HWND_DESKTOP,
470 SV_CYSIZEBORDER),
471 ((swp->cx / 2) - 8) -
472 (WinQuerySysValue(HWND_DESKTOP,
473 SV_CXSIZEBORDER) * 2),
474 20,
475 hwndFrame,
476 HWND_TOP, MAIN_STATUS2, NULL, NULL);
477 if (!hwndStatus2)
478 Win_Error(hwndFrame, hwnd, pszSrcFile, __LINE__,
479 PCSZ_WINCREATEWINDOW);
480
481 hwndAttr = WinCreateWindow(hwndFrame,
482 (CHAR *) WC_STATUS,
483 "Attr",
484 WS_VISIBLE | SS_TEXT | DT_CENTER |
485 DT_VCENTER,
486 swp->x + 4 +
487 WinQuerySysValue(HWND_DESKTOP,
488 SV_CXSIZEBORDER),
489 swp->y + 4 + 24 +
490 WinQuerySysValue(HWND_DESKTOP,
491 SV_CYSIZEBORDER),
492 ((swp->cx / 4) - 8) -
493 (WinQuerySysValue(HWND_DESKTOP,
494 SV_CXSIZEBORDER) * 2),
495 20, hwndFrame, HWND_TOP, IDM_ATTRS, NULL, NULL);
496 if (!hwndAttr)
497 Win_Error(hwndFrame, hwnd, pszSrcFile, __LINE__,
498 PCSZ_WINCREATEWINDOW);
499
500 hwndDate = WinCreateWindow(hwndFrame,
501 (CHAR *) WC_STATUS,
502 "Date",
503 WS_VISIBLE | SS_TEXT | DT_CENTER |
504 DT_VCENTER,
505 ((swp->x / 4) * 2) + 4 +
506 WinQuerySysValue(HWND_DESKTOP,
507 SV_CXSIZEBORDER),
508 swp->y + 4 + 24 +
509 WinQuerySysValue(HWND_DESKTOP,
510 SV_CYSIZEBORDER),
511 ((swp->cx / 4) - 8) -
512 (WinQuerySysValue(HWND_DESKTOP,
513 SV_CXSIZEBORDER) * 2),
514 20, hwndFrame, HWND_TOP, IDM_INFO, NULL, NULL);
515 if (!hwndDate)
516 Win_Error(hwndFrame, hwnd, pszSrcFile, __LINE__,
517 PCSZ_WINCREATEWINDOW);
518
519 hwndName = WinCreateWindow(hwndFrame,
520 (CHAR *) WC_STATUS,
521 "Name",
522 WS_VISIBLE | SS_TEXT | DT_LEFT |
523 DT_VCENTER,
524 ((swp->x / 4) * 3) + 4 +
525 WinQuerySysValue(HWND_DESKTOP,
526 SV_CXSIZEBORDER),
527 swp->y + 4 +
528 WinQuerySysValue(HWND_DESKTOP,
529 SV_CYSIZEBORDER),
530 ((swp->cx / 4) - 8) -
531 (WinQuerySysValue(HWND_DESKTOP,
532 SV_CXSIZEBORDER) * 2),
533 20, hwndFrame, HWND_TOP, IDM_RENAME, NULL, NULL);
534 if (!hwndName)
535 Win_Error(hwndFrame, hwnd, pszSrcFile, __LINE__,
536 PCSZ_WINCREATEWINDOW);
537
538 hwndTmp = WinCreateWindow(hwndFrame,
539 (CHAR *) WC_TOOLBACK,
540 NullStr,
541 WS_VISIBLE | SS_TEXT | DT_CENTER | DT_VCENTER,
542 swp->x +
543 WinQuerySysValue(HWND_DESKTOP,
544 SV_CXSIZEBORDER),
545 (swp->cy -
546 WinQuerySysValue(HWND_DESKTOP,
547 SV_CYSIZEBORDER)) - 30,
548 swp->cx -
549 (WinQuerySysValue(HWND_DESKTOP,
550 SV_CXSIZEBORDER) * 2),
551 30, hwndFrame, HWND_TOP, MAIN_TOOLS, NULL, NULL);
552 if (!hwndTmp)
553 Win_Error(hwndFrame, hwnd, pszSrcFile, __LINE__,
554 PCSZ_WINCREATEWINDOW);
555
556 hwndBack = WinCreateWindow(hwndFrame,
557 (CHAR *) WC_DRIVEBACK,
558 NullStr,
559 WS_VISIBLE | SS_TEXT | DT_RIGHT | DT_BOTTOM,
560 swp->x +
561 WinQuerySysValue(HWND_DESKTOP,
562 SV_CXSIZEBORDER),
563 (swp->cy -
564 WinQuerySysValue(HWND_DESKTOP,
565 SV_CYSIZEBORDER)) -
566 (DRIVE_BUTTON_HEIGHT),
567 swp->cx -
568 (WinQuerySysValue(HWND_DESKTOP,
569 SV_CXSIZEBORDER) * 2),
570 DRIVE_BUTTON_HEIGHT,
571 hwndFrame, HWND_TOP, MAIN_DRIVES, NULL, NULL);
572
573 if (!hwndBack)
574 Win_Error(hwndFrame, hwnd, pszSrcFile, __LINE__,
575 PCSZ_WINCREATEWINDOW);
576
577 hwndLED = WinCreateWindow(hwndFrame,
578 (CHAR *) WC_LED,
579 "#920", // LEDOFF_BMP
580 WS_VISIBLE | SS_BITMAP,
581 swp->cx - 58,
582 swp->y,
583 12,
584 12, hwndFrame, HWND_TOP, MAIN_LED, NULL, NULL);
585 if (!hwndLED)
586 Win_Error(hwndFrame, hwnd, pszSrcFile, __LINE__,
587 PCSZ_WINCREATEWINDOW);
588
589 hwndLEDHdr = WinCreateWindow(hwndFrame,
590 (CHAR *) WC_LED,
591 "0",
592 WS_VISIBLE | SS_TEXT | DT_VCENTER |
593 DT_CENTER,
594 swp->cx - 58,
595 swp->y + 12,
596 12,
597 12,
598 hwndFrame, HWND_TOP, MAIN_LEDHDR, NULL, NULL);
599 if (!hwndLEDHdr)
600 Win_Error(hwndFrame, hwnd, pszSrcFile, __LINE__,
601 PCSZ_WINCREATEWINDOW);
602
603 hwndAutoview = WinCreateWindow(hwndFrame,
604 (CHAR *) WC_AUTOVIEW,
605 NullStr,
606 WS_VISIBLE | SS_TEXT | DT_LEFT |
607 DT_TOP | DT_WORDBREAK,
608 swp->x + 4 +
609 WinQuerySysValue(HWND_DESKTOP,
610 SV_CXSIZEBORDER),
611 swp->y + 4 +
612 WinQuerySysValue(HWND_DESKTOP,
613 SV_CYSIZEBORDER) + 16,
614 (swp->cx - 8) -
615 (WinQuerySysValue(HWND_DESKTOP,
616 SV_CXSIZEBORDER) * 2),
617 48,
618 hwndFrame,
619 HWND_TOP, MAIN_AUTOVIEW, NULL, NULL);
620 if (!hwndAutoview)
621 Win_Error(hwndFrame, hwnd, pszSrcFile, __LINE__,
622 PCSZ_WINCREATEWINDOW);
623
624 hwndAutoMLE = WinCreateWindow(hwndFrame,
625 // GetPString(IDS_WCAUTOVIEW),
626 (CHAR *) WC_MLE,
627 NullStr,
628 WS_VISIBLE | MLS_HSCROLL |
629 MLS_VSCROLL | MLS_BORDER,
630 swp->x + 4 +
631 WinQuerySysValue(HWND_DESKTOP,
632 SV_CXSIZEBORDER),
633 swp->y + 4 +
634 WinQuerySysValue(HWND_DESKTOP,
635 SV_CYSIZEBORDER) + 16,
636 (swp->cx - 8) -
637 (WinQuerySysValue(HWND_DESKTOP,
638 SV_CXSIZEBORDER) * 2),
639 48,
640 hwndFrame,
641 HWND_TOP, MAIN_AUTOVIEWMLE, NULL, NULL);
642 if (!hwndAutoMLE)
643 Win_Error(hwndFrame, hwnd, pszSrcFile, __LINE__,
644 PCSZ_WINCREATEWINDOW);
645
646 oldproc = WinSubclassWindow(hwndAutoMLE, AutoViewProc);
647 WinSetWindowPtr(hwndAutoMLE, QWL_USER, (PVOID) oldproc);
648 PostMsg(hwndAutoMLE, UM_SETUP, MPVOID, MPVOID);
649}
650
651/**
652 * Called by MainWndProc and MainWndProc2 to process messages
653 * common to both fm/2 and fm/2 lite main window
654 */
655
656MRESULT EXPENTRY CommonMainWndProc(HWND hwnd, ULONG msg, MPARAM mp1,
657 MPARAM mp2)
658{
659 static BOOL fLedOn;
660 static LONG cWorkerThreads;
661
662 switch (msg) {
663 case UM_THREADUSE:
664 if (hbmLEDon && hbmLEDoff) {
665 CHAR sz[33];
666 if (mp1) {
667 cWorkerThreads++;
668 // 13 Sep 09 SHL fixme to be SMP safe
669 if (cWorkerThreads == 1) {
670 if (!WinStartTimer(WinQueryAnchorBlock(hwnd), hwnd, ID_LED_TIMER, 500))
671 Win_Error(hwnd, hwnd, pszSrcFile, __LINE__, "WinStartTimer");
672 fLedOn = TRUE;
673 WinSendMsg(hwndLED, SM_SETHANDLE, MPFROMLONG(hbmLEDon), MPVOID);
674 }
675 }
676 else if (cWorkerThreads > 0)
677 cWorkerThreads--;
678
679 ltoa(cWorkerThreads, sz, 10);
680 WinSetWindowText(hwndLEDHdr, sz);
681 DosSleep(0);
682 }
683 return 0;
684
685 case WM_TIMER:
686 fLedOn = !fLedOn;
687 WinSendMsg(hwndLED,
688 SM_SETHANDLE,
689 fLedOn ? MPFROMLONG(hbmLEDon) : MPFROMLONG(hbmLEDoff),
690 MPVOID);
691 if (!fLedOn && cWorkerThreads == 0) {
692 if (!WinStopTimer(WinQueryAnchorBlock(hwnd), hwnd, ID_LED_TIMER))
693 Win_Error(hwnd, hwnd, pszSrcFile, __LINE__, "WinStartTimer");
694 }
695 break;
696
697 case UM_LOADFILE:
698 {
699 CHAR *s = NULL;
700 static CHAR lastfile[CCHMAXPATH] = "";
701
702 if (!fAutoView) {
703 if (*lastfile)
704 PostMsg((fComments) ? hwndAutoMLE : hwndAutoview,
705 UM_LOADFILE, MPVOID, MPVOID);
706 *lastfile = 0;
707 }
708 else {
709 if (mp1) {
710 if (!mp2 && !stricmp(lastfile, (CHAR *)mp1))
711 return 0;
712 strcpy(lastfile, (CHAR *)mp1);
713 s = xstrdup(lastfile, pszSrcFile, __LINE__);
714 }
715 else
716 *lastfile = 0;
717 if (!PostMsg((fComments) ? hwndAutoMLE : hwndAutoview,
718 UM_LOADFILE, MPFROMP(s), MPVOID)) {
719 xfree(s, pszSrcFile, __LINE__);
720 }
721 }
722 }
723 return 0;
724
725 case UM_BUILDDRIVEBAR:
726 BuildDriveBarButtons(WinWindowFromID(WinQueryWindow(hwnd, QW_PARENT),
727 MAIN_DRIVES));
728 return 0;
729 }
730 return WinDefWindowProc(hwnd, msg, mp1, mp2);
731}
732
733MRESULT EXPENTRY CommonTextButton(HWND hwnd, ULONG msg, MPARAM mp1,
734 MPARAM mp2)
735{
736 static HWND hwndLast = (HWND) 0;
737 static ULONG lastclick = 0;
738
739 switch (msg) {
740 case WM_MOUSEMOVE:
741 shiftstate = (SHORT2FROMMP(mp2) & (KC_SHIFT | KC_ALT | KC_CTRL));
742 if (!fNoFinger) {
743 WinSetPointer(HWND_DESKTOP, hptrFinger);
744 return MRFROMLONG(TRUE);
745 }
746 break;
747
748 case WM_BUTTON1DOWN:
749 case WM_BUTTON3DOWN:
750 if (hwndBubble)
751 WinDestroyWindow(hwndBubble);
752 shiftstate = (SHORT2FROMMP(mp2) & (KC_SHIFT | KC_ALT | KC_CTRL));
753 WinSetCapture(HWND_DESKTOP, hwnd);
754 PaintRecessedWindow(hwnd, (HPS) 0, FALSE, FALSE);
755 break;
756
757 case WM_BUTTON2UP:
758 case WM_BUTTON2DOWN:
759 shiftstate = (SHORT2FROMMP(mp2) & (KC_SHIFT | KC_ALT | KC_CTRL));
760 if (msg == WM_BUTTON2UP && hwndLast) {
761 PostMsg(hwnd, UM_FOCUSME, MPFROMP(hwndLast), MPVOID);
762 hwndLast = (HWND) 0;
763 }
764 break;
765
766 case WM_BUTTON1UP:
767 case WM_BUTTON3UP:
768 shiftstate = (SHORT2FROMMP(mp2) & (KC_SHIFT | KC_ALT | KC_CTRL));
769 WinSetCapture(HWND_DESKTOP, (HWND) 0);
770 PaintRecessedWindow(hwnd, (HPS) 0, TRUE, FALSE);
771 {
772 ULONG check;
773
774 DosQuerySysInfo(QSV_MS_COUNT, QSV_MS_COUNT, &check, sizeof(check));
775 if (check > lastclick + 500) {
776
777 RECTL rcl;
778 POINTS pts;
779
780 pts.x = SHORT1FROMMP(mp1);
781 pts.y = SHORT2FROMMP(mp1);
782 WinQueryWindowRect(hwnd, &rcl);
783 if (pts.x > 0 && pts.y > 0 && pts.x < rcl.xRight && pts.y < rcl.yTop)
784 PostMsg(hwnd, UM_CLICKED + (msg == WM_BUTTON3UP), mp1, mp2);
785 }
786 lastclick = check;
787 }
788 PostMsg(hwnd, UM_FOCUSME, MPFROMP(hwndLast), MPVOID);
789 hwndLast = (HWND) 0;
790 break;
791
792 case WM_SETFOCUS:
793 if (mp2)
794 hwndLast = (HWND) mp1;
795 break;
796
797 case UM_FOCUSME:
798 if (mp1) {
799
800 PID pid;
801 TID tid;
802
803 if (WinIsWindow(WinQueryAnchorBlock(hwnd), (HWND) mp1) &&
804 WinQueryWindowProcess((HWND) mp1, &pid, &tid) && pid == mypid) {
805 WinSetFocus(HWND_DESKTOP, (HWND) mp1);
806 return 0;
807 }
808 }
809 {
810 HWND htemp = (HWND) 0;
811
812 if (hwndMain)
813 htemp = TopWindow(hwndMain, (HWND) 0);
814 if (!htemp)
815 htemp = hwndTree;
816 if (htemp)
817 WinSetFocus(HWND_DESKTOP, htemp);
818 else
819 WinSetFocus(HWND_DESKTOP, WinQueryWindow(hwnd, QW_PARENT));
820 }
821 return 0;
822 }
823
824 return PFNWPStatic(hwnd, msg, mp1, mp2);
825}
826
827MRESULT EXPENTRY CommonCnrProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
828{
829 DIRCNRDATA *dcd = WinQueryWindowPtr(hwnd, QWL_USER);
830
831 switch (msg) {
832 case UM_FIXCNRMLE:
833 if (dcd) {
834
835 SWP swp, swpC;
836
837 if (WinQueryWindowPos(WinWindowFromID(hwnd, CID_MLE), &swp)) {
838 if (WinQueryWindowPos(hwnd, &swpC)) {
839 swpC.cx -= (WinQuerySysValue(HWND_DESKTOP, SV_CXVSCROLL) + 4);
840 swpC.cx -= swp.x;
841 WinSetWindowPos(WinWindowFromID(hwnd, CID_MLE),
842 HWND_TOP, 0, 0, swpC.cx, swp.cy + 2, SWP_SIZE);
843 }
844 }
845 if (mp1)
846 WinSendMsg(WinWindowFromID(hwnd, CID_MLE),
847 MLM_SETTEXTLIMIT, mp1, MPVOID);
848 }
849 return 0;
850
851 case UM_FIXEDITNAME:
852 if (dcd) {
853 if (mp1 && (INT) mp1 != -1) {
854
855 CHAR *p;
856
857 WinSendMsg(hwnd, UM_FIXCNRMLE, MPFROMLONG(CCHMAXPATH), MPVOID);
858 MLEdelete(WinWindowFromID(hwnd, CID_MLE),
859 0, strlen((CHAR *)mp1) + 1);
860 WinSetDlgItemText(hwnd, CID_MLE, (CHAR *)mp1);
861 p = strrchr((CHAR *)mp1, '\\');
862 if (p) {
863 p++;
864 MLEsetcurposa(WinWindowFromID(hwnd, CID_MLE), (p - (CHAR *)mp1));
865 MLEsetcurposc(WinWindowFromID(hwnd, CID_MLE), strlen((CHAR *)mp1));
866 }
867 else
868 MLEsetcurpos(WinWindowFromID(hwnd, CID_MLE), strlen((CHAR *)mp1));
869 }
870 else if (mp2) {
871 if ((INT) mp1 == -1) {
872 PCNRITEM pci = (PCNRITEM) mp2;
873 RemoveCnrItems(hwnd, pci, 1, CMA_FREE | CMA_INVALIDATE);
874 }
875 else {
876 Broadcast(WinQueryAnchorBlock(hwnd),
877 dcd->hwndParent, UM_UPDATERECORD, mp2, MPVOID);
878 free(mp2);
879 }
880 }
881 }
882 return 0;
883 }
884 return PFNWPCnr(hwnd, msg, mp1, mp2);
885}
886
887HWND OpenDirCnr(HWND hwnd, HWND hwndParent, HWND hwndRestore,
888 BOOL noautotile, char *directory)
889{
890 SWP swp;
891 HWND hwndDir;
892
893 if (ParentIsDesktop(hwnd, hwndParent) || *(ULONG *) realappname != FM3UL)
894 StartDirCnr(HWND_DESKTOP, directory, hwndRestore, 1);
895 else if (*(ULONG *) realappname == FM3UL) {
896 if (!fAutoTile)
897 GetNextWindowPos(hwndParent, &swp, NULL, NULL);
898 hwndDir = StartDirCnr(hwndParent, directory, hwndRestore, 1);
899 if (hwndDir) {
900 if (!fAutoTile)
901 WinSetWindowPos(hwndDir,
902 HWND_TOP,
903 swp.x,
904 swp.y,
905 swp.cx,
906 swp.cy, SWP_MOVE | SWP_SIZE | SWP_SHOW | SWP_ZORDER);
907 else if (!noautotile)
908 TileChildren(hwndParent, TRUE);
909 WinSetWindowPos(hwndDir,
910 HWND_TOP,
911 0, 0, 0, 0, SWP_RESTORE | SWP_SHOW | SWP_ACTIVATE);
912 }
913 }
914 else {
915
916 char s[256];
917
918 assign_ignores(s);
919 runemf2(WINDOWED | SEPARATE,
920 hwnd, pszSrcFile, __LINE__,
921 NULL,
922 NULL,
923 "VDIR.EXE %s%s\"%s%s\"",
924 (*s) ? s : NullStr, (*s) ? " " : NullStr,
925 directory,
926 (directory[strlen(directory) - 1] == '\\') ? PCSZ_BACKSLASH : NullStr);
927 }
928 return hwndDir;
929}
930
931//= IncrThreadUsage() Increment thread usage counter ==
932
933VOID IncrThreadUsage(VOID)
934{
935 if (hwndMain)
936 WinPostMsg(hwndMain, UM_THREADUSE, MPFROMLONG(1), MPVOID);
937}
938
939//= DecrThreadUsage() Decrement thread usage counter ==
940
941VOID DecrThreadUsage(VOID)
942{
943 if (hwndMain)
944 WinPostMsg(hwndMain, UM_THREADUSE, MPVOID, MPVOID);
945}
946
947#pragma alloc_text(COMMON,CommonFrameWndProc,CommonTextProc,CommonTextPaint)
948#pragma alloc_text(COMMON1,CommonCreateTextChildren,CommonCreateMainChildren)
949#pragma alloc_text(COMMON2,CommonDriveCmd,CommonTextButton)
950#pragma alloc_text(COMMON3,CommonMainWndProc,IncrThreadUsage,DecrThreadUsage)
951#pragma alloc_text(COMMON4,CommonCnrProc)
952#pragma alloc_text(COMMON5,OpenDirCnr)
Note: See TracBrowser for help on using the repository browser.