home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / 256PB2.ZIP / 256PICBX.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-03-22  |  8.4 KB  |  199 lines
  1. frm256PicBx
  2. &256 Color VB Picture Box Demonstration
  3. Form1,
  4. Label1
  5. Current Directory:
  6. labDirSelected
  7. pbCancel
  8. E&XIT
  9. Label2
  10. &Directories
  11. Label3
  12. &Bitmap Files
  13. R    lbDirList
  14. lbFileList
  15. *.bmp
  16. PicPreview
  17. PicPreviewVScroll
  18. Label4
  19. D&rives
  20. cbDrives
  21. W    pbPreview
  22. &Preview
  23. PicPreviewHScroll    
  24. PicScrollBarFiller
  25. PicPreviewSource
  26. hDIBUtilG
  27. hPalette
  28. hDIBBuffer
  29. lpDIBBuffer[
  30.     Form_Load
  31. OldMousePtr
  32. Screen
  33. MousePointer
  34.     HOURGLASS
  35. Set_ModalDlg_SysMenu
  36. frm256PicBxm
  37. StartingDir
  38. labDirSelected
  39. Captiont
  40. cbDrives
  41. Drive
  42.     lbDirList
  43. Path~
  44. SBColors
  45. GetProfileInfom
  46. PicScrollbarFiller
  47.     BackColor
  48. LoadLibrary
  49. NULL.
  50. lbDirList_Change
  51. lbFileList
  52. pbCancel_Click^
  53. cbDrives_Change
  54. lbFileList_DblClickT
  55. pbPreview_Click
  56. lbFileList_PathChange
  57.     ListIndexd
  58. SrcXm
  59. DestXC
  60. DestY
  61. bmpWidth&
  62.     bmpHeight
  63. ShowFiller
  64. PicPreview
  65. Picture|
  66. PicPreviewSource
  67.     ListCount)
  68. FastExitW
  69. FName
  70. ListQ
  71. DIBLoad3
  72. GlobalLock
  73. DIBWidth
  74.     DIBHeight
  75.     ReturnVal
  76. GlobalUnlock
  77. ScaleWidth
  78.     DestWidth
  79. ScaleHeight{
  80. DestHeight
  81. PicPreviewHScrollS
  82. Visible
  83. FALSE
  84. SmallChange
  85. LargeChangeA
  86. Value
  87. PicPreviewVScrollp
  88. DeleteObject
  89. CreateDIBPalette
  90. hOldPalette
  91. SelectPalette
  92. RealizePalette
  93. hBitmap
  94. CreateDIBitmap
  95. CBM_INIT
  96. FindDIBBits
  97. DIB_RGB_INFO
  98.     hCompatDC
  99. CreateCompatibleDC
  100. hPrevBmp
  101. SelectObject
  102. Success
  103. BitBlt
  104. SRCCOPY
  105. DeleteDCf
  106. GlobalFree
  107. MovePic;
  108. PicPreviewHScroll_Change
  109. PicPreviewVScroll_Changep
  110. Form_Unload
  111. Cancel
  112. FreeLibrary
  113. Section
  114. KeyName
  115. Result
  116. ResultLength
  117. GetProfileString
  118. A_Form
  119. HSysMenu
  120. GetSystemMenu
  121. RemoveMenu
  122. MF_BYPOSITION
  123. APIError
  124. AutoRedraw`
  125.  Handle to our dll
  126.  Handle to a palette created for previewing a bitmap
  127.  Handle to a global memory area into which a DIB file has been read 
  128.  (for use with DIB utility routines)
  129.  A pointer to the actual memory buffer containing the DIB 
  130. Form_Load
  131. Remove all but Move and Close from the system menu
  132. Set up starting directoryl
  133. Set the color of the "filler" between scroll barsr
  134. Colors
  135. ScrollBar"
  136.  Load the DIBUTIL library"
  137. DIBUTIL.DLL"
  138.  Since we haven't yet created a palette, initialize hPalette tor
  139.  null to indicate this
  140. lbDirList_Change
  141. pbCancel_Click
  142. cbDrives_Change
  143. lbFileList_DblClick
  144. lbFileList_PathChange
  145. pbPreview_Click
  146. Set an hourglass cursor
  147. Clear any existing bitmaps
  148. Any bitmap files in the listbox?
  149. Please select a Bitmap file before pressing the Preview button
  150. If no bitmap file is selected, take the first one 
  151. Load the bitmap into memory and get its dimensions
  152. Error loading 
  153. Set up bitblt parameters
  154. Set up the scroll bars
  155. If we have previously created a palette, delete it now
  156. (pbPreview_Click) Warning: Could not delete hPalette!"
  157. Create a new palette for this bitmap
  158.  Make sure DC containing the persistent image has the right palette
  159.  Make sure the picture box DC has the right paletteh
  160. Lock the memory block
  161.  Create a Device Dependent Bitmap 
  162.  Create a memory DC from which we can bitblt the image.  Select in and
  163.  realize the palette, then select in the ddb
  164. hOldPalette% = SelectPalette(hCompatDC%, hPalette, FALSE)S
  165. ReturnVal% = RealizePalette(hCompatDC%),
  166. Blast the image into our hidden picture boxa
  167. Free up resources we no longer need
  168. (pbPreview_Click) Warning: Could not delete hComptDC%!
  169. (pbPreview_Click) Warning: Could not delete hBitmap%!"
  170. release previously allocated memoryn
  171. Now fill in the scrollable picture box
  172. Restore the cursor
  173. PicPreviewHScroll_Change
  174. PicPreviewVScroll_Change
  175. Form_Unload
  176.  if hPalette is not 0 then we've created a palette that"
  177.  should be deleted before we terminate the program
  178. (Form_Unload) Warning: Could not delete hPalette!"
  179.  Allow Windows to unload our dll
  180. GetProfileInfo
  181. Set_ModalDlg_SysMenu
  182.  Obtain the handle to the forms System menu 
  183.  Remove all but the MOVE and CLOSE options.  The menu items
  184.  must be removed starting with the last menu item to prevent
  185.  the menu items from taking on new position values as othert
  186.  menu items are being removed.
  187. Switch to.
  188. Separator.
  189. Separator.
  190. Maximize
  191. Minimize
  192. Restoree
  193. MovePic
  194. Set up bitblt parameters
  195. In case anyone has changed the palette since we last painted,
  196. realize it (again)
  197. Blast the new picture into the preview picture box
  198. If the picture box has AutoRedraw on, it must be refreshed
  199.