Context Navigation

source: trunk/settings.cpp@ 41

Last change on this file since 41 was 41, checked in by Gregg Young, 7 years ago
Fix hang on non-full screen capture of window with a menu open; Fix failure of widow to come to the top when program set as always on top are running. Add part of window title to auto file names; Major overhaul of settings dialog for Gotcha Quiet. More _QUIET_ ifdefs added to split code where Gotcha and Gotcha Quiet differ.
Property svn:eol-style set to `native`
File size: 44.1 KB

Line
1	/***
2	This file belongs to the Gotcha! distribution.
3	Copyright (C) 1998-2002 Thorsten Thielen <thth@c2226.de>
4
5	This program is free software; you can redistribute it and/or modify
6	it under the terms of the GNU General Public License as published by
7	the Free Software Foundation; either version 2 of the License, or
8	(at your option) any later version.
9
10	This program is distributed in the hope that it will be useful,
11	but WITHOUT ANY WARRANTY; without even the implied warranty of
12	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13	GNU General Public License for more details.
14
15	You should have received a copy of the GNU General Public License
16	along with this program; if not, write to the Free Software
17	Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18	***/
19	#include <direct.h>
20	#include "settings.h"
21	#include "ctype.h"
22
23	#include "./settings/thth_settings.cpp"
24
25	PSZ SETTINGS::pszPageTab[COUNT_PAGES]; /* = {
26	"Saving", "Snapshot window", "Misc", "Language" };
27	// FIXME nls*/
28
29	bool saveum = FALSE;
30	SWP swpDef = { 0,0,0, 98,66, 0,0,0,0 };
31	SWP swpDefSSW = { 0,0,0, 10,10, 0,0,0,0 };
32	USHORT ausDef[7] = { 0 };
33	USHORT ausDefSSW[7] = { 0 };
34
35	ImageFormatInfo Settings::ifi[BMF_INVALID] =
36	{
37	{ TRUE, BMF_JPG, "JPEG Interchange File Format (jpg)", "jpg", "JPG" },
38	{ TRUE, BMF_PNG, "Portable Network Graphics (png)", "png", "PNG" },
39	{ TRUE, BMF_OS20, "OS/2 Bitmap 2.0 (bmp)", "bmp", "Bitmap" },
40	{ TRUE, BMF_TIF, "Microsoft/Aldus Tagged Image File Format (tif)", "tif", "TIFF" },
41	{ TRUE, BMF_TGA, "Truevision Targa/Vista (tga)", "tga", "Targa" },
42	{ TRUE, BMF_PCX, "ZSoft PC Paintbrush Image Format (pcx)", "pcx", "PCX" },
43	{ TRUE, BMF_GIF, "Portable Anymap (pnm)", "pnm", "PNM" },
44	{ TRUE, BMF_PBM, "Portable Pixel-map (ppm)", "ppm", "PPM" },
45	{ TRUE, BMF_JP2, "Jpeg 2000 (provided by the Open Source OpenJPEG library) (jp2)", "jp2", "JP2" },
46	{ TRUE, BMF_DIB, "Device Independent Bitmap (dib)", "dib", "DIB" }
47	};
48
49
50	PTHTH_SE apse[] =
51	{
52	new THTH_SES (SEI_SAVEFILE, "Save", "Filename", "gotcha.png"),
53	new THTH_SES (SEI_FORCESAVEFILE, "Save", "ForceSaveFilename", "force.png"),
54	new THTH_SEL (SEI_SAVESTYLE, "Save", "Style", SAVESTYLE_FILE),
55	new THTH_SEL (SEI_FILEFORMAT, "Save", "FileFormat", BMF_PNG),
56	new THTH_SEL (SEI_FILESAVESTYLE, "Save", "FileSaveStyle", FSS_PROMPT),
57
58	new THTH_SES (SEI_NUMSAVEDIR, "Save", "NumSaveDir", ""),
59	new THTH_SEF (SEI_HIDEWINDOW, "Extras", "HideWindow", TRUE),
60	new THTH_SEF (SEI_AUTOADDEXTENSION, "Extras", "AutoaddExtension", TRUE),
61	new THTH_SEF (SEI_CONFIRMOVERWRITE, "Extras", "ConfirmOverwrite", TRUE),
62	new THTH_SEF (SEI_DOSOUND, "Extras", "DoSound", TRUE),
63
64	new THTH_SEF (SEI_DELAYEDCAPTURE, "Extras", "DelayedCapture", FALSE),
65	new THTH_SEF (SEI_DELAYCOUNTDOWN, "Extras", "DelayCountdown", FALSE),
66	new THTH_SEL (SEI_DELAYTIME, "Extras", "DelayTime", 5),
67	new THTH_SEF (SEI_SERIALCAPTURE, "Extras", "SerialCapture", FALSE),
68	new THTH_SEL (SEI_SERIALTIME, "Extras", "SerialTime", 10),
69
70	new THTH_SEF (SEI_SNAPSHOTWINDOW, "Snapshot", "Enable", FALSE),
71	new THTH_SEL (SEI_SSWCAPTURETYPE, "Snapshot", "CaptureType", CAP_SCREEN),
72	new THTH_SEF (SEI_SSWHIDE, "Snapshot", "Hide", TRUE),
73	new THTH_SEF (SEI_SSWALWAYSONTOP, "Snapshot", "AlwaysOnTop", TRUE),
74
75	new THTH_SEF (SEI_IDLEPRIORITY, "Extras", "IdlePriority", FALSE),
76
77	new THTH_SEB (SEI_SWP, "Window", "SWP", &swpDef, sizeof (swpDef)),
78	new THTH_SEB (SEI_US, "Window", "US", &ausDef, sizeof (ausDef)),
79
80	new THTH_SEB (SEI_SWPSSW, "Snapshot", "SWP", &swpDefSSW, sizeof (swpDefSSW)),
81	new THTH_SEB (SEI_USSSW, "Snapshot", "US", &ausDefSSW, sizeof (ausDefSSW)),
82
83	new THTH_SES (SEI_LANGUAGE, "Language", "Program", PSZ_DEFAULTLANGUAGEMOD),
84	new THTH_SES (SEI_LANGUAGEHELP, "Language", "Help", PSZ_DEFAULTLANGUAGEHELP),
85
86	new THTH_SEF (SEI_UPDATE178DONE, "Extras", "Update178Done", FALSE),
87
88	NULL,
89	};
90
91	// Settings ********************************************************** /FOLD00/
92
93	Settings :: Settings (VOID) :
94	#ifdef _QUIET_
95	//#if 1
96	ththSettings(apse, "gotchaq.ini", L_PROFILEVERSION)
97	#else
98	ththSettings(apse, "gotcha.ini", L_PROFILEVERSION)
99	#endif
100	{
101	if( ! QueryFlag( SEI_UPDATE178DONE ) ) {
102	//DisplayError( "Updated", "false" );
103	SetLong( SEI_SERIALTIME, QueryLong( SEI_SERIALTIME ) * 20 );
104	SetFlag( SEI_UPDATE178DONE );
105	} else {
106	//DisplayError( "NOT Updated", "true" );
107	}
108
109	// to get the error msgs in default language
110	ReloadResources (QueryString(SEI_LANGUAGE));
111
112	if (Error () == 1)
113	{
114	FileNotOpenError ();
115	ReloadResources (QueryString(SEI_LANGUAGE));
116	}
117	else if (Error () == 2)
118	{
119	VersionError ();
120	ReloadResources (QueryString(SEI_LANGUAGE));
121	}
122	}
123
124	// VersionError ******************************************************
125
126	USHORT SETTINGS :: VersionError (VOID)
127	{
128	DisplayError (RSTR(IDS_HEADER_WARNING), RSTR(IDS_ERROR_INIFILEWRONGVERSION),
129	QueryProfileName ());
130	SelectLanguage();
131	return 0;
132	}
133
134	// FileNotOpenError ************************************************** /fold00/
135
136	USHORT SETTINGS :: FileNotOpenError (VOID)
137	{
138	DisplayError (RSTR(IDS_HEADER_ERROR), RSTR(IDS_ERROR_INIFILENOTOPEN),
139	QueryProfileName ());
140	SelectLanguage();
141	return 0;
142	}
143
144	// Dialog ************************************************************ /FOLD00/
145
146	// FIXME YUKKI! YUKKI!! YUKKI!!! But I'm too lazy to do it better now :-)
147	HWND g_hwndSettingsDialog = NULL;
148	HWND g_hwndPage0 = NULL;
149
150	BOOL SETTINGS :: Dialog (BOOL fOnlyLanguage)
151	{
152	#ifdef _DOLOGDEBUG_
153	LogDebug( "Dialog: checkpoint 1" );
154	#endif
155	fAutoLanguage = fOnlyLanguage;
156
157	// load the main dialog window
158	hwndDlg = WinLoadDlg (HWND_DESKTOP, hwndFrame, PFNWP (DialogProcedure),
159	GETMODULE, ID_DLG_SETTINGS, this);
160	// FIXME YUKKI! YUKKI!! YUKKI!!! But I'm too lazy to do it better now :-)
161	g_hwndSettingsDialog = hwndDlg;
162	#ifdef _DOLOGDEBUG_
163	LogDebug( "Dialog: checkpoint 2" );
164	#endif
165
166	// disable this two buttons if only language select
167	if (fAutoLanguage)
168	{
169	WinEnableWindow (WinWindowFromID (hwndDlg, WID_PB_HELP), FALSE);
170	WinEnableWindow (WinWindowFromID (hwndDlg, WID_PB_UNDO), FALSE);
171	}
172
173	HWND hwndNB = WinWindowFromID (hwndDlg, WID_NB_SETTINGS);
174	#ifdef _DOLOGDEBUG_
175	LogDebug( "Dialog: checkpoint 3" );
176	#endif
177
178	// set notebook background color
179	WinSendMsg (hwndNB, BKM_SETNOTEBOOKCOLORS,
180	MPFROMLONG (SYSCLR_DIALOGBACKGROUND),
181	MPFROMSHORT (BKA_BACKGROUNDPAGECOLORINDEX));
182
183	// set tab dimensions
184	WinSendMsg (hwndNB, BKM_SETDIMENSIONS,
185	MPFROM2SHORT (80, 25), MPFROMSHORT (BKA_MAJORTAB));
186	#ifdef _DOLOGDEBUG_
187	LogDebug( "Dialog: checkpoint 4" );
188	#endif
189
190	ULONG idPage[COUNT_PAGES];
191	USHORT i, cPages;
192
193	if (fOnlyLanguage)
194	{
195	cPages = 1;
196
197	idPage[0] = (ULONG)
198	WinSendMsg (hwndNB, BKM_INSERTPAGE, 0L,
199	MPFROM2SHORT (BKA_MAJOR \| BKA_AUTOPAGESIZE,
200	BKA_LAST));
201	WinSendMsg (hwndNB, BKM_SETTABTEXT, MPFROMLONG (idPage[0]),
202	MPFROMP (pszPageTab[COUNT_PAGES-1]));
203	hwndPage[0] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page4Procedure,
204	GETMODULE, ID_DLG_SETTINGSPAGE4, this);
205	}
206	else
207	{
208	cPages = COUNT_PAGES;
209
210	// insert empty pages
211	for (i = 0; i < cPages; i++)
212	{
213	idPage[i] = (ULONG)
214	WinSendMsg (hwndNB, BKM_INSERTPAGE, 0L,
215	MPFROM2SHORT (BKA_MAJOR \| BKA_AUTOPAGESIZE,
216	BKA_LAST));
217	WinSendMsg (hwndNB, BKM_SETTABTEXT,
218	MPFROMLONG (idPage[i]), MPFROMP (pszPageTab[i]));
219	}
220	#ifndef _QUIET_
221	//#if 0
222	// open and assign dialogs to pages
223	hwndPage[0] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page1Procedure,
224	GETMODULE, ID_DLG_SETTINGSPAGE1, this);
225	hwndPage[1] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page2Procedure,
226	GETMODULE, ID_DLG_SETTINGSPAGE2, this);
227	hwndPage[2] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page3Procedure,
228	GETMODULE, ID_DLG_SETTINGSPAGE3, this);
229	hwndPage[3] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page4Procedure,
230	GETMODULE, ID_DLG_SETTINGSPAGE4, this);
231	#else
232	hwndPage[0] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) WindowProcedure,
233	GETMODULE, ID_DLG_SETTINGSPAGE0, this);
234	hwndPage[1] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page2Procedure,
235	GETMODULE, ID_DLG_SETTINGSPAGE2, this);
236	hwndPage[2] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page1Procedure,
237	GETMODULE, ID_DLG_SETTINGSPAGE1, this);
238	hwndPage[3] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page4Procedure,
239	GETMODULE, ID_DLG_SETTINGSPAGE4, this);
240	g_hwndPage0 = hwndPage[0];
241
242	#endif
243	}
244	#ifdef _DOLOGDEBUG_
245	LogDebug( "Dialog: checkpoint 5" );
246	#endif
247
248	// combine dlg-handle and page ids
249	for (i = 0; i < cPages; i++)
250	WinSendMsg (hwndNB, BKM_SETPAGEWINDOWHWND,
251	MPFROMLONG (idPage[i]), MPFROMHWND (hwndPage[i]));
252
253	/* if (fAutoLanguage)
254	WinSendMsg (hwndNB, BKM_TURNTOPAGE, MPFROMLONG (idPage[0]), 0L);
255	#if (COUNT_PAGES != 4)
256	#warning FIXME settings.cpp 264 or so ...
257	#endif */
258	for (i = 0; i < cPages; i++)
259	WinSendMsg (hwndPage[i], UM_SETTINGS2DIALOG, 0,0);
260	#ifdef _DOLOGDEBUG_
261	LogDebug( "Dialog: checkpoint 6" );
262	#endif
263	WinSendDlgItemMsg (g_hwndPage0, WID_RB_FILE, BM_CLICK,
264	MPFROMSHORT (TRUE), 0);
265	WinSendDlgItemMsg (g_hwndPage0, WID_CB_HIDEWINDOW, BM_SETCHECK,
266	MPFROMLONG (TRUE), MPFROMLONG (0));
267	//WinSetFocus (WinWindowFromID (hwndDlg, WID_PB_OK), TRUE);
268	//WinSetFocus( hwndPage[0], TRUE );
269	#ifdef _QUIET_
270	if (HACCEL haccel = WinLoadAccelTable (hab, GETMODULE, 1)) {
271	int rc = WinSetAccelTable (hab, haccel, hwndDlg);
272	_PmpfF(( " Acceltable %i", rc));
273	}
274	#endif
275	WinSetActiveWindow( HWND_DESKTOP, hwndPage[0] );
276	#ifdef _DOLOGDEBUG_
277	LogDebug( "Dialog: checkpoint 7" );
278	#endif
279
280	WinProcessDlg (hwndDlg);
281	#ifdef _DOLOGDEBUG_
282	LogDebug( "Dialog: checkpoint 7.5" );
283	#endif
284	WinDestroyWindow (hwndDlg);
285	#ifdef _DOLOGDEBUG_
286	LogDebug( "Dialog: checkpoint 8" );
287	#endif
288	#ifndef _QUIET_
289	// it ain't the best way to do it, but ...
290	SetIdlePriority(QueryFlag(SEI_IDLEPRIORITY));
291	#endif
292	for (i = 0; i < COUNT_PAGES; i++)
293	hwndPage[i] = NULL;
294
295	hwndDlg = NULLHANDLE;
296	#ifdef _DOLOGDEBUG_
297	LogDebug( "Dialog: checkpoint 9" );
298	#endif
299	return TRUE;
300	}
301
302	// DialogProcedure *************************************************** /FOLD00/
303
304	MRESULT EXPENTRY
305	SETTINGS :: DialogProcedure (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
306	{
307	static PSETTINGS pset = NULL;
308
309	#ifdef _DOLOGDEBUG_
310	LogDebug( "DialogProcedure:Message 0x%04x", msg );
311	#endif
312
313	switch (msg)
314	{
315	case WM_INITDLG:
316	#ifdef _DOLOGDEBUG_
317	LogDebug( "DialogProcedure: start WM_INITDLG" );
318	#endif
319	pset = PSETTINGS (mp2);
320	#ifdef _DOLOGDEBUG_
321	LogDebug( "DialogProcedure: end WM_INITDLG" );
322	#endif
323	return MRESULT (FALSE);
324
325	case WM_COMMAND:
326	switch (SHORT1FROMMP (mp1))
327	{
328	case WID_PB_OK:
329	#ifdef _DOLOGDEBUG_
330	LogDebug( "DialogProcedure: start WID_PB_OK" );
331	#endif
332	saveum = TRUE;
333	WinSendMsg (hwnd, WM_CLOSE, 0,0);
334	#ifdef _DOLOGDEBUG_
335	LogDebug( "DialogProcedure: end WID_PB_OK" );
336	#endif
337	break;
338
339	case WID_PB_UNDO:
340	{
341	ULONG id = (ULONG)
342	WinSendDlgItemMsg (hwnd, WID_NB_SETTINGS,
343	BKM_QUERYPAGEID, 0,
344	MPFROM2SHORT (BKA_TOP, 0));
345	if (id)
346	{
347	HWND hwndPage = (HWND)
348	WinSendDlgItemMsg (hwnd, WID_NB_SETTINGS,
349	BKM_QUERYPAGEWINDOWHWND,
350	MPFROMLONG (id), 0);
351	// Make mp1 1 for default use it to select setting on pages
352	WinSendMsg (hwndPage, UM_SETTINGS2DIALOG, 0,0);
353	}
354	}
355	break;
356
357	case DID_CANCEL:
358	{
359	// Undo stuff on all notebook pages:
360	HWND hwndPage;
361
362	// Get ID of first notebook page.
363	ULONG id =
364	ULONG( WinSendDlgItemMsg( hwnd, WID_NB_SETTINGS,
365	BKM_QUERYPAGEID, 0,
366	MPFROM2SHORT( BKA_FIRST, 0 ) ) );
367	if( id ) {
368	hwndPage =
369	HWND( WinSendDlgItemMsg( hwnd, WID_NB_SETTINGS,
370	BKM_QUERYPAGEWINDOWHWND,
371	MPFROMLONG( id ), 0 ) );
372	WinSendMsg( hwndPage, UM_SETTINGS2DIALOG, 0,0 );
373	}
374
375	while( id ) {
376	// Get ID of next notebook page.
377	if( ( id =
378	ULONG( WinSendDlgItemMsg( hwnd, WID_NB_SETTINGS,
379	BKM_QUERYPAGEID,
380	MPFROMLONG( id ),
381	MPFROM2SHORT( BKA_NEXT, 0 )
382	) ) ) ) {
383	hwndPage =
384	HWND( WinSendDlgItemMsg( hwnd, WID_NB_SETTINGS,
385	BKM_QUERYPAGEWINDOWHWND,
386	MPFROMLONG( id ), 0 ) );
387	WinSendMsg( hwndPage, UM_SETTINGS2DIALOG, 0,0 );
388	}
389	}
390	WinSendMsg( hwnd, WM_CLOSE, 0,0 );
391	}
392	break;
393	}
394	return MRESULT (FALSE);
395
396	#ifdef _DOLOGDEBUG_
397	case WM_DESTROY:
398	LogDebug( "DialogProcedure: WM_DESTROY" );
399	return MRESULT (FALSE);
400	#endif
401
402	case WM_CLOSE:
403	#ifdef _DOLOGDEBUG_
404	LogDebug( "DialogProcedure: WM_CLOSE" );
405	#endif
406	case WM_QUIT:
407	#ifdef _DOLOGDEBUG_
408	LogDebug( "DialogProcedure: WM_QUIT" );
409	#endif
410	case WM_SAVEAPPLICATION:
411	#ifdef _DOLOGDEBUG_
412	LogDebug( "DialogProcedure: WM_SAVEAPPLICATION" );
413	#endif
414	#ifdef _DOLOGDEBUG_
415	LogDebug( "DialogProcedure: start WM_CLOSE (or WM_QUIT, WM_SAVEAPPLICATION)" );
416	#endif
417	for (USHORT i = 0; i < COUNT_PAGES; i++)
418	WinSendMsg (pset->hwndPage[i], UM_ADJUST, 0,0);
419	#ifdef _DOLOGDEBUG_
420	LogDebug( "DialogProcedure: end WM_CLOSE (or WM_QUIT, WM_SAVEAPPLICATION)" );
421	#endif
422	WinDismissDlg( hwnd, 0L );
423	return MRESULT (FALSE);
424	}
425
426	#ifdef _DOLOGDEBUG_
427	LogDebug( "DialogProcedure:WinDefDlgProc->0x%04x", msg );
428	#endif
429	return WinDefDlgProc (hwnd, msg, mp1, mp2);
430	}
431
432	// Page1Procedure **************************************************** /FOLD00/
433
434	MRESULT EXPENTRY
435	SETTINGS :: Page1Procedure (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
436	{
437	static PSETTINGS pset = NULL;
438
439	switch (msg)
440	{
441	case WM_INITDLG: {
442	#ifdef _DOLOGDEBUG_
443	LogDebug( "Page1Procedure: start WM_INITDLG" );
444	#endif
445	ULONG ul;
446	pset = PSETTINGS (mp2);
447	for( int i = 0; i < BMF_INVALID; i++ ) {
448	if( pset->ifi[ i ].available ) {
449	ul = WinInsertLboxItem( WinWindowFromID( hwnd, WID_LB_FILEFORMAT ),
450	LIT_END, pset->ifi[ i ].label );
451	WinSendMsg( WinWindowFromID( hwnd, WID_LB_FILEFORMAT ),
452	LM_SETITEMHANDLE, MPFROMLONG(ul), MPFROMP( i ) );
453	}
454	}
455	#ifdef _DOLOGDEBUG_
456	LogDebug( "Page1Procedure: end WM_INITDLG" );
457	#endif
458	return MRESULT (FALSE);
459	}
460
461	case WM_COMMAND:
462	if( SHORT1FROMMP( mp1 ) == DID_CANCEL )
463	WinPostMsg( g_hwndSettingsDialog, msg, mp1, mp2 );
464	return MRESULT( FALSE );
465
466	case UM_SETTINGS2DIALOG: {
467	#ifdef _DOLOGDEBUG_
468	LogDebug( "Page1Procedure: start UM_SETTINGS2DIALOG" );
469	#endif
470	// set num save dir name
471	WinSendDlgItemMsg (hwnd, WID_E_NUMSAVEDIR, EM_SETTEXTLIMIT,
472	MPARAM (_MAX_PATH-1), (MPARAM)0);
473	WinSetDlgItemText (hwnd, WID_E_NUMSAVEDIR,
474	pset->QueryNumSaveDir ());
475	WinSendDlgItemMsg (hwnd, WID_E_NUMSAVEDIR, EM_SETSEL,
476	MPFROM2SHORT (0, _MAX_PATH), (MPARAM)0);
477
478	// set force file name
479	WinSendDlgItemMsg (hwnd, WID_E_FORCESAVEFILE, EM_SETTEXTLIMIT,
480	MPARAM (_MAX_PATH-1), (MPARAM)0);
481	WinSetDlgItemText (hwnd, WID_E_FORCESAVEFILE,
482	pset->QueryForceSaveFile ());
483	WinSendDlgItemMsg (hwnd, WID_E_FORCESAVEFILE, EM_SETSEL,
484	MPFROM2SHORT (0, _MAX_PATH), (MPARAM)0);
485
486	// Select the appropriate entry in the fileformat-listbox.
487	HWND hwndLB = WinWindowFromID( hwnd, WID_LB_FILEFORMAT );
488	ULONG c, i;
489
490	c = WinQueryLboxCount( hwndLB );
491	for( i = 0; i < c; i++ )
492	{
493	ULONG type = ULONG( WinSendDlgItemMsg( hwnd, WID_LB_FILEFORMAT,
494	LM_QUERYITEMHANDLE,
495	MPFROMLONG(i), NULL ) );
496	if( type == ULONG( pset->QueryFileFormat() ) )
497	break;
498	}
499	if( i < c )
500	WinSendDlgItemMsg( hwnd, WID_LB_FILEFORMAT, LM_SELECTITEM,
501	MPFROMSHORT(i), MPFROMSHORT(TRUE) );
502	else
503	WinSendDlgItemMsg( hwnd, WID_LB_FILEFORMAT, LM_SELECTITEM,
504	MPFROMSHORT(0), MPFROMSHORT(TRUE) );
505	#ifdef _QUIET_
506	//#if 1
507	// set play sound button
508	pset->AdjustButton (hwnd, WID_CB_DOSOUND,
509	pset->DoSound ());
510	#endif
511	// Select appropriate radiobutton for save style.
512	switch (pset->QueryFileSaveStyle ())
513	{
514	case FSS_NUMFILES:
515	WinSendDlgItemMsg (hwnd, WID_RB_FSSNUMFILES, BM_CLICK,
516	MPFROMSHORT(TRUE), 0);
517	AdjustSaveTypeButtons (FALSE);
518	break;
519
520	case FSS_FORCEFILE:
521	WinSendDlgItemMsg (hwnd, WID_RB_FSSFORCEFILE, BM_CLICK,
522	MPFROMSHORT(TRUE), 0);
523	AdjustSaveTypeButtons (TRUE);
524	break;
525
526	default:
527	WinSendDlgItemMsg (hwnd, WID_RB_FSSPROMPT, BM_CLICK,
528	MPFROMSHORT(TRUE), 0);
529	AdjustSaveTypeButtons (FALSE);
530	break;
531	}
532	#ifdef _DOLOGDEBUG_
533	LogDebug( "Page1Procedure: end UM_SETTINGS2DIALOG" );
534	#endif
535	return MRESULT (FALSE);
536	}
537
538	case UM_ADJUST:
539	{
540	#ifdef _DOLOGDEBUG_
541	LogDebug( "Page1Procedure: start UM_ADJUST" );
542	#endif
543	// get file save style
544	if (WinSendMsg (WinWindowFromID (hwnd, WID_RB_FSSNUMFILES),
545	BM_QUERYCHECK, 0,0))
546	pset->SetFileSaveStyle (FSS_NUMFILES);
547	else if (WinSendMsg (WinWindowFromID (hwnd, WID_RB_FSSFORCEFILE),
548	BM_QUERYCHECK, 0,0))
549	pset->SetFileSaveStyle (FSS_FORCEFILE);
550	else
551	pset->SetFileSaveStyle (FSS_PROMPT);
552	#ifdef _QUIET_
553	//#if 1
554	pset->DoSound(WinQueryButtonCheckstate
555	(hwnd, WID_CB_DOSOUND));
556	#endif
557	#ifdef _DOLOGDEBUG_
558	LogDebug( "Page1Procedure: checkpoint 1" );
559	#endif
560
561	// Get file format.
562	ULONG ul = USHORT( WinSendDlgItemMsg( hwnd, WID_LB_FILEFORMAT,
563	LM_QUERYSELECTION,
564	MPFROMLONG( LIT_FIRST ),
565	0L ) );
566	ul = ULONG( WinSendDlgItemMsg( hwnd, WID_LB_FILEFORMAT,
567	LM_QUERYITEMHANDLE,
568	MPFROMLONG( ul ), NULL ) );
569	pset->SetFileFormat( SHORT( ul ) );
570
571	pset->SetSaveFile(AddExtensionToFilename(pset->QuerySaveFile()));
572
573	#ifdef _DOLOGDEBUG_
574	LogDebug( "Page1Procedure: checkpoint 2" );
575	#endif
576
577	// num save dir file name
578	CHAR psz[_MAX_PATH];
579	WinQueryDlgItemText (hwnd, WID_E_NUMSAVEDIR, _MAX_PATH, psz);
580	pset->SetNumSaveDir (psz);
581
582	// force file name
583	WinQueryDlgItemText (hwnd, WID_E_FORCESAVEFILE, _MAX_PATH, psz);
584	pset->SetForceSaveFile (psz);
585
586	AdjustSaveTypeButtons
587	(BOOL (pset->QueryFileSaveStyle () == FSS_FORCEFILE));
588	pset->saveStyle = pset->QuerySaveStyle ();
589	pset->pNumSaveDir = pset->QueryNumSaveDir ();
590	pset->pForceSaveFile = pset->QueryForceSaveFile();
591
592	if (saveum)
593	pset->Save ();
594	#ifdef _DOLOGDEBUG_
595	LogDebug( "Page1Procedure: end UM_ADJUST" );
596	#endif
597	}
598	break;
599
600	case WM_CONTROL:
601	switch (SHORT1FROMMP (mp1))
602	{
603	case WID_RB_FSSFORCEFILE:
604	AdjustSaveTypeButtons (TRUE);
605	break;
606
607	case WID_RB_FSSPROMPT:
608	case WID_RB_FSSNUMFILES:
609	AdjustSaveTypeButtons (FALSE);
610	break;
611	}
612	return MRESULT (FALSE);
613	}
614
615	return WinDefDlgProc (hwnd, msg, mp1, mp2);
616	}
617
618	// Page2Procedure **************************************************** /FOLD00/
619
620	MRESULT EXPENTRY
621	SETTINGS :: Page2Procedure (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
622	{
623	static PSETTINGS pset = NULL;
624
625	switch (msg)
626	{
627	case WM_INITDLG:
628	#ifdef _DOLOGDEBUG_
629	LogDebug( "Page1Procedure: start WM_INITDLG" );
630	#endif
631	pset = PSETTINGS (mp2);
632	#ifdef _DOLOGDEBUG_
633	LogDebug( "Page1Procedure: end WM_INITDLG" );
634	#endif
635	return MRESULT (FALSE);
636
637	case WM_COMMAND:
638	if( SHORT1FROMMP( mp1 ) == DID_CANCEL )
639	WinPostMsg( g_hwndSettingsDialog, msg, mp1, mp2 );
640	return MRESULT( FALSE );
641
642	case UM_SETTINGS2DIALOG:
643	#ifdef _DOLOGDEBUG_
644	LogDebug( "Page2Procedure: start UM_SETTINGS2DIALOG" );
645	#endif
646	// set state of checkbuttons
647	pset->AdjustButton (hwnd, WID_CB_SSWENABLE,
648	pset->SnapshotWindow ());
649	pset->AdjustButton (hwnd, WID_CB_SSWHIDE,
650	pset->SSWHide ());
651	pset->AdjustButton (hwnd, WID_CB_SSWALWAYSONTOP,
652	pset->SSWAlwaysOnTop ());
653	#ifdef _QUIET_
654	//#if 1
655	pset->AdjustButton (hwnd, WID_CB_SERIALCAPTURE,
656	pset->SerialCapture ());
657	pset->AdjustButton (hwnd, WID_CB_DELAYCOUNTDOWN,
658	pset->DelayCountdown ());
659
660	// init delay time sb
661	WinSendDlgItemMsg (hwnd, WID_SB_DELAYTIME, SPBM_SETLIMITS,
662	MPFROMLONG (65536), MPFROMLONG (1));
663	WinSendDlgItemMsg (hwnd, WID_SB_DELAYTIME, SPBM_SETCURRENTVALUE,
664	MPFROMLONG (pset->QueryDelayTime ()), 0);
665
666	// init serial time sb
667	WinSendDlgItemMsg (hwnd, WID_SB_SERIALTIME, SPBM_SETLIMITS,
668	MPFROMLONG (65536), MPFROMLONG (1));
669	WinSendDlgItemMsg (hwnd, WID_SB_SERIALTIME, SPBM_SETCURRENTVALUE,
670	MPFROMLONG (pset->QuerySerialTime ()), 0);
671	#endif
672	switch (pset->QuerySSWCaptureType ())
673	{
674	case CAP_WINDOWINT:
675	WinSendDlgItemMsg (hwnd, WID_SSWWINDOWINT, BM_CLICK,
676	MPFROMSHORT(TRUE), 0);
677	break;
678	case CAP_SCREENREGION:
679	WinSendDlgItemMsg (hwnd, WID_SSWSCREENREGION, BM_CLICK,
680	MPFROMSHORT(TRUE), 0);
681	break;
682	case CAP_WINDOW:
683	WinSendDlgItemMsg (hwnd, WID_SSWWINDOW, BM_CLICK,
684	MPFROMSHORT(TRUE), 0);
685	break;
686	default:
687	WinSendDlgItemMsg (hwnd, WID_SSWSCREEN, BM_CLICK,
688	MPFROMSHORT(TRUE), 0);
689	break;
690	}
691
692	// show or hide snapshot window
693	if (! WinSendDlgItemMsg (hwnd, WID_CB_SSWENABLE,
694	BM_QUERYCHECK, 0, 0))
695	WinShowWindow (hwndSnapshot, FALSE);
696	else
697	WinShowWindow (hwndSnapshot, TRUE);
698
699	#ifdef _DOLOGDEBUG_
700	LogDebug( "Page1Procedure: end UM_SETTINGS2DIALOG" );
701	#endif
702	return MRESULT (FALSE);
703
704	case UM_ADJUST:
705	#ifdef _DOLOGDEBUG_
706	LogDebug( "Page2Procedure: start UM_ADJUST" );
707	#endif
708	#ifndef _QUIET_
709	//#if 0
710	// query state of checkbuttons and set flags
711	pset->SSWHide(WinQueryButtonCheckstate(hwnd, WID_CB_SSWHIDE));
712	#ifdef _DOLOGDEBUG_
713	LogDebug( "Page2Procedure: checkpoint 1" );
714	#endif
715	pset->SnapshotWindow(WinQueryButtonCheckstate(hwnd, WID_CB_SSWENABLE));
716	pset->SSWAlwaysOnTop(WinQueryButtonCheckstate(hwnd,
717	WID_CB_SSWALWAYSONTOP));
718	#ifdef _DOLOGDEBUG_
719	LogDebug( "Page2Procedure: checkpoint 2" );
720	#endif
721	#else
722	// query state of checkbuttons and set flags
723	pset->SerialCapture(WinQueryButtonCheckstate
724	(hwnd, WID_CB_SERIALCAPTURE));
725	#ifdef _DOLOGDEBUG_
726	LogDebug( "Page3Procedure: checkpoint 1" );
727	#endif
728	pset->DelayCountdown(WinQueryButtonCheckstate
729	(hwnd, WID_CB_DELAYCOUNTDOWN));
730	#endif
731	// get ssw capture type
732	if (WinSendMsg (WinWindowFromID (hwnd, WID_SSWSCREENREGION),
733	BM_QUERYCHECK, 0,0))
734	pset->SetSSWCaptureType (CAP_SCREENREGION);
735	else if (WinSendMsg (WinWindowFromID (hwnd, WID_SSWWINDOW),
736	BM_QUERYCHECK, 0,0))
737	pset->SetSSWCaptureType (CAP_WINDOW);
738	else if (WinSendMsg (WinWindowFromID (hwnd, WID_SSWWINDOWINT),
739	BM_QUERYCHECK, 0,0))
740	pset->SetSSWCaptureType (CAP_WINDOWINT);
741	else
742	pset->SetSSWCaptureType (CAP_SCREEN);
743	#ifdef _QUIET_
744	//#if 1
745	// delay time
746	ULONG ul;
747	if (! BOOL (WinSendDlgItemMsg (hwnd, WID_SB_DELAYTIME,
748	SPBM_QUERYVALUE,
749	MPFROMP (&ul),
750	MPFROM2SHORT (0, 0))))
751	ul = 5L;
752	pset->SetDelayTime (ul);
753	#ifdef _DOLOGDEBUG_
754	LogDebug( "Page3Procedure: checkpoint 3" );
755	#endif
756
757	// serial time
758	if (! BOOL (WinSendDlgItemMsg (hwnd, WID_SB_SERIALTIME,
759	SPBM_QUERYVALUE,
760	MPFROMP (&ul),
761	MPFROM2SHORT (0, 0))))
762	ul = 10L;
763	pset->SetSerialTime (ul);
764	pset->bSerialCapture = pset->SerialCapture ();
765	#endif
766	if (saveum)
767	pset->Save ();
768	#ifdef _DOLOGDEBUG_
769	LogDebug( "Page2Procedure: end UM_ADJUST" );
770	#endif
771	break;
772
773	case WM_CONTROL:
774	switch (SHORT1FROMMP (mp1))
775	{
776	case WID_CB_SSWENABLE:
777	if (! WinSendDlgItemMsg (hwnd, WID_CB_SSWENABLE,
778	BM_QUERYCHECK, 0, 0))
779	WinShowWindow (hwndSnapshot, FALSE);
780	else
781	WinShowWindow (hwndSnapshot, TRUE);
782	break;
783	}
784	return MRESULT (FALSE);
785	}
786
787	return WinDefDlgProc (hwnd, msg, mp1, mp2);
788	}
789
790	// Page3Procedure **************************************************** /FOLD00/
791
792	MRESULT EXPENTRY
793	SETTINGS :: Page3Procedure (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
794	{
795	static PSETTINGS pset = NULL;
796
797	switch (msg)
798	{
799	case WM_INITDLG:
800	#ifdef _DOLOGDEBUG_
801	LogDebug( "Page3Procedure: start WM_INITDLG" );
802	#endif
803	pset = PSETTINGS (mp2);
804	#ifdef _DOLOGDEBUG_
805	LogDebug( "Page3Procedure: end WM_INITDLG" );
806	#endif
807	return MRESULT (FALSE);
808
809	case WM_COMMAND:
810	if( SHORT1FROMMP( mp1 ) == DID_CANCEL )
811	WinPostMsg( g_hwndSettingsDialog, msg, mp1, mp2 );
812	return MRESULT( FALSE );
813
814	case UM_SETTINGS2DIALOG:
815	#ifdef _DOLOGDEBUG_
816	LogDebug( "Page3Procedure: start UM_SETTINGS2DIALOG" );
817	#endif
818	// set state of checkbuttons
819	pset->AdjustButton (hwnd, WID_CB_SERIALCAPTURE,
820	pset->SerialCapture ());
821	pset->AdjustButton (hwnd, WID_CB_DELAYCOUNTDOWN,
822	pset->DelayCountdown ());
823	pset->AdjustButton (hwnd, WID_CB_DOSOUND,
824	pset->DoSound ());
825	pset->AdjustButton (hwnd, WID_CB_IDLEPRIORITY,
826	pset->QueryFlag(SEI_IDLEPRIORITY));
827
828	// init delay time sb
829	WinSendDlgItemMsg (hwnd, WID_SB_DELAYTIME, SPBM_SETLIMITS,
830	MPFROMLONG (65536), MPFROMLONG (1));
831	WinSendDlgItemMsg (hwnd, WID_SB_DELAYTIME, SPBM_SETCURRENTVALUE,
832	MPFROMLONG (pset->QueryDelayTime ()), 0);
833
834	// init serial time sb
835	WinSendDlgItemMsg (hwnd, WID_SB_SERIALTIME, SPBM_SETLIMITS,
836	MPFROMLONG (65536), MPFROMLONG (1));
837	WinSendDlgItemMsg (hwnd, WID_SB_SERIALTIME, SPBM_SETCURRENTVALUE,
838	MPFROMLONG (pset->QuerySerialTime ()), 0);
839	#ifdef _DOLOGDEBUG_
840	LogDebug( "Page3Procedure: end UM_SETTINGS2DIALOG" );
841	#endif
842	return MRESULT (FALSE);
843
844	case UM_ADJUST:
845	{
846	#ifdef _DOLOGDEBUG_
847	LogDebug( "Page3Procedure: start UM_ADJUST" );
848	#endif
849	// query state of checkbuttons and set flags
850	pset->SerialCapture(WinQueryButtonCheckstate
851	(hwnd, WID_CB_SERIALCAPTURE));
852	#ifdef _DOLOGDEBUG_
853	LogDebug( "Page3Procedure: checkpoint 1" );
854	#endif
855	pset->DelayCountdown(WinQueryButtonCheckstate
856	(hwnd, WID_CB_DELAYCOUNTDOWN));
857	pset->DoSound(WinQueryButtonCheckstate
858	(hwnd, WID_CB_DOSOUND));
859	pset->SetFlag(SEI_IDLEPRIORITY, WinQueryButtonCheckstate
860	(hwnd, WID_CB_IDLEPRIORITY));
861	#ifdef _DOLOGDEBUG_
862	LogDebug( "Page3Procedure: checkpoint 2" );
863	#endif
864
865	// delay time
866	ULONG ul;
867	if (! BOOL (WinSendDlgItemMsg (hwnd, WID_SB_DELAYTIME,
868	SPBM_QUERYVALUE,
869	MPFROMP (&ul),
870	MPFROM2SHORT (0, 0))))
871	ul = 5L;
872	pset->SetDelayTime (ul);
873	#ifdef _DOLOGDEBUG_
874	LogDebug( "Page3Procedure: checkpoint 3" );
875	#endif
876
877	// serial time
878	if (! BOOL (WinSendDlgItemMsg (hwnd, WID_SB_SERIALTIME,
879	SPBM_QUERYVALUE,
880	MPFROMP (&ul),
881	MPFROM2SHORT (0, 0))))
882	ul = 10L;
883	pset->SetSerialTime (ul);
884	pset->bSerialCapture = pset->SerialCapture ();
885	pset->idleSetInIni = pset->QueryFlag(SEI_IDLEPRIORITY);
886
887	if (saveum)
888	pset->Save ();
889	#ifdef _DOLOGDEBUG_
890	LogDebug( "Page3Procedure: end UM_ADJUST" );
891	#endif
892	}
893	break;
894
895	case WM_CONTROL:
896	switch (SHORT1FROMMP (mp1))
897	{
898	case WID_CB_SERIALCAPTURE:
899	{
900	HWND hwndButton =
901	WinWindowFromID (WinWindowFromID (hwndFrame, FID_CLIENT),
902	WID_CB_DELAYEDCAPTURE);
903	if (! WinSendDlgItemMsg (hwnd, WID_CB_SERIALCAPTURE,
904	BM_QUERYCHECK, 0, 0))
905	WinEnableWindow (hwndButton, TRUE);
906	else
907	WinEnableWindow (hwndButton, FALSE);
908	}
909	break;
910	}
911	return MRESULT (FALSE);
912	}
913
914	return WinDefDlgProc (hwnd, msg, mp1, mp2);
915	}
916
917	// Page4Procedure **************************************************** /FOLD00/
918
919	MRESULT EXPENTRY
920	SETTINGS :: Page4Procedure (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
921	{
922	static PSETTINGS pset = NULL;
923
924	switch (msg)
925	{
926	case WM_INITDLG:
927	{
928	#ifdef _DOLOGDEBUG_
929	LogDebug( "Page4Procedure: start WM_INITDLG" );
930	#endif
931	pset = PSETTINGS (mp2);
932
933	pset->GetLanguages(WinWindowFromID (hwnd, WID_LB_LANGUAGES));
934
935	#ifdef _DOLOGDEBUG_
936	LogDebug( "Page4Procedure: WM_INITDLG: after GetLanguages()" );
937	#endif
938	HDIR hdir;
939	ULONG c, fl;
940	FILEFINDBUF3 findbuf;
941	APIRET rc;
942	PSZ psz;
943
944	// find all hlps and add the names to the language list
945	fl = FILE_NORMAL;
946	hdir = HDIR_CREATE;
947	c = 1;
948	rc = DosFindFirst ("*.hlp", &hdir, fl, &findbuf,
949	sizeof (findbuf), &c, FIL_STANDARD);
950	#ifdef _DOLOGDEBUG_
951	LogDebug( "Page4Procedure: WM_INITDLG: Entering help file loop ..." );
952	#endif
953	while (!rc)
954	{
955	#ifdef _DOLOGDEBUG_
956	LogDebug( "Page4Procedure: WM_INITDLG: Doing '%s' ...", findbuf.achName );
957	#endif
958	if ((psz = strchr (findbuf.achName, '.')))
959	*psz = '\0';
960	findbuf.achName[0] = toupper (findbuf.achName[0]);
961	WinInsertLboxItem (WinWindowFromID (hwnd, WID_LB_LANGUAGESHELP),
962	LIT_END, findbuf.achName);
963	c = 1;
964	rc = DosFindNext (hdir, &findbuf, sizeof (findbuf), &c);
965	}
966	DosFindClose (hdir);
967	#ifdef _DOLOGDEBUG_
968	LogDebug( "Page4Procedure: WM_INITDLG: help file loop done." );
969	#endif
970
971	WinSendMsg (hwnd, UM_SETTINGS2DIALOG, 0,0);
972
973	if (pset->fAutoLanguage)
974	WinEnableWindow (WinWindowFromID (hwnd, WID_ST_LANGNOTE),
975	FALSE);
976	#ifdef _DOLOGDEBUG_
977	LogDebug( "Page4Procedure: end WM_INITDLG" );
978	#endif
979	}
980	return MRESULT (FALSE);
981
982	case WM_COMMAND:
983	if( SHORT1FROMMP( mp1 ) == DID_CANCEL )
984	WinPostMsg( g_hwndSettingsDialog, msg, mp1, mp2 );
985	return MRESULT( FALSE );
986
987	case UM_SETTINGS2DIALOG:
988	{
989
990	#ifdef _DOLOGDEBUG_
991	LogDebug( "Page4Procedure: start UM_SETTINGS2DIALOG" );
992	#endif
993	// select the appropriate entry in the language-listbox
994	CHAR ach[_MAX_FNAME];
995	HWND hwndLB = WinWindowFromID (hwnd, WID_LB_LANGUAGES);
996	ULONG c, i;
997
998	c = WinQueryLboxCount (hwndLB);
999
1000	for (i = 0; i < c; i++)
1001	{
1002	#ifdef _DOLOGDEBUG_
1003	LogDebug( "Page4Procedure: UM_SETTINGS2DIALOG: i.1 = %d", i );
1004	#endif
1005	PSZ psz = PSZ(WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGES,
1006	LM_QUERYITEMHANDLE,
1007	MPFROMLONG(i), NULL));
1008	// WinQueryLboxItemText (hwndLB, i, ach, sizeof (ach));
1009	if (stricmp (pset->QueryString(SEI_LANGUAGE), psz) == 0)
1010	break;
1011	}
1012	#ifdef _DOLOGDEBUG_
1013	LogDebug( "Page4Procedure: UM_SETTINGS2DIALOG: after loop 1" );
1014	#endif
1015	if (i < c)
1016	WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGES, LM_SELECTITEM,
1017	MPFROMSHORT (i), MPFROMSHORT (TRUE));
1018	else
1019	WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGES, LM_SELECTITEM,
1020	MPFROMSHORT (0), MPFROMSHORT (TRUE));
1021	hwndLB = WinWindowFromID (hwnd, WID_LB_LANGUAGESHELP);
1022	c = WinQueryLboxCount (hwndLB);
1023
1024	for (i = 0; i < c; i++)
1025	{
1026	#ifdef _DOLOGDEBUG_
1027	LogDebug( "Page4Procedure: UM_SETTINGS2DIALOG: i.2 = %d", i );
1028	#endif
1029	WinQueryLboxItemText (hwndLB, i, ach, sizeof (ach));
1030	if (stricmp (pset->QueryString (SEI_LANGUAGEHELP), ach) == 0)
1031	break;
1032	}
1033	#ifdef _DOLOGDEBUG_
1034	LogDebug( "Page4Procedure: UM_SETTINGS2DIALOG: after loop 2" );
1035	#endif
1036	if (i < c)
1037	WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGESHELP, LM_SELECTITEM,
1038	MPFROMSHORT (i), MPFROMSHORT (TRUE));
1039	else
1040	WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGESHELP, LM_SELECTITEM,
1041	MPFROMSHORT (0), MPFROMSHORT (TRUE));
1042	#ifdef _DOLOGDEBUG_
1043	LogDebug( "Page4Procedure: end UM_SETTINGS2DIALOG" );
1044	#endif
1045	}
1046	return MRESULT (FALSE);
1047
1048	case WM_DESTROY:
1049	{
1050	CHAR ach[_MAX_FNAME];
1051
1052	ULONG ul = USHORT (WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGES,
1053	LM_QUERYSELECTION,
1054	MPFROMLONG (LIT_FIRST), 0L));
1055	PSZ psz = PSZ(WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGES,
1056	LM_QUERYITEMHANDLE,
1057	MPFROMLONG(ul), NULL));
1058	pset->SetString(SEI_LANGUAGE, psz);
1059
1060	ul = USHORT (WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGESHELP,
1061	LM_QUERYSELECTION,
1062	MPFROMLONG (LIT_FIRST), 0L));
1063	WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGESHELP, LM_QUERYITEMTEXT,
1064	MPFROM2SHORT (ul, sizeof (ach)), MPFROMP (ach));
1065	pset->SetString (SEI_LANGUAGEHELP, ach);
1066
1067	if (saveum)
1068	pset->Save ();
1069	}
1070	return MRESULT (FALSE);
1071	}
1072
1073	return WinDefDlgProc (hwnd, msg, mp1, mp2);
1074	}
1075
1076	// AdjustSaveTypeButtons ********************************************* /FOLD00/
1077
1078	VOID AdjustSaveTypeButtons (BOOL f)
1079	{
1080	HWND hwndClient = WinWindowFromID (hwndFrame, FID_CLIENT);
1081
1082	// FIXME um, em, global variables :-$
1083	WinEnableWindow (WinWindowFromID (hwndClient, WID_RB_CLIPBOARD), !f);
1084	WinEnableWindow (WinWindowFromID (hwndClient, WID_RB_FILE), !f);
1085	}
1086
1087	// QueryWindowData *************************************************** /fold00/
1088
1089	VOID SETTINGS :: QueryWindowData (SWP *pswp, USHORT us[7], BOOL f)
1090	{
1091	// FIXME puke, yukk, choke! get this flag thing away! do it better!
1092	// FIXME what is with US?
1093	if (f)
1094	memcpy (pswp, QueryBinary(SEI_SWPSSW), sizeof (SWP));
1095	else
1096	memcpy (pswp, QueryBinary(SEI_SWP), sizeof (SWP));
1097
1098	LONG cx, cy;
1099	cx = WinQuerySysValue (HWND_DESKTOP, SV_CXSCREEN);
1100	cy = WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN);
1101
1102	if (pswp->cx < 32)
1103	pswp->cx = 32;
1104	// bigger than screen?
1105	if (pswp->cx > cx)
1106	pswp->cx = cx;
1107	// partly outside of screen?
1108	if (pswp->x+pswp->cx >= cx)
1109	pswp->x = cx-pswp->cx;
1110	if (pswp->cy < 32)
1111	pswp->cy = 32;
1112	// bigger than screen?
1113	if (pswp->cy > cy)
1114	pswp->cy = cy;
1115	// partly outside of screen?
1116	if (pswp->y+pswp->cy >= cy)
1117	pswp->y = cy-pswp->cy;
1118	}
1119
1120	// ReloadResources *************************************************** /FOLD00/
1121
1122	BOOL Settings :: ReloadResources (PSZ psz)
1123	{
1124	if (g_hmod)
1125	DosFreeModule(g_hmod);
1126
1127	APIRET rc;
1128
1129	if ((rc = DosLoadModule(PSZ(NULL), 0, psz, &g_hmod)))
1130	{
1131	DisplayError("ERROR", "Could not (re)load Gotcha! resource module "
1132	"'%s' (DosLoadModule() return code %d). First make sure the DLL is in the LIBPATH. If this is the case, try to delete "
1133	"GOTCHA.INI and start Gotcha! again. If it does not work "
1134	"then, contact the author (thth@c2226.de).", psz, rc);
1135	exit(1);
1136	}
1137
1138	ResourceString::Module(g_hmod);
1139	#ifdef _QUIET_
1140	//#if 1
1141	pszPageTab[0] = RSTR (IDS_MAINWIN);
1142	pszPageTab[1] = RSTR (IDS_PAGEMISC);
1143	pszPageTab[2] = RSTR (IDS_PAGESAVE);
1144	pszPageTab[3] = RSTR (IDS_PAGELANGUAGE);
1145	#else
1146	pszPageTab[0] = RSTR (IDS_PAGESAVE);
1147	pszPageTab[1] = RSTR (IDS_PAGESNAPSHOT);
1148	pszPageTab[2] = RSTR (IDS_PAGEMISC);
1149	pszPageTab[3] = RSTR (IDS_PAGELANGUAGE);
1150	#endif
1151	for( int i = 0; i < BMF_INVALID; i++ ) {
1152	ifi[ i ].label = RSTR ( IDS_BMF_JPG+i ); }
1153
1154	return TRUE;
1155	}
1156
1157	// SelectLanguage **************************************************** /FOLD00/
1158
1159	VOID Settings :: SelectLanguage (VOID)
1160	{
1161	// set this to some default, as we must open the settings dialog for
1162	// selecting a language
1163	#ifdef _QUIET_
1164	//#if 1
1165	pszPageTab[0] = RSTR (IDS_MAINWIN);
1166	pszPageTab[1] = RSTR (IDS_PAGEMISC);
1167	pszPageTab[2] = RSTR (IDS_PAGESAVE);
1168	pszPageTab[3] = RSTR (IDS_PAGELANGUAGE);
1169	#else
1170	pszPageTab[0] = RSTR (IDS_PAGESAVE);
1171	pszPageTab[1] = RSTR (IDS_PAGESNAPSHOT);
1172	pszPageTab[2] = RSTR (IDS_PAGEMISC);
1173	pszPageTab[3] = RSTR (IDS_PAGELANGUAGE);
1174	#endif
1175	// bring up the "select language" settings page
1176	Dialog (TRUE);
1177	}
1178
1179	// GetLanguages ****************************************************** /FOLD00/
1180
1181	USHORT Settings :: GetLanguages (HWND hwnd)
1182	{
1183	// find all dlls and add the names to the language list
1184	HDIR hdir;
1185	ULONG c, fl, ul;
1186	FILEFINDBUF3 findbuf;
1187	APIRET rc;
1188	PSZ psz;
1189	HMODULE hmod;
1190
1191	fl = FILE_NORMAL;
1192	hdir = HDIR_CREATE;
1193	c = 1;
1194	#ifdef _QUIET_
1195	rc = DosFindFirst ("goqres*.dll", &hdir, fl, &findbuf,
1196	sizeof (findbuf), &c, FIL_STANDARD);
1197	#else
1198	rc = DosFindFirst ("gotres*.dll", &hdir, fl, &findbuf,
1199	sizeof (findbuf), &c, FIL_STANDARD);
1200	#endif
1201	while (!rc)
1202	{
1203	// we don't want the extension
1204	if ((psz = strchr (findbuf.achName, '.')))
1205	*psz = '\0';
1206	// try opening the dll and read the version etc. data
1207	if ((rc = DosLoadModule(PSZ(NULL), 0, findbuf.achName, &hmod)) == NO_ERROR) {
1208	PVOID pv;
1209	if (DosGetResource(hmod, RT_RCDATA, DLL_ID, &pv) == NO_ERROR) {
1210	#ifdef _QUIET_
1211	if (strcmp(PSZ(pv), "Gotchaq!") == 0) {
1212	#else
1213	if (strcmp(PSZ(pv), "Gotcha!") == 0) {
1214	#endif
1215	psz = PSZ(pv)+strlen(PSZ(pv))+3;
1216	ul = WinInsertLboxItem (hwnd, LIT_END, psz);
1217	WinSendMsg(hwnd, LM_SETITEMHANDLE, MPFROMLONG(ul),
1218	MPFROMP (strdup(findbuf.achName)));
1219	}
1220	DosFreeResource(pv);
1221	}
1222	DosFreeModule(hmod);
1223	}
1224	c = 1;
1225	rc = DosFindNext (hdir, &findbuf, sizeof (findbuf), &c);
1226	}
1227	DosFindClose (hdir);
1228
1229	return 1;
1230	}
1231
1232	// GetFileExtension ************************************************** /FOLD00/
1233
1234	PSZ Settings :: GetFileExtension( SHORT type )
1235	{
1236	if( type == BMF_INVALID )
1237	type = SHORT( QueryFileFormat() );
1238	if( ( type >= BMF_JPG ) && ( type < BMF_INVALID ) )
1239	return ifi[ type ].extension;
1240	return "";
1241	}
1242
1243	#if 0
1244	// GetFOURCC ********************************************************* /FOLD00/
1245
1246	FOURCC Settings :: GetFOURCC( SHORT type )
1247	{
1248	if( type == BMF_INVALID )
1249	type = SHORT( QueryFileFormat() );
1250	if( ( type >= BMF_JPG ) && ( type < BMF_INVALID ) )
1251	return ifi[ type ].fourcc;
1252	return 0L;
1253	}
1254	#endif
1255	// GetFileEAType ***************************************************** /FOLD00/
1256
1257	PSZ Settings :: GetFileEAType( SHORT type )
1258	{
1259	if( type == BMF_INVALID )
1260	type = SHORT( QueryFileFormat() );
1261	if( ( type >= BMF_JPG ) && ( type < BMF_INVALID ) )
1262	return ifi[ type ].eaType;
1263	return "";
1264	}
1265
1266	// ************************************************************************
1267
1268	PSZ Settings :: QueryNumSaveDir( VOID )
1269	{
1270	// Using a static buffer here is not really good, but good enough
1271	// currently as we know there will be no concurrent access.
1272	static CHAR ach[_MAX_PATH];
1273
1274	if( strspn( QueryString( SEI_NUMSAVEDIR ), " \t\n\r" ) ==
1275	strlen( QueryString( SEI_NUMSAVEDIR ) ) )
1276	return getcwd( ach, _MAX_PATH );
1277	return QueryString( SEI_NUMSAVEDIR );
1278	}
1279
1280	// ************************************************************************

Note: See TracBrowser for help on using the repository browser.

Download in other formats: