object Form1: TForm1 Left = 302 Top = 221 Width = 630 Height = 517 Caption = 'Тест драйвера дисплеев покупателя в 1.4x' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = { 0000010001002020100000000000E80200001600000028000000200000004000 0000010004000000000080020000000000000000000000000000000000000000 0000000080000080000000808000800000008000800080800000C0C0C0008080 80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000F000000000000000000000000000000F0F000000000000 0000000000000000FF0FF0000000000000000000000000000FF00F0000000000 0000000000000000F0FF0FF0000000000000000000000000FF0F0FF000000000 00000000000000FF0F0000FF0000000000000000000000F00FF000FF00000000 00000000000000F000FF000FF000000000000000000000F0000FF00FFF00000F 0F000000000000FF000FF000FF0000F0F00FF0000000000F0000FF000F0000F0 00F00FF0F00FF00FF0000FF00FFF000FFFF0FFF0F0F0F00FFF0000FF00FF0000 000FFF0FF0F0FF00FFFF00FFF0FF000000FF0FFF0FF0FF00F00FF00FFF000000 000F0FFF0FFF0FF0FF0FFF00FF0000000000F0F0FFFF0FF00FF0FFF00FFF0000 0000000FFF00FFFF0FFF0FFF00F00000000000F00FF0F0FFF0FF00FF00000000 00000F00FFF0FF00FF0FF00FF00000000000000F00FF0FF0FF0FFF00F0000000 000000000FFFF0FF0FF0FF00000000000000000000F0F0FF0F000FF000000000 00000000FFFFFF0FF0F0000000000000000000FFFFF00FF0F000000000000000 000000FFF00000000000000000000000000000000F000000000000000000FFFF FFFFFFFFFDFFFFFFFDFFFFFFF8FFFFFFF07FFFFFF03FFFFFE03FFFFFE01FFFFF C00FFFFFC00FC1FF800781FF800300FF0003007F0001001E0001000000010000 000080000000C0000000E0000000F0000000F8000000FC000000FE000000FF00 0001FF000001FF800007FFC00007FFC0003FFF8001FFFF0003FFFF0003FF} OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label3: TLabel Left = 6 Top = 447 Width = 65 Height = 16 Caption = 'Ошибки :' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 12 Top = 310 Width = 47 Height = 13 Caption = 'Строка:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object btOn: TButton Left = 9 Top = 6 Width = 148 Height = 23 Caption = 'Вкл.' TabOrder = 0 OnClick = btOnClick end object btOff: TButton Left = 9 Top = 44 Width = 148 Height = 23 Caption = 'Выкл.' TabOrder = 1 OnClick = btOffClick end object eResult: TEdit Left = 80 Top = 447 Width = 409 Height = 21 TabOrder = 2 end object Panel3: TPanel Left = 5 Top = 330 Width = 616 Height = 111 TabOrder = 3 object Label12: TLabel Left = 24 Top = 30 Width = 75 Height = 13 Caption = 'Номер строки:' end object Label17: TLabel Left = 8 Top = 8 Width = 97 Height = 13 Caption = 'Бегущая строка' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label31: TLabel Left = 24 Top = 56 Width = 72 Height = 13 Caption = 'Число кругов:' end object Label32: TLabel Left = 241 Top = 57 Width = 155 Height = 13 Caption = 'Задержка обновления строки:' end object Label33: TLabel Left = 241 Top = 82 Width = 124 Height = 13 Caption = 'Задержка пуска строки:' end object Label34: TLabel Left = 25 Top = 82 Width = 120 Height = 13 Caption = 'Интервал между строк:' end object Label35: TLabel Left = 242 Top = 11 Width = 140 Height = 13 Caption = 'Задержка вывода на экран' end object seRunStrPos: TSpinEdit Left = 152 Top = 28 Width = 53 Height = 22 MaxValue = 256 MinValue = 0 TabOrder = 0 Value = 1 end object seRunStrCicleCount: TSpinEdit Left = 153 Top = 53 Width = 52 Height = 22 MaxValue = 2000 MinValue = -5 TabOrder = 1 Value = 0 end object seRunStrRefreshDelay: TSpinEdit Left = 404 Top = 53 Width = 57 Height = 22 MaxValue = 0 MinValue = 0 TabOrder = 2 Value = 0 end object seRunStrPlayDelay: TSpinEdit Left = 404 Top = 77 Width = 57 Height = 22 MaxValue = 0 MinValue = 0 TabOrder = 3 Value = 0 end object seRunStrSpacesCount: TSpinEdit Left = 153 Top = 77 Width = 52 Height = 22 MaxValue = 100 MinValue = 0 TabOrder = 4 Value = 0 end object btRunStrStart: TButton Left = 504 Top = 47 Width = 106 Height = 25 Caption = 'Пуск' TabOrder = 5 OnClick = btRunStrStartClick end object btRunStrStop: TButton Left = 504 Top = 77 Width = 107 Height = 25 Caption = 'Стоп' TabOrder = 6 OnClick = btRunStrStopClick end object seStopSymsTime: TSpinEdit Left = 404 Top = 10 Width = 57 Height = 22 MaxValue = 0 MinValue = 0 TabOrder = 7 Value = 10 end end object Panel4: TPanel Left = 393 Top = 2 Width = 224 Height = 188 TabOrder = 4 object Label6: TLabel Left = 21 Top = 8 Width = 109 Height = 13 Caption = 'Дисплей Штрих-Т' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 3 Top = 41 Width = 48 Height = 13 Caption = 'Скорость' end object Label1: TLabel Left = 3 Top = 73 Width = 49 Height = 13 Caption = 'Протокол' end object Label7: TLabel Left = 3 Top = 105 Width = 55 Height = 13 Caption = 'Кодировка' end object Label8: TLabel Left = 64 Top = 135 Width = 84 Height = 13 Caption = 'Размер дисплея' end object cbSM_Speed: TComboBox Left = 60 Top = 41 Width = 79 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 0 Items.Strings = ( '<Выберите скорость>' '2400' '4800' '9600' '14400' '19200' '38400' '57600' '115200') end object btSM_SetBaudRate: TButton Left = 141 Top = 40 Width = 75 Height = 25 Caption = 'Установить' TabOrder = 1 OnClick = btSM_SetBaudRateClick end object cbSM_Protocol: TComboBox Left = 60 Top = 73 Width = 78 Height = 21 ItemHeight = 13 TabOrder = 2 Items.Strings = ( 'Datecs' 'Firich\CD5220') end object btSM_SetProtocol: TButton Left = 141 Top = 72 Width = 75 Height = 25 Caption = 'Установить' TabOrder = 3 OnClick = btSM_SetProtocolClick end object cbSM_CodePage: TComboBox Left = 60 Top = 105 Width = 78 Height = 21 ItemHeight = 13 TabOrder = 4 Items.Strings = ( 'По протоколу' 'WIN 1251') end object btSM_SetCodeSymbols: TButton Left = 141 Top = 103 Width = 75 Height = 25 Caption = 'Установить' TabOrder = 5 OnClick = btSM_SetCodeSymbolsClick end object btSM_Set20: TButton Left = 24 Top = 153 Width = 75 Height = 25 Caption = '20 x 2' TabOrder = 6 OnClick = btSM_Set20Click end object btSM_Set22: TButton Left = 112 Top = 153 Width = 75 Height = 25 Caption = '22 x 2' TabOrder = 7 OnClick = btSM_Set20Click end end object Panel5: TPanel Left = 165 Top = 3 Width = 225 Height = 145 TabOrder = 5 object Label10: TLabel Left = 8 Top = 5 Width = 47 Height = 13 Caption = 'Курсор ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label11: TLabel Left = 107 Top = 32 Width = 56 Height = 13 Caption = 'позиция №' end object bbBegStrCursor: TButton Left = 135 Top = 55 Width = 83 Height = 21 Caption = 'Начало строки' TabOrder = 0 OnClick = bbBegStrCursorClick end object bbEndStrCursor: TButton Left = 135 Top = 76 Width = 83 Height = 21 Caption = 'Конец строки' TabOrder = 1 OnClick = bbEndStrCursorClick end object bbEndScreenCursor: TButton Left = 135 Top = 118 Width = 83 Height = 21 Caption = 'Последняя' TabOrder = 2 OnClick = bbEndScreenCursorClick end object cbSetCursor: TCheckBox Left = 89 Top = 8 Width = 80 Height = 17 Caption = 'Видимость' Color = clAppWorkSpace ParentColor = False TabOrder = 3 OnClick = cbSetCursorClick end object seCursorPos: TSpinEdit Left = 168 Top = 26 Width = 47 Height = 22 MaxValue = 199 MinValue = 0 TabOrder = 4 Value = 0 end object bbGoCursor: TBitBtn Left = 7 Top = 29 Width = 93 Height = 20 Caption = 'Перейти' TabOrder = 5 OnClick = bbGoCursorClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0 BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE333377777777777773} NumGlyphs = 2 end object bbLeftCursor: TBitBtn Left = 3 Top = 77 Width = 65 Height = 20 Caption = 'Влево' TabOrder = 6 OnClick = bbLeftCursorClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333333333333333333333333333333333FF333333333333 3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00 E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0 E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0 E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00 000033333373FF77777733333330003333333333333777333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object bbRightCursor: TBitBtn Left = 69 Top = 77 Width = 65 Height = 20 Caption = 'Вправо' TabOrder = 7 OnClick = bbRightCursorClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFF333333333333000333333333 3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0 3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF 0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033 33337777773FF733333333333300033333333333337773333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object bbChangeCursor: TBitBtn Left = 3 Top = 98 Width = 131 Height = 20 Caption = 'Другая строка' TabOrder = 8 OnClick = bbChangeCursorClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003FFFFFFFFFFF FFFF33333333333FFFFF3FFFFFFFFF00000F333333333377777F33FFFFFFFF09 990F33333333337F337F333FFFFFFF09990F33333333337F337F3333FFFFFF09 990F33333333337FFF7F33333FFFFF00000F3333333333777773333333FFFFFF FFFF3333333333333F333333333FFFFF0FFF3333333333337FF333333333FFF0 00FF33333333333777FF333333333F00000F33FFFFF33777777F300000333000 0000377777F33777777730EEE033333000FF37F337F3333777F330EEE0333330 00FF37F337F3333777F330EEE033333000FF37FFF7F333F77733300000333000 03FF3777773337777333333333333333333F3333333333333333} NumGlyphs = 2 end object bbUpCursor: TBitBtn Left = 2 Top = 55 Width = 66 Height = 20 Caption = 'Вверх' TabOrder = 9 OnClick = bbUpCursorClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000 333333777777777F33333330B00000003333337F7777777F3333333000000000 333333777777777F333333330EEEEEE033333337FFFFFF7F3333333300000000 333333377777777F3333333330BFBFB03333333373333373F33333330BFBFBFB 03333337F33333F7F33333330FBFBF0F03333337F33337F7F33333330BFBFB0B 03333337F3F3F7F7333333330F0F0F0033333337F7F7F773333333330B0B0B03 3333333737F7F7F333333333300F0F03333333337737F7F33333333333300B03 333333333377F7F33333333333330F03333333333337F7F33333333333330B03 3333333333373733333333333333303333333333333373333333} NumGlyphs = 2 end object bbDownCursor: TBitBtn Left = 69 Top = 55 Width = 65 Height = 20 Caption = 'Вниз' TabOrder = 10 OnClick = bbDownCursorClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333033333 33333333373F33333333333330B03333333333337F7F33333333333330F03333 333333337F7FF3333333333330B00333333333337F773FF33333333330F0F003 333333337F7F773F3333333330B0B0B0333333337F7F7F7F3333333300F0F0F0 333333377F73737F33333330B0BFBFB03333337F7F33337F33333330F0FBFBF0 3333337F7333337F33333330BFBFBFB033333373F3333373333333330BFBFB03 33333337FFFFF7FF3333333300000000333333377777777F333333330EEEEEE0 33333337FFFFFF7FF3333333000000000333333777777777F33333330000000B 03333337777777F7F33333330000000003333337777777773333} NumGlyphs = 2 end object btClearCursorLine: TButton Left = 3 Top = 118 Width = 131 Height = 21 Caption = 'Очистить линию курсора' TabOrder = 11 OnClick = btClearCursorLineClick end object bbStartScreenCursor: TButton Left = 135 Top = 97 Width = 83 Height = 21 Caption = 'Первая' TabOrder = 12 OnClick = bbStartScreenCursorClick end end object btCheck: TButton Left = 9 Top = 121 Width = 148 Height = 23 Caption = 'Проверка связи' TabOrder = 6 OnClick = btCheckClick end object btShowProp: TButton Left = 9 Top = 83 Width = 148 Height = 23 Caption = 'Визуальная настройка' TabOrder = 7 OnClick = btShowPropClick end object Panel6: TPanel Left = 5 Top = 152 Width = 384 Height = 153 TabOrder = 8 object Label16: TLabel Left = 7 Top = 5 Width = 61 Height = 13 Caption = 'Основные' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 166 Top = 95 Width = 44 Height = 13 Caption = 'Позиция' end object Label5: TLabel Left = 16 Top = 122 Width = 101 Height = 13 Caption = 'Интервал мигания :' end object btInitDispl: TButton Left = 12 Top = 26 Width = 141 Height = 26 Caption = 'Инициализация дисплея' TabOrder = 0 OnClick = btInitDisplClick end object btClear: TButton Left = 12 Top = 57 Width = 141 Height = 26 Caption = 'Очистить экран' TabOrder = 1 OnClick = btClearClick end object btSelfTest: TButton Left = 165 Top = 26 Width = 141 Height = 26 Caption = 'Запуск теста' TabOrder = 2 OnClick = btSelfTestClick end object btSelfRunStr: TButton Left = 164 Top = 57 Width = 141 Height = 26 Caption = 'Бегущая строка дисплея' TabOrder = 3 OnClick = btSelfRunStrClick end object btPrintStr: TButton Left = 12 Top = 88 Width = 141 Height = 26 Caption = 'Вывести строку' TabOrder = 4 OnClick = btPrintStrClick end object sePosStr: TSpinEdit Left = 218 Top = 93 Width = 73 Height = 22 MaxLength = 2 MaxValue = 80 MinValue = 0 TabOrder = 5 Value = 0 end object rgBrightness: TRadioGroup Left = 312 Top = 8 Width = 57 Height = 134 Caption = 'Яркость' Items.Strings = ( '1' '2' '3' '4') TabOrder = 6 OnClick = rgBrightnessClick end object seBlinkInterval: TSpinEdit Left = 133 Top = 120 Width = 57 Height = 22 MaxValue = 256 MinValue = 0 TabOrder = 7 Value = 0 end object btSetBlincInterval: TButton Left = 190 Top = 120 Width = 78 Height = 22 Caption = 'Установить' TabOrder = 8 OnClick = btSetBlincIntervalClick end end object edString: TEdit Left = 81 Top = 308 Width = 535 Height = 21 TabOrder = 9 Text = 'Спасибо за покупку !' end object Panel7: TPanel Left = 393 Top = 191 Width = 225 Height = 113 TabOrder = 10 object Label14: TLabel Left = 9 Top = 26 Width = 47 Height = 13 Caption = 'Позиция:' end object Label15: TLabel Left = 4 Top = 8 Width = 38 Height = 13 Caption = 'Метки' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object seLabPos: TSpinEdit Left = 14 Top = 47 Width = 49 Height = 22 MaxValue = 0 MinValue = 0 TabOrder = 0 Value = 0 end object bbLabOff: TBitBtn Left = 71 Top = 44 Width = 148 Height = 25 Caption = 'Удалить' TabOrder = 1 OnClick = bbLabOffClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555FFFFF5555555555000005555555555F777775FF555555008877700 55555557755FFF775F55550887000777055555755F777FFF75F5508800000007 705557F57777777FF7F55080000000007055575777777777F75F087000333000 77057F5777555777FF7F08000333330007057F777F5555777F7F0F0003333300 07057F777F5555777F7F0F000833330008057F777FF55577757F0F7000883000 780575F777FFF777F575508000000000805557F77777777757F550F800000008 8055575F777777755755550F8700078805555575FF77755F755555500FFF8800 5555555775FFFF77555555555000005555555555577777555555} NumGlyphs = 2 end object bbLabOn: TBitBtn Left = 71 Top = 7 Width = 148 Height = 25 Caption = 'Установить' TabOrder = 2 OnClick = bbLabOnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333000003333333333F777773FF333333008877700 33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07 703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F 77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F 07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F 780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08 8033373F773337733733330F8700078803333373FF77733F733333300FFF8800 3333333773FFFF77333333333000003333333333377777333333} NumGlyphs = 2 end object bbLabOffAll: TBitBtn Left = 71 Top = 80 Width = 148 Height = 25 Caption = 'Удалить все' TabOrder = 3 OnClick = bbLabOffAllClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555 555557777F777555F55500000000555055557777777755F75555005500055055 555577F5777F57555555005550055555555577FF577F5FF55555500550050055 5555577FF77577FF555555005050110555555577F757777FF555555505099910 555555FF75777777FF555005550999910555577F5F77777775F5500505509990 3055577F75F77777575F55005055090B030555775755777575755555555550B0 B03055555F555757575755550555550B0B335555755555757555555555555550 BBB35555F55555575F555550555555550BBB55575555555575F5555555555555 50BB555555555555575F555555555555550B5555555555555575} NumGlyphs = 2 end end object btClose: TButton Left = 510 Top = 444 Width = 106 Height = 25 Caption = 'Закрыть' TabOrder = 11 OnClick = btCloseClick end end