1object AssemblerDlg: TAssemblerDlg 2 Left = 268 3 Height = 232 4 Top = 122 5 Width = 689 6 BorderStyle = bsSizeToolWin 7 Caption = 'Assembler' 8 ClientHeight = 232 9 ClientWidth = 689 10 KeyPreview = True 11 OnKeyDown = FormKeyDown 12 OnResize = FormResize 13 LCLVersion = '1.9.0.0' 14 object pbAsm: TPaintBox 15 AnchorSideLeft.Control = Owner 16 AnchorSideTop.Control = ToolBar1 17 AnchorSideTop.Side = asrBottom 18 AnchorSideRight.Control = sbVertical 19 AnchorSideBottom.Control = sbHorizontal 20 Left = 0 21 Height = 191 22 Top = 26 23 Width = 674 24 Anchors = [akTop, akLeft, akRight, akBottom] 25 PopupMenu = PopupMenu1 26 OnClick = pbAsmClick 27 OnMouseDown = pbAsmMouseDown 28 OnMouseMove = pbAsmMouseMove 29 OnMouseUp = pbAsmMouseUp 30 OnMouseWheel = pbAsmMouseWheel 31 OnPaint = pbAsmPaint 32 end 33 object sbHorizontal: TScrollBar 34 AnchorSideLeft.Control = Owner 35 AnchorSideRight.Control = sbVertical 36 AnchorSideBottom.Control = Owner 37 AnchorSideBottom.Side = asrBottom 38 Left = 0 39 Height = 15 40 Top = 217 41 Width = 674 42 Anchors = [akLeft, akRight, akBottom] 43 Max = 1000 44 PageSize = 200 45 TabOrder = 0 46 OnChange = sbHorizontalChange 47 end 48 object sbVertical: TScrollBar 49 AnchorSideTop.Control = ToolBar1 50 AnchorSideTop.Side = asrBottom 51 AnchorSideRight.Control = Owner 52 AnchorSideRight.Side = asrBottom 53 AnchorSideBottom.Control = sbHorizontal 54 Left = 674 55 Height = 191 56 Top = 26 57 Width = 15 58 Anchors = [akTop, akRight, akBottom] 59 Kind = sbVertical 60 LargeChange = 10 61 Max = 1000 62 PageSize = 50 63 Position = 475 64 TabOrder = 1 65 OnChange = sbVerticalChange 66 OnScroll = sbVerticalScroll 67 end 68 object ToolBar1: TToolBar 69 Left = 0 70 Height = 26 71 Top = 0 72 Width = 689 73 Caption = 'ToolBar1' 74 ParentShowHint = False 75 ShowHint = True 76 TabOrder = 2 77 object ToolButtonPower: TToolButton 78 Left = 1 79 Top = 2 80 AllowAllUp = True 81 Caption = 'ToolButtonPower' 82 Down = True 83 OnClick = ToolButtonPowerClick 84 Style = tbsCheck 85 end 86 object ToolButton2: TToolButton 87 Left = 24 88 Height = 22 89 Top = 2 90 Caption = 'ToolButton2' 91 Style = tbsSeparator 92 end 93 object ToolButtonStepOverInstr: TToolButton 94 Left = 55 95 Top = 2 96 Action = actStepOverInstr 97 end 98 object ToolButtonStepIntoInstr: TToolButton 99 Left = 32 100 Top = 2 101 Action = actStepIntoInstr 102 end 103 object ToolButton4: TToolButton 104 Left = 78 105 Height = 22 106 Top = 2 107 Caption = 'ToolButton4' 108 Style = tbsSeparator 109 end 110 object ToolButtonGotoCurrent: TToolButton 111 Left = 86 112 Top = 2 113 Action = actCurrentInstr 114 end 115 object pnlToolAddr: TPanel 116 Left = 109 117 Height = 29 118 Top = 2 119 Width = 80 120 AutoSize = True 121 BevelOuter = bvNone 122 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 123 ChildSizing.EnlargeVertical = crsHomogenousSpaceResize 124 ChildSizing.ShrinkHorizontal = crsHomogenousChildResize 125 ChildSizing.Layout = cclLeftToRightThenTopToBottom 126 ChildSizing.ControlsPerLine = 1 127 ClientHeight = 29 128 ClientWidth = 80 129 TabOrder = 0 130 object EditGotoAddr: TEdit 131 Left = 0 132 Height = 29 133 Top = 0 134 Width = 80 135 OnChange = EditGotoAddrChange 136 OnKeyPress = EditGotoAddrKeyPress 137 TabOrder = 0 138 end 139 end 140 object ToolButtonGoto: TToolButton 141 Left = 189 142 Top = 2 143 Action = actGotoAddr 144 end 145 object ToolButton1: TToolButton 146 Left = 212 147 Height = 22 148 Top = 2 149 Caption = 'ToolButton1' 150 Style = tbsDivider 151 end 152 object ToolButtonCopy: TToolButton 153 Left = 217 154 Top = 2 155 Action = actCopy 156 end 157 end 158 object PopupMenu1: TPopupMenu 159 Left = 493 160 Top = 43 161 object CopyToClipboard: TMenuItem 162 Action = actCopy 163 OnClick = CopyToClipboardClick 164 end 165 end 166 object ActionList1: TActionList 167 Left = 104 168 Top = 32 169 object actStepOverInstr: TAction 170 Caption = 'actStepOverInstr' 171 OnExecute = actStepOverInstrExecute 172 end 173 object actStepIntoInstr: TAction 174 Caption = 'actStepIntoInstr' 175 OnExecute = actStepIntoInstrExecute 176 end 177 object actCurrentInstr: TAction 178 Caption = 'actCurrentInstr' 179 OnExecute = actCurrentInstrExecute 180 end 181 object actGotoAddr: TAction 182 Caption = 'actGotoAddr' 183 OnExecute = actGotoAddrExecute 184 end 185 object actCopy: TAction 186 Caption = 'actCopy' 187 OnExecute = CopyToClipboardClick 188 end 189 end 190 object ImageList1: TImageList 191 Left = 24 192 Top = 32 193 end 194 object Timer1: TTimer 195 Interval = 50 196 OnTimer = Timer1Timer 197 Left = 96 198 Top = 113 199 end 200end 201