BVIEW (Bitmap Catalog - Written By: Sean Bishop ffffffffffffff` ffffffffffffff` Form1% Picture2 File1 *.bmp;*.rle Timer1 VScroll1 Picture1 MS Sans Serif &Options &Change Dir... &About &Exit @ EXT_Click Form_ClickG Form_Resize StretchBlt destDC srcDC hSrch SRCCOPY XWidth ScaleWidth. YWidthf ScaleHeight Width Height CDIR_Click Browse" File1_Click File1_PathChange File1 ListCount VScroll1 Enabled ListC PTemp Picture BitBlt3 Picture1 Picture2V Picture2_Click Picture1_Click Picture1_Paint Form_Paint @ Form_Load BView Screen Timer1_Timer Timer1 VScroll1_Change Value AutoRedraw @ ABT_Click CurrentY CurrentX MousePointer OPT_Click Declare the StretchBlt GDI routine to resize the bitmaps ABT_Click CDIR_Click If cancel was selected then exitp EXT_Click File1_PathChange This is the routine to load and display the graphics Change mousepointer to hourglass Clear Picture Boxo Get number of files to load If no files in list then exit This increments the display to show all pictures FN$ is directory - This gets the filename to load This loads the picture into the temp picture box for resizing This resizes and places the graphic in the main display areas This sets the current horizontal text position This sets the current horizontal text position This prints the filename under the picturep Update display( Change mouse to normal arrowt Form_Load Center form on screenn Timer1_Timer This disables timer, once the program is loaded and the first set loaded it is not needed!o Start picture process VScroll1_Change