jvsegmentedleddisplaymapperframe.dfm

East make Tray Icon in delphi

object fmeJvSegmentedLEDDisplayMapper: TfmeJvSegmentedLEDDisplayMapper
  Left = 0
  Top = 0
  Width = 105
  Height = 135
  Color = clBlack
  ParentColor = False
  PopupMenu = pmDigit
  TabOrder = 0
  object sldEdit: TJvSegmentedLEDDisplay
    Left = 5
    Top = 5
    Width = 95
    Height = 125
    AutoSize = False
    DigitClassName = 'TJv7SegmentedLEDDigit'
    DigitHeight = 90
    Digits = <>
    DigitWidth = 60
    DotSize = 12
    PopupMenu = pmDigit
    SegmentLitColor = clRed
    SegmentSpacing = 4
    SegmentThickness = 8
    SegmentUnlitColor = clMaroon
    Slant = 10
    OnClick = sldEditClick
    OnMouseDown = sldEditMouseDown
  end
  object pmDigit: TPopupMenu
    Left = 5
    Top = 55
    object miSetStates: TMenuItem
      Action = aiEditSetAll
    end
    object miClearStates: TMenuItem
      Action = aiEditClear
    end
    object miInvertStates: TMenuItem
      Action = aiEditInvert
    end
  end
  object mnuCharMapEdit: TMainMenu
    Left = 5
    Top = 10
    object File1: TMenuItem
      Caption = '&File'
      object Open1: TMenuItem
        Action = aiFileOpen
      end
      object Save1: TMenuItem
        Action = aiFileSave
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Default1: TMenuItem
        Action = aiFileLoadDefault
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Close1: TMenuItem
        Action = aiFileClose
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      object Copy1: TMenuItem
        Action = aiEditCopy
      end
      object Paste1: TMenuItem
        Action = aiEditPaste
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Selectchar1: TMenuItem
        Action = aiEditSelectChar
      end
      object Apply1: TMenuItem
        Action = aiEditApply
      end
      object Revert1: TMenuItem
        Action = aiEditRevert
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Setallsegments1: TMenuItem
        Action = aiEditSetAll
      end
      object Emptysegments1: TMenuItem
        Action = aiEditClear
      end
      object Invertsegments1: TMenuItem
        Action = aiEditInvert
      end
    end
  end
  object alCharMapEditor: TActionList
    OnUpdate = alCharMapEditorUpdate
    Left = 5
    Top = 100
    object aiFileOpen: TAction
      Caption = '&Open...'
      ShortCut = 16463
      OnExecute = aiFileOpenExecute
    end
    object aiFileSave: TAction
      Caption = '&Save...'
      ShortCut = 16467
      OnExecute = aiFileSaveExecute
    end
    object aiFileLoadDefault: TAction
      Caption = '&Default'
      OnExecute = aiFileLoadDefaultExecute
    end
    object aiFileClose: TAction
      Caption = '&Close'
      ShortCut = 32883
      OnExecute = aiFileCloseExecute
    end
    object aiEditCopy: TAction
      Caption = '&Copy'
      ShortCut = 16451
      OnExecute = aiEditCopyExecute
    end
    object aiEditPaste: TAction
      Caption = '&Paste'
      ShortCut = 16470
      OnExecute = aiEditPasteExecute
    end
    object aiEditClear: TAction
      Caption = '&Empty segments'
      OnExecute = aiEditClearExecute
    end
    object aiEditSetAll: TAction
      Caption = '&Set all segments'
      OnExecute = aiEditSetAllExecute
    end
    object aiEditInvert: TAction
      Caption = '&Invert segments'
      OnExecute = aiEditInvertExecute
    end
    object aiEditSelectChar: TAction
      Caption = 'Select c&har...'
      OnExecute = aiEditSelectCharExecute
    end
    object aiEditRevert: TAction
      Caption = '&Revert'
      OnExecute = aiEditRevertExecute
    end
    object aiEditApply: TAction
      Caption = '&Apply'
      OnExecute = aiEditApplyExecute
    end
  end
end