Attribute VB_Name = "Модуль_Осн_Переменных"
Public SelectedFile As String   'путь к файлу BMP
Public SelectedFile2 As String  'для названия файла перед обновлением File1


Public bfType As String * 2 'тип файла
Public bfSize As Long       'размер файла, предполагаемый в заголовке (иногда ошибается)
Public bfOffbits As Long    'начало битового образа (в байтах от заголовка)
Public biSize As Long       'байт в заголовке
Public biWidth As Long      'ширина BMP изображения
Public biHeight As Long     'высота BMP изображения
Public biPlanes As Long     'число битовых плоскостей (всегда 1)
Public biBitCount As Long   'число бит на пиксель
Public biCompression As Long    'режим сжатия BMP изображения
Public biSizeImage As Long      'размер картинки в байтах
Public biXPelsPerMeter As Long  'горизонтальное разрешение устройства (пиксель/метр)
Public biYPelsPerMeter As Long  'вертикальное разрешение устройства (пиксель/метр)
Public biClrUsed As Long        'сколько цветов палитры используется (если =0, то все)
Public biClrImportant As Long   'число "важных" цветов
Public FormatBMP As Byte        'тип растра (bmp Windows =1,bmp OS/2 =2)
Public Vyravnivanie_Na4 As Long 'Для проверки кратна ли 4 длина строки в байтах
'Public ОстатокПослеВычВыравнивания As Integer
Public РазмерФайла As Long

Public tgaIdentLen As Byte 'длина поля Идентификатора
Public tgaClrMap As Byte
Public tgaType As Byte  'тип файла TGA
Public tgaClrOffset As Long  'смещение палитры относительно начала файла
Public tgaMapColors As Long  'количество цветов в палитре
Public tgaBytesPerClr As Byte  'число байт на один цвет палитры
Public tgaОтсчётИзображенияПоX As Long
Public tgaОтсчётИзображенияПоY As Long
Public tgaClrBitPerPixel As Byte 'число бит на цвет одного пикселя
Public tgaImageDesc As Byte 'описатель TGA изображения в конце заголовка
Public ОбходCверхуВниз As Byte
Public ОбходСправаНалево As Byte


Public Byte1 As Byte ', Byte1Long As Long
Public Byte2 As Byte ', Byte2Long As Long
Public Byte3 As Byte ', Byte3Long As Long
Public Byte4 As Byte ', Byte4Long As Long
Public Красный As Byte
Public Зелёный As Byte
Public Синий As Byte

Public LongDword As Long
Public i As Long
Public j As Long
Public k As Long
Public l As Long
Public Posledniy_Stolbec As String 'буквенное название последнего столбца в массиве
'Public ChyornoBeloe As Boolean
Public ChyornoBely As Long
Public Zagruzka As Integer
Public Otmena As Boolean
Public Minus As Long

Public PoslStolb As Long
Public PervStolb As Long
Public PoslStroka As Long
Public PervStroka As Long

Public Massiv256(0 To 255, 0 To 2) As Single 'для 256 цветной палитры
'Public Massiv256(0 To 255, 0 To 5) As Single 'для 256 цветной палитры
Public BM_MassivК() As Byte
Public BM_MassivЗ() As Byte
Public BM_MassivС() As Byte
Public Export() As Single 'Массив для окончательного вывода в Excel
Public ExportFon() As Long 'Массив для фона ячеек в Excel
Public Check_Zalivka As Boolean

Public Cveta_Excel(0 To 56, 1 To 5) As Long

Public ДоляКрасного As Single 'Доля красной составляющей в яркости
Public ДоляЗелёного As Single 'Доля зелёной составляющей в яркости
Public ДоляСинего As Single

Public TextInfo As String
Public TextInfo2 As String


Public БайтыДоСтроки0 As Long
Public БайтыДоСтроки1 As Long
Public БайтыДоСтроки2 As Long
Public БайтыДоСтроки3 As Long
Public БайтыДоСтроки4 As Long
Public БайтыДоСтроки5 As Long

Public ЦветВыделения As Integer


