lazarus-ccr/components/industrialstuff/Example/LCDDisplay/CharDefsEditor/untMain.lfm

object frmMain: TfrmMain
  Left = 327
  Height = 244
  Top = 136
  Width = 348
  Caption = 'Demo CharDefsEditor'
  ClientHeight = 244
  ClientWidth = 348
  OnCreate = FormCreate
  LCLVersion = '2.2.2.0'
  object LCDDisplay1: TLCDDisplay
    Left = 16
    Height = 101
    Top = 8
    Width = 320
    CharDefs.ColCount = 5
    CharDefs.RowCount = 7
    CharDefs.CharDefs = (
      '!,4,4,4,4,4,0,4'
      '",10,10,0,0,0,0,0'
      '#,0,10,31,10,31,10,0'
      '$,4,15,20,14,5,30,4'
      '%,25,26,2,4,8,11,19'
      '&,12,18,20,8,21,18,13'
      ''',4,4,0,0,0,0,0'
      '(,2,4,8,8,8,4,2'
      '),8,4,2,2,2,4,8'
      '*,0,4,21,14,21,4,0'
      '+,0,4,4,31,4,4,0'
      ',,0,0,0,0,12,4,8'
      '-,0,0,0,14,0,0,0'
      '.,0,0,0,0,0,12,12'
      '/,1,1,2,4,8,16,16'
      '0,14,17,19,21,25,17,14'
      '1,4,12,4,4,4,4,14'
      '2,14,17,1,2,4,8,31'
      '3,14,17,1,6,1,17,14'
      '4,2,6,10,18,31,2,2'
      '5,31,16,30,1,1,17,14'
      '6,14,17,16,30,17,17,14'
      '7,31,1,1,2,4,4,4'
      '8,14,17,17,14,17,17,14'
      '9,14,17,17,15,1,17,14'
      ':,0,12,12,0,12,12,0'
      ';,0,12,12,0,12,4,8'
      '<,2,4,8,16,8,4,2'
      '=,0,0,31,0,31,0,0'
      '>,8,4,2,1,2,4,8'
      '?,14,17,1,2,4,0,4'
      '@,14,17,19,21,23,16,15'
      'A,14,17,17,31,17,17,17'
      'B,30,17,17,30,17,17,30'
      'C,14,17,16,16,16,17,14'
      'D,30,17,17,17,17,17,30'
      'E,31,16,16,30,16,16,31'
      'F,31,16,16,30,16,16,16'
      'G,14,17,16,19,17,17,14'
      'H,17,17,17,31,17,17,17'
      'I,14,4,4,4,4,4,14'
      'J,1,1,1,1,17,17,14'
      'K,17,18,20,24,20,18,17'
      'L,16,16,16,16,16,16,31'
      'M,17,27,21,21,17,17,17'
      'N,17,25,21,19,17,17,17'
      'O,14,17,17,17,17,17,14'
      'P,30,17,17,30,16,16,16'
      'Q,14,17,17,17,17,14,1'
      'R,30,17,17,30,17,17,17'
      'S,14,17,16,14,1,17,14'
      'T,31,4,4,4,4,4,4'
      'U,17,17,17,17,17,17,14'
      'V,17,17,17,17,17,10,4'
      'W,17,17,17,17,21,27,17'
      'X,17,10,4,4,4,10,17'
      'Y,17,17,17,10,4,4,4'
      'Z,31,1,2,4,8,16,31'
      '[,12,8,8,8,8,8,12'
      '\,0,16,8,4,2,1,0'
      '],6,2,2,2,2,2,6'
      '^,4,10,17,0,0,0,0'
      '_,0,0,0,0,0,0,31'
      '`,6,4,2,0,0,0,0'
      'a,0,0,14,1,15,17,15'
      'b,16,16,30,17,17,17,30'
      'c,0,0,15,16,16,16,15'
      'd,1,1,15,17,17,17,15'
      'e,0,0,14,17,31,16,14'
      'f,3,4,31,4,4,4,4'
      'g,0,0,15,17,15,1,14'
      'h,16,16,22,25,17,17,17'
      'i,4,0,12,4,4,4,14'
      'j,2,0,6,2,2,18,12'
      'k,16,16,18,20,24,20,18'
      'l,12,4,4,4,4,4,14'
      'm,0,0,26,21,21,21,21'
      'n,0,0,22,25,17,17,17'
      'o,0,0,14,17,17,17,14'
      'p,0,0,30,17,30,16,16'
      'q,0,0,15,17,15,1,1'
      'r,0,0,11,12,8,8,8'
      's,0,0,14,16,14,1,30'
      't,4,4,31,4,4,4,3'
      'u,0,0,17,17,17,19,13'
      'v,0,0,17,17,17,10,4'
      'w,0,0,17,17,21,21,10'
      'x,0,0,17,10,4,10,17'
      'y,0,0,17,17,15,1,14'
      'z,0,0,31,2,4,8,31'
      '{,3,4,4,8,4,4,3'
      '|,4,4,4,4,4,4,4'
      '},24,4,4,2,4,4,24'
      '~,8,21,2,0,0,0,0'
      'Ä,17,14,17,17,31,17,17'
    )
    Lines.Strings = (
      ' '
      ' '
    )
  end
  object Button1: TButton
    Left = 16
    Height = 25
    Top = 200
    Width = 115
    AutoSize = True
    Caption = 'Open char editor'
    OnClick = Button1Click
    TabOrder = 0
  end
  object Memo1: TMemo
    Left = 16
    Height = 66
    Top = 118
    Width = 320
    Lines.Strings = (
      'ABCDefg'
    )
    OnChange = Memo1Change
    TabOrder = 1
  end
end