4 * Copyright 1993 Robert J. Amstadt
5 * Copyright 1995 Alexandre Julliard
11 #include <sys/types.h>
29 #define PrintId(name) \
30 if (HIWORD((DWORD)name)) \
31 dprintf_resource( stddeb, "'%s'", (char *)PTR_SEG_TO_LIN(name)); \
33 dprintf_resource( stddeb, "#%04x", LOWORD(name));
35 /**********************************************************************
36 * FindResource (KERNEL.60)
38 HRSRC
FindResource( HMODULE hModule
, SEGPTR name
, SEGPTR type
)
42 hModule
= GetExePtr( hModule
); /* In case we were passed an hInstance */
43 dprintf_resource(stddeb
, "FindResource: module=%04x type=", hModule
);
45 dprintf_resource( stddeb
, " name=" );
47 dprintf_resource( stddeb
, "\n" );
48 if (!(pModule
= (WORD
*)GlobalLock( hModule
))) return 0;
52 return NE_FindResource( hModule
, type
, name
);
61 /**********************************************************************
62 * LoadResource (KERNEL.61)
64 HGLOBAL
LoadResource( HMODULE hModule
, HRSRC hRsrc
)
68 hModule
= GetExePtr( hModule
); /* In case we were passed an hInstance */
69 dprintf_resource(stddeb
, "LoadResource: module=%04x res=%04x\n",
72 if (!(pModule
= (WORD
*)GlobalLock( hModule
))) return 0;
76 return NE_LoadResource( hModule
, hRsrc
);
85 /**********************************************************************
86 * LockResource (KERNEL.62)
89 SEGPTR
WIN16_LockResource( HGLOBAL handle
)
94 dprintf_resource(stddeb
, "LockResource: handle=%04x\n", handle
);
95 if (!handle
) return (SEGPTR
)0;
96 hModule
= GetExePtr( handle
);
97 if (!(pModule
= (WORD
*)GlobalLock( hModule
))) return 0;
101 return NE_LockResource( hModule
, handle
);
110 LPSTR
LockResource( HGLOBAL handle
)
115 dprintf_resource(stddeb
, "LockResource: handle=%04x\n", handle
);
116 if (!handle
) return NULL
;
117 hModule
= GetExePtr( handle
);
118 if (!(pModule
= (WORD
*)GlobalLock( hModule
))) return 0;
122 return (LPSTR
)PTR_SEG_TO_LIN( NE_LockResource( hModule
, handle
) );
131 /**********************************************************************
132 * FreeResource (KERNEL.63)
134 BOOL
FreeResource( HGLOBAL handle
)
139 dprintf_resource(stddeb
, "FreeResource: handle=%04x\n", handle
);
140 if (!handle
) return FALSE
;
141 hModule
= GetExePtr( handle
);
142 if (!(pModule
= (WORD
*)GlobalLock( hModule
))) return 0;
146 return NE_FreeResource( hModule
, handle
);
155 /**********************************************************************
156 * AccessResource (KERNEL.64)
158 int AccessResource( HMODULE hModule
, HRSRC hRsrc
)
162 hModule
= GetExePtr( hModule
); /* In case we were passed an hInstance */
163 dprintf_resource(stddeb
, "AccessResource: module=%04x res=%04x\n",
165 if (!hRsrc
) return 0;
166 if (!(pModule
= (WORD
*)GlobalLock( hModule
))) return 0;
170 return NE_AccessResource( hModule
, hRsrc
);
179 /**********************************************************************
180 * SizeofResource (KERNEL.65)
182 DWORD
SizeofResource( HMODULE hModule
, HRSRC hRsrc
)
186 hModule
= GetExePtr( hModule
); /* In case we were passed an hInstance */
187 dprintf_resource(stddeb
, "SizeofResource: module=%04x res=%04x\n",
189 if (!(pModule
= (WORD
*)GlobalLock( hModule
))) return 0;
193 return NE_SizeofResource( hModule
, hRsrc
);
202 /**********************************************************************
203 * AllocResource (KERNEL.66)
205 HGLOBAL
AllocResource( HMODULE hModule
, HRSRC hRsrc
, DWORD size
)
209 hModule
= GetExePtr( hModule
); /* In case we were passed an hInstance */
210 dprintf_resource(stddeb
, "AllocResource: module=%04x res=%04x size=%ld\n",
211 hModule
, hRsrc
, size
);
212 if (!hRsrc
) return 0;
213 if (!(pModule
= (WORD
*)GlobalLock( hModule
))) return 0;
217 return NE_AllocResource( hModule
, hRsrc
, size
);
226 /**********************************************************************
229 HBITMAP
ConvertCoreBitmap( HDC hdc
, BITMAPCOREHEADER
* image
)
231 BITMAPINFO
* bmpInfo
;
234 int i
, size
, n_colors
;
236 n_colors
= 1 << image
->bcBitCount
;
237 if (image
->bcBitCount
< 24)
239 size
= sizeof(BITMAPINFOHEADER
) + n_colors
* sizeof(RGBQUAD
);
240 bits
= (char *) (image
+ 1) + (n_colors
* sizeof(RGBTRIPLE
));
244 size
= sizeof(BITMAPINFOHEADER
);
245 bits
= (char *) (image
+ 1);
247 bmpInfo
= (BITMAPINFO
*) malloc( size
);
249 bmpInfo
->bmiHeader
.biSize
= sizeof(BITMAPINFOHEADER
);
250 bmpInfo
->bmiHeader
.biWidth
= image
->bcWidth
;
251 bmpInfo
->bmiHeader
.biHeight
= image
->bcHeight
;
252 bmpInfo
->bmiHeader
.biPlanes
= image
->bcPlanes
;
253 bmpInfo
->bmiHeader
.biBitCount
= image
->bcBitCount
;
254 bmpInfo
->bmiHeader
.biCompression
= 0;
255 bmpInfo
->bmiHeader
.biSizeImage
= 0;
256 bmpInfo
->bmiHeader
.biXPelsPerMeter
= 0;
257 bmpInfo
->bmiHeader
.biYPelsPerMeter
= 0;
258 bmpInfo
->bmiHeader
.biClrUsed
= 0;
259 bmpInfo
->bmiHeader
.biClrImportant
= 0;
261 if (image
->bcBitCount
< 24)
263 RGBTRIPLE
* oldMap
= (RGBTRIPLE
*)(image
+ 1);
264 RGBQUAD
* newMap
= bmpInfo
->bmiColors
;
265 for (i
= 0; i
< n_colors
; i
++, oldMap
++, newMap
++)
267 newMap
->rgbRed
= oldMap
->rgbtRed
;
268 newMap
->rgbGreen
= oldMap
->rgbtGreen
;
269 newMap
->rgbBlue
= oldMap
->rgbtBlue
;
270 newMap
->rgbReserved
= 0;
274 hbitmap
= CreateDIBitmap( hdc
, &bmpInfo
->bmiHeader
, CBM_INIT
,
275 bits
, bmpInfo
, DIB_RGB_COLORS
);
280 /**********************************************************************
283 HBITMAP
ConvertInfoBitmap( HDC hdc
, BITMAPINFO
* image
)
285 char * bits
= ((char *)image
) + DIB_BitmapInfoSize(image
, DIB_RGB_COLORS
);
286 return CreateDIBitmap( hdc
, &image
->bmiHeader
, CBM_INIT
,
287 bits
, image
, DIB_RGB_COLORS
);
291 /**********************************************************************
292 * LoadIcon [USER.174]
294 HICON
LoadIcon( HANDLE instance
, SEGPTR icon_name
)
300 ICONDESCRIP
*lpicodesc
;
304 BITMAPINFOHEADER
*bih
;
311 if (HIWORD(icon_name
))
312 dprintf_resource( stddeb
, "LoadIcon: %04x '%s'\n",
313 instance
, (char *)PTR_SEG_TO_LIN( icon_name
) );
315 dprintf_resource( stddeb
, "LoadIcon: %04x %04x\n",
316 instance
, LOWORD(icon_name
) );
320 if (HIWORD((int)icon_name
)) return 0; /* FIXME: should handle '#xxx' */
321 return OBM_LoadIcon( LOWORD((int)icon_name
) );
324 if (!(hRsrc
= FindResource( instance
, icon_name
, RT_GROUP_ICON
))) return 0;
325 rsc_mem
= LoadResource( instance
, hRsrc
);
326 if (rsc_mem
== (HANDLE
)NULL
) {
327 printf("LoadIcon / Icon %08x not Found !\n", (int) icon_name
);
330 lp
= (WORD
*)LockResource(rsc_mem
);
331 lpicodesc
= (ICONDESCRIP
*)(lp
+ 3);
332 hIcon
= GlobalAlloc(GMEM_MOVEABLE
, sizeof(ICONALLOC
) + 1024);
333 if (hIcon
== (HICON
)NULL
) {
334 FreeResource( rsc_mem
);
337 lpico
= (ICONALLOC
*)GlobalLock(hIcon
);
338 lpico
->descriptor
= *lpicodesc
;
339 width
= lpicodesc
->Width
;
340 height
= lpicodesc
->Height
;
341 FreeResource( rsc_mem
);
342 if (!(hRsrc
= FindResource( instance
,
343 MAKEINTRESOURCE(lpico
->descriptor
.icoDIBOffset
),
344 RT_ICON
))) return 0;
345 if (!(rsc_mem
= LoadResource( instance
, hRsrc
))) return 0;
347 bmi
= (BITMAPINFO
*)LockResource(rsc_mem
);
348 size
= DIB_BitmapInfoSize( bmi
, DIB_RGB_COLORS
);
349 pInfo
= (BITMAPINFO
*)malloc( size
);
350 memcpy( pInfo
, bmi
, size
);
351 bih
= &pInfo
->bmiHeader
;
354 if (!(hdc
= GetDC( 0 ))) return 0;
355 if (bih
->biSize
!= sizeof(BITMAPINFOHEADER
)) return 0;
356 lpico
->hBitmap
= CreateDIBitmap( hdc
, &pInfo
->bmiHeader
, CBM_INIT
,
357 (char*)bmi
+ size
, pInfo
, DIB_RGB_COLORS
);
358 if (bih
->biSizeImage
== 0)
360 if (bih
->biCompression
!= BI_RGB
)
362 fprintf(stderr
,"Unknown size for compressed Icon bitmap.\n");
363 FreeResource( rsc_mem
);
367 bih
->biSizeImage
= DIB_GetImageWidthBytes(bih
->biWidth
,bih
->biBitCount
)
370 bits
= (char *)bmi
+ size
+
371 bih
->biSizeImage
* bih
->biBitCount
/ (bih
->biBitCount
+1);
373 bih
->biClrUsed
= bih
->biClrImportant
= 2;
374 rgbq
= &bmi
->bmiColors
[0];
375 rgbq
[0].rgbBlue
= rgbq
[0].rgbGreen
= rgbq
[0].rgbRed
= 0x00;
376 rgbq
[1].rgbBlue
= rgbq
[1].rgbGreen
= rgbq
[1].rgbRed
= 0xff;
377 rgbq
[0].rgbReserved
= rgbq
[1].rgbReserved
= 0;
378 lpico
->hBitMask
= CreateDIBitmap(hdc
, &pInfo
->bmiHeader
, CBM_INIT
,
379 /* (LPSTR)bmi + bih->biSizeImage - sizeof(BITMAPINFOHEADER) / 2 - 4,
380 (LPSTR)lp + bih->biSizeImage + bih->biSize + 4*lpicodesc->ColorCount, */
381 bits
, pInfo
, DIB_RGB_COLORS
);
382 FreeResource( rsc_mem
);
386 dprintf_resource(stddeb
,"LoadIcon Alloc hIcon=%X\n", hIcon
);
391 /**********************************************************************
392 * CreateIcon [USER.407]
394 HICON
CreateIcon(HANDLE hInstance
, int nWidth
, int nHeight
,
395 BYTE nPlanes
, BYTE nBitsPixel
, LPSTR lpANDbits
,
401 dprintf_resource(stddeb
, "CreateIcon: hInstance = %04x, nWidth = %08x, nHeight = %08x \n",
402 hInstance
, nWidth
, nHeight
);
403 dprintf_resource(stddeb
, " nPlanes = %04x, nBitsPixel = %04x,",nPlanes
, nBitsPixel
);
404 dprintf_resource(stddeb
, " lpANDbits= %04x, lpXORbits = %04x, \n", (int)lpANDbits
,
407 if (hInstance
== (HANDLE
)NULL
) {
408 printf("CreateIcon / hInstance %04x not Found!\n",hInstance
);
411 hIcon
= GlobalAlloc(GMEM_MOVEABLE
, sizeof(ICONALLOC
) + 1024);
412 if (hIcon
== (HICON
)NULL
) {
413 printf("Can't allocate memory for Icon in CreateIcon\n");
416 lpico
= (ICONALLOC
*)GlobalLock(hIcon
);
418 lpico
->descriptor
.Width
=nWidth
;
419 lpico
->descriptor
.Height
=nHeight
;
420 lpico
->descriptor
.ColorCount
=16; /* Dummy Value */
421 lpico
->descriptor
.Reserved1
=0;
422 lpico
->descriptor
.Reserved2
=nPlanes
;
423 lpico
->descriptor
.Reserved3
=nWidth
*nHeight
;
425 /* either nPlanes and/or nBitCount is set to one */
426 lpico
->descriptor
.icoDIBSize
=nWidth
*nHeight
*nPlanes
*nBitsPixel
;
427 lpico
->descriptor
.icoDIBOffset
=0;
429 if( !(lpico
->hBitmap
=CreateBitmap(nWidth
, nHeight
, nPlanes
, nBitsPixel
,
431 printf("CreateIcon: couldn't create the XOR bitmap\n");
435 /* the AND BitMask is always monochrome */
436 if( !(lpico
->hBitMask
=CreateBitmap(nWidth
, nHeight
, 1, 1, lpANDbits
)) ) {
437 printf("CreateIcon: couldn't create the AND bitmap\n");
442 dprintf_resource(stddeb
, "CreateIcon Alloc hIcon=%X\n", hIcon
);
446 /**********************************************************************
447 * DestroyIcon [USER.457]
449 BOOL
DestroyIcon(HICON hIcon
)
453 if (hIcon
== (HICON
)NULL
)
455 lpico
= (ICONALLOC
*)GlobalLock(hIcon
);
456 if (lpico
->hBitmap
!= (HBITMAP
)NULL
)
457 DeleteObject(lpico
->hBitmap
);
462 /**********************************************************************
463 * LoadAccelerators [USER.177]
465 HANDLE
LoadAccelerators(HANDLE instance
, SEGPTR lpTableName
)
471 ACCELHEADER
*lpAccelTbl
;
474 if (HIWORD(lpTableName
))
475 dprintf_accel( stddeb
, "LoadAccelerators: %04x '%s'\n",
476 instance
, (char *)PTR_SEG_TO_LIN( lpTableName
) );
478 dprintf_accel( stddeb
, "LoadAccelerators: %04x %04x\n",
479 instance
, LOWORD(lpTableName
) );
481 if (!(hRsrc
= FindResource( instance
, lpTableName
, RT_ACCELERATOR
)))
483 if (!(rsc_mem
= LoadResource( instance
, hRsrc
))) return 0;
485 lp
= (BYTE
*)LockResource(rsc_mem
);
486 n
= SizeofResource( instance
, hRsrc
) / sizeof(ACCELENTRY
);
487 hAccel
= GlobalAlloc(GMEM_MOVEABLE
,
488 sizeof(ACCELHEADER
) + (n
+ 1)*sizeof(ACCELENTRY
));
489 lpAccelTbl
= (LPACCELHEADER
)GlobalLock(hAccel
);
490 lpAccelTbl
->wCount
= 0;
491 for (i
= 0; i
< n
; i
++) {
492 lpAccelTbl
->tbl
[i
].type
= *(lp
++);
493 lpAccelTbl
->tbl
[i
].wEvent
= *((WORD
*)lp
);
495 lpAccelTbl
->tbl
[i
].wIDval
= *((WORD
*)lp
);
497 if (lpAccelTbl
->tbl
[i
].wEvent
== 0) break;
498 dprintf_accel(stddeb
,
499 "Accelerator #%u / event=%04X id=%04X type=%02X \n",
500 i
, lpAccelTbl
->tbl
[i
].wEvent
, lpAccelTbl
->tbl
[i
].wIDval
,
501 lpAccelTbl
->tbl
[i
].type
);
502 lpAccelTbl
->wCount
++;
504 GlobalUnlock(hAccel
);
505 FreeResource( rsc_mem
);
509 /**********************************************************************
510 * TranslateAccelerator [USER.178]
512 int TranslateAccelerator(HWND hWnd
, HANDLE hAccel
, LPMSG msg
)
514 ACCELHEADER
*lpAccelTbl
;
517 if (hAccel
== 0 || msg
== NULL
) return 0;
518 if (msg
->message
!= WM_KEYDOWN
&&
519 msg
->message
!= WM_KEYUP
&&
520 msg
->message
!= WM_CHAR
) return 0;
522 dprintf_accel(stddeb
, "TranslateAccelerators hAccel=%04X !\n", hAccel
);
524 lpAccelTbl
= (LPACCELHEADER
)GlobalLock(hAccel
);
525 for (i
= 0; i
< lpAccelTbl
->wCount
; i
++) {
526 if (lpAccelTbl
->tbl
[i
].type
& VIRTKEY_ACCEL
) {
527 if (msg
->wParam
== lpAccelTbl
->tbl
[i
].wEvent
&&
528 msg
->message
== WM_KEYDOWN
) {
529 if ((lpAccelTbl
->tbl
[i
].type
& SHIFT_ACCEL
) &&
530 !(GetKeyState(VK_SHIFT
) & 0xf)) {
531 GlobalUnlock(hAccel
);
534 if ((lpAccelTbl
->tbl
[i
].type
& CONTROL_ACCEL
) &&
535 !(GetKeyState(VK_CONTROL
) & 0xf)) {
536 GlobalUnlock(hAccel
);
539 if ((lpAccelTbl
->tbl
[i
].type
& ALT_ACCEL
) &&
540 !(GetKeyState(VK_MENU
) & 0xf)) {
541 GlobalUnlock(hAccel
);
544 SendMessage(hWnd
, WM_COMMAND
, lpAccelTbl
->tbl
[i
].wIDval
, 0x00010000L
);
545 GlobalUnlock(hAccel
);
548 if (msg
->message
== WM_KEYUP
) return 1;
551 if (msg
->wParam
== lpAccelTbl
->tbl
[i
].wEvent
&&
552 msg
->message
== WM_CHAR
) {
553 SendMessage(hWnd
, WM_COMMAND
, lpAccelTbl
->tbl
[i
].wIDval
, 0x00010000L
);
554 GlobalUnlock(hAccel
);
559 GlobalUnlock(hAccel
);
563 /**********************************************************************
567 LoadString(HANDLE instance
, WORD resource_id
, LPSTR buffer
, int buflen
)
574 dprintf_resource(stddeb
, "LoadString: instance = %04x, id = %d, buffer = %08x, "
575 "length = %d\n", instance
, resource_id
, (int) buffer
, buflen
);
577 hrsrc
= FindResource( instance
, (SEGPTR
)((resource_id
>>4)+1), RT_STRING
);
578 if (!hrsrc
) return 0;
579 hmem
= LoadResource( instance
, hrsrc
);
582 p
= LockResource(hmem
);
583 string_num
= resource_id
& 0x000f;
584 for (i
= 0; i
< string_num
; i
++)
587 i
= min(buflen
- 1, *p
);
589 memcpy(buffer
, p
+ 1, i
);
597 fprintf(stderr
,"LoadString // I dont know why , but caller give buflen=%d *p=%d !\n", buflen
, *p
);
598 fprintf(stderr
,"LoadString // and try to obtain string '%s'\n", p
+ 1);
600 FreeResource( hmem
);
602 dprintf_resource(stddeb
,"LoadString // '%s' copied !\n", buffer
);