home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / olympus / ik32_15t / vb4.shr / INIT.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-07-22  |  5.3 KB  |  161 lines
  1. Attribute VB_Name = "Initialize"
  2. Option Explicit
  3.  
  4.  
  5.  
  6. Sub InitCmbAssignMode(cmbAssignMode As Control)
  7.     cmbAssignMode.AddItem "0-Total replacement"
  8.     cmbAssignMode.AddItem "1-Union composite"
  9.     cmbAssignMode.AddItem "2-Intersection composite"
  10.     cmbAssignMode.AddItem "3-Resize composite"
  11.     cmbAssignMode.Text = cmbAssignMode.List(0)
  12.     cmbAssignMode.ListIndex = 0
  13. End Sub
  14.  
  15.  
  16. Sub InitcmbDrawArrows(cmbDrawArrows As Control)
  17.     cmbDrawArrows.AddItem "0-None"
  18.     cmbDrawArrows.AddItem "1-Start"
  19.     cmbDrawArrows.AddItem "2-End"
  20.     cmbDrawArrows.AddItem "3-Both"
  21.     cmbDrawArrows.Text = cmbDrawArrows.List(0)
  22.     cmbDrawArrows.ListIndex = 0
  23. End Sub
  24.  
  25. Sub InitcmbDrawStyle(cmbDrawStyle As Control)
  26.     cmbDrawStyle.AddItem "0-Solid"
  27.     cmbDrawStyle.AddItem "1-Dash"
  28.     cmbDrawStyle.AddItem "2-Dot"
  29.     cmbDrawStyle.AddItem "3-Dash Dot"
  30.     cmbDrawStyle.AddItem "4-Dash Dot Dot"
  31.     cmbDrawStyle.AddItem "5-Transparent"
  32.     cmbDrawStyle.AddItem "6-Inside Fill"
  33.     cmbDrawStyle.Text = cmbDrawStyle.List(0)
  34.     cmbDrawStyle.ListIndex = 0
  35. End Sub
  36.  
  37. Sub InitcmbFillStyle(cmbFillStyle As Control)
  38.     cmbFillStyle.AddItem "0-Solid"
  39.     cmbFillStyle.AddItem "1-Transparent"
  40.     cmbFillStyle.AddItem "2-Horizontal"
  41.     cmbFillStyle.AddItem "3-Vertical"
  42.     cmbFillStyle.AddItem "4-Upward Diagonal"
  43.     cmbFillStyle.AddItem "5-Downward Diagonal"
  44.     cmbFillStyle.AddItem "6-Cross"
  45.     cmbFillStyle.AddItem "7-Diagonal Cross"
  46.     cmbFillStyle.Text = cmbFillStyle.List(0)
  47.     cmbFillStyle.ListIndex = 0
  48. End Sub
  49.  
  50. Sub InitcmbImageFormat(cmbImageFormat As Control)
  51.     cmbImageFormat.AddItem "0-Auto"
  52.     cmbImageFormat.AddItem "1-TIFF"
  53.     cmbImageFormat.AddItem "2-Targa"
  54.     cmbImageFormat.AddItem "3-BMP"
  55.     cmbImageFormat.AddItem "4-GIF"
  56.     cmbImageFormat.AddItem "5-DIB"
  57.     cmbImageFormat.AddItem "6-PCX"
  58.     cmbImageFormat.AddItem "7-JPEG"
  59.     cmbImageFormat.AddItem "8-Paintbrush OLE"
  60.     cmbImageFormat.AddItem "9-FIF"
  61.     cmbImageFormat.AddItem "10-PNG"
  62.     cmbImageFormat.Text = cmbImageFormat.List(0)
  63.     cmbImageFormat.ListIndex = 0
  64. End Sub
  65.  
  66. Sub InitcmbLoadOptions(cmbLoadOptions As Control)
  67.     cmbLoadOptions.AddItem "0-24 bit"
  68.     cmbLoadOptions.AddItem "1-8 bit dithered"
  69.     cmbLoadOptions.AddItem "3-8 bit"
  70.     cmbLoadOptions.Text = cmbLoadOptions.List(0)
  71.     cmbLoadOptions.ListIndex = 0
  72. End Sub
  73.  
  74. Sub InitcmbLoadScale(cmbLoadScale As Control)
  75.     cmbLoadScale.AddItem "0-Full Scale"
  76.     cmbLoadScale.AddItem "1-Half Scale"
  77.     cmbLoadScale.AddItem "2-Double Scale"
  78.     cmbLoadScale.AddItem "3-Ignore Scale"
  79.     cmbLoadScale.Text = cmbLoadScale.List(0)
  80.     cmbLoadScale.ListIndex = 0
  81. End Sub
  82.  
  83. ' initialize a RasterOp combobox
  84. Sub InitcmbRasterOp(cmbRasterOp As Control, intStart As Integer)
  85.  
  86.     cmbRasterOp.AddItem "0-Pixel = Black"
  87.     cmbRasterOp.AddItem "1-Pixel = ~(FC | Screen)"
  88.     cmbRasterOp.AddItem "2-Pixel = ~FC & Screen)"
  89.     cmbRasterOp.AddItem "3-Pixel = ~FC"
  90.     cmbRasterOp.AddItem "4-Pixel = ~Screen | FC"
  91.     cmbRasterOp.AddItem "5-Pixel = ~Screen"
  92.     cmbRasterOp.AddItem "6-Pixel = FC ^ Screen"
  93.     cmbRasterOp.AddItem "7-Pixel = ~(FC & Screen)"
  94.     cmbRasterOp.AddItem "8-Pixel = FC & Screen"
  95.     cmbRasterOp.AddItem "9-Pixel = ~(FC ^ Screen)"
  96.     cmbRasterOp.AddItem "10-Pixel = No Change"
  97.     cmbRasterOp.AddItem "11-Pixel = ~FC | Screen"
  98.     cmbRasterOp.AddItem "12-Pixel = BC"
  99.     cmbRasterOp.AddItem "13-Pixel = ~Screen & Pen"
  100.     cmbRasterOp.AddItem "14-Pixel = FC | Screen"
  101.     cmbRasterOp.AddItem "15-Pixel = White"
  102.     
  103.     cmbRasterOp.ListIndex = intStart
  104.     
  105. '    cmbRasterOp.Text = cmbRasterOp.List(cmbRasterOp.ListItem)
  106.     
  107. End Sub
  108.  
  109. Sub InitcmbResizeMode(cmbResizeMode As Control)
  110.     cmbResizeMode.AddItem "0-Pixel deletion/replication, fixed aspect ratio"
  111.     cmbResizeMode.AddItem "1-Pixel deletion/replication, variable aspect ratio"
  112.     cmbResizeMode.AddItem "2-Resampling, fixed aspect ratio"
  113.     cmbResizeMode.AddItem "3-Resampling, variable aspect ratio"
  114.     cmbResizeMode.Text = cmbResizeMode.List(0)
  115.     cmbResizeMode.ListIndex = 0
  116. End Sub
  117.  
  118. Sub InitcmbScrollBars(cmbScrollBars As Control)
  119.     cmbScrollBars.AddItem "0-None"
  120.     cmbScrollBars.AddItem "1-Horizontal"
  121.     cmbScrollBars.AddItem "2-Vertical"
  122.     cmbScrollBars.AddItem "3-Both"
  123.     cmbScrollBars.Text = cmbScrollBars.List(0)
  124.     cmbScrollBars.ListIndex = 0
  125. End Sub
  126.  
  127. Sub InitcmbTextAlignment(cmbTextAlignment As Control)
  128.     cmbTextAlignment.AddItem "0-Left"
  129.     cmbTextAlignment.AddItem "1-Right"
  130.     cmbTextAlignment.AddItem "3-Vertical"
  131.     cmbTextAlignment.Text = cmbTextAlignment.List(0)
  132.     cmbTextAlignment.ListIndex = 0
  133. End Sub
  134.  
  135. Sub InitcmbWriteOption(cmbWriteOption As Control)
  136.     cmbWriteOption.AddItem "0-None"
  137.     cmbWriteOption.AddItem "1-Progressive"
  138.     cmbWriteOption.AddItem "2-Grayscale 8-Bit"
  139.     cmbWriteOption.AddItem "3-Progressive Grayscale 8-Bit"
  140.     cmbWriteOption.Text = cmbWriteOption.List(0)
  141.     cmbWriteOption.ListIndex = 0
  142. End Sub
  143.  
  144.  
  145. Sub InitPicbuf(Picbuf As Control, blnScrollbars As Boolean, Optional Filename As Variant)
  146.     Picbuf.BackColor = 0
  147.     Picbuf.Appearance = ThreeD
  148.     If blnScrollbars = True Then
  149.         Picbuf.ScrollBars = 3
  150.     End If
  151.     If IsMissing(Filename) = False Then
  152.         Picbuf.Filename = App.Path + "\..\Images\" + Filename
  153.         Picbuf.Load
  154.     End If
  155. End Sub
  156.  
  157.  
  158.  
  159.  
  160.  
  161.