source: trunk/dll/presparm.c@ 721

Last change on this file since 721 was 689, checked in by Steven Levine, 18 years ago

Commit OpenWatcom compatibility updates
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 12.2 KB
RevLine 
[356]1
2/***********************************************************************
3
4 $Id: presparm.c 689 2007-06-15 06:33:24Z stevenhl $
5
6 Edit presentation parameters
7
8 Copyright (c) 1993-98 M. Kimes
9 Copyright (c) 2006 Steven H.Levine
10
11 22 Jul 06 SHL Check more run time errors
12
13***********************************************************************/
14
[2]15#define INCL_DOS
16#define INCL_WIN
17#define INCL_GPI
[356]18#include <os2.h>
[2]19
20#include <stdarg.h>
21#include <stdio.h>
22#include <stdlib.h>
23#include <string.h>
24#include <ctype.h>
[356]25
[2]26#include "fm3dll.h"
27
[689]28// static PSZ pszSrcFile = __FILE__;
[356]29
[2]30#pragma alloc_text(PRESPARAM,CopyPresParams,SetPresParams,IfNoParam)
31#pragma alloc_text(PRESPARAM,PresParamChanged,RestorePresParams)
32#pragma alloc_text(PRESPARAM,StoreWndPresParams)
33
34#ifdef NEVER
35/*
36 * this routine will fill a buffer with all defined window pres params
37 * the PRESPARAMS structure returned is suitable to be passed as
38 * pPresParams ie. WinCreateWindow(,,,,,,,,,,,, PVOID pPresParams)
39 */
[551]40VOID StoreWndPresParams(HWND hwnd, CHAR * tagname, HINI prof)
[356]41{
[551]42 PARAM *pparam;
43 PRESPARAMS *ppresparams;
[2]44
[551]45 if (!tagname || !*tagname || !prof)
[2]46 return;
47 /* setup memory access */
[551]48 ppresparams = (PRESPARAMS *) xmalloc(PP_MAXBUF, pszSrcFile, __LINE__);
49 if (!ppresparams)
[2]50 return;
[551]51 ppresparams->cb = 0L; /* no entries yet */
52 pparam = ppresparams->aparam; /* cast structure onto memory */
[2]53
54 /*
55 * query every possible presentation parameter...
56 */
57
58 /* foreground color -- takes 12 bytes */
59 pparam->cb = WinQueryPresParam(hwnd,
[551]60 PP_FOREGROUNDCOLOR,
61 PP_FOREGROUNDCOLORINDEX,
62 &pparam->id,
63 sizeof(LONG),
64 (PVOID) pparam->ab, QPF_NOINHERIT);
65 if (pparam->cb) { /* was the param found? */
66 ppresparams->cb += 12L; /* used 12 bytes */
67 pparam = (PPARAM) (((ULONG) pparam) + 12L); /* advance 12 bytes to next memory location */
[2]68 }
69
70 /* background color -- takes 12 bytes */
71 pparam->cb = WinQueryPresParam(hwnd,
[551]72 PP_BACKGROUNDCOLOR,
73 PP_BACKGROUNDCOLORINDEX,
74 &pparam->id,
75 sizeof(LONG),
76 (PVOID) pparam->ab, QPF_NOINHERIT);
77 if (pparam->cb) {
[2]78 ppresparams->cb += 12L;
[551]79 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]80 }
81
82 /* hilited foreground color -- takes 12 bytes */
83 pparam->cb = WinQueryPresParam(hwnd,
[551]84 PP_HILITEFOREGROUNDCOLOR,
85 PP_HILITEFOREGROUNDCOLORINDEX,
86 &pparam->id,
87 sizeof(LONG),
88 (PVOID) pparam->ab, QPF_NOINHERIT);
89 if (pparam->cb) {
[2]90 ppresparams->cb += 12L;
[551]91 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]92 }
93
94 /* hilited background color -- takes 12 bytes */
95 pparam->cb = WinQueryPresParam(hwnd,
[551]96 PP_HILITEBACKGROUNDCOLOR,
97 PP_HILITEBACKGROUNDCOLORINDEX,
98 &pparam->id,
99 sizeof(LONG),
100 (PVOID) pparam->ab, QPF_NOINHERIT);
101 if (pparam->cb) {
[2]102 ppresparams->cb += 12L;
[551]103 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]104 }
105
106 /* disabled foreground color -- takes 12 bytes */
107 pparam->cb = WinQueryPresParam(hwnd,
[551]108 PP_DISABLEDFOREGROUNDCOLOR,
109 PP_DISABLEDFOREGROUNDCOLORINDEX,
110 &pparam->id,
111 sizeof(LONG),
112 (PVOID) pparam->ab, QPF_NOINHERIT);
113 if (pparam->cb) {
[2]114 ppresparams->cb += 12L;
[551]115 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]116 }
117
118 /* disabled background color -- takes 12 bytes */
119 pparam->cb = WinQueryPresParam(hwnd,
[551]120 PP_DISABLEDBACKGROUNDCOLOR,
121 PP_DISABLEDBACKGROUNDCOLORINDEX,
122 &pparam->id,
123 sizeof(LONG),
124 (PVOID) pparam->ab, QPF_NOINHERIT);
125 if (pparam->cb) {
[2]126 ppresparams->cb += 12L;
[551]127 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]128 }
129
130 /* border color -- takes 12 bytes */
131 pparam->cb = WinQueryPresParam(hwnd,
[551]132 PP_BORDERCOLOR,
133 PP_BORDERCOLORINDEX,
134 &pparam->id,
135 sizeof(LONG),
136 (PVOID) pparam->ab, QPF_NOINHERIT);
137 if (pparam->cb) {
[2]138 ppresparams->cb += 12L;
[551]139 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]140 }
141
142 /* font name & size -- maximum 44 bytes (32 for face name, 4 for point size) + 8 for data */
143 pparam->cb = WinQueryPresParam(hwnd,
[551]144 PP_FONTNAMESIZE,
145 0L,
146 &pparam->id,
147 36L, (PVOID) pparam->ab, QPF_NOINHERIT);
148 if (pparam->cb) {
[2]149 ppresparams->cb += (pparam->cb + 8L);
[551]150 pparam = (PPARAM) (((ULONG) pparam) + pparam->cb + 8L);
[2]151 }
152
153 /* active color -- takes 12 bytes */
154 pparam->cb = WinQueryPresParam(hwnd,
[551]155 PP_ACTIVECOLOR,
156 PP_ACTIVECOLORINDEX,
157 &pparam->id,
158 sizeof(LONG),
159 (PVOID) pparam->ab, QPF_NOINHERIT);
160 if (pparam->cb) {
[2]161 ppresparams->cb += 12L;
[551]162 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]163 }
164
165 /* inactive color -- takes 12 bytes */
166 pparam->cb = WinQueryPresParam(hwnd,
[551]167 PP_INACTIVECOLOR,
168 PP_INACTIVECOLORINDEX,
169 &pparam->id,
170 sizeof(LONG),
171 (PVOID) pparam->ab, QPF_NOINHERIT);
172 if (pparam->cb) {
[2]173 ppresparams->cb += 12L;
[551]174 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]175 }
176
177 /* active text foreground color -- takes 12 bytes */
178 pparam->cb = WinQueryPresParam(hwnd,
[551]179 PP_ACTIVETEXTFGNDCOLOR,
180 PP_ACTIVETEXTFGNDCOLORINDEX,
181 &pparam->id,
182 sizeof(LONG),
183 (PVOID) pparam->ab,
184 QPF_NOINHERIT | QPF_PURERGBCOLOR);
185 if (pparam->cb) {
[2]186 ppresparams->cb += 12L;
[551]187 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]188 }
189
190 /* active text background color -- takes 12 bytes */
191 pparam->cb = WinQueryPresParam(hwnd,
[551]192 PP_ACTIVETEXTBGNDCOLOR,
193 PP_ACTIVETEXTBGNDCOLORINDEX,
194 &pparam->id,
195 sizeof(LONG),
196 (PVOID) pparam->ab,
197 QPF_NOINHERIT | QPF_PURERGBCOLOR);
198 if (pparam->cb) {
[2]199 ppresparams->cb += 12L;
[551]200 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]201 }
202
203 /* inactive text foreground color -- takes 12 bytes */
204 pparam->cb = WinQueryPresParam(hwnd,
[551]205 PP_INACTIVETEXTFGNDCOLOR,
206 PP_INACTIVETEXTFGNDCOLORINDEX,
207 &pparam->id,
208 sizeof(LONG),
209 (PVOID) pparam->ab,
210 QPF_NOINHERIT | QPF_PURERGBCOLOR);
211 if (pparam->cb) {
[2]212 ppresparams->cb += 12L;
[551]213 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]214 }
215
216 /* inactive text background color -- takes 12 bytes */
217 pparam->cb = WinQueryPresParam(hwnd,
[551]218 PP_INACTIVETEXTBGNDCOLOR,
219 PP_INACTIVETEXTBGNDCOLORINDEX,
220 &pparam->id,
221 sizeof(LONG),
222 (PVOID) pparam->ab,
223 QPF_NOINHERIT | QPF_PURERGBCOLOR);
224 if (pparam->cb) {
[2]225 ppresparams->cb += 12L;
[551]226 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]227 }
228
229 /* shadow color -- takes 12 bytes */
230 pparam->cb = WinQueryPresParam(hwnd,
[551]231 PP_SHADOW, 0L,
232 &pparam->id,
233 sizeof(LONG),
234 (PVOID) pparam->ab, QPF_NOINHERIT);
235 if (pparam->cb) {
[2]236 ppresparams->cb += 12L;
[551]237 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]238 }
239
240 /* menu foreground color -- takes 12 bytes */
241 pparam->cb = WinQueryPresParam(hwnd,
[551]242 PP_MENUFOREGROUNDCOLOR,
243 PP_MENUFOREGROUNDCOLORINDEX,
244 &pparam->id,
245 sizeof(LONG),
246 (PVOID) pparam->ab, QPF_NOINHERIT);
247 if (pparam->cb) {
[2]248 ppresparams->cb += 12L;
[551]249 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]250 }
251
252 /* menu background color -- takes 12 bytes */
253 pparam->cb = WinQueryPresParam(hwnd,
[551]254 PP_MENUBACKGROUNDCOLOR,
255 PP_MENUBACKGROUNDCOLORINDEX,
256 &pparam->id,
257 sizeof(LONG),
258 (PVOID) pparam->ab, QPF_NOINHERIT);
259 if (pparam->cb) {
[2]260 ppresparams->cb += 12L;
[551]261 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]262 }
263
264 /* menu hilite foreground color -- takes 12 bytes */
265 pparam->cb = WinQueryPresParam(hwnd,
[551]266 PP_MENUHILITEFGNDCOLOR,
267 PP_MENUHILITEFGNDCOLORINDEX,
268 &pparam->id,
269 sizeof(LONG),
270 (PVOID) pparam->ab, QPF_NOINHERIT);
271 if (pparam->cb) {
[2]272 ppresparams->cb += 12L;
[551]273 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]274 }
275
276 /* menu hilite background color -- takes 12 bytes */
277 pparam->cb = WinQueryPresParam(hwnd,
[551]278 PP_MENUHILITEBGNDCOLOR,
279 PP_MENUHILITEBGNDCOLORINDEX,
280 &pparam->id,
281 sizeof(LONG),
282 (PVOID) pparam->ab, QPF_NOINHERIT);
283 if (pparam->cb) {
[2]284 ppresparams->cb += 12L;
[551]285 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]286 }
287
288 /* menu disabled foreground color -- takes 12 bytes */
289 pparam->cb = WinQueryPresParam(hwnd,
[551]290 PP_MENUDISABLEDFGNDCOLOR,
291 PP_MENUDISABLEDFGNDCOLORINDEX,
292 &pparam->id,
293 sizeof(LONG),
294 (PVOID) pparam->ab, QPF_NOINHERIT);
295 if (pparam->cb) {
[2]296 ppresparams->cb += 12L;
[551]297 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]298 }
299
300 /* menu disabled background color -- takes 12 bytes */
301 pparam->cb = WinQueryPresParam(hwnd,
[551]302 PP_MENUDISABLEDBGNDCOLOR,
303 PP_MENUDISABLEDBGNDCOLORINDEX,
304 &pparam->id,
305 sizeof(LONG),
306 (PVOID) pparam->ab, QPF_NOINHERIT);
307 if (pparam->cb) {
[2]308 ppresparams->cb += 12L;
[551]309 pparam = (PPARAM) (((ULONG) pparam) + 12L);
[2]310 }
311
[551]312 if (ppresparams->cb)
[2]313 PrfWriteProfileData(prof,
[551]314 appname, tagname, ppresparams, ppresparams->cb + 4L);
[2]315
316 free(ppresparams);
317}
318
[356]319#endif // NEVER
[2]320
[551]321VOID CopyPresParams(HWND target, HWND source)
[356]322{
[2]323 /*
324 * Copy presentation parameters of interest to us from one window
325 * to another
326 */
327
328 ULONG AttrFound, AttrValue[64], cbRetLen, x = 0L,
[551]329 AttrName[] = { PP_FONTNAMESIZE, PP_BACKGROUNDCOLOR,
330 PP_FOREGROUNDCOLOR, PP_HILITEBACKGROUNDCOLOR,
331 PP_HILITEFOREGROUNDCOLOR, PP_BORDERCOLOR,
332 0L
333 };
[2]334
[551]335 while (AttrName[x]) {
[2]336 cbRetLen = WinQueryPresParam(source,
[551]337 AttrName[x],
338 0,
339 &AttrFound,
340 (ULONG) sizeof(AttrValue), &AttrValue, 0);
341 if (cbRetLen)
342 WinSetPresParam(target, AttrName[x], cbRetLen, (PVOID) AttrValue);
[2]343 x++;
344 }
345}
346
[551]347VOID SetPresParams(HWND hwnd, RGB2 * back, RGB2 * fore, RGB2 * border,
348 CHAR * font)
[356]349{
[551]350 if (font)
351 WinSetPresParam(hwnd, PP_FONTNAMESIZE, strlen(font) + 1L, (PVOID) font);
352 if (back)
353 WinSetPresParam(hwnd, PP_BACKGROUNDCOLOR, sizeof(RGB2), (PVOID) back);
354 if (fore)
355 WinSetPresParam(hwnd, PP_FOREGROUNDCOLOR, sizeof(RGB2), (PVOID) fore);
356 if (border)
357 WinSetPresParam(hwnd, PP_BORDERCOLOR, sizeof(RGB2), (PVOID) border);
[2]358}
359
[551]360VOID IfNoParam(HWND hwnd, CHAR * keyroot, ULONG size, PVOID attrvalue)
[356]361{
[551]362 ULONG fsize = 0L;
363 CHAR s[81];
[2]364
[551]365 sprintf(s, "%s", keyroot);
366 if (!PrfQueryProfileSize(fmprof, appname, s, &fsize) || !fsize)
367 WinSetPresParam(hwnd, PP_FONTNAMESIZE, size, (PVOID) attrvalue);
[2]368}
369
[551]370VOID PresParamChanged(HWND hwnd, CHAR * keyroot, MPARAM mp1, MPARAM mp2)
[356]371{
[551]372 ULONG AttrFound, AttrValue[64], cbRetLen;
[2]373
[551]374 cbRetLen = WinQueryPresParam(hwnd, (ULONG) mp1, 0, &AttrFound,
375 (ULONG) sizeof(AttrValue), &AttrValue, 0);
376 if (cbRetLen) {
[2]377
378 CHAR s[133];
379
380 *s = 0;
[551]381 switch (AttrFound) {
382 case PP_BACKGROUNDCOLOR:
383 sprintf(s, "%s.Backgroundcolor", keyroot);
384 break;
385 case PP_FOREGROUNDCOLOR:
386 sprintf(s, "%s.Foregroundcolor", keyroot);
387 break;
388 case PP_HILITEBACKGROUNDCOLOR:
389 sprintf(s, "%s.Hilitebackgroundcolor", keyroot);
390 break;
391 case PP_HILITEFOREGROUNDCOLOR:
392 sprintf(s, "%s.Hiliteforegroundcolor", keyroot);
393 break;
394 case PP_BORDERCOLOR:
395 sprintf(s, "%s.Bordercolor", keyroot);
396 break;
397 case PP_FONTNAMESIZE:
398 sprintf(s, "%s.Fontnamesize", keyroot);
399 break;
400 default:
401 break;
[2]402 }
[551]403 if (*s)
404 PrfWriteProfileData(fmprof, appname, s, (PVOID) AttrValue, cbRetLen);
[2]405 }
406}
407
[551]408VOID RestorePresParams(HWND hwnd, CHAR * keyroot)
[356]409{
[551]410 CHAR s[81];
411 ULONG AttrValue[64], size;
[2]412
413 size = sizeof(AttrValue);
[551]414 sprintf(s, "%s.Backgroundcolor", keyroot);
415 if (PrfQueryProfileData(fmprof, appname, s, (PVOID) AttrValue, &size)
416 && size)
417 WinSetPresParam(hwnd, PP_BACKGROUNDCOLOR, size, (PVOID) AttrValue);
[2]418 size = sizeof(AttrValue);
[551]419 sprintf(s, "%s.Foregroundcolor", keyroot);
420 if (PrfQueryProfileData(fmprof, appname, s, (PVOID) AttrValue, &size)
421 && size)
422 WinSetPresParam(hwnd, PP_FOREGROUNDCOLOR, size, (PVOID) AttrValue);
[2]423 size = sizeof(AttrValue);
[551]424 sprintf(s, "%s.Hilitebackgroundcolor", keyroot);
425 if (PrfQueryProfileData(fmprof, appname, s, (PVOID) AttrValue, &size)
426 && size)
427 WinSetPresParam(hwnd, PP_HILITEBACKGROUNDCOLOR, size, (PVOID) AttrValue);
[2]428 size = sizeof(AttrValue);
[551]429 sprintf(s, "%s.Hiliteforegroundcolor", keyroot);
430 if (PrfQueryProfileData(fmprof, appname, s, (PVOID) AttrValue, &size)
431 && size)
432 WinSetPresParam(hwnd, PP_HILITEFOREGROUNDCOLOR, size, (PVOID) AttrValue);
[2]433 size = sizeof(AttrValue);
[551]434 sprintf(s, "%s.Bordercolor", keyroot);
435 if (PrfQueryProfileData(fmprof, appname, s, (PVOID) AttrValue, &size)
436 && size)
437 WinSetPresParam(hwnd, PP_BORDERCOLOR, size, (PVOID) AttrValue);
[2]438 size = sizeof(AttrValue);
[551]439 sprintf(s, "%s.Fontnamesize", keyroot);
440 if (PrfQueryProfileData(fmprof,
441 appname, s, (PVOID) AttrValue, &size) && size)
442 WinSetPresParam(hwnd, PP_FONTNAMESIZE, size, (PVOID) AttrValue);
[2]443}
Note: See TracBrowser for help on using the repository browser.