lcdscreeneditor.dfm.svn-base

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

object LCDScreenLinesEditorForm: TLCDScreenLinesEditorForm
  Left = 326
  Top = 270
  ActiveControl = LinesStringGrid
  BorderIcons = []
  BorderStyle = bsToolWindow
  Caption = 'TLCDScreen Lines Editor'
  ClientHeight = 383
  ClientWidth = 446
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 13
    Top = 345
    Width = 420
    Height = 2
    Shape = bsTopLine
  end
  object OkButton: TButton
    Left = 275
    Top = 354
    Width = 75
    Height = 25
    Caption = 'OK'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 1
    ParentFont = False
    TabOrder = 0
  end
  object CancelButton: TButton
    Left = 356
    Top = 354
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    TabOrder = 1
  end
  object LinesStringGrid: TStringGrid
    Left = 5
    Top = 6
    Width = 436
    Height = 249
    Color = clGreen
    ColCount = 25
    Ctl3D = False
    DefaultColWidth = 18
    DefaultRowHeight = 20
    FixedColor = clBtnShadow
    RowCount = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -15
    Font.Name = 'MS Serif'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect, goThumbTracking]
    ParentCtl3D = False
    ParentFont = False
    PopupMenu = LinesCellPUM
    TabOrder = 2
    OnClick = LinesStringGridClick
    OnDblClick = EditButtonClick
    OnDrawCell = LinesStringGridDrawCell
    OnKeyDown = LinesStringGridKeyDown
    OnMouseUp = LinesStringGridMouseUp
    ColWidths = (
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18
      18)
  end
  object LineGridPanel: TPanel
    Left = 6
    Top = 259
    Width = 433
    Height = 35
    BevelOuter = bvLowered
    TabOrder = 3
    object InsertButton: TButton
      Left = 105
      Top = 5
      Width = 75
      Height = 25
      Caption = 'Insert Line'
      TabOrder = 0
      OnClick = InsertButtonClick
    end
    object AddButton: TButton
      Left = 180
      Top = 5
      Width = 75
      Height = 25
      Caption = 'Add Line'
      TabOrder = 1
      OnClick = AddButtonClick
    end
    object DeleteButton: TButton
      Left = 351
      Top = 5
      Width = 75
      Height = 25
      Caption = 'Delete Line'
      TabOrder = 2
      OnClick = DeleteButtonClick
    end
    object ClearButton: TButton
      Left = 276
      Top = 5
      Width = 75
      Height = 25
      Caption = 'Clear Line'
      TabOrder = 3
      OnClick = ClearButtonClick
    end
    object EditButton: TButton
      Left = 6
      Top = 5
      Width = 80
      Height = 25
      Caption = 'Edit Line ...'
      TabOrder = 4
      OnClick = EditButtonClick
    end
  end
  object EditLinePanel: TPanel
    Left = 6
    Top = 259
    Width = 433
    Height = 67
    BevelOuter = bvLowered
    TabOrder = 4
    Visible = False
    object Bevel2: TBevel
      Left = 324
      Top = 8
      Width = 2
      Height = 50
      Shape = bsRightLine
    end
    object BlinkingButton: TButton
      Left = 121
      Top = 5
      Width = 85
      Height = 25
      Caption = 'Blinking'
      TabOrder = 0
      OnClick = BlinkingButtonClick
    end
    object InverseButton: TButton
      Left = 224
      Top = 5
      Width = 85
      Height = 25
      Caption = 'Inverse'
      TabOrder = 1
      OnClick = InverseButtonClick
    end
    object RemoveSpButton: TButton
      Left = 14
      Top = 22
      Width = 85
      Height = 25
      Caption = 'Del Sp. Effects'
      TabOrder = 2
      OnClick = RemoveSpButtonClick
    end
    object CancelEditButton: TButton
      Left = 339
      Top = 37
      Width = 85
      Height = 25
      Caption = 'Cancel Edit'
      TabOrder = 3
      OnClick = CancelEditButtonClick
    end
    object OKEditButton: TButton
      Left = 339
      Top = 5
      Width = 85
      Height = 25
      Caption = 'Validate  Edit'
      TabOrder = 4
      OnClick = OKEditButtonClick
    end
    object UnderlineButton: TButton
      Left = 121
      Top = 37
      Width = 85
      Height = 25
      Caption = 'Underline'
      TabOrder = 5
      OnClick = UnderlineButtonClick
    end
    object StrikeButton: TButton
      Left = 224
      Top = 37
      Width = 85
      Height = 25
      Caption = 'Strike'
      TabOrder = 6
      OnClick = StrikeButtonClick
    end
  end
  object LineEdit: TEdit
    Left = 25
    Top = 32
    Width = 415
    Height = 20
    AutoSize = False
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 5
    Visible = False
    OnExit = LineEditExit
    OnKeyDown = LineEditKeyDown
    OnMouseMove = LineEditMouseMove
    OnMouseUp = LineEditMouseUp
  end
  object LinesCellPUM: TPopupMenu
    Left = 16
    Top = 56
    object EditMenu: TMenuItem
      Caption = 'Edit Line'
      ShortCut = 113
      OnClick = EditButtonClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object InsertMenu: TMenuItem
      Caption = 'Insert Line'
      ShortCut = 45
      OnClick = InsertButtonClick
    end
    object AddMenu: TMenuItem
      Caption = 'Add Line'
      ShortCut = 8237
      OnClick = AddButtonClick
    end
    object DeleteMenu: TMenuItem
      Caption = 'Delete Line'
      ShortCut = 8238
      OnClick = DeleteButtonClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object ClearMenu: TMenuItem
      Caption = 'Clear Line'
      ShortCut = 16430
      OnClick = ClearButtonClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object BlinkingMenu: TMenuItem
      Caption = 'Blinking'
      Checked = True
      ShortCut = 16450
      OnClick = BlinkingMenuClick
    end
  end
  object Timer: TTimer
    Interval = 750
    OnTimer = TimerTimer
    Left = 16
    Top = 88
  end
end