lcdanimatoreditor.dfm.svn-base

LCDScreen is a couple of Delphi component which simulate a dot-LCD multilines screen. It is fully c

object LCDAnimatorCodeEditorForm: TLCDAnimatorCodeEditorForm
  Left = 379
  Top = 393
  ActiveControl = CodeStringGrid
  BorderIcons = []
  BorderStyle = bsToolWindow
  Caption = 'TLCDAnimator Code Editor'
  ClientHeight = 391
  ClientWidth = 482
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 17
    Top = 352
    Width = 450
    Height = 3
    Shape = bsTopLine
  end
  object Bevel2: TBevel
    Left = 16
    Top = 315
    Width = 450
    Height = 3
    Shape = bsTopLine
  end
  object Bevel3: TBevel
    Left = 16
    Top = 90
    Width = 450
    Height = 3
    Shape = bsTopLine
  end
  object CancelButton: TButton
    Left = 397
    Top = 361
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 17
  end
  object OkButton: TButton
    Left = 316
    Top = 361
    Width = 75
    Height = 25
    Caption = 'OK'
    ModalResult = 1
    TabOrder = 15
  end
  object HorzScrollButton: TButton
    Left = 7
    Top = 8
    Width = 90
    Height = 25
    Caption = 'HorzScroll('
    TabOrder = 0
    OnClick = WordClick
  end
  object VertScrollButton: TButton
    Left = 7
    Top = 33
    Width = 90
    Height = 25
    Caption = 'VertScroll('
    TabOrder = 1
    OnClick = WordClick
  end
  object LineBeginningButton: TButton
    Left = 7
    Top = 58
    Width = 90
    Height = 25
    Caption = '['
    TabOrder = 2
    OnClick = WordClick
  end
  object DeleteButton: TButton
    Left = 381
    Top = 57
    Width = 97
    Height = 25
    Caption = 'Delete Line'
    TabOrder = 14
    OnClick = DeleteLineClick
  end
  object AddButton: TButton
    Left = 381
    Top = 33
    Width = 97
    Height = 25
    Caption = 'Add Line'
    TabOrder = 13
    OnClick = AddLineClick
  end
  object AnimationDelayButton: TButton
    Left = 97
    Top = 33
    Width = 90
    Height = 25
    Caption = 'AnimationDelay('
    TabOrder = 4
    OnClick = WordClick
  end
  object InstructionEndingButton: TButton
    Left = 97
    Top = 58
    Width = 90
    Height = 25
    Caption = '); '
    TabOrder = 5
    OnClick = WordClick
  end
  object ResetDisplayButton: TButton
    Left = 187
    Top = 8
    Width = 90
    Height = 25
    Caption = 'ResetDisplay('
    TabOrder = 6
    OnClick = WordClick
  end
  object PanelOnButton: TButton
    Left = 277
    Top = 8
    Width = 90
    Height = 25
    Caption = 'Not yet used'
    Enabled = False
    TabOrder = 9
    OnClick = WordClick
  end
  object PanelOffButton: TButton
    Left = 277
    Top = 33
    Width = 90
    Height = 25
    Caption = 'Not yet used'
    Enabled = False
    TabOrder = 10
    OnClick = WordClick
  end
  object GotoLineButton: TButton
    Left = 187
    Top = 33
    Width = 90
    Height = 25
    Caption = 'GotoLine('
    TabOrder = 7
    OnClick = WordClick
  end
  object LineEndingButton: TButton
    Left = 187
    Top = 58
    Width = 90
    Height = 25
    Caption = ']'
    TabOrder = 8
    OnClick = WordClick
  end
  object BlankButton: TButton
    Left = 277
    Top = 58
    Width = 90
    Height = 25
    Caption = 'Not yet used'
    Enabled = False
    TabOrder = 11
    OnClick = WordClick
  end
  object SetIntensityButton: TButton
    Left = 97
    Top = 8
    Width = 90
    Height = 25
    Caption = 'SetIntensity('
    TabOrder = 3
    OnClick = WordClick
  end
  object SynthaxPanel: TPanel
    Left = 6
    Top = 322
    Width = 465
    Height = 25
    BevelOuter = bvNone
    Color = clGray
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clActiveCaption
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 16
    object SynthaxLabel2: TLabel
      Left = 118
      Top = 5
      Width = 325
      Height = 15
      Alignment = taCenter
      Caption = ' Ops_1(Param_1)  Ops_2(Param_2)  ...   Ops_x(Param_x)   '
      Color = clMenu
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsItalic]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object SynthaxLabel1: TLabel
      Left = 114
      Top = 3
      Width = 331
      Height = 19
      Alignment = taCenter
      Caption = 
        '[                   ;                   ;  ;                   ;' +
        ']'
      Color = clHighlight
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clLime
      Font.Height = -17
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object SynthaxLabel3: TLabel
      Left = 13
      Top = 5
      Width = 98
      Height = 16
      Caption = 'Code synthax:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object InsertButton: TButton
    Left = 381
    Top = 8
    Width = 97
    Height = 25
    Caption = 'Insert Line'
    TabOrder = 12
    OnClick = InsertLineClick
  end
  object CodeStringGrid: TStringGrid
    Left = 9
    Top = 100
    Width = 465
    Height = 211
    ColCount = 2
    Ctl3D = False
    DefaultRowHeight = 20
    FixedColor = clBtnShadow
    RowCount = 1
    FixedRows = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goRowMoving, goEditing, goThumbTracking]
    ParentCtl3D = False
    ParentFont = False
    PopupMenu = CodeCellPUM
    ScrollBars = ssVertical
    TabOrder = 18
    OnDblClick = CodeStringGridDblClick
    OnDrawCell = CodeStringGridDrawCell
    OnSelectCell = CodeStringGridSelectCell
    RowHeights = (
      20)
  end
  object CodeCellPUM: TPopupMenu
    Left = 440
    Top = 112
    object EditMenu: TMenuItem
      Caption = 'Edit Line'
      ShortCut = 113
      OnClick = EditMenuClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object InsertMenu: TMenuItem
      Caption = 'Insert Line'
      ShortCut = 45
      OnClick = InsertLineClick
    end
    object AddMenu: TMenuItem
      Caption = 'Add Line'
      ShortCut = 8237
      OnClick = AddLineClick
    end
    object DeleteMenu: TMenuItem
      Caption = 'Delete Line'
      ShortCut = 8238
      OnClick = DeleteLineClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object DeleteAllMenu: TMenuItem
      Caption = 'Delete All'
      ShortCut = 16430
      OnClick = DeleteAllClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object SyntaxAnalysisMenu: TMenuItem
      Caption = 'Syntax Analysis'
      ShortCut = 16467
      OnClick = SyntaxAnalysisMenuClick
    end
  end
end