160 lines
3.7 KiB
Plaintext
160 lines
3.7 KiB
Plaintext
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
|