1inherited RegistersDlg: TRegistersDlg 2 Left = 342 3 Height = 253 4 Top = 117 5 Width = 346 6 ActiveControl = lvRegisters 7 BorderStyle = bsSizeToolWin 8 Caption = 'Registers' 9 ClientHeight = 253 10 ClientWidth = 346 11 object lvRegisters: TListView[0] 12 Left = 0 13 Height = 227 14 Top = 26 15 Width = 346 16 Align = alClient 17 Columns = < 18 item 19 Caption = 'Name' 20 Width = 150 21 end 22 item 23 Caption = 'Value' 24 end> 25 MultiSelect = True 26 PopupMenu = PopupMenu1 27 RowSelect = True 28 SmallImages = ImageList1 29 SortType = stText 30 TabOrder = 0 31 ViewStyle = vsReport 32 OnSelectItem = lvRegistersSelectItem 33 end 34 object ToolBar1: TToolBar[1] 35 Left = 0 36 Height = 26 37 Top = 0 38 Width = 346 39 Caption = 'ToolBar1' 40 ShowCaptions = True 41 TabOrder = 1 42 object ToolButtonPower: TToolButton 43 Left = 1 44 Top = 2 45 Action = actPower 46 Down = True 47 ParentShowHint = False 48 ShowCaption = False 49 ShowHint = True 50 Style = tbsCheck 51 end 52 object ToolButton1: TToolButton 53 Left = 24 54 Top = 2 55 Width = 10 56 Caption = 'ToolButton1' 57 Style = tbsSeparator 58 end 59 object ToolButtonDispType: TToolButton 60 Left = 34 61 Top = 2 62 Caption = '...' 63 DropdownMenu = PopupDispType 64 OnClick = ToolButtonDispTypeClick 65 ParentShowHint = False 66 ShowHint = True 67 Style = tbsDropDown 68 end 69 end 70 object ImageList1: TImageList[2] 71 Height = 8 72 Width = 8 73 left = 112 74 top = 93 75 Bitmap = { 76 4C69010000000800000008000000000000000000000000000000000000000000 77 000000000000000000000000000000000000000000005CDD8AFF33D56FFF65DE 78 8FFF000000000000000000000000000000004FD374FF15C649FF17C64BFF14C6 79 49FF4FCD72FF00000000000000000000000019B73CFF0CB330FF0CB331FF0CB3 80 30FF15B038FF0000000000000000000000004EBC5DFF03A01AFF04A11CFF03A0 81 19FF50B95FFF000000000000000000000000000000004BB257FF169D27FF56B5 82 5FFF000000000000000000000000000000000000000000000000000000000000 83 0000000000000000000000000000000000000000000000000000000000000000 84 0000000000000000000000000000 85 } 86 end 87 object ActionList1: TActionList[3] 88 left = 200 89 top = 112 90 object actPower: TAction 91 OnExecute = actPowerExecute 92 end 93 object actCopyName: TAction 94 Category = 'copy' 95 Caption = 'actCopyName' 96 OnExecute = actCopyNameExecute 97 end 98 object actCopyValue: TAction 99 Category = 'copy' 100 Caption = 'actCopyValue' 101 OnExecute = actCopyValueExecute 102 end 103 end 104 object PopupDispType: TPopupMenu[4] 105 left = 200 106 top = 176 107 object DispDefault: TMenuItem 108 Caption = 'New Item1' 109 OnClick = DispDefaultClick 110 end 111 object DispHex: TMenuItem 112 Caption = 'New Item2' 113 OnClick = DispDefaultClick 114 end 115 object DispBin: TMenuItem 116 Caption = 'New Item3' 117 OnClick = DispDefaultClick 118 end 119 object DispOct: TMenuItem 120 Caption = 'New Item4' 121 OnClick = DispDefaultClick 122 end 123 object DispDec: TMenuItem 124 Caption = 'New Item5' 125 OnClick = DispDefaultClick 126 end 127 object DispRaw: TMenuItem 128 Caption = 'New Item6' 129 OnClick = DispDefaultClick 130 end 131 end 132 object PopupMenu1: TPopupMenu[5] 133 left = 95 134 top = 178 135 object popFormat: TMenuItem 136 Caption = 'New Item1' 137 object PopDispDefault: TMenuItem 138 Caption = 'New Item1' 139 OnClick = DispDefaultClick 140 end 141 object PopDispHex: TMenuItem 142 Caption = 'New Item2' 143 OnClick = DispDefaultClick 144 end 145 object PopDispBin: TMenuItem 146 Caption = 'New Item3' 147 OnClick = DispDefaultClick 148 end 149 object PopDispOct: TMenuItem 150 Caption = 'New Item4' 151 OnClick = DispDefaultClick 152 end 153 object PopDispDec: TMenuItem 154 Caption = 'New Item5' 155 OnClick = DispDefaultClick 156 end 157 object PopDispRaw: TMenuItem 158 Caption = 'New Item6' 159 OnClick = DispDefaultClick 160 end 161 end 162 object popL1: TMenuItem 163 Caption = '-' 164 end 165 object popCopyName: TMenuItem 166 Action = actCopyName 167 end 168 object popCopyValue: TMenuItem 169 Action = actCopyValue 170 end 171 end 172end 173