Советы по Delphi


              

Глава 256-Цветное изображение из res-файла


Вот функция, правильно читающая 256-цветные изображения из файла ресурсов.

    function LoadBitmap256( hInstance: HWND; lpBitmapName: PChar ): HBITMAP; var hPal, hRes, hResInfo: THandle; pBitmap: PBitmapInfo; nColorData: Integer; pPalette: PLogPalette; X: Integer; hPalette: THandle; begin
hResInfo     := FindResource( hInstance, lpBitmapName, RT_BITMAP ); hRes         := LoadResource( hInstance, hResInfo ); pBitmap      := Lockresource( hRes ); nColorData   := pBitmap^.bmiHeader.biClrUsed;
hPal := GlobalAlloc( GMEM_MOVEABLE, ( 16 * nColorData ) );
{  hPal := GlobalAlloc( GMEM_MOVEABLE, ( SizeOf( LOGPALETTE ) + (nColorData * SizeOf( PALETTEENTRY )));} pPalette := GlobalLock( hPal ); pPalette^.palVersion := $300; pPalette^.palNumEntries := nColorData;
for x := 0 to nColorData do begin pPalette^.palPalentry[X].peRed   := pBitmap^.bmiColors[X].rgbRed; pPalette^.palPalentry[X].peGreen := pBitmap^.bmiColors[X].rgbGreen; pPalette^.palPalentry[X].peBlue  := pBitmap^.bmiColors[X].rgbBlue; end;
hPalette := CreatePalette( pPalette^ ); GlobalUnlock( hRes ); GlobalUnlock( hPal ); GlobalFree( hPal );
end;
end.

- Mark Lussier [001047]



Содержание  Назад  Вперед