|
|
|
|
//* // BMPLib - Routines to handle working with .bmp files. // // // This unit contains routines that work with .bmp files. These routines // handle getting various information about the file. //
function BMPFormat
(const storedStyle : cardinal) : DWSpec.BackgroundFormat; stdcall;
exports BMPFormat name 'BMPLib_BMPFormat';
procedure CreateDIBitmapFromFile
(const Hwnd : Windows.Hwnd;
const bmpFileName : array of char;
var hBitmap : Windows.hBitmap;
var palette : Windows.HPALETTE;
var bmHeader : Windows.TBitmapInfoHeader); overload; stdcall;
exports CreateDIBitmapFromFile (const Hwnd : Windows.Hwnd;
const bmpFileName : array of char;
var hBitmap : Windows.hBitmap;
var palette : Windows.HPALETTE;
var bmHeader : Windows.TBitmapInfoHeader) name 'BMPLib_CreateDIBitmapFromFile';
procedure CreateDIBitmapFromFile
(const Hwnd : Windows.Hwnd;
const bmpFileName : string;
var hBitmap : Windows.hBitmap;
var palette : Windows.HPALETTE;
var bmHeader : Windows.TBitmapInfoHeader); overload; stdcall;
exports CreateDIBitmapFromFile (const Hwnd : Windows.Hwnd;
const bmpFileName : string;
var hBitmap : Windows.hBitmap;
var palette : Windows.HPALETTE;
var bmHeader : Windows.TBitmapInfoHeader) name 'BMPLib_STRCreateDIBitmapFromFile';
procedure CreateDIBitmapFromData
(const Hwnd : Windows.Hwnd;
const bmpData : array of char;
const DataSize : cardinal;
var hBitmap : Windows.hBitmap;
var palette : Windows.HPALETTE;
var bmHeader : Windows.TBitmapInfoHeader); overload; stdcall;
exports CreateDIBitmapFromData (const Hwnd : Windows.Hwnd;
const bmpData : array of char;
const DataSize : cardinal;
var hBitmap : Windows.hBitmap;
var palette : Windows.HPALETTE;
var bmHeader : Windows.TBitmapInfoHeader) name 'BmpLib_CreateDIBitmapFromData';
procedure CreateDIBitmapFromData
(const Hwnd : Windows.Hwnd;
const bmpData : string;
const DataSize : cardinal;
var hBitmap : Windows.hBitmap;
var palette : Windows.HPALETTE;
var bmHeader : Windows.TBitmapInfoHeader); overload; stdcall;
exports CreateDIBitmapFromData (const Hwnd : Windows.Hwnd;
const bmpData : string;
const DataSize : cardinal;
var hBitmap : Windows.hBitmap;
var palette : Windows.HPALETTE;
var bmHeader : Windows.TBitmapInfoHeader) name 'BmpLib_STRCreateDIBitmapFromData';
procedure CreateDIBitmapFromRES
(const Hwnd : Windows.Hwnd;
const resFileName : array of char;
const bmpID : cardinal;
var hBitmap : Windows.hBitmap;
var palette : Windows.HPALETTE;
var bmHeader : Windows.TBitmapInfoHeader); overload; stdcall;
exports CreateDIBitmapFromRES (const Hwnd : Windows.Hwnd;
const resFileName : array of char;
const bmpID : cardinal;
var hBitmap : Windows.hBitmap;
var palette : Windows.HPALETTE;
var bmHeader : Windows.TBitmapInfoHeader) name 'BMPLib_CreateDIBitmapFromRES';
procedure CreateDIBitmapFromRES
(const Hwnd : Windows.Hwnd;
const resFileName : string;
const bmpID : cardinal;
var hBitmap : Windows.hBitmap;
var palette : Windows.HPALETTE;
var bmHeader : Windows.TBitmapInfoHeader); overload; stdcall;
exports CreateDIBitmapFromRES (const Hwnd : Windows.Hwnd;
const resFileName : string;
const bmpID : cardinal;
var hBitmap : Windows.hBitmap;
var palette : Windows.HPALETTE;
var bmHeader : Windows.TBitmapInfoHeader) name 'BMPLib_STRCreateDIBitmapFromRES';
procedure CreateDIBitmapFromID
(const bmpInstance : hInst;
const bmpID : cardinal;
var hBitmap : Windows.hBitmap;
var palette : Windows.HPALETTE;
var bmHeader : Windows.TBitmapInfoHeader); stdcall;
exports CreateDIBitmapFromID name 'BmpLib_CreateDIBitmapFromID';
procedure CreateDIBPalette
(var bmi : Windows.PBITMAPINFO;
var iNumColors : integer;
var hPal : Windows.HPALETTE); stdcall;
function PaintBackgroundBitmap
(const Hwnd : Windows.Hwnd;
const hBitmap : Windows.hBitmap;
const palette : Windows.HPALETTE;
const bmHeader : Windows.TBitmapInfoHeader;
const reservedBottomSize : cardinal;
const Format : DWSpec.BackgroundFormat) : boolean; stdcall;
exports PaintBackgroundBitmap name 'BMPLib_PaintBackgroundBitmap';
procedure ShowPictureFile
(const bmpFileName : array of char); overload; stdcall;
exports ShowPictureFile (const bmpFileName : array of char) name 'BmpLib_ShowPictureFile';
procedure ShowPictureFile
(const bmpFileName : string); overload; stdcall;
exports ShowPictureFile (const bmpFileName : string) name 'BmpLib_STRShowPictureFile';
procedure ShowPictureID
(const bmpInstance : hInst;
const bmpID : cardinal); stdcall;
exports ShowPictureID name 'BmpLib_ShowPictureID';
procedure ShowPictureData
(const bmpData : array of char;
const DataSize : cardinal); overload; stdcall;
exports ShowPictureData (const bmpData : array of char;
const DataSize : cardinal) name 'BmpLib_ShowPictureData';
procedure ShowPictureData
(const bmpData : string;
const DataSize : cardinal); overload; stdcall;
exports ShowPictureData (const bmpData : string;
const DataSize : cardinal) name 'BmpLib_STRShowPictureData';
procedure ShowPictureRES
(const resFileName : array of char;
const bmpID : cardinal); overload; stdcall;
exports ShowPictureRES (const resFileName : array of char;
const bmpID : cardinal) name 'BmpLib_ShowPictureRES';
procedure ShowPictureRES
(const resFileName : string;
const bmpID : cardinal); overload; stdcall;
exports ShowPictureRES (const resFileName : string;
const bmpID : cardinal) name 'BmpLib_STRShowPictureRES';
procedure AdjustButtonColors
(var Hwnd : Windows.Hwnd;
var hBit : Windows.hBitmap;
const transparentCode : transparent;
const grayCode : grays); stdcall;
exports AdjustButtonColors name 'BMPLib_AdjustButtonColors';
procedure GetBitInfo
(var Hwnd : Windows.Hwnd;
var hBit : Windows.hBitmap;
var colorBits : cardinal;
var height : cardinal;
var width : cardinal); stdcall;
exports GetBitInfo name 'BMPLib_GetBitInfo';
Send mail to
warren.merrill@inl.gov
with questions or comments about this web site.
Copyright © 1989-2006 Battelle Energy Alliance