Context Navigation

source: trunk/settings.cpp@ 99

Last change on this file since 99 was 99, checked in by Gregg Young, 4 years ago
Fix some settings notebook font issues; minor clean up;
Property svn:eol-style set to `native`
File size: 63.5 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 <uconv.h>
21	#include "settings.h"
22	#include "ctype.h"
23
24	#include "./settings/thth_settings.cpp"
25
26	PSZ SETTINGS::pszPageTab[COUNT_PAGES]; /* = {
27	"Saving", "Snapshot window", "Misc", "Language" };
28	// FIXME nls*/
29
30	bool saveum = FALSE;
31	SWP swpDef = { 0,0,0, 98,66, 0,0,0,0 };
32	SWP swpDefSSW = { 0,0,0, 10,10, 0,0,0,0 };
33	USHORT ausDef[7] = { 0 };
34	USHORT ausDefSSW[7] = { 0 };
35	BOOL g_installer = FALSE;
36
37	ImageFormatInfo Settings::ifi[BMF_INVALID] =
38	{
39	{ TRUE, BMF_JPG, "JPEG Interchange File Format (jpg)", "jpg", "JPG" },
40	{ TRUE, BMF_PNG, "Portable Network Graphics (png)", "png", "PNG" },
41	{ TRUE, BMF_OS20, "OS/2 Bitmap 2.0 (bmp)", "bmp", "Bitmap" },
42	{ TRUE, BMF_TIF, "Microsoft/Aldus Tagged Image File Format (tif)", "tif", "TIFF" },
43	{ TRUE, BMF_TGA, "Truevision Targa/Vista (tga)", "tga", "Targa" },
44	{ TRUE, BMF_PCX, "ZSoft PC Paintbrush Image Format (pcx)", "pcx", "PCX" },
45	{ TRUE, BMF_GIF, "Portable Anymap (pnm)", "pnm", "PNM" },
46	{ TRUE, BMF_PBM, "Portable Pixel-map (ppm)", "ppm", "PPM" },
47	{ TRUE, BMF_JP2, "Jpeg 2000 (provided by the Open Source OpenJPEG library) (jp2)", "jp2", "JP2" },
48	{ TRUE, BMF_DIB, "Device Independent Bitmap (dib)", "dib", "DIB" }
49	};
50
51
52	PTHTH_SE apse[] =
53	{
54	new THTH_SES (SEI_SAVEFILE, "Save", "Filename", "gotcha.png"),
55	new THTH_SES (SEI_FORCESAVEFILE, "Save", "ForceSaveFilename", "force.png"),
56	new THTH_SEL (SEI_SAVESTYLE, "Save", "Style", SAVESTYLE_FILE),
57	new THTH_SEL (SEI_FILEFORMAT, "Save", "FileFormat", BMF_PNG),
58	new THTH_SEL (SEI_FILESAVESTYLE, "Save", "FileSaveStyle", FSS_PROMPT),
59
60	new THTH_SES (SEI_NUMSAVEDIR, "Save", "NumSaveDir", ""),
61	new THTH_SEF (SEI_HIDEWINDOW, "Extras", "HideWindow", TRUE),
62	new THTH_SEF (SEI_AUTOADDEXTENSION, "Extras", "AutoaddExtension", TRUE),
63	new THTH_SEF (SEI_CONFIRMOVERWRITE, "Extras", "ConfirmOverwrite", TRUE),
64	new THTH_SEF (SEI_DOSOUND, "Extras", "DoSound", TRUE),
65
66	new THTH_SEF (SEI_DELAYEDCAPTURE, "Extras", "DelayedCapture", FALSE),
67	new THTH_SEF (SEI_DELAYCOUNTDOWN, "Extras", "DelayCountdown", FALSE),
68	new THTH_SEL (SEI_DELAYTIME, "Extras", "DelayTime", 5),
69	new THTH_SEF (SEI_SERIALCAPTURE, "Extras", "SerialCapture", FALSE),
70	new THTH_SEL (SEI_SERIALTIME, "Extras", "SerialTime", 10),
71	#ifdef _QUIET_
72	new THTH_SEL (SEI_SSWCAPTURETYPE, "Extras", "CaptureType", CAP_SCREEN),
73	new THTH_SEF (SEI_SNAPSHOTWINDOW, "Snapshot", NULL, NULL),
74	#else
75	new THTH_SEF (SEI_SNAPSHOTWINDOW, "Snapshot", "Enable", FALSE),
76	new THTH_SEL (SEI_SSWCAPTURETYPE, "Snapshot", "CaptureType", CAP_SCREEN),
77	new THTH_SEF (SEI_SSWHIDE, "Snapshot", "Hide", TRUE),
78	new THTH_SEF (SEI_SSWALWAYSONTOP, "Snapshot", "AlwaysOnTop", TRUE),
79	#endif
80	new THTH_SEF (SEI_IDLEPRIORITY, "Extras", "IdlePriority", FALSE),
81
82	new THTH_SEB (SEI_SWP, "Window", "SWP", &swpDef, sizeof (swpDef)),
83	new THTH_SEB (SEI_US, "Window", "US", &ausDef, sizeof (ausDef)),
84	#ifndef _QUIET_
85	new THTH_SEB (SEI_SWPSSW, "Snapshot", "SWP", &swpDefSSW, sizeof (swpDefSSW)),
86	new THTH_SEB (SEI_USSSW, "Snapshot", "US", &ausDefSSW, sizeof (ausDefSSW)),
87	#endif
88	new THTH_SES (SEI_LANGUAGE, "Language", "Program", PSZ_DEFAULTLANGUAGEMOD),
89	new THTH_SES (SEI_LANGUAGEHELP, "Language", "Help", PSZ_DEFAULTLANGUAGEHELP),
90
91	new THTH_SEF (SEI_UPDATE178DONE, "Extras", "Update178Done", FALSE),
92
93	NULL,
94	};
95
96	// Settings ********************************************************** /FOLD00/
97
98	Settings :: Settings (VOID) :
99	#ifdef _QUIET_
100	ththSettings(apse, "gotchaq.ini", L_PROFILEVERSION)
101	#else
102	ththSettings(apse, "gotcha.ini", L_PROFILEVERSION)
103	#endif
104	{
105	if( ! QueryFlag( SEI_UPDATE178DONE ) ) {
106	//DisplayError( "Updated", "false" );
107	SetLong( SEI_SERIALTIME, QueryLong( SEI_SERIALTIME ) * 20 );
108	SetFlag( SEI_UPDATE178DONE );
109	} /*else {
110	//DisplayError( "NOT Updated", "true" );
111	} */
112	#ifdef _QUIET_
113	HINI hini = PrfOpenProfile (hab, "gotchaq.ini");
114	#else
115	HINI hini = PrfOpenProfile (hab, "gotcha.ini");
116	#endif
117	BOOL fLChange = FALSE;
118	ULONG ulDataSize;
119	PrfQueryProfileSize(hini, "Language", "LangChangeRequested", &ulDataSize );
120	PrfQueryProfileData(hini, "Language", "LangChangeRequested", &fLChange, &ulDataSize);
121	if (!fLChange) {
122	CHAR *lang = getenv("LANG");
123	#ifdef _QUIET_
124	PSZ psz = "goqresen";
125	#else
126	PSZ psz = "gotresen";
127	#endif
128	PSZ pszh = "gotcha_en";
129	if (lang) {
130	if (!strnicmp(lang, "es", 2)) {
131	psz = "gotreses";
132	pszh = "gotcha_es";
133	}
134	else if (!strnicmp(lang, "cs", 2)) {
135	psz = "gotrescz";
136	}
137	else if (!strnicmp(lang, "de", 2)) {
138	psz = "gotresde";
139	}
140	else if (!strnicmp(lang, "it", 2)) {
141	psz = "gotresit";
142	pszh = "gotcha_it";
143	}
144	else if (!strnicmp(lang, "br", 2)) {
145	psz = "gotresbr";
146	pszh = "gotcha_br";
147	}
148	}
149	SetString(SEI_LANGUAGE, psz);
150	SetString (SEI_LANGUAGEHELP, pszh);
151	Save ();
152	}
153	if (hini)
154	PrfCloseProfile (hini);
155	// to get the error msgs in default language
156	ReloadResources (QueryString(SEI_LANGUAGE));
157	#ifdef _QUIET_
158	if (!g_installer) {
159	#endif
160	if (Error () == 1)
161	{
162	FileNotOpenError ();
163	ReloadResources (QueryString(SEI_LANGUAGE));
164	}
165	else if (Error () == 2)
166	{
167	VersionError ();
168	ReloadResources (QueryString(SEI_LANGUAGE));
169	}
170	#ifdef _QUIET_
171	}
172	#endif
173	}
174
175	// VersionError ******************************************************
176
177	USHORT SETTINGS :: VersionError (VOID)
178	{
179	DisplayError (RSTR(IDS_HEADER_WARNING), RSTR(IDS_ERROR_INIFILEWRONGVERSION),
180	QueryProfileName ());
181	SelectLanguage();
182	return 0;
183	}
184
185	// FileNotOpenError ************************************************** /FOLD00/
186
187	USHORT SETTINGS :: FileNotOpenError (VOID)
188	{
189	DisplayError (RSTR(IDS_HEADER_ERROR), RSTR(IDS_ERROR_INIFILENOTOPEN),
190	QueryProfileName ());
191	SelectLanguage();
192	return 0;
193	}
194
195	// Dialog ************************************************************ /FOLD00/
196
197	// FIXME YUKKI! YUKKI!! YUKKI!!! But I'm too lazy to do it better now :-)
198	HWND g_hwndSettingsDialog = NULL;
199	HWND g_hwndPage0 = NULL;
200
201	BOOL SETTINGS :: Dialog (BOOL fOnlyLanguage)
202	{
203	#ifdef _DOLOGDEBUG_
204	LogDebug( "Dialog: checkpoint 1" );
205	#endif
206	fAutoLanguage = fOnlyLanguage;
207
208	// load the main dialog window
209	hwndDlg = WinLoadDlg (HWND_DESKTOP, hwndFrame, (DialogProcedure),
210	GETMODULE, ID_DLG_SETTINGS, this);
211	// FIXME YUKKI! YUKKI!! YUKKI!!! But I'm too lazy to do it better now :-)
212	g_hwndSettingsDialog = hwndDlg;
213	#ifdef _DOLOGDEBUG_
214	LogDebug( "Dialog: checkpoint 2" );
215	#endif
216
217	// disable this two buttons if only language select
218	if (fAutoLanguage)
219	{
220	WinEnableWindow (WinWindowFromID (hwndDlg, WID_PB_HELP), FALSE);
221	WinEnableWindow (WinWindowFromID (hwndDlg, WID_PB_UNDO), FALSE);
222	}
223
224	HWND hwndNB = WinWindowFromID (hwndDlg, WID_NB_SETTINGS);
225	#ifdef _DOLOGDEBUG_
226	LogDebug( "Dialog: checkpoint 3" );
227	#endif
228
229	// set notebook background color
230	WinSendMsg (hwndNB, BKM_SETNOTEBOOKCOLORS,
231	MPFROMLONG (SYSCLR_DIALOGBACKGROUND),
232	MPFROMSHORT (BKA_BACKGROUNDPAGECOLORINDEX));
233
234	// set tab dimensions
235	WinSendMsg (hwndNB, BKM_SETDIMENSIONS,
236	MPFROM2SHORT (80, 25), MPFROMSHORT (BKA_MAJORTAB));
237	#ifdef _DOLOGDEBUG_
238	LogDebug( "Dialog: checkpoint 4" );
239	#endif
240
241	ULONG idPage[COUNT_PAGES];
242	USHORT i, cPages;
243
244	if (fOnlyLanguage)
245	{
246	cPages = 1;
247
248	idPage[0] = (ULONG)
249	WinSendMsg (hwndDlg, BKM_INSERTPAGE, 0L,
250	MPFROM2SHORT (BKA_MAJOR \| BKA_AUTOPAGESIZE,
251	BKA_LAST));
252	WinSendMsg (hwndDlg, BKM_SETTABTEXT, MPFROMLONG (idPage[0]),
253	MPFROMP (pszPageTab[COUNT_PAGES-1]));
254	hwndPage[0] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page4Procedure,
255	GETMODULE, ID_DLG_SETTINGSPAGE4, this);
256	}
257	else
258	{
259	cPages = COUNT_PAGES;
260
261	// insert empty pages
262	for (i = 0; i < cPages; i++)
263	{
264	//BOOKPAGEINFO pi;
265	idPage[i] = (ULONG)
266	WinSendMsg (hwndNB, BKM_INSERTPAGE, 0L,
267	MPFROM2SHORT (BKA_MAJOR \| BKA_AUTOPAGESIZE,
268	BKA_LAST));
269	#if 0
270	pi.cb = sizeof(pi);
271	pi.fl = BFA_PAGEFROMDLGRES \| BFA_MAJORTABTEXT;
272	pi.bLoadDlg = TRUE;
273	pi.hmodPageDlg = g_hmod;
274	switch (i) {
275	#ifndef _QUIET_
276	case 0:
277	pi.idPageDlg = ID_DLG_SETTINGSPAGE1;
278	pi.pfnPageDlgProc = NULL; //(PFN) Page1Procedure;
279	break;
280	#else
281	case 0:
282	pi.idPageDlg = ID_DLG_SETTINGSPAGE0;
283	pi.pfnPageDlgProc = NULL; //(PFN) WindowProcedure;
284	break;
285	#endif
286	case 1:
287	pi.idPageDlg = ID_DLG_SETTINGSPAGE2;
288	pi.pfnPageDlgProc = NULL; //(PFN) Page2Procedure;
289	break;
290	#ifndef _QUIET_
291	case 2:
292	pi.idPageDlg = ID_DLG_SETTINGSPAGE3;
293	pi.pfnPageDlgProc = NULL; //(PFN) Page3Procedure;
294	break;
295	#else
296	case 2:
297	pi.idPageDlg = ID_DLG_SETTINGSPAGE1;
298	pi.pfnPageDlgProc = NULL; //(PFN) Page1Procedure;
299	break;
300	#endif
301	case 3:
302	pi.idPageDlg = ID_DLG_SETTINGSPAGE4;
303	pi.pfnPageDlgProc = NULL; //(PFN) Page4Procedure;
304	break;
305	}
306	pi.cbMajorTab = strlen(pszPageTab[i]);
307	pi.pszMajorTab = pszPageTab[i];
308	pi.cbMinorTab = strlen(pszPageTab[i]);
309	pi.pszMinorTab = pszPageTab[i];
310	pi.cbStatusLine = 0;
311	pi.pszStatusLine = NULL;
312	#endif
313	if (pset->GetLangID() == CZ \|\| pset->GetLangID() == RU \|\| pset->GetLangID() == PL) {
314	UniChar target[300];
315	CHAR ucLangStr[300];
316	UconvObject uconv_object866 = NULL;
317	UconvObject uconv_object852 = NULL;
318	UconvObject uconv_object1207 = NULL;
319	UconvObject uconv_object850 = NULL;
320	HAB hab;
321	CHAR ucFont[FACESIZE];
322
323	UniCreateUconvObject((UniChar *)L"IBM-852", &uconv_object852);
324	UniCreateUconvObject((UniChar *)L"IBM-850", &uconv_object850);
325	UniCreateUconvObject((UniChar *)L"IBM-866", &uconv_object866);
326	UniCreateUconvObject((UniChar *)L"IBM-1207", &uconv_object1207);
327
328	strcpy(ucLangStr, pszPageTab[i]);
329	if (pset->GetLangID() == CZ \|\| pset->GetLangID() == PL) {
330
331	UniStrToUcs( uconv_object852, target, ucLangStr, 299);
332	}
333	else if (pset->GetLangID() == RU)
334	UniStrToUcs( uconv_object866, target, ucLangStr, 299);
335	else {
336	UniStrToUcs( uconv_object850, target, ucLangStr, 299);
337	}
338	UniStrFromUcs( uconv_object1207, ucLangStr, target, 300);
339	WinSendMsg (hwndNB, BKM_SETTABTEXT,
340	MPFROMLONG (idPage[i]), MPFROMP (ucLangStr));
341	/*pi.cbMajorTab = strlen(ucLangStr) + 10;
342	pi.pszMajorTab = ucLangStr;
343	pi.cbMinorTab = 0;
344	pi.pszMinorTab = "";*/
345	if (uconv_object866)
346	UniFreeUconvObject(uconv_object866);
347	if (uconv_object852)
348	UniFreeUconvObject(uconv_object852);
349	if (uconv_object850)
350	UniFreeUconvObject(uconv_object850);
351	if (uconv_object1207)
352	UniFreeUconvObject(uconv_object1207);
353	}
354	else
355	WinSendMsg (hwndNB, BKM_SETTABTEXT,
356	MPFROMLONG (idPage[i]), MPFROMP (pszPageTab[i]));
357	//WinSendMsg(hwndNB, BKM_SETPAGEINFO, MPFROMLONG(idPage[i]),
358	// MPFROMP(&pi));
359	}
360	#ifndef _QUIET_
361	// open and assign dialogs to pages
362	hwndPage[0] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page1Procedure,
363	GETMODULE, ID_DLG_SETTINGSPAGE1, this);
364	hwndPage[1] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page2Procedure,
365	GETMODULE, ID_DLG_SETTINGSPAGE2, this);
366	hwndPage[2] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page3Procedure,
367	GETMODULE, ID_DLG_SETTINGSPAGE3, this);
368	hwndPage[3] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page4Procedure,
369	GETMODULE, ID_DLG_SETTINGSPAGE4, this);
370	#else
371	hwndPage[0] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) WindowProcedure,
372	GETMODULE, ID_DLG_SETTINGSPAGE0, this);
373	hwndPage[1] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page2Procedure,
374	GETMODULE, ID_DLG_SETTINGSPAGE2, this);
375	hwndPage[2] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page1Procedure,
376	GETMODULE, ID_DLG_SETTINGSPAGE1, this);
377	hwndPage[3] = WinLoadDlg (hwndNB, hwndNB, (PFNWP) Page4Procedure,
378	GETMODULE, ID_DLG_SETTINGSPAGE4, this);
379	g_hwndPage0 = hwndPage[0];
380
381	#endif
382	}
383	#ifdef _DOLOGDEBUG_
384	LogDebug( "Dialog: checkpoint 5" );
385	#endif
386
387	// combine dlg-handle and page ids
388	for (i = 0; i < cPages; i++)
389	WinSendMsg (hwndNB, BKM_SETPAGEWINDOWHWND,
390	MPFROMLONG (idPage[i]), MPFROMHWND (hwndPage[i]));
391
392	/* if (fAutoLanguage)
393	WinSendMsg (hwndNB, BKM_TURNTOPAGE, MPFROMLONG (idPage[0]), 0L);
394	#if (COUNT_PAGES != 4)
395	#warning FIXME settings.cpp 264 or so ...
396	#endif */
397	for (i = 0; i < cPages; i++)
398	WinSendMsg (hwndPage[i], UM_SETTINGS2DIALOG, 0,0);
399	#ifdef _DOLOGDEBUG_
400	LogDebug( "Dialog: checkpoint 6" );
401	#endif
402	WinSendDlgItemMsg (g_hwndPage0, WID_RB_FILE, BM_CLICK,
403	MPFROMSHORT (TRUE), 0);
404	//WinSendDlgItemMsg (g_hwndPage0, WID_CB_HIDEWINDOW, BM_SETCHECK,
405	// MPFROMLONG (TRUE), MPFROMLONG (0));
406	//WinSetFocus (WinWindowFromID (hwndDlg, WID_PB_OK), TRUE);
407	//WinSetFocus( hwndPage[0], FALSE );
408	#ifdef _QUIET_
409	if (HACCEL haccel = WinLoadAccelTable (hab, GETMODULE, 1)) {
410	int rc = WinSetAccelTable (hab, haccel, hwndDlg);
411	}
412	#endif
413	WinSetActiveWindow( HWND_DESKTOP, hwndDlg );
414	#ifdef _DOLOGDEBUG_
415	LogDebug( "Dialog: checkpoint 7" );
416	#endif
417
418	WinProcessDlg (hwndDlg);
419	#ifdef _DOLOGDEBUG_
420	LogDebug( "Dialog: checkpoint 7.5" );
421	#endif
422	WinDestroyWindow (hwndDlg);
423	#ifdef _DOLOGDEBUG_
424	LogDebug( "Dialog: checkpoint 8" );
425	#endif
426	#ifndef _QUIET_
427	// it ain't the best way to do it, but ...
428	SetIdlePriority(QueryFlag(SEI_IDLEPRIORITY));
429	#endif
430	for (i = 0; i < COUNT_PAGES; i++)
431	hwndPage[i] = NULL;
432
433	hwndDlg = NULLHANDLE;
434	#ifdef _DOLOGDEBUG_
435	LogDebug( "Dialog: checkpoint 9" );
436	#endif
437	return TRUE;
438	}
439
440	ULONG winhDrawFormattedText(HPS hps, PRECTL prcl, const char *pcszText, ULONG flCmd);
441
442	// DialogProcedure *************************************************** /FOLD00/
443
444	MRESULT EXPENTRY SETTINGS :: DialogProcedure (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
445	{
446	static PSETTINGS pset = NULL;
447
448	#ifdef _DOLOGDEBUG_
449	LogDebug( "DialogProcedure:Message 0x%04x", msg );
450	#endif
451
452	switch (msg)
453	{
454	case WM_INITDLG:
455	#ifdef _DOLOGDEBUG_
456	LogDebug( "DialogProcedure: start WM_INITDLG" );
457	#endif
458	pset = PSETTINGS (mp2);
459	#ifdef _DOLOGDEBUG_
460	LogDebug( "DialogProcedure: end WM_INITDLG" );
461	#endif
462	CHAR ucFont[FACESIZE];
463	if (pset->GetLangID() == CZ \|\| pset->GetLangID() == RU \|\| pset->GetLangID() == PL) {
464	HMQ hmq = WinQueryWindowULong( hwnd, QWL_HMQ);
465	WinSetCp(hmq, 1207);
466	strcpy(ucFont, "9.Times New Roman MT 30");
467	WinSetPresParam(hwnd, PP_FONTNAMESIZE, strlen(ucFont) + 1, ucFont);
468
469	UniChar target[300];
470	CHAR ucLangStr[300];
471	UconvObject uconv_object866 = NULL;
472	UconvObject uconv_object860 = NULL;
473	UconvObject uconv_object852 = NULL;
474	UconvObject uconv_object1207 = NULL;
475	UconvObject uconv_object850 = NULL;
476	HAB hab;
477	CHAR ucFont[FACESIZE];
478
479	UniCreateUconvObject((UniChar *)L"IBM-852", &uconv_object852);
480	UniCreateUconvObject((UniChar *)L"IBM-850", &uconv_object850);
481	UniCreateUconvObject((UniChar *)L"IBM-866", &uconv_object866);
482	UniCreateUconvObject((UniChar *)L"IBM-1207", &uconv_object1207);
483
484	WinLoadString(hab, g_hmod, IDS_UNDO, sizeof(ucLangStr), ucLangStr);
485	if (pset->GetLangID() == CZ \|\| pset->GetLangID() == PL) {
486
487	UniStrToUcs( uconv_object852, target, ucLangStr, 299);
488	}
489	else if (pset->GetLangID() == RU)
490	UniStrToUcs( uconv_object866, target, ucLangStr, 299);
491	else {
492	UniStrToUcs( uconv_object850, target, ucLangStr, 299);
493	}
494	UniStrFromUcs( uconv_object1207, ucLangStr, target, 300);
495	WinSetDlgItemText(hwnd, WID_PB_UNDO, ucLangStr);
496	WinLoadString(hab, g_hmod, IDS_HELP, sizeof(ucLangStr), ucLangStr);
497
498	if (pset->GetLangID() == CZ \|\| pset->GetLangID() == PL) {
499
500	UniStrToUcs( uconv_object852, target, ucLangStr, 299);
501	}
502	else if (pset->GetLangID() == RU)
503	UniStrToUcs( uconv_object866, target, ucLangStr, 299);
504	else {
505	UniStrToUcs( uconv_object850, target, ucLangStr, 299);
506	}
507	UniStrFromUcs( uconv_object1207, ucLangStr, target, 300);
508	WinSetDlgItemText(hwnd, WID_PB_HELP, ucLangStr);
509	if (uconv_object866)
510	UniFreeUconvObject(uconv_object866);
511	if (uconv_object852)
512	UniFreeUconvObject(uconv_object852);
513	if (uconv_object850)
514	UniFreeUconvObject(uconv_object850);
515	if (uconv_object1207)
516	UniFreeUconvObject(uconv_object1207);
517	}
518	/*else {
519	strcpy(ucFont, "9.WarpSans");
520	WinSetPresParam(hwnd, PP_FONTNAMESIZE, strlen(ucFont) + 1, ucFont);
521	} */
522
523	return MRESULT (FALSE);
524
525	case WM_COMMAND:
526	switch (SHORT1FROMMP (mp1))
527	{
528	case WID_PB_OK:
529	#ifdef _DOLOGDEBUG_
530	LogDebug( "DialogProcedure: start WID_PB_OK" );
531	#endif
532	saveum = TRUE;
533	WinSendMsg (hwnd, WM_CLOSE, 0,0);
534	#ifdef _DOLOGDEBUG_
535	LogDebug( "DialogProcedure: end WID_PB_OK" );
536	#endif
537	break;
538
539	case WID_PB_UNDO:
540	{
541	ULONG id = (ULONG)
542	WinSendDlgItemMsg (hwnd, WID_NB_SETTINGS,
543	BKM_QUERYPAGEID, 0,
544	MPFROM2SHORT (BKA_TOP, 0));
545	if (id)
546	{
547	HWND hwndPage = (HWND)
548	WinSendDlgItemMsg (hwnd, WID_NB_SETTINGS,
549	BKM_QUERYPAGEWINDOWHWND,
550	MPFROMLONG (id), 0);
551	// Make mp1 1 for default use it to select setting on pages
552	WinSendMsg (hwndPage, UM_SETTINGS2DIALOG, 0,0);
553	}
554	}
555	break;
556
557	case WID_PB_ABOUT:
558	AboutBox (hwnd);
559	break;
560
561	case DID_CANCEL:
562	{
563	// Undo stuff on all notebook pages:
564	HWND hwndPage;
565
566	// Get ID of first notebook page.
567	ULONG id =
568	ULONG( WinSendDlgItemMsg( hwnd, WID_NB_SETTINGS,
569	BKM_QUERYPAGEID, 0,
570	MPFROM2SHORT( BKA_FIRST, 0 ) ) );
571	if( id ) {
572	hwndPage =
573	HWND( WinSendDlgItemMsg( hwnd, WID_NB_SETTINGS,
574	BKM_QUERYPAGEWINDOWHWND,
575	MPFROMLONG( id ), 0 ) );
576	WinSendMsg( hwndPage, UM_SETTINGS2DIALOG, 0,0 );
577	}
578
579	while( id ) {
580	// Get ID of next notebook page.
581	if( ( id =
582	ULONG( WinSendDlgItemMsg( hwnd, WID_NB_SETTINGS,
583	BKM_QUERYPAGEID,
584	MPFROMLONG( id ),
585	MPFROM2SHORT( BKA_NEXT, 0 )
586	) ) ) ) {
587	hwndPage =
588	HWND( WinSendDlgItemMsg( hwnd, WID_NB_SETTINGS,
589	BKM_QUERYPAGEWINDOWHWND,
590	MPFROMLONG( id ), 0 ) );
591	WinSendMsg( hwndPage, UM_SETTINGS2DIALOG, 0,0 );
592	}
593	}
594	WinSendMsg( hwnd, WM_CLOSE, 0,0 );
595	}
596	break;
597	}
598	return MRESULT (FALSE);
599
600	#ifdef _DOLOGDEBUG_
601	case WM_DESTROY:
602	LogDebug( "DialogProcedure: WM_DESTROY" );
603	return MRESULT (FALSE);
604	#endif
605
606	case WM_CLOSE:
607	#ifdef _DOLOGDEBUG_
608	LogDebug( "DialogProcedure: WM_CLOSE" );
609	#endif
610	case WM_QUIT:
611	#ifdef _DOLOGDEBUG_
612	LogDebug( "DialogProcedure: WM_QUIT" );
613	#endif
614	case WM_SAVEAPPLICATION:
615	#ifdef _DOLOGDEBUG_
616	LogDebug( "DialogProcedure: WM_SAVEAPPLICATION" );
617	#endif
618	#ifdef _DOLOGDEBUG_
619	LogDebug( "DialogProcedure: start WM_CLOSE (or WM_QUIT, WM_SAVEAPPLICATION)" );
620	#endif
621	for (USHORT i = 0; i < COUNT_PAGES; i++)
622	WinSendMsg (pset->hwndPage[i], UM_ADJUST, 0,0);
623	#ifdef _DOLOGDEBUG_
624	LogDebug( "DialogProcedure: end WM_CLOSE (or WM_QUIT, WM_SAVEAPPLICATION)" );
625	#endif
626	WinDismissDlg( hwnd, 0L );
627	return MRESULT (FALSE);
628	}
629
630	#ifdef _DOLOGDEBUG_
631	LogDebug( "DialogProcedure:WinDefDlgProc->0x%04x", msg );
632	#endif
633	return WinDefDlgProc (hwnd, msg, mp1, mp2);
634	}
635
636	// Page1Procedure **************************************************** /FOLD00/
637
638	MRESULT EXPENTRY SETTINGS :: Page1Procedure (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
639	{
640	static PSETTINGS pset = NULL;
641
642	switch (msg)
643	{
644	case WM_INITDLG: {
645	#ifdef _DOLOGDEBUG_
646	LogDebug( "Page1Procedure: start WM_INITDLG" );
647	#endif
648	ULONG ul;
649	pset = PSETTINGS (mp2);
650	for( int i = 0; i < BMF_INVALID; i++ ) {
651	if( pset->ifi[ i ].available ) {
652	ul = WinInsertLboxItem( WinWindowFromID( hwnd, WID_LB_FILEFORMAT ),
653	LIT_END, pset->ifi[ i ].label );
654	WinSendMsg( WinWindowFromID( hwnd, WID_LB_FILEFORMAT ),
655	LM_SETITEMHANDLE, MPFROMLONG(ul), MPFROMP( i ) );
656	}
657	}
658	HMQ hmq;
659	BOOL bUniCodeFont = FALSE;
660	CHAR ucFont[FACESIZE];
661
662	if (pset->GetLangID() == RU) {
663	hmq = WinQueryWindowULong( hwnd, QWL_HMQ);
664	WinSetCp(hmq, 866);
665	bUniCodeFont = TRUE;
666	}
667	else if (pset->GetLangID() == CZ \|\| pset->GetLangID() == PL) {
668	hmq = WinQueryWindowULong( hwnd, QWL_HMQ);
669	WinSetCp(hmq, 852);
670	bUniCodeFont = TRUE;
671	}
672	else {
673	hmq = WinQueryWindowULong( hwnd, QWL_HMQ);
674	WinSetCp(hmq, 850);
675	}
676
677	if (bUniCodeFont) {
678	strcpy(ucFont, "9.Times New Roman MT 30");
679	WinSetPresParam(hwnd, PP_FONTNAMESIZE, strlen(ucFont) + 1, ucFont);
680	}
681	/*else {
682	strcpy(ucFont, "9.WarpSans");
683	WinSetPresParam(hwnd, PP_FONTNAMESIZE, strlen(ucFont) + 1, ucFont);
684	} */
685
686	#ifdef _DOLOGDEBUG_
687	LogDebug( "Page1Procedure: end WM_INITDLG" );
688	#endif
689	return MRESULT (FALSE);
690	}
691
692	case WM_COMMAND:
693	if( SHORT1FROMMP( mp1 ) == DID_CANCEL )
694	WinPostMsg( g_hwndSettingsDialog, msg, mp1, mp2 );
695	return MRESULT( FALSE );
696
697	case UM_SETTINGS2DIALOG: {
698	#ifdef _DOLOGDEBUG_
699	LogDebug( "Page1Procedure: start UM_SETTINGS2DIALOG" );
700	#endif
701	// set num save dir name
702	WinSendDlgItemMsg (hwnd, WID_E_NUMSAVEDIR, EM_SETTEXTLIMIT,
703	MPARAM (_MAX_PATH-1), (MPARAM)0);
704	WinSetDlgItemText (hwnd, WID_E_NUMSAVEDIR,
705	pset->QueryNumSaveDir ());
706	WinSendDlgItemMsg (hwnd, WID_E_NUMSAVEDIR, EM_SETSEL,
707	MPFROM2SHORT (0, _MAX_PATH), (MPARAM)0);
708
709	// set force file name
710	WinSendDlgItemMsg (hwnd, WID_E_FORCESAVEFILE, EM_SETTEXTLIMIT,
711	MPARAM (_MAX_PATH-1), (MPARAM)0);
712	WinSetDlgItemText (hwnd, WID_E_FORCESAVEFILE,
713	pset->QueryForceSaveFile ());
714	WinSendDlgItemMsg (hwnd, WID_E_FORCESAVEFILE, EM_SETSEL,
715	MPFROM2SHORT (0, _MAX_PATH), (MPARAM)0);
716
717	// Select the appropriate entry in the fileformat-listbox.
718	HWND hwndLB = WinWindowFromID( hwnd, WID_LB_FILEFORMAT );
719	ULONG c, i;
720
721	c = WinQueryLboxCount( hwndLB );
722	for( i = 0; i < c; i++ )
723	{
724	ULONG type = ULONG( WinSendDlgItemMsg( hwnd, WID_LB_FILEFORMAT,
725	LM_QUERYITEMHANDLE,
726	MPFROMLONG(i), NULL ) );
727	if( type == ULONG( pset->QueryFileFormat() ) )
728	break;
729	}
730	if( i < c )
731	WinSendDlgItemMsg( hwnd, WID_LB_FILEFORMAT, LM_SELECTITEM,
732	MPFROMSHORT(i), MPFROMSHORT(TRUE) );
733	else
734	WinSendDlgItemMsg( hwnd, WID_LB_FILEFORMAT, LM_SELECTITEM,
735	MPFROMSHORT(0), MPFROMSHORT(TRUE) );
736	#ifdef _QUIET_
737	//#if 1
738	// set play sound button
739	pset->AdjustButton (hwnd, WID_CB_DOSOUND,
740	pset->DoSound ());
741	#endif
742	// Select appropriate radiobutton for save style.
743	switch (pset->QueryFileSaveStyle ())
744	{
745	case FSS_NUMFILES:
746	WinSendDlgItemMsg (hwnd, WID_RB_FSSNUMFILES, BM_CLICK,
747	MPFROMSHORT(TRUE), 0);
748	AdjustSaveTypeButtons (FALSE);
749	break;
750
751	case FSS_FORCEFILE:
752	WinSendDlgItemMsg (hwnd, WID_RB_FSSFORCEFILE, BM_CLICK,
753	MPFROMSHORT(TRUE), 0);
754	AdjustSaveTypeButtons (TRUE);
755	break;
756
757	default:
758	WinSendDlgItemMsg (hwnd, WID_RB_FSSPROMPT, BM_CLICK,
759	MPFROMSHORT(TRUE), 0);
760	AdjustSaveTypeButtons (FALSE);
761	break;
762	}
763	#ifdef _DOLOGDEBUG_
764	LogDebug( "Page1Procedure: end UM_SETTINGS2DIALOG" );
765	#endif
766	return MRESULT (FALSE);
767	}
768
769	case UM_ADJUST:
770	{
771	#ifdef _DOLOGDEBUG_
772	LogDebug( "Page1Procedure: start UM_ADJUST" );
773	#endif
774	// get file save style
775	if (WinSendMsg (WinWindowFromID (hwnd, WID_RB_FSSNUMFILES),
776	BM_QUERYCHECK, 0,0))
777	pset->SetFileSaveStyle (FSS_NUMFILES);
778	else if (WinSendMsg (WinWindowFromID (hwnd, WID_RB_FSSFORCEFILE),
779	BM_QUERYCHECK, 0,0))
780	pset->SetFileSaveStyle (FSS_FORCEFILE);
781	else
782	pset->SetFileSaveStyle (FSS_PROMPT);
783	#ifdef _QUIET_
784	//#if 1
785	pset->DoSound(WinQueryButtonCheckstate
786	(hwnd, WID_CB_DOSOUND));
787	#endif
788	#ifdef _DOLOGDEBUG_
789	LogDebug( "Page1Procedure: checkpoint 1" );
790	#endif
791
792	// Get file format.
793	ULONG ul = USHORT( WinSendDlgItemMsg( hwnd, WID_LB_FILEFORMAT,
794	LM_QUERYSELECTION,
795	MPFROMLONG( LIT_FIRST ),
796	0L ) );
797	ul = ULONG( WinSendDlgItemMsg( hwnd, WID_LB_FILEFORMAT,
798	LM_QUERYITEMHANDLE,
799	MPFROMLONG( ul ), NULL ) );
800	pset->SetFileFormat( SHORT( ul ) );
801
802	pset->SetSaveFile(AddExtensionToFilename(pset->QuerySaveFile()));
803
804	#ifdef _DOLOGDEBUG_
805	LogDebug( "Page1Procedure: checkpoint 2" );
806	#endif
807
808	// num save dir file name
809	CHAR psz[_MAX_PATH];
810	WinQueryDlgItemText (hwnd, WID_E_NUMSAVEDIR, _MAX_PATH, psz);
811	pset->SetNumSaveDir (psz);
812
813	// force file name
814	WinQueryDlgItemText (hwnd, WID_E_FORCESAVEFILE, _MAX_PATH, psz);
815	pset->SetForceSaveFile (psz);
816
817	AdjustSaveTypeButtons
818	(BOOL (pset->QueryFileSaveStyle () == FSS_FORCEFILE));
819	pset->saveStyle = pset->QuerySaveStyle ();
820	pset->pNumSaveDir = pset->QueryNumSaveDir ();
821	pset->pForceSaveFile = pset->QueryForceSaveFile();
822
823	if (saveum)
824	pset->Save ();
825	#ifdef _DOLOGDEBUG_
826	LogDebug( "Page1Procedure: end UM_ADJUST" );
827	#endif
828	}
829	break;
830
831	case WM_CONTROL:
832	switch (SHORT1FROMMP (mp1))
833	{
834	case WID_RB_FSSFORCEFILE:
835	AdjustSaveTypeButtons (TRUE);
836	break;
837
838	case WID_RB_FSSPROMPT:
839	case WID_RB_FSSNUMFILES:
840	AdjustSaveTypeButtons (FALSE);
841	break;
842	}
843	return MRESULT (FALSE);
844	}
845
846	return WinDefDlgProc (hwnd, msg, mp1, mp2);
847	}
848
849	// Page2Procedure **************************************************** /FOLD00/
850
851	MRESULT EXPENTRY SETTINGS :: Page2Procedure (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
852	{
853	static PSETTINGS pset = NULL;
854
855	switch (msg)
856	{
857	case WM_INITDLG: {
858	#ifdef _DOLOGDEBUG_
859	LogDebug( "Page1Procedure: start WM_INITDLG" );
860	#endif
861	pset = PSETTINGS (mp2);
862	#ifdef _DOLOGDEBUG_
863	LogDebug( "Page1Procedure: end WM_INITDLG" );
864	#endif
865	HMQ hmq;
866	BOOL bUniCodeFont = FALSE;
867	CHAR ucFont[FACESIZE];
868
869	if (pset->GetLangID() == RU) {
870	hmq = WinQueryWindowULong( hwnd, QWL_HMQ);
871	WinSetCp(hmq, 866);
872	bUniCodeFont = TRUE;
873	}
874	else if (pset->GetLangID() == CZ \|\| pset->GetLangID() == PL) {
875	hmq = WinQueryWindowULong( hwnd, QWL_HMQ);
876	WinSetCp(hmq, 852);
877	bUniCodeFont = TRUE;
878	}
879	else {
880	hmq = WinQueryWindowULong( hwnd, QWL_HMQ);
881	WinSetCp(hmq, 850);
882	}
883
884	if (bUniCodeFont) {
885	strcpy(ucFont, "9.Times New Roman MT 30");
886	WinSetPresParam(hwnd, PP_FONTNAMESIZE, strlen(ucFont) + 1, ucFont);
887	}
888	/*else {
889	strcpy(ucFont, "9.WarpSans");
890	WinSetPresParam(hwnd, PP_FONTNAMESIZE, strlen(ucFont) + 1, ucFont);
891	} */
892	return MRESULT (FALSE);
893	}
894	case WM_COMMAND:
895
896	if( SHORT1FROMMP( mp1 ) == WID_PB_OK) {
897	saveum = TRUE;
898	WinSendMsg ( g_hwndSettingsDialog, WM_CLOSE, 0,0);
899	}
900	if( SHORT1FROMMP( mp1 ) == DID_CANCEL )
901	WinPostMsg( g_hwndSettingsDialog, msg, mp1, mp2 );
902	return MRESULT( FALSE );
903
904	case UM_SETTINGS2DIALOG:
905	#ifdef _DOLOGDEBUG_
906	LogDebug( "Page2Procedure: start UM_SETTINGS2DIALOG" );
907	#endif
908	#ifndef _QUIET_
909	// set state of checkbuttons
910	pset->AdjustButton (hwnd, WID_CB_SSWENABLE,
911	pset->SnapshotWindow ());
912	pset->AdjustButton (hwnd, WID_CB_SSWHIDE,
913	pset->SSWHide ());
914	pset->AdjustButton (hwnd, WID_CB_SSWALWAYSONTOP,
915	pset->SSWAlwaysOnTop ());
916	#else
917	//#if 1
918	pset->AdjustButton (hwnd, WID_CB_SERIALCAPTURE,
919	pset->SerialCapture ());
920	pset->AdjustButton (hwnd, WID_CB_DELAYCOUNTDOWN,
921	pset->DelayCountdown ());
922	pset->AdjustButton (hwnd, WID_CB_DELAYEDCAPTURE,
923	pset->DelayedCapture ());
924
925	// init delay time sb
926	WinSendDlgItemMsg (hwnd, WID_SB_DELAYTIME, SPBM_SETLIMITS,
927	MPFROMLONG (65536), MPFROMLONG (1));
928	WinSendDlgItemMsg (hwnd, WID_SB_DELAYTIME, SPBM_SETCURRENTVALUE,
929	MPFROMLONG (pset->QueryDelayTime ()), 0);
930
931	// init serial time sb
932	WinSendDlgItemMsg (hwnd, WID_SB_SERIALTIME, SPBM_SETLIMITS,
933	MPFROMLONG (65536), MPFROMLONG (1));
934	WinSendDlgItemMsg (hwnd, WID_SB_SERIALTIME, SPBM_SETCURRENTVALUE,
935	MPFROMLONG (pset->QuerySerialTime ()), 0);
936	#endif
937	switch (pset->QuerySSWCaptureType ())
938	{
939	case CAP_WINDOWINT:
940	WinSendDlgItemMsg (hwnd, WID_SSWWINDOWINT, BM_CLICK,
941	MPFROMSHORT(TRUE), 0);
942	break;
943	case CAP_SCREENREGION:
944	WinSendDlgItemMsg (hwnd, WID_SSWSCREENREGION, BM_CLICK,
945	MPFROMSHORT(TRUE), 0);
946	break;
947	case CAP_WINDOW:
948	WinSendDlgItemMsg (hwnd, WID_SSWWINDOW, BM_CLICK,
949	MPFROMSHORT(TRUE), 0);
950	break;
951	default:
952	WinSendDlgItemMsg (hwnd, WID_SSWSCREEN, BM_CLICK,
953	MPFROMSHORT(TRUE), 0);
954	break;
955	}
956	#ifndef _QUIET_
957	// show or hide snapshot window
958	if (! WinSendDlgItemMsg (hwnd, WID_CB_SSWENABLE,
959	BM_QUERYCHECK, 0, 0))
960	WinShowWindow (hwndSnapshot, FALSE);
961	else
962	WinShowWindow (hwndSnapshot, TRUE);
963	#endif
964	#ifdef _DOLOGDEBUG_
965	LogDebug( "Page1Procedure: end UM_SETTINGS2DIALOG" );
966	#endif
967	return MRESULT (FALSE);
968
969	case UM_ADJUST:
970	#ifdef _DOLOGDEBUG_
971	LogDebug( "Page2Procedure: start UM_ADJUST" );
972	#endif
973	#ifndef _QUIET_
974	//#if 0
975	// query state of checkbuttons and set flags
976	pset->SSWHide(WinQueryButtonCheckstate(hwnd, WID_CB_SSWHIDE));
977	#ifdef _DOLOGDEBUG_
978	LogDebug( "Page2Procedure: checkpoint 1" );
979	#endif
980	pset->SnapshotWindow(WinQueryButtonCheckstate(hwnd, WID_CB_SSWENABLE));
981	pset->SSWAlwaysOnTop(WinQueryButtonCheckstate(hwnd,
982	WID_CB_SSWALWAYSONTOP));
983	#ifdef _DOLOGDEBUG_
984	LogDebug( "Page2Procedure: checkpoint 2" );
985	#endif
986	#else
987	// query state of checkbuttons and set flags
988	pset->SerialCapture(WinQueryButtonCheckstate
989	(hwnd, WID_CB_SERIALCAPTURE));
990	#ifdef _DOLOGDEBUG_
991	LogDebug( "Page3Procedure: checkpoint 1" );
992	#endif
993	pset->DelayCountdown(WinQueryButtonCheckstate
994	(hwnd, WID_CB_DELAYCOUNTDOWN));
995	pset->DelayedCapture (WinQueryButtonCheckstate
996	(hwnd,WID_CB_DELAYEDCAPTURE));
997	#endif
998	// get ssw capture type
999	if (WinSendMsg (WinWindowFromID (hwnd, WID_SSWSCREENREGION),
1000	BM_QUERYCHECK, 0,0))
1001	pset->SetSSWCaptureType (CAP_SCREENREGION);
1002	else if (WinSendMsg (WinWindowFromID (hwnd, WID_SSWWINDOW),
1003	BM_QUERYCHECK, 0,0))
1004	pset->SetSSWCaptureType (CAP_WINDOW);
1005	else if (WinSendMsg (WinWindowFromID (hwnd, WID_SSWWINDOWINT),
1006	BM_QUERYCHECK, 0,0))
1007	pset->SetSSWCaptureType (CAP_WINDOWINT);
1008	else
1009	pset->SetSSWCaptureType (CAP_SCREEN);
1010	#ifdef _QUIET_
1011	//#if 1
1012	// delay time
1013	ULONG ul;
1014	if (! BOOL (WinSendDlgItemMsg (hwnd, WID_SB_DELAYTIME,
1015	SPBM_QUERYVALUE,
1016	MPFROMP (&ul),
1017	MPFROM2SHORT (0, 0))))
1018	ul = 5L;
1019	pset->SetDelayTime (ul);
1020	#ifdef _DOLOGDEBUG_
1021	LogDebug( "Page3Procedure: checkpoint 3" );
1022	#endif
1023
1024	// serial time
1025	if (! BOOL (WinSendDlgItemMsg (hwnd, WID_SB_SERIALTIME,
1026	SPBM_QUERYVALUE,
1027	MPFROMP (&ul),
1028	MPFROM2SHORT (0, 0))))
1029	ul = 10L;
1030	pset->SetSerialTime (ul);
1031	pset->bSerialCapture = pset->SerialCapture ();
1032	#endif
1033	if (saveum)
1034	pset->Save ();
1035	#ifdef _DOLOGDEBUG_
1036	LogDebug( "Page2Procedure: end UM_ADJUST" );
1037	#endif
1038	break;
1039
1040	case WM_CONTROL:
1041	switch (SHORT1FROMMP (mp1))
1042	{
1043	#ifndef _QUIET_
1044	case WID_CB_SSWENABLE:
1045	if (! WinSendDlgItemMsg (hwnd, WID_CB_SSWENABLE,
1046	BM_QUERYCHECK, 0, 0))
1047	WinShowWindow (hwndSnapshot, FALSE);
1048	else
1049	WinShowWindow (hwndSnapshot, TRUE);
1050	break;
1051	#endif
1052	case WID_CB_DELAYEDCAPTURE:
1053
1054	WinSendDlgItemMsg (g_hwndPage0, WID_CB_DELAYEDCAPTURE, BM_SETCHECK,
1055	MPFROMLONG (WinQueryButtonCheckstate
1056	(hwnd,WID_CB_DELAYEDCAPTURE)),
1057	MPFROMLONG (0));
1058	WinSendDlgItemMsg (WinWindowFromID(hwndFrame, FID_CLIENT),
1059	WID_CB_DELAYEDCAPTURE, BM_SETCHECK,
1060	MPFROMLONG (WinQueryButtonCheckstate
1061	(hwnd,WID_CB_DELAYEDCAPTURE)),
1062	MPFROMLONG (0));
1063	break;
1064	}
1065	return MRESULT (FALSE);
1066	}
1067
1068	return WinDefDlgProc (hwnd, msg, mp1, mp2);
1069	}
1070
1071	// Page3Procedure **************************************************** /FOLD00/
1072
1073	MRESULT EXPENTRY SETTINGS :: Page3Procedure (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
1074	{
1075	static PSETTINGS pset = NULL;
1076
1077	switch (msg)
1078	{
1079	case WM_INITDLG: {
1080	#ifdef _DOLOGDEBUG_
1081	LogDebug( "Page3Procedure: start WM_INITDLG" );
1082	#endif
1083	pset = PSETTINGS (mp2);
1084	#ifdef _DOLOGDEBUG_
1085	LogDebug( "Page3Procedure: end WM_INITDLG" );
1086	#endif
1087	HMQ hmq;
1088	BOOL bUniCodeFont = FALSE;
1089	CHAR ucFont[FACESIZE];
1090
1091	if (pset->GetLangID() == RU) {
1092	hmq = WinQueryWindowULong( hwnd, QWL_HMQ);
1093	WinSetCp(hmq, 866);
1094	bUniCodeFont = TRUE;
1095	}
1096	else if (pset->GetLangID() == CZ \|\| pset->GetLangID() == PL) {
1097	hmq = WinQueryWindowULong( hwnd, QWL_HMQ);
1098	WinSetCp(hmq, 852);
1099	bUniCodeFont = TRUE;
1100	}
1101	else {
1102	hmq = WinQueryWindowULong( hwnd, QWL_HMQ);
1103	WinSetCp(hmq, 850);
1104	}
1105
1106	if (bUniCodeFont) {
1107	strcpy(ucFont, "9.Times New Roman MT 30");
1108	WinSetPresParam(hwnd, PP_FONTNAMESIZE, strlen(ucFont) + 1, ucFont);
1109	}
1110	/*else {
1111	strcpy(ucFont, "9.WarpSans");
1112	WinSetPresParam(hwnd, PP_FONTNAMESIZE, strlen(ucFont) + 1, ucFont);
1113	} */
1114	return MRESULT (FALSE);
1115	}
1116
1117	case WM_COMMAND:
1118	if( SHORT1FROMMP( mp1 ) == DID_CANCEL )
1119	WinPostMsg( g_hwndSettingsDialog, msg, mp1, mp2 );
1120	return MRESULT( FALSE );
1121
1122	case UM_SETTINGS2DIALOG:
1123	#ifdef _DOLOGDEBUG_
1124	LogDebug( "Page3Procedure: start UM_SETTINGS2DIALOG" );
1125	#endif
1126	// set state of checkbuttons
1127	pset->AdjustButton (hwnd, WID_CB_SERIALCAPTURE,
1128	pset->SerialCapture ());
1129	pset->AdjustButton (hwnd, WID_CB_DELAYCOUNTDOWN,
1130	pset->DelayCountdown ());
1131	pset->AdjustButton (hwnd, WID_CB_DOSOUND,
1132	pset->DoSound ());
1133	pset->AdjustButton (hwnd, WID_CB_IDLEPRIORITY,
1134	pset->QueryFlag(SEI_IDLEPRIORITY));
1135
1136	// init delay time sb
1137	WinSendDlgItemMsg (hwnd, WID_SB_DELAYTIME, SPBM_SETLIMITS,
1138	MPFROMLONG (65536), MPFROMLONG (1));
1139	WinSendDlgItemMsg (hwnd, WID_SB_DELAYTIME, SPBM_SETCURRENTVALUE,
1140	MPFROMLONG (pset->QueryDelayTime ()), 0);
1141
1142	// init serial time sb
1143	WinSendDlgItemMsg (hwnd, WID_SB_SERIALTIME, SPBM_SETLIMITS,
1144	MPFROMLONG (65536), MPFROMLONG (1));
1145	WinSendDlgItemMsg (hwnd, WID_SB_SERIALTIME, SPBM_SETCURRENTVALUE,
1146	MPFROMLONG (pset->QuerySerialTime ()), 0);
1147	#ifdef _DOLOGDEBUG_
1148	LogDebug( "Page3Procedure: end UM_SETTINGS2DIALOG" );
1149	#endif
1150	return MRESULT (FALSE);
1151
1152	case UM_ADJUST:
1153	{
1154	#ifdef _DOLOGDEBUG_
1155	LogDebug( "Page3Procedure: start UM_ADJUST" );
1156	#endif
1157	// query state of checkbuttons and set flags
1158	pset->SerialCapture(WinQueryButtonCheckstate
1159	(hwnd, WID_CB_SERIALCAPTURE));
1160	#ifdef _DOLOGDEBUG_
1161	LogDebug( "Page3Procedure: checkpoint 1" );
1162	#endif
1163	pset->DelayCountdown(WinQueryButtonCheckstate
1164	(hwnd, WID_CB_DELAYCOUNTDOWN));
1165	pset->DoSound(WinQueryButtonCheckstate
1166	(hwnd, WID_CB_DOSOUND));
1167	pset->SetFlag(SEI_IDLEPRIORITY, WinQueryButtonCheckstate
1168	(hwnd, WID_CB_IDLEPRIORITY));
1169	#ifdef _DOLOGDEBUG_
1170	LogDebug( "Page3Procedure: checkpoint 2" );
1171	#endif
1172
1173	// delay time
1174	ULONG ul;
1175	if (! BOOL (WinSendDlgItemMsg (hwnd, WID_SB_DELAYTIME,
1176	SPBM_QUERYVALUE,
1177	MPFROMP (&ul),
1178	MPFROM2SHORT (0, 0))))
1179	ul = 5L;
1180	pset->SetDelayTime (ul);
1181	#ifdef _DOLOGDEBUG_
1182	LogDebug( "Page3Procedure: checkpoint 3" );
1183	#endif
1184
1185	// serial time
1186	if (! BOOL (WinSendDlgItemMsg (hwnd, WID_SB_SERIALTIME,
1187	SPBM_QUERYVALUE,
1188	MPFROMP (&ul),
1189	MPFROM2SHORT (0, 0))))
1190	ul = 10L;
1191	pset->SetSerialTime (ul);
1192	pset->bSerialCapture = pset->SerialCapture ();
1193	pset->idleSetInIni = pset->QueryFlag(SEI_IDLEPRIORITY);
1194
1195	if (saveum)
1196	pset->Save ();
1197	#ifdef _DOLOGDEBUG_
1198	LogDebug( "Page3Procedure: end UM_ADJUST" );
1199	#endif
1200	}
1201	break;
1202
1203	case WM_CONTROL:
1204	switch (SHORT1FROMMP (mp1))
1205	{
1206	case WID_CB_SERIALCAPTURE:
1207	{
1208	HWND hwndButton =
1209	WinWindowFromID (WinWindowFromID (hwndFrame, FID_CLIENT),
1210	WID_CB_DELAYEDCAPTURE);
1211	if (! WinSendDlgItemMsg (hwnd, WID_CB_SERIALCAPTURE,
1212	BM_QUERYCHECK, 0, 0))
1213	WinEnableWindow (hwndButton, TRUE);
1214	else
1215	WinEnableWindow (hwndButton, FALSE);
1216	}
1217	break;
1218	}
1219	return MRESULT (FALSE);
1220	}
1221
1222	return WinDefDlgProc (hwnd, msg, mp1, mp2);
1223	}
1224
1225	// Page4Procedure **************************************************** /FOLD00/
1226
1227	MRESULT EXPENTRY SETTINGS :: Page4Procedure (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
1228	{
1229	static PSETTINGS pset = NULL;
1230
1231	switch (msg)
1232	{
1233	case WM_INITDLG:
1234	{
1235	#ifdef _DOLOGDEBUG_
1236	LogDebug( "Page4Procedure: start WM_INITDLG" );
1237	#endif
1238	pset = PSETTINGS (mp2);
1239	HMQ hmq = WinQueryWindowULong(hwnd /WinWindowFromID(hwnd, ID_DLG_SETTINGSPAGE4)/, QWL_HMQ);
1240	WinSetCp(hmq, 1207); // UPF-8 Unicode
1241	WinRemovePresParam(hwnd, PP_FONTNAMESIZE);
1242	pset->GetLanguages(WinWindowFromID (hwnd, WID_LB_LANGUAGES));
1243
1244	#ifdef _DOLOGDEBUG_
1245	LogDebug( "Page4Procedure: WM_INITDLG: after GetLanguages()" );
1246	#endif
1247	HDIR hdir;
1248	ULONG c, fl;
1249	FILEFINDBUF3 findbuf;
1250	APIRET rc;
1251	PSZ psz;
1252
1253	// find all hlps and add the names to the language list
1254	fl = FILE_NORMAL;
1255	hdir = HDIR_CREATE;
1256	c = 1;
1257	rc = DosFindFirst ("*.hlp", &hdir, fl, &findbuf,
1258	sizeof (findbuf), &c, FIL_STANDARD);
1259	#ifdef _DOLOGDEBUG_
1260	LogDebug( "Page4Procedure: WM_INITDLG: Entering help file loop ..." );
1261	#endif
1262	while (!rc)
1263	{
1264	#ifdef _DOLOGDEBUG_
1265	LogDebug( "Page4Procedure: WM_INITDLG: Doing '%s' ...", findbuf.achName );
1266	#endif
1267	if ((psz = strchr (findbuf.achName, '.')))
1268	*psz = '\0';
1269	findbuf.achName[0] = toupper (findbuf.achName[0]);
1270	WinInsertLboxItem (WinWindowFromID (hwnd, WID_LB_LANGUAGESHELP),
1271	LIT_END, findbuf.achName);
1272	c = 1;
1273	rc = DosFindNext (hdir, &findbuf, sizeof (findbuf), &c);
1274	}
1275	DosFindClose (hdir);
1276	#ifdef _DOLOGDEBUG_
1277	LogDebug( "Page4Procedure: WM_INITDLG: help file loop done." );
1278	#endif
1279
1280	WinSendMsg (hwnd, UM_SETTINGS2DIALOG, 0,0);
1281
1282	if (pset->fAutoLanguage)
1283	WinEnableWindow (WinWindowFromID (hwnd, WID_ST_LANGNOTE),
1284	FALSE);
1285	#ifdef _DOLOGDEBUG_
1286	LogDebug( "Page4Procedure: end WM_INITDLG" );
1287	#endif
1288
1289	UniChar target[300];
1290	CHAR ucLangStr[300];
1291	UconvObject uconv_object866 = NULL;
1292	UconvObject uconv_object860 = NULL;
1293	UconvObject uconv_object852 = NULL;
1294	UconvObject uconv_object1207 = NULL;
1295	UconvObject uconv_object850 = NULL;
1296	int result;
1297	int i;
1298	HAB hab;
1299	CHAR ucFont[FACESIZE];
1300
1301	UniCreateUconvObject((UniChar *)L"IBM-852", &uconv_object852);
1302	UniCreateUconvObject((UniChar *)L"IBM-850", &uconv_object850);
1303	UniCreateUconvObject((UniChar *)L"IBM-866", &uconv_object866);
1304
1305	UniCreateUconvObject((UniChar *)L"IBM-1207", &uconv_object1207);
1306	for (i = 0; i < WID_ST_END - 400; i++) {
1307	WinLoadString(hab, g_hmod, LANG_COPYRIGHT + i, sizeof(ucLangStr), ucLangStr);
1308	if (pset->GetLangID() == 420 \|\|
1309	pset->GetLangID() == PL) {
1310
1311	UniStrToUcs( uconv_object852, target, ucLangStr, 299);
1312	}
1313	else if (pset->GetLangID() == RU)
1314	UniStrToUcs( uconv_object866, target, ucLangStr, 299);
1315	else {
1316	UniStrToUcs( uconv_object850, target, ucLangStr, 299);
1317	}
1318	UniStrFromUcs( uconv_object1207, ucLangStr, target, 300);
1319	WinSetDlgItemText(hwnd, WID_ST_COPYRIGHT + i, ucLangStr);
1320	}
1321
1322	if (uconv_object866)
1323	UniFreeUconvObject(uconv_object866);
1324	if (uconv_object852)
1325	UniFreeUconvObject(uconv_object852);
1326	if (uconv_object850)
1327	UniFreeUconvObject(uconv_object850);
1328	if (uconv_object1207)
1329	UniFreeUconvObject(uconv_object1207);
1330
1331	if (pset->GetLangID() == RU \|\| pset->GetLangID() == CZ \|\| pset->GetLangID() == PL \|\|
1332	pset->GetLangID() == IT) {
1333	strcpy(ucFont, "9.Times New Roman MT 30");
1334	WinSetPresParam(hwnd, PP_FONTNAMESIZE, strlen(ucFont) + 1, ucFont);
1335	}
1336
1337	// WinRemovePresParam(hwnd, PP_FONTNAMESIZE);*/
1338	//HMQ hmq = WinQueryWindowULong(hwnd /WinWindowFromID(hwnd, WID_LB_LANGUAGES)/, QWL_HMQ);
1339	//WinSetCp(hmq, 1207); // UPF-8 Unicode
1340	return MRESULT (FALSE);
1341	}
1342
1343	case WM_COMMAND:
1344	if( SHORT1FROMMP( mp1 ) == DID_CANCEL )
1345	WinPostMsg( g_hwndSettingsDialog, msg, mp1, mp2 );
1346	return MRESULT( FALSE );
1347
1348	case UM_SETTINGS2DIALOG:
1349	{
1350
1351	#ifdef _DOLOGDEBUG_
1352	LogDebug( "Page4Procedure: start UM_SETTINGS2DIALOG" );
1353	#endif
1354	// select the appropriate entry in the language-listbox
1355	CHAR ach[_MAX_FNAME];
1356	HWND hwndLB = WinWindowFromID (hwnd, WID_LB_LANGUAGES);
1357	ULONG c, i;
1358
1359	c = WinQueryLboxCount (hwndLB);
1360
1361	for (i = 0; i < c; i++)
1362	{
1363	#ifdef _DOLOGDEBUG_
1364	LogDebug( "Page4Procedure: UM_SETTINGS2DIALOG: i.1 = %d", i );
1365	#endif
1366	PSZ psz = PSZ(WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGES,
1367	LM_QUERYITEMHANDLE,
1368	MPFROMLONG(i), NULL));
1369	// WinQueryLboxItemText (hwndLB, i, ach, sizeof (ach));
1370	if (stricmp (pset->QueryString(SEI_LANGUAGE), psz) == 0)
1371	break;
1372	}
1373	#ifdef _DOLOGDEBUG_
1374	LogDebug( "Page4Procedure: UM_SETTINGS2DIALOG: after loop 1" );
1375	#endif
1376	if (i < c)
1377	WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGES, LM_SELECTITEM,
1378	MPFROMSHORT (i), MPFROMSHORT (TRUE));
1379	else
1380	WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGES, LM_SELECTITEM,
1381	MPFROMSHORT (0), MPFROMSHORT (TRUE));
1382	hwndLB = WinWindowFromID (hwnd, WID_LB_LANGUAGESHELP);
1383	c = WinQueryLboxCount (hwndLB);
1384
1385	for (i = 0; i < c; i++)
1386	{
1387	#ifdef _DOLOGDEBUG_
1388	LogDebug( "Page4Procedure: UM_SETTINGS2DIALOG: i.2 = %d", i );
1389	#endif
1390	WinQueryLboxItemText (hwndLB, i, ach, sizeof (ach));
1391	if (stricmp (pset->QueryString (SEI_LANGUAGEHELP), ach) == 0)
1392	break;
1393	}
1394	#ifdef _DOLOGDEBUG_
1395	LogDebug( "Page4Procedure: UM_SETTINGS2DIALOG: after loop 2" );
1396	#endif
1397	if (i < c)
1398	WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGESHELP, LM_SELECTITEM,
1399	MPFROMSHORT (i), MPFROMSHORT (TRUE));
1400	else
1401	WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGESHELP, LM_SELECTITEM,
1402	MPFROMSHORT (0), MPFROMSHORT (TRUE));
1403	#ifdef _DOLOGDEBUG_
1404	LogDebug( "Page4Procedure: end UM_SETTINGS2DIALOG" );
1405	#endif
1406	}
1407	return MRESULT (FALSE);
1408
1409	case WM_DESTROY:
1410	#ifndef _QUIET_
1411	{
1412	CHAR ach[_MAX_FNAME];
1413	BOOL fChanged = TRUE;
1414
1415	ULONG ul = USHORT (WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGES,
1416	LM_QUERYSELECTION,
1417	MPFROMLONG (LIT_FIRST), 0L));
1418	PSZ psz = PSZ(WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGES,
1419	LM_QUERYITEMHANDLE,
1420	MPFROMLONG(ul), NULL));
1421	if (stricmp (pset->QueryString(SEI_LANGUAGE), psz) == 0)
1422	fChanged = FALSE;
1423	else
1424	pset->SetString(SEI_LANGUAGE, psz);
1425	#if 0
1426	ul = USHORT (WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGESHELP,
1427	LM_QUERYSELECTION,
1428	MPFROMLONG (LIT_FIRST), 0L));
1429	WinSendDlgItemMsg (hwnd, WID_LB_LANGUAGESHELP, LM_QUERYITEMTEXT,
1430	MPFROM2SHORT (ul, sizeof (ach)), MPFROMP (ach));
1431	if (stricmp (pset->QueryString(SEI_LANGUAGEHELP), ach) == 0 && !fChanged)
1432	fChanged = FALSE;
1433	else
1434	pset->SetString (SEI_LANGUAGEHELP, ach);
1435	#endif
1436	if (fChanged) {
1437	if (!stricmp(psz, "gotreses") \|\| !stricmp(psz, "goqreses"))
1438	strcpy(ach, "gotcha_es");
1439	else if (!stricmp(psz, "gotresbr") \|\| !stricmp(psz, "goqresbr"))
1440	strcpy(ach, "gotcha_br");
1441	else if (!stricmp(psz, "gotresit") \|\| !stricmp(psz, "goqresit"))
1442	strcpy(ach, "gotcha_it");
1443	else
1444	strcpy(ach, "gotcha_en");
1445	pset->SetString (SEI_LANGUAGEHELP, ach);
1446	}
1447	if (saveum && fChanged) {
1448	pset->Save ();
1449	#ifdef _QUIET_
1450	HINI hini = PrfOpenProfile (hab, "gotchaq.ini");
1451	#else
1452	HINI hini = PrfOpenProfile (hab, "gotcha.ini");
1453	#endif
1454	BOOL fLChanged = TRUE;
1455	PrfWriteProfileData(hini, "Language", "LangChangeRequested", &fLChanged, sizeof(BOOL));
1456	if (hini)
1457	PrfCloseProfile (hini);
1458	}
1459	}
1460	#endif
1461	return MRESULT (FALSE);
1462	}
1463
1464	return WinDefDlgProc (hwnd, msg, mp1, mp2);
1465	}
1466
1467	// AdjustSaveTypeButtons ********************************************* /FOLD00/
1468
1469	VOID AdjustSaveTypeButtons (BOOL f)
1470	{
1471	HWND hwndClient = WinWindowFromID (hwndFrame, FID_CLIENT);
1472
1473	// FIXME um, em, global variables :-$
1474	WinEnableWindow (WinWindowFromID (hwndClient, WID_RB_CLIPBOARD), !f);
1475	WinEnableWindow (WinWindowFromID (hwndClient, WID_RB_FILE), !f);
1476	}
1477
1478	// QueryWindowData *************************************************** /FOLD00/
1479
1480	VOID SETTINGS :: QueryWindowData (SWP *pswp, USHORT us[7], BOOL f)
1481	{
1482	// FIXME puke, yukk, choke! get this flag thing away! do it better!
1483	// FIXME what is with US?
1484	if (f)
1485	memcpy (pswp, QueryBinary(SEI_SWPSSW), sizeof (SWP));
1486	else
1487	memcpy (pswp, QueryBinary(SEI_SWP), sizeof (SWP));
1488
1489	LONG cx, cy;
1490	cx = WinQuerySysValue (HWND_DESKTOP, SV_CXSCREEN);
1491	cy = WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN);
1492
1493	if (pswp->cx < 32)
1494	pswp->cx = 32;
1495	// bigger than screen?
1496	if (pswp->cx > cx)
1497	pswp->cx = cx;
1498	// partly outside of screen?
1499	if (pswp->x+pswp->cx >= cx)
1500	pswp->x = cx-pswp->cx;
1501	if (pswp->cy < 32)
1502	pswp->cy = 32;
1503	// bigger than screen?
1504	if (pswp->cy > cy)
1505	pswp->cy = cy;
1506	// partly outside of screen?
1507	if (pswp->y+pswp->cy >= cy)
1508	pswp->y = cy-pswp->cy;
1509	}
1510
1511	// ReloadResources *************************************************** /FOLD00/
1512
1513	BOOL Settings :: ReloadResources (PSZ psz)
1514	{
1515	if (g_hmod)
1516	DosFreeModule(g_hmod);
1517
1518	APIRET rc;
1519
1520	if ((rc = DosLoadModule(PSZ(NULL), 0, psz, &g_hmod)))
1521	{
1522	DisplayError(RSTR(IDS_HEADER_ERROR),
1523	RSTR(IDS_ERROR_RESOURSEMODFAILED), psz, rc);
1524	exit(1);
1525	}
1526	PVOID pv;
1527	INT Lang;
1528
1529	DosGetResource(g_hmod, RT_RCDATA, LANG_ID, &pv);
1530	Lang = atoi((PCHAR) pv);
1531	SetLangID(Lang);
1532	ResourceString::Module(g_hmod);
1533	#ifdef _QUIET_
1534	pszPageTab[0] = RSTR (IDS_MAINWIN);
1535	pszPageTab[1] = RSTR (IDS_CAPTURE );
1536	pszPageTab[2] = RSTR (IDS_PAGESAVE);
1537	pszPageTab[3] = RSTR (IDS_PAGELANGUAGE);
1538	#else
1539	pszPageTab[0] = RSTR (IDS_PAGESAVE);
1540	pszPageTab[1] = RSTR (IDS_PAGESNAPSHOT);
1541	pszPageTab[2] = RSTR (IDS_CAPTURE );
1542	pszPageTab[3] = RSTR (IDS_PAGELANGUAGE);
1543	#endif
1544	for( int i = 0; i < BMF_INVALID; i++ ) {
1545	ifi[ i ].label = RSTR ( IDS_BMF_JPG+i ); }
1546
1547	return TRUE;
1548	}
1549
1550	// SelectLanguage **************************************************** /FOLD00/
1551
1552	VOID Settings :: SelectLanguage (VOID)
1553	{
1554	// set this to some default, as we must open the settings dialog for
1555	// selecting a language
1556	#ifdef _QUIET_
1557	//#if 1
1558	pszPageTab[0] = RSTR (IDS_MAINWIN);
1559	pszPageTab[1] = RSTR (IDS_CAPTURE );
1560	pszPageTab[2] = RSTR (IDS_PAGESAVE);
1561	pszPageTab[3] = RSTR (IDS_PAGELANGUAGE);
1562	#else
1563	pszPageTab[0] = RSTR (IDS_PAGESAVE);
1564	pszPageTab[1] = RSTR (IDS_PAGESNAPSHOT);
1565	pszPageTab[2] = RSTR (IDS_CAPTURE );
1566	pszPageTab[3] = RSTR (IDS_PAGELANGUAGE);
1567	#endif
1568	// bring up the "select language" settings page
1569	Dialog (TRUE);
1570	}
1571
1572	// GetLanguages ****************************************************** /FOLD00/
1573
1574	USHORT Settings :: GetLanguages (HWND hwnd)
1575	{
1576	// find all dlls and add the names to the language list
1577	HDIR hdir;
1578	ULONG c, fl, ul;
1579	FILEFINDBUF3 findbuf;
1580	APIRET rc;
1581	PSZ psz;
1582	HMODULE hmod;
1583
1584	fl = FILE_NORMAL;
1585	hdir = HDIR_CREATE;
1586	c = 1;
1587	#ifdef _QUIET_
1588	rc = DosFindFirst ("goqres*.dll", &hdir, fl, &findbuf,
1589	sizeof (findbuf), &c, FIL_STANDARD);
1590	#else
1591	rc = DosFindFirst ("gotres*.dll", &hdir, fl, &findbuf,
1592	sizeof (findbuf), &c, FIL_STANDARD);
1593	#endif
1594	while (!rc)
1595	{
1596	// we don't want the extension
1597	if ((psz = strchr (findbuf.achName, '.')))
1598	*psz = '\0';
1599	// try opening the dll and read the version etc. data
1600	if ((rc = DosLoadModule(PSZ(NULL), 0, findbuf.achName, &hmod)) == NO_ERROR) {
1601	PVOID pv;
1602	PVOID pl;
1603
1604	if (DosGetResource(hmod, RT_RCDATA, DLL_ID, &pv) == NO_ERROR) {
1605	#ifdef _QUIET_
1606	if (strcmp(PSZ(pv), "Gotchaq!") == 0) {
1607	#else
1608	if (strcmp(PSZ(pv), "Gotcha!") == 0) {
1609	#endif
1610	psz = PSZ(pv)+strlen(PSZ(pv)) + 3;
1611
1612	INT Lang;
1613
1614	DosGetResource(hmod, RT_RCDATA, LANG_ID, &pl);
1615	Lang = atoi((PCHAR) pl);
1616	#if 1
1617	UniChar target[300];
1618	CHAR ucLangStr[300];
1619	UconvObject uconv_object866 = NULL;
1620	UconvObject uconv_object852 = NULL;
1621	UconvObject uconv_object1207 = NULL;
1622	UconvObject uconv_object850 = NULL;
1623	int i;
1624
1625	strcpy(ucLangStr, psz);
1626	UniCreateUconvObject((UniChar *)L"IBM-852", &uconv_object852);
1627	UniCreateUconvObject((UniChar *)L"IBM-850", &uconv_object850);
1628	UniCreateUconvObject((UniChar *)L"IBM-866", &uconv_object866);
1629	UniCreateUconvObject((UniChar *)L"IBM-1207", &uconv_object1207);
1630
1631	if (Lang == CZ) {
1632	UniStrToUcs( uconv_object852, target, ucLangStr, 299);
1633	}
1634	else {
1635	UniStrToUcs( uconv_object850, target, ucLangStr, 299);
1636	}
1637	/*if (Lang == RU) {
1638	UniStrToUcs( uconv_object866, target, ucLangStr, 299);
1639	} */
1640	UniStrFromUcs( uconv_object1207, ucLangStr, target, 300);
1641	Lang = 0;
1642	if (uconv_object866)
1643	UniFreeUconvObject(uconv_object866);
1644	if (uconv_object852)
1645	UniFreeUconvObject(uconv_object852);
1646	if (uconv_object850)
1647	UniFreeUconvObject(uconv_object850);
1648	if (uconv_object1207)
1649	UniFreeUconvObject(uconv_object1207);
1650
1651
1652	#endif
1653	ul = WinInsertLboxItem (hwnd, LIT_END,/psz/ucLangStr);
1654	WinSendMsg(hwnd, LM_SETITEMHANDLE, MPFROMLONG(ul),
1655	MPFROMP (strdup(findbuf.achName)));
1656	}
1657	if (pl)
1658	DosFreeResource(pl);
1659	DosFreeResource(pv);
1660	}
1661	DosFreeModule(hmod);
1662	}
1663	c = 1;
1664	rc = DosFindNext (hdir, &findbuf, sizeof (findbuf), &c);
1665	}
1666	DosFindClose (hdir);
1667
1668	return 1;
1669	}
1670
1671	// GetFileExtension ************************************************** /FOLD00/
1672
1673	PSZ Settings :: GetFileExtension( SHORT type )
1674	{
1675	if( type == BMF_INVALID )
1676	type = SHORT( QueryFileFormat() );
1677	if( ( type >= BMF_JPG ) && ( type < BMF_INVALID ) )
1678	return ifi[ type ].extension;
1679	return "";
1680	}
1681
1682	#if 0
1683	// GetFOURCC ********************************************************* /FOLD00/
1684
1685	FOURCC Settings :: GetFOURCC( SHORT type )
1686	{
1687	if( type == BMF_INVALID )
1688	type = SHORT( QueryFileFormat() );
1689	if( ( type >= BMF_JPG ) && ( type < BMF_INVALID ) )
1690	return ifi[ type ].fourcc;
1691	return 0L;
1692	}
1693	#endif
1694	// GetFileEAType ***************************************************** /FOLD00/
1695
1696	PSZ Settings :: GetFileEAType( SHORT type )
1697	{
1698	if( type == BMF_INVALID )
1699	type = SHORT( QueryFileFormat() );
1700	if( ( type >= BMF_JPG ) && ( type < BMF_INVALID ) )
1701	return ifi[ type ].eaType;
1702	return "";
1703	}
1704
1705	// ************************************************************************
1706
1707	PSZ Settings :: QueryNumSaveDir( VOID )
1708	{
1709	// Using a static buffer here is not really good, but good enough
1710	// currently as we know there will be no concurrent access.
1711	static CHAR ach[_MAX_PATH];
1712
1713	if( strspn( QueryString( SEI_NUMSAVEDIR ), " \t\n\r" ) ==
1714	strlen( QueryString( SEI_NUMSAVEDIR ) ) )
1715	return getcwd( ach, _MAX_PATH );
1716	return QueryString( SEI_NUMSAVEDIR );
1717	}
1718
1719	// ************************************************************************
1720
1721	ULONG winhDrawFormattedText(HPS hps, // in: presentation space; its settings
1722	// are used, but not altered
1723	PRECTL prcl, // in/out: rectangle to use for drawing
1724	// (modified)
1725	const char *pcszText, // in: text to draw (zero-terminated)
1726	ULONG flCmd) // in: flags like in WinDrawText; I have
1727	// only tested DT_TOP and DT_LEFT though.
1728	// DT_WORDBREAK \| DT_TEXTATTRS are always
1729	// set.
1730	// You can specify DT_QUERYEXTENT to only
1731	// have prcl calculated without drawing.
1732	{
1733	PSZ p = (PSZ)pcszText;
1734	LONG lDrawn = 1,
1735	lTotalDrawn = 0,
1736	lLineCount = 0,
1737	lOrigYTop = prcl->yTop;
1738	ULONG ulTextLen = strlen(pcszText),
1739	ulCharHeight,
1740	flCmd2,
1741	xLeftmost = prcl->xRight,
1742	xRightmost = prcl->xLeft;
1743	RECTL rcl2;
1744
1745	flCmd2 = flCmd \| DT_WORDBREAK \| DT_TEXTATTRS;
1746
1747	ulCharHeight = 30;//gpihQueryLineSpacing(hps);
1748
1749	while ( (lDrawn)
1750	&& (lTotalDrawn < ulTextLen)
1751	)
1752	{
1753	memcpy(&rcl2, prcl, sizeof(rcl2));
1754	lDrawn = WinDrawText(hps,
1755	ulTextLen-lTotalDrawn,
1756	p,
1757	&rcl2,
1758	0, 0, // colors
1759	flCmd2);
1760
1761	// update char counters
1762	p += lDrawn;
1763	lTotalDrawn += lDrawn;
1764
1765	// update x extents
1766	if (rcl2.xLeft < xLeftmost)
1767	xLeftmost = rcl2.xLeft;
1768	if (rcl2.xRight > xRightmost)
1769	xRightmost = rcl2.xRight;
1770
1771	// update y for next line
1772	prcl->yTop -= ulCharHeight;
1773
1774	// increase line count
1775	lLineCount++;
1776	}
1777	prcl->xLeft = xLeftmost;
1778	prcl->xRight = xRightmost;
1779	prcl->yBottom = prcl->yTop;
1780	prcl->yTop = lOrigYTop;
1781
1782	return lLineCount;
1783	}

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

Download in other formats: