Mastering Visual Basic 6

home *** CD-ROM | disk | FTP | other *** search

/ Mastering Visual Basic 6 / mastvb6.iso / leadtools / ocx32.lt / HISTOGR1.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1998-03-27 | 58.6 KB | 2,024 lines

VERSION 5.00 Begin VB.Form Histogram Appearance = 0 'Flat BackColor = &H00C0C0C0& BorderStyle = 3 'Fixed Dialog Caption = "Image Histogram" ClientHeight = 5700 ClientLeft = 1815 ClientTop = 2820 ClientWidth = 6630 BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Icon = "HISTOGR1.frx":0000 LinkTopic = "Form1" LockControls = -1 'True MaxButton = 0 'False MinButton = 0 'False PaletteMode = 1 'UseZOrder ScaleHeight = 380 ScaleMode = 3 'Pixel ScaleWidth = 442 ShowInTaskbar = 0 'False Begin VB.ComboBox FilterBox Height = 300 Left = 3210 Style = 2 'Dropdown List TabIndex = 7 Top = 5130 Width = 2865 End Begin VB.Frame Frame1 Caption = "Channel" Height = 1515 Left = 150 TabIndex = 2 Top = 135 Width = 1140 Begin VB.OptionButton Channel Caption = "&Blue" Height = 240 Index = 3 Left = 120 TabIndex = 6 Top = 1125 Width = 750 End Begin VB.OptionButton Channel Caption = "&Green" Height = 240 Index = 2 Left = 120 TabIndex = 5 Top = 825 Width = 855 End Begin VB.OptionButton Channel Caption = "&Red" Height = 240 Index = 1 Left = 120 TabIndex = 4 Top = 525 Width = 735 End Begin VB.OptionButton Channel Caption = "&Master" Height = 240 Index = 0 Left = 120 TabIndex = 3 Top = 225 Value = -1 'True Width = 975 End End Begin VB.PictureBox TheHist AutoRedraw = -1 'True Height = 4530 Left = 2310 ScaleHeight = 100 ScaleMode = 0 'User ScaleWidth = 260 TabIndex = 0 Top = 135 Width = 4155 Begin VB.Line TheLine BorderColor = &H00C000C0& Index = 255 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 254 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 253 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 252 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 251 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 250 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 249 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 248 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 247 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 246 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 245 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 244 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 243 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 242 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 241 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 240 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 239 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 238 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 237 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 236 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 235 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 234 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 233 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 232 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 231 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 230 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 229 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 228 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 227 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 226 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 225 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 224 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 223 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 222 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 221 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 220 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 219 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 218 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 217 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 216 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 215 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 214 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 213 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 212 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 211 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 210 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 209 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 208 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 207 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 206 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 205 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 204 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 203 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 202 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 201 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 200 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 199 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 198 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 197 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 196 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 195 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 194 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 193 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 192 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 191 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 190 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 189 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 188 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 187 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 186 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 185 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 184 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 183 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 182 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 181 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 180 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 179 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 178 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 177 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 176 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 175 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 174 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 173 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 172 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 171 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 170 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 169 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 168 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 167 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 166 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 165 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 164 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 163 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 162 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 161 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 160 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 159 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 158 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 157 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 156 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 155 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 154 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 153 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 152 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 151 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 150 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 149 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 148 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 147 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 146 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 145 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 144 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 143 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 142 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 141 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 140 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 139 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 138 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 137 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 136 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 135 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 134 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 133 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 132 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 131 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 130 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 129 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 128 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 127 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 126 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 125 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 124 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 123 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 122 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 121 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 120 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 119 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 118 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 117 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 116 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 115 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 114 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 113 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 112 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 111 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 110 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 109 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 108 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 107 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 106 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 105 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 104 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 103 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 102 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 101 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 100 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 99 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 98 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 97 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 96 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 95 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 94 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 93 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 92 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 91 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 90 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 89 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 88 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 87 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 86 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 85 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 84 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 83 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 82 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 81 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 80 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 79 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 78 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 77 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 76 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 75 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 74 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 73 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 72 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 71 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 70 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 69 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 68 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 67 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 66 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 65 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 64 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 63 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 62 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 61 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 60 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 59 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 58 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 57 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 56 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 55 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 54 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 53 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 52 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 51 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 50 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 49 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 48 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 47 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 46 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 45 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 44 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 43 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 42 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 41 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 40 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 39 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 38 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 37 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 36 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 35 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 34 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 33 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 32 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 31 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 30 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 29 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 28 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 27 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 26 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 25 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 24 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 23 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 22 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 21 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 20 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 19 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 18 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 17 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 16 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 15 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 14 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 13 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 12 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 11 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 10 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 9 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 8 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 7 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 6 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 5 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 4 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 3 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 2 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 1 X1 = 0 X2 = 0 Y1 = 0 Y2 = 13.557 End Begin VB.Line TheLine Index = 0 X1 = 0 X2 = 0 Y1 = -0.805 Y2 = 12.774 End End Begin VB.CommandButton OK Appearance = 0 'Flat BackColor = &H80000005& Caption = "OK" Default = -1 'True Height = 375 Left = 240 TabIndex = 1 Top = 5115 Width = 1200 End Begin VB.Label YMaxDiv2 Alignment = 1 'Right Justify Caption = "Label4" Height = 255 Left = 1350 TabIndex = 13 Top = 2415 Width = 870 End Begin VB.Label Label4 Caption = "0" Height = 225 Left = 1950 TabIndex = 12 Top = 4515 Width = 285 End Begin VB.Label YMax Alignment = 1 'Right Justify Caption = "Label4" Height = 255 Left = 1425 TabIndex = 11 Top = 255 Width = 825 End Begin VB.Label Label3 Caption = "128" Height = 255 Left = 4200 TabIndex = 10 Top = 4800 Width = 420 End Begin VB.Label Label2 Caption = "255" Height = 216 Left = 6228 TabIndex = 9 Top = 4800 Width = 456 End Begin VB.Label Label1 Caption = "0" Height = 228 Left = 2340 TabIndex = 8 Top = 4800 Width = 288 End Attribute VB_Name = "Histogram" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim TheMax As Long Dim ThisKid As Integer Private Sub Channel_Click(Index As Integer) Dim Frm As Form Dim found As Boolean found = False For Each Frm In Forms If (Kids(FilterBox.ListIndex) = Frm.hWnd) Then found = True Exit For End If Next Frm If found = False Then Return nRet = Frm.Lead1.GetHistogram(Index) TheMax = 0 For i = 0 To 255 If Frm.Lead1.HistogramTable(i) > TheMax Then TheMax = Frm.Lead1.HistogramTable(i) End If TheHist.ScaleHeight = 100 For i = 0 To 255 TheLine(i).X1 = i TheLine(i).X2 = TheLine(i).X1 TheLine(i).Y1 = TheHist.ScaleHeight - 2 TheLine(i).Y2 = TheLine(i).Y1 - (CDbl(Frm.Lead1.HistogramTable(i)) * (TheLine(i).Y1 - 4) / TheMax) TheLine(i).BorderColor = 0 TheHist.Refresh YMax.Caption = CStr(TheMax) YMaxDiv2.Caption = CStr(TheMax / 2) End Sub Private Sub FilterBox_Click() Main.MakeKidActive (FilterBox.ListIndex) i = 0 While Channel(i).Value <> True i = i + 1 Channel_Click (i) Histogram.ZOrder (0) End Sub Private Sub Form_Load() Dim Filters As String Dim SubString As String Dim i As Integer Dim Oldi As Integer gInProgress = True ThisKid = Main.FindKid(Main.ActiveForm.hWnd) Filters = Main.BuildKidList TheHist.ScaleMode = 0 TheHist.ScaleLeft = -5 TheHist.ScaleWidth = 270 TheHist.ScaleHeight = 100 Oldi = 1 i = InStr(Filters, ";") While i <> 0 SubString = Mid(Filters, Oldi, i - Oldi) FilterBox.AddItem SubString Oldi = i + 1 i = InStr(Oldi, Filters, ";") SubString = Mid(Filters, Oldi) FilterBox.AddItem SubString Left = (Screen.Width - Width) / 2 Top = (Screen.Height - Height) / 2 Main.MakeKidActive (ThisKid) FilterBox.ListIndex = ThisKid End Sub Private Sub Form_Unload(Cancel As Integer) gInProgress = False End Sub Private Sub OK_Click() Unload Histogram End Sub