Context Navigation

source: trunk/settings.cpp@ 27

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

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

Download in other formats: