inherited frmASCIITable: TfrmASCIITable Left = 1103 Top = 232 Width = 144 Height = 259 BorderStyle = bsSizeToolWin Caption = 'ASCII Table' Color = clBtnFace Constraints.MaxWidth = 144 Constraints.MinHeight = 108 Constraints.MinWidth = 144 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop KeyPreview = True OldCreateOrder = False Position = poDefault OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object lvAscii: TListView Left = 0 Top = 0 Width = 136 Height = 191 Align = alClient Columns = < item Caption = 'Char' MaxWidth = 40 MinWidth = 40 Width = 40 end item Caption = 'Dec' MaxWidth = 35 MinWidth = 35 Width = 35 end item Caption = 'Hex' MaxWidth = 40 MinWidth = 40 Width = 40 end> GridLines = True HideSelection = False ReadOnly = True RowSelect = True PopupMenu = PopupMenu1 TabOrder = 0 ViewStyle = vsReport OnChange = lvAsciiChange OnDblClick = lvAsciiDblClick OnKeyPress = lvAsciiKeyPress end object Panel1: TPanel Left = 0 Top = 191 Width = 136 Height = 41 Align = alBottom TabOrder = 1 object lblChar: TLabel Left = 8 Top = 6 Width = 24 Height = 32 Caption = 'M' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -27 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end end object PopupMenu1: TPopupMenu Left = 32 Top = 56 object actAlwaysOnTop1: TMenuItem Action = actAlwaysOnTop end object actCopyCurrentCharToActiveEdit1: TMenuItem Action = actCopyCurrentCharToActiveEdit end end object ActionList1: TActionList Left = 32 Top = 104 object actAlwaysOnTop: TAction Caption = 'Always on top' OnExecute = actAlwaysOnTopExecute end object actCopyCurrentCharToActiveEdit: TAction Caption = 'Copy current char to active edit' ShortCut = 13 OnExecute = actCopyCurrentCharToActiveEditExecute OnUpdate = actCopyCurrentCharToActiveEditUpdate end end end