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