Unit BitView

=========================== *BIG* BITMAP VIEWER ============================== // This component came about because I wanted to display 4000 x 4000 x 256 colour bitmaps (about 16MB in size). Using a TBitmap and a TImage took ages to load the images as a whole load of disc-swap file activity took place. The answer was to use a memory mapped file and the StretchDIBits API call which takes a memory pointer to the bitmap data, and doesn't realise (of course) that it's a memory mapped file. Load times and resource used drastically reduced. // This component was written to display the UK Ordanance Survey's 1:50000 scale Landranger maps bought as bitmaps. If anyone wants some additional code associated with displaying these maps then contact me at the email below. // This version has been used and tested on 2, 16 and 256 colour bitmaps. I believe it should work on the higher resolution bitmaps as well, but it is untested. // The component is a desendant of TGraphicControl (just like a TPaintBox). I used the TGraphicControl rather than a TPaintBox to have control of the parent properties I wanted to publish. // Version 1.00 Grahame Marsh 19 January 1997 // Freeware - you get it for free, I take nothing, I make no promises! // Please feel free to contact me: grahame.s.marsh@courtaulds.com // Revison History: Version 1.00 - initial release 19-1-97 1.01 - improved colour rendering under NT 4 using SetStretchBltMode changed name GetPalette to GetBitmapPalette

Classes

TBigBitmapViewer - filename will have its owner property editor Is this use for "type" documented anywhere?

Functions

Register -

Types

TBMPFilename

Constants

Variables


Functions


procedure Register;


Types


TBMPFilename = type string

Constants


Variables