more icons

This commit is contained in:
Marco 2019-06-05 12:36:47 +02:00
parent 5849d4cbf3
commit c595ea7f91
10 changed files with 7882 additions and 7479 deletions

File diff suppressed because it is too large Load diff

View file

@ -40,7 +40,7 @@ type
ESPlabel: TLabel;
FSlabel: TLabel;
GSlabel: TLabel;
mwImageList: TImageList;
mvImageList: TImageList;
MenuItem1: TMenuItem;
MenuItem10: TMenuItem;
MenuItem11: TMenuItem;

View file

@ -113,7 +113,7 @@ function createMenu(diagram)
local mv=getMemoryViewForm()
local mm=createMainMenu(diagram.form)
local FileMenu=createMenuItem(mm)
mm.Images = mv.mwImageList --icons from the memoryviewer's form
mm.Images = mv.mvImageList --icons from the memoryviewer's form
FileMenu.Caption=translate('File')
FileMenu.Name='miFile'
@ -266,7 +266,7 @@ end
function createDiagramPopupMenu(diagram)
local mv=getMemoryViewForm()
local pm=createPopupMenu(diagram.diagram)
pm.Images = mv.mwImageList --icons from the memoryviewer's form
pm.Images = mv.mvImageList --icons from the memoryviewer's form
diagram.diagram.PopupMenu=pm
diagram.diagram.OnContextPopup=DiagramContextPopup

View file

@ -1,31 +1,32 @@
object FormFoundCodeListExtra: TFormFoundCodeListExtra
Left = 478
Height = 295
Top = 586
Width = 435
Left = 507
Height = 369
Top = 312
Width = 544
AutoSize = True
Caption = 'Extra info'
ClientHeight = 295
ClientWidth = 435
ClientHeight = 369
ClientWidth = 544
DesignTimePPI = 120
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PopupMenu = pmCopy
Position = poScreenCenter
LCLVersion = '1.6.4.0'
LCLVersion = '2.0.0.4'
object Panel1: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = pnlEPTWatch
AnchorSideTop.Side = asrBottom
Left = 0
Height = 107
Top = 54
Width = 82
Height = 132
Top = 69
Width = 98
AutoSize = True
BevelOuter = bvNone
ClientHeight = 107
ClientWidth = 82
ClientHeight = 132
ClientWidth = 98
Font.CharSet = ANSI_CHARSET
Font.Name = 'Courier New'
ParentFont = False
@ -35,25 +36,31 @@ object FormFoundCodeListExtra: TFormFoundCodeListExtra
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrCenter
Left = 0
Height = 18
Top = 47
Width = 20
Height = 22
Top = 58
Width = 24
Caption = '>>'
Font.CharSet = ANSI_CHARSET
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
end
object Label3: TLabel
AnchorSideLeft.Control = Label10
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
Left = 22
Height = 18
Top = 47
Width = 60
Left = 26
Height = 22
Top = 58
Width = 72
BorderSpacing.Left = 2
BorderSpacing.Top = 3
BorderSpacing.Top = 4
Caption = 'Label3'
Font.CharSet = ANSI_CHARSET
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
OnDblClick = Label1DblClick
end
object Label4: TLabel
@ -61,14 +68,17 @@ object FormFoundCodeListExtra: TFormFoundCodeListExtra
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom
Left = 22
Height = 18
Top = 68
Width = 60
Left = 26
Height = 22
Top = 84
Width = 72
BorderSpacing.Left = 2
BorderSpacing.Top = 3
BorderSpacing.Top = 4
Caption = 'Label4'
Font.CharSet = ANSI_CHARSET
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
OnDblClick = Label1DblClick
end
object Label5: TLabel
@ -76,14 +86,17 @@ object FormFoundCodeListExtra: TFormFoundCodeListExtra
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label4
AnchorSideTop.Side = asrBottom
Left = 22
Height = 18
Top = 89
Width = 60
Left = 26
Height = 22
Top = 110
Width = 72
BorderSpacing.Left = 2
BorderSpacing.Top = 3
BorderSpacing.Top = 4
Caption = 'Label5'
Font.CharSet = ANSI_CHARSET
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
OnDblClick = Label1DblClick
end
object Label2: TLabel
@ -91,28 +104,34 @@ object FormFoundCodeListExtra: TFormFoundCodeListExtra
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 22
Height = 18
Top = 26
Width = 60
Left = 26
Height = 22
Top = 32
Width = 72
BorderSpacing.Left = 2
BorderSpacing.Top = 3
BorderSpacing.Top = 4
Caption = 'Label2'
Font.CharSet = ANSI_CHARSET
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
OnDblClick = Label1DblClick
end
object Label1: TLabel
AnchorSideLeft.Control = Label10
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 22
Height = 18
Top = 5
Width = 60
Left = 26
Height = 22
Top = 6
Width = 72
BorderSpacing.Left = 2
BorderSpacing.Top = 5
BorderSpacing.Top = 6
Caption = 'Label1'
Font.CharSet = ANSI_CHARSET
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
OnDblClick = Label1DblClick
end
end
@ -121,40 +140,43 @@ object FormFoundCodeListExtra: TFormFoundCodeListExtra
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
Left = 0
Height = 34
Top = 161
Width = 62
Height = 44
Top = 201
Width = 77
AutoSize = True
BevelOuter = bvNone
ClientHeight = 34
ClientWidth = 62
ClientHeight = 44
ClientWidth = 77
ParentFont = False
TabOrder = 1
object Panel4: TPanel
AnchorSideLeft.Control = Panel3
AnchorSideTop.Control = Panel3
Left = 12
Height = 33
Left = 15
Height = 43
Top = 1
Width = 38
Width = 47
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Left = 15
BorderSpacing.Top = 1
BorderSpacing.Right = 12
BorderSpacing.Right = 15
BevelOuter = bvNone
ClientHeight = 33
ClientWidth = 38
ClientHeight = 43
ClientWidth = 47
ParentFont = False
TabOrder = 0
object Label6: TLabel
AnchorSideLeft.Control = Panel4
AnchorSideTop.Control = Panel4
Left = 1
Height = 15
Height = 20
Top = 1
Width = 33
Width = 45
BorderSpacing.Left = 1
BorderSpacing.Top = 1
Caption = 'xxx123'
ParentColor = False
ParentFont = False
WordWrap = True
end
object Label17: TLabel
@ -162,14 +184,15 @@ object FormFoundCodeListExtra: TFormFoundCodeListExtra
AnchorSideTop.Control = Label6
AnchorSideTop.Side = asrBottom
Left = 2
Height = 15
Top = 17
Width = 36
Height = 20
Top = 22
Width = 45
BorderSpacing.Left = 1
BorderSpacing.Top = 1
BorderSpacing.Bottom = 1
Caption = 'yyy123'
ParentColor = False
ParentFont = False
PopupMenu = pmCopy2
WordWrap = True
end
@ -179,33 +202,35 @@ object FormFoundCodeListExtra: TFormFoundCodeListExtra
AnchorSideTop.Control = Label18
AnchorSideTop.Side = asrBottom
Left = 0
Height = 36
Top = 283
Width = 435
Height = 44
Top = 357
Width = 544
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BevelOuter = bvNone
ClientHeight = 36
ClientWidth = 435
ClientHeight = 44
ClientWidth = 544
ParentFont = False
TabOrder = 2
object Button1: TButton
AnchorSideLeft.Control = Panel5
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Panel5
Left = 172
Height = 32
Left = 216
Height = 40
Top = 2
Width = 90
Width = 112
AutoSize = True
BorderSpacing.Top = 2
BorderSpacing.Bottom = 2
Cancel = True
Caption = 'OK'
Constraints.MinHeight = 32
Constraints.MinWidth = 90
Constraints.MinHeight = 40
Constraints.MinWidth = 112
Default = True
ModalResult = 1
OnClick = Button1Click
ParentFont = False
TabOrder = 0
end
end
@ -215,135 +240,154 @@ object FormFoundCodeListExtra: TFormFoundCodeListExtra
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 4
Height = 60
Top = 200
Width = 431
Left = 5
Height = 76
Top = 251
Width = 539
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 5
BorderSpacing.Left = 5
BorderSpacing.Top = 6
BevelOuter = bvNone
ClientHeight = 60
ClientWidth = 431
ClientHeight = 76
ClientWidth = 539
ParentFont = False
TabOrder = 3
OnResize = Panel6Resize
object pnlRegisters: TPanel
AnchorSideLeft.Control = Panel6
AnchorSideRight.Control = Panel8
Left = 0
Height = 60
Height = 72
Top = 0
Width = 406
Width = 508
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Right = 4
BorderSpacing.Right = 5
BevelOuter = bvNone
ChildSizing.HorizontalSpacing = 20
ChildSizing.VerticalSpacing = 3
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ChildSizing.ControlsPerLine = 3
ClientHeight = 60
ClientWidth = 406
ClientHeight = 72
ClientWidth = 508
Font.Name = 'Courier New'
ParentFont = False
TabOrder = 0
object lblRAX: TLabel
Left = 0
Height = 18
Height = 22
Top = 0
Width = 122
Width = 156
Caption = 'EAX=DDDDDDDD'
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
PopupMenu = pmEmpty
OnDblClick = RegisterDblClick
OnMouseDown = RegisterMouseDown
end
object lblRBX: TLabel
Left = 0
Height = 18
Top = 21
Width = 122
Height = 22
Top = 25
Width = 156
Caption = 'EBX=DDDDDDDD'
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
PopupMenu = pmEmpty
OnDblClick = RegisterDblClick
OnMouseDown = RegisterMouseDown
end
object lblRCX: TLabel
Left = 0
Height = 18
Top = 42
Width = 122
Height = 22
Top = 50
Width = 156
Caption = 'ECX=DDDDDDDD'
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
PopupMenu = pmEmpty
OnDblClick = RegisterDblClick
OnMouseDown = RegisterMouseDown
end
object lblRDX: TLabel
Left = 142
Height = 18
Left = 176
Height = 22
Top = 0
Width = 122
Width = 156
Caption = 'EDX=DDDDDDDD'
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
PopupMenu = pmEmpty
OnDblClick = RegisterDblClick
OnMouseDown = RegisterMouseDown
end
object lblRSI: TLabel
Left = 142
Height = 18
Top = 21
Width = 122
Left = 176
Height = 22
Top = 25
Width = 156
Caption = 'ESI=DDDDDDDD'
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
PopupMenu = pmEmpty
OnDblClick = RegisterDblClick
OnMouseDown = RegisterMouseDown
end
object lblRDI: TLabel
Left = 142
Height = 18
Top = 42
Width = 122
Left = 176
Height = 22
Top = 50
Width = 156
Caption = 'EDI=DDDDDDDD'
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
PopupMenu = pmEmpty
OnDblClick = RegisterDblClick
OnMouseDown = RegisterMouseDown
end
object lblRBP: TLabel
Left = 284
Height = 18
Left = 352
Height = 22
Top = 0
Width = 122
Width = 156
Caption = 'EBP=DDDDDDDD'
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
PopupMenu = pmEmpty
OnDblClick = RegisterDblClick
OnMouseDown = RegisterMouseDown
end
object lblRSP: TLabel
Left = 284
Height = 18
Top = 21
Width = 122
Left = 352
Height = 22
Top = 25
Width = 156
Caption = 'ESP=DDDDDDDD'
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
PopupMenu = pmEmpty
OnDblClick = RegisterDblClick
OnMouseDown = RegisterMouseDown
end
object lblRIP: TLabel
Left = 284
Height = 18
Top = 42
Width = 122
Left = 352
Height = 22
Top = 50
Width = 156
Caption = 'EIP=DDDDDDDD'
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
PopupMenu = pmEmpty
OnDblClick = RegisterDblClick
OnMouseDown = RegisterMouseDown
@ -355,15 +399,16 @@ object FormFoundCodeListExtra: TFormFoundCodeListExtra
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Panel6
AnchorSideRight.Side = asrBottom
Left = 410
Height = 60
Left = 513
Height = 76
Top = 0
Width = 21
Width = 26
Anchors = [akTop, akRight]
AutoSize = True
BevelOuter = bvNone
ClientHeight = 60
ClientWidth = 21
ClientHeight = 76
ClientWidth = 26
ParentFont = False
TabOrder = 1
object sbShowStack: TSpeedButton
AnchorSideLeft.Control = Panel8
@ -371,13 +416,14 @@ object FormFoundCodeListExtra: TFormFoundCodeListExtra
AnchorSideRight.Control = Panel8
AnchorSideRight.Side = asrBottom
Left = 0
Height = 30
Height = 38
Hint = 'Stack view'
Top = 0
Width = 21
Width = 26
Caption = 'S'
OnClick = sbShowStackClick
ShowHint = True
ParentFont = False
ParentShowHint = False
end
object sbShowFloats: TSpeedButton
@ -387,13 +433,14 @@ object FormFoundCodeListExtra: TFormFoundCodeListExtra
AnchorSideRight.Control = Panel8
AnchorSideRight.Side = asrBottom
Left = 0
Height = 30
Height = 38
Hint = 'Floating point registers'
Top = 30
Width = 21
Top = 38
Width = 26
Caption = 'F'
OnClick = sbShowFloatsClick
ShowHint = True
ParentFont = False
ParentShowHint = False
end
end
@ -402,15 +449,16 @@ object FormFoundCodeListExtra: TFormFoundCodeListExtra
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Panel6
AnchorSideTop.Side = asrBottom
Left = 4
Height = 15
Top = 268
Width = 530
Left = 5
Height = 20
Top = 337
Width = 663
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Top = 8
BorderSpacing.Left = 5
BorderSpacing.Top = 10
Caption = 'The registers shown here are AFTER the instruction has been executed'
ParentColor = False
ParentFont = False
Visible = False
WordWrap = True
end
@ -420,86 +468,135 @@ object FormFoundCodeListExtra: TFormFoundCodeListExtra
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 54
Height = 69
Top = 0
Width = 435
Width = 544
Anchors = [akTop, akLeft, akRight]
AutoSize = True
ChildSizing.HorizontalSpacing = 30
ChildSizing.VerticalSpacing = 4
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 54
ClientWidth = 435
ClientHeight = 69
ClientWidth = 544
ParentFont = False
TabOrder = 4
object lblPhysicalAddress: TLabel
Left = 0
Height = 15
Height = 20
Top = 0
Width = 152
Width = 191
Caption = 'Physical Address=XXXXXXXX'
ParentColor = False
ParentFont = False
OnMouseDown = RegisterMouseDown
end
object lblVirtualAddress: TLabel
Left = 182
Height = 15
Left = 221
Height = 20
Top = 0
Width = 143
Width = 182
Caption = 'Virtual Address=XXXXXXXX'
ParentColor = False
ParentFont = False
OnDblClick = RegisterDblClick
OnMouseDown = RegisterMouseDown
end
object lblFSBase: TLabel
Left = 0
Height = 15
Top = 19
Width = 152
Height = 20
Top = 24
Width = 191
Caption = 'FSBase=XXXXXXXX'
ParentColor = False
ParentFont = False
OnDblClick = RegisterDblClick
OnMouseDown = RegisterMouseDown
end
object lblGSBase: TLabel
Left = 182
Height = 15
Top = 19
Width = 143
Left = 221
Height = 20
Top = 24
Width = 182
Caption = 'GSBase=XXXXXXXX'
ParentColor = False
ParentFont = False
OnDblClick = RegisterDblClick
OnMouseDown = RegisterMouseDown
end
object lblCR3: TLabel
Left = 0
Height = 15
Top = 38
Width = 152
Height = 20
Top = 48
Width = 191
Caption = 'CR3=XXXXXXXX'
ParentColor = False
ParentFont = False
OnMouseDown = RegisterMouseDown
end
end
object pmCopy: TPopupMenu
left = 112
top = 112
Images = eiImageList
left = 140
top = 140
object Copyaddresstoclipboard1: TMenuItem
Caption = 'Copy info to clipboard'
ImageIndex = 0
ShortCut = 16451
OnClick = Copyaddresstoclipboard1Click
end
end
object pmCopy2: TPopupMenu
left = 190
top = 112
Images = eiImageList
left = 238
top = 140
object Copyguesstoclipboard1: TMenuItem
Caption = 'Copy easy guess to clipboard'
ImageIndex = 0
OnClick = Copyguesstoclipboard1Click
end
end
object pmEmpty: TPopupMenu
left = 280
top = 112
left = 350
top = 140
end
object eiImageList: TImageList
left = 260
top = 86
Bitmap = {
4C69010000001000000010000000606060C4808080E0808080E0808080E08080
80E0808080E0808080E0777777E098989856FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00808080E0FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF828282F6BCBCBC33FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00808080E0FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFF565656DCFFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00808080E0FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6F6F6FF0FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00808080E0F9F9F9FFE1E1E1FFE1E1E1FFB7B7
B7FF6D6D6DFF7F7F7FFF7F7F7FFF7F7F7FFF606060FC676767C8676767C85555
55B6E8E8E80FFFFFFF00FFFFFF00808080E0FFFFFFFFFCFCFCFFFCFCFCFFBDBD
BDFFC0C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFECEC
ECFF5A5A5AB7F8F8F803FFFFFF00808080E0F9F9F9FFE1E1E1FFE1E1E1FFA9A9
A9FFC0C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFD5D5D5FF7F7F7F78FFFFFF00808080E0F8F8F8FFDEDEDEFFDEDEDEFFA6A6
A6FFC0C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF77777798FFFFFF00808080E0F8F8F8FFDEDEDEFFDEDEDEFFA6A6
A6FFC0C0C0FFF6F6F6FFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFF0F0
F0FFFFFFFFFF77777798FFFFFF00808080E0FFFFFFFFFFFFFFFFFFFFFFFFC0C0
C0FFC0C0C0FFF8F8F8FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF3F3
F3FFFFFFFFFF77777798FFFFFF00808080E0FFFFFFFFFFFFFFFFFFFFFFFFC0C0
C0FFC0C0C0FFECECECFFDEDEDEFFDEDEDEFFDEDEDEFFDEDEDEFFDEDEDEFFE0E0
E0FFFFFFFFFF77777798FFFFFF005C5C5CBD777777D8777777D8777777D85959
59E2C0C0C0FFEEEEEEFFE1E1E1FFE1E1E1FFE1E1E1FFE1E1E1FFE1E1E1FFE3E3
E3FFFFFFFFFF77777798FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0C0
C040C0C0C0FFF2F2F2FFE8E8E8FFE8E8E8FFE8E8E8FFE8E8E8FFE8E8E8FFE9E9
E9FFFFFFFFFF77777798FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0C0
C040C0C0C0FFFCFCFCFFF9F9F9FFF9F9F9FFF9F9F9FFF9F9F9FFF9F9F9FFF9F9
F9FFFFFFFFFF77777798FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0C0
C040C0C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF77777798FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0C0
C03C535353F06F6F6FF06F6F6FF06F6F6FF06F6F6FF06F6F6FF06F6F6FF06F6F
6FF06F6F6FF06A6A6A8EFFFFFF00
}
end
end

View file

@ -14,6 +14,7 @@ type
{ TFormFoundCodeListExtra }
TFormFoundCodeListExtra = class(TForm)
eiImageList: TImageList;
lblGSBase: TLabel;
lblCR3: TLabel;
Label18: TLabel;

View file

@ -1,42 +1,44 @@
object frmStackView: TfrmStackView
Left = 714
Height = 211
Height = 264
Top = 479
Width = 374
Width = 468
BorderStyle = bsSizeToolWin
Caption = 'Stack View'
ClientHeight = 211
ClientWidth = 374
ClientHeight = 264
ClientWidth = 468
DesignTimePPI = 120
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
LCLVersion = '1.6.4.0'
LCLVersion = '2.0.0.4'
object lvStack: TListView
Left = 0
Height = 211
Height = 264
Top = 0
Width = 374
Width = 468
Align = alClient
AutoWidthLastColumn = True
Columns = <
item
Caption = 'Address'
MinWidth = 2
Width = 70
Width = 88
end
item
Caption = 'Value'
MinWidth = 2
Width = 90
Width = 112
end
item
Caption = 'Secondary'
Width = 210
Width = 264
end>
HideSelection = False
MultiSelect = True
ParentFont = False
PopupMenu = PopupMenu1
ReadOnly = True
RowSelect = True
@ -46,9 +48,10 @@ object frmStackView: TfrmStackView
OnDblClick = lvStackDblClick
end
object PopupMenu1: TPopupMenu
Images = svImageList
OnPopup = PopupMenu1Popup
left = 108
top = 84
left = 135
top = 105
object miAddESP: TMenuItem
AutoCheck = True
Caption = '(esp+*)'
@ -77,24 +80,28 @@ object frmStackView: TfrmStackView
end
object miCopyAddress: TMenuItem
Caption = 'Copy Address'
ImageIndex = 0
ShortCut = 24643
OnClick = miCopyAddressClick
end
object miCopyValue: TMenuItem
Tag = 1
Caption = 'Copy Value'
ImageIndex = 0
ShortCut = 16451
OnClick = miCopyAddressClick
end
object miCopySecondary: TMenuItem
Tag = 2
Caption = 'Copy Secondary'
ImageIndex = 0
ShortCut = 57411
OnClick = miCopyAddressClick
end
object MenuItem6: TMenuItem
Tag = 3
Caption = 'Copy Line'
ImageIndex = 0
ShortCut = 49219
OnClick = miCopyAddressClick
end
@ -118,6 +125,7 @@ object frmStackView: TfrmStackView
end
object miSetColor: TMenuItem
Caption = 'Set background color to address'
ImageIndex = 1
OnClick = miSetColorClick
end
object MenuItem2: TMenuItem
@ -125,20 +133,20 @@ object frmStackView: TfrmStackView
end
object MenuItem3: TMenuItem
Caption = 'Lock and add this view to a structure dissect window'
ImageIndex = 2
OnClick = MenuItem3Click
end
object miLockAndTrace: TMenuItem
Caption = 'Lock and do manual stacktrace'
ImageIndex = 2
OnClick = miLockAndTraceClick
end
end
object FindDialog1: TFindDialog
Width = 480
Height = 136
Options = [frDown, frHideMatchCase, frHideWholeWord, frHideUpDown, frHideEntireScope, frHidePromptOnReplace]
OnFind = FindDialog1Find
left = 208
top = 88
left = 260
top = 110
end
object ColorDialog1: TColorDialog
Color = clWhite
@ -164,7 +172,110 @@ object frmStackView: TfrmStackView
'ColorS=F0FBFF'
'ColorT=A4A0A0'
)
left = 104
top = 152
left = 130
top = 190
end
object svImageList: TImageList
left = 385
top = 108
Bitmap = {
4C69030000001000000010000000606060C4808080E0808080E0808080E08080
80E0808080E0808080E0777777E098989856FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00808080E0FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF828282F6BCBCBC33FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00808080E0FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFF565656DCFFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00808080E0FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6F6F6FF0FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00808080E0F9F9F9FFE1E1E1FFE1E1E1FFB7B7
B7FF6D6D6DFF7F7F7FFF7F7F7FFF7F7F7FFF606060FC676767C8676767C85555
55B6E8E8E80FFFFFFF00FFFFFF00808080E0FFFFFFFFFCFCFCFFFCFCFCFFBDBD
BDFFC0C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFECEC
ECFF5A5A5AB7F8F8F803FFFFFF00808080E0F9F9F9FFE1E1E1FFE1E1E1FFA9A9
A9FFC0C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFD5D5D5FF7F7F7F78FFFFFF00808080E0F8F8F8FFDEDEDEFFDEDEDEFFA6A6
A6FFC0C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF77777798FFFFFF00808080E0F8F8F8FFDEDEDEFFDEDEDEFFA6A6
A6FFC0C0C0FFF6F6F6FFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFF0F0
F0FFFFFFFFFF77777798FFFFFF00808080E0FFFFFFFFFFFFFFFFFFFFFFFFC0C0
C0FFC0C0C0FFF8F8F8FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF3F3
F3FFFFFFFFFF77777798FFFFFF00808080E0FFFFFFFFFFFFFFFFFFFFFFFFC0C0
C0FFC0C0C0FFECECECFFDEDEDEFFDEDEDEFFDEDEDEFFDEDEDEFFDEDEDEFFE0E0
E0FFFFFFFFFF77777798FFFFFF005C5C5CBD777777D8777777D8777777D85959
59E2C0C0C0FFEEEEEEFFE1E1E1FFE1E1E1FFE1E1E1FFE1E1E1FFE1E1E1FFE3E3
E3FFFFFFFFFF77777798FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0C0
C040C0C0C0FFF2F2F2FFE8E8E8FFE8E8E8FFE8E8E8FFE8E8E8FFE8E8E8FFE9E9
E9FFFFFFFFFF77777798FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0C0
C040C0C0C0FFFCFCFCFFF9F9F9FFF9F9F9FFF9F9F9FFF9F9F9FFF9F9F9FFF9F9
F9FFFFFFFFFF77777798FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0C0
C040C0C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF77777798FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0C0
C03C535353F06F6F6FF06F6F6FF06F6F6FF06F6F6FF06F6F6FF06F6F6FF06F6F
6FF06F6F6FF06A6A6A8EFFFFFF00FFFFFF00A0A0A060808080C0808080C08080
80C0808080C0808080C0808080C0808080C0808080C0808080C0747474BFBCBC
BC35FFFFFF00FFFFFF00FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6767
67E6D8D8D81BFFFFFF00FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6F6
F6FF5C5C5CCCF0F0F009FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFE5E5E5FF84848476FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFEAEAEAFFD7D7
D7FFD7D7D7FFD7D7D7FFD7D7D7FFD7D7D7FFD7D7D7FFD7D7D7FFD7D7D7FFF9F9
F9FFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFAFAFAFFF5F5
F5FFF5F5F5FFF5F5F5FFF5F5F5FFF5F5F5FFF5F5F5FFF5F5F5FFF5F5F5FFFEFE
FEFFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFF0F0F0FFE1E1
E1FFE1E1E1FFA6B0B2FF46B9D1FFAAD6E1FFE1E1E1FFE1E1E1FFE1E1E1FFFBFB
FBFFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFECECECFFDADA
DAFFDADADAFFD2D9DAFF14CCFAFF0EB0FFFF9ED5F3FFDADADAFFDADADAFFFAFA
FAFFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFEFEFEFFFCFC
FCFFFCFCFCFFFCFCFCFFA5E0FFFF0CABFFFF0DABFFFFA8DFFCFFFCFCFCFFFFFF
FFFFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFEAEAEAFFD7D7
D7FFD7D7D7FFD7D7D7FFD7D7D7FF87C2E2FF0CABFFFF0DABFFFF94CBE8FFF9F9
F9FFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA5E0FFFF0CABFFFF0DABFFFFBAE3
F9FFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA5E0FFFF40AFE9FFB4B5
B7FFDCD7F1FF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE5E5E3FF9485
D2FFD3CCF2FF80808080FFFFFF00FFFFFF00A0A0A060808080C0808080C08080
80C0808080C0808080C0808080C0808080C0808080C0808080C0808080C07573
7CC0808080C0A0A0A060FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00C6C6C73F7E7C7EBE616062E57D7C7EC5B8B7B84EFFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BFBF
BF4C706E71FB727073EC8E8D8FA5757376E5727073FFADADAE62FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F7057573
75E2727173EAE0DFE01EFFFFFF00E9E9E912767477DD6E6D6FF1E9E9E90FFFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CACACB3B7573
76FFA4A3A47AFFFFFF00FFFFFF00FFFFFF00B4B4B561757376FFBABABA54FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BEBEBE5B7573
76FFCCCCCC37FFFFFF00FFFFFF00FFFFFF00DCDCDC1F737174FFAAA9AA74FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BFBFC05E7573
76FFE0E0E024FFFFFF00FFFFFF00FFFFFF00DEDEDE0E706E71FFACABAC77FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BFBFC05E7573
76FFE0E0E024FFFFFF00FFFFFF00FFFFFF00DEDEDE0E706E71FFACABAC77FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF009CC4D07276A5B4AE517D
8DFF86B6C59096C6D57D96C6D57D96C6D57D85B5C4854F7B8AFF6C9AAABA94C0
CE7AFAFBFB03FFFFFF00FFFFFF00FFFFFF00FFFFFF0042A5C4E737AFD4FF37AF
D4FF37AFD4FF37AFD4FF37AFD4FF37AFD4FF37AFD4FF37AFD4FF37AFD4FF32A1
C3F9F5F6F706FFFFFF00FFFFFF00FFFFFF00FFFFFF0042A5C4E737AFD4FF37AF
D4FF37AFD4FF36ADD2FF3189A4FF35AACFFF37AFD4FF37AFD4FF37AFD4FF32A1
C3F9F5F6F706FFFFFF00FFFFFF00FFFFFF00FFFFFF0042A5C4E737AFD4FF37AF
D4FF37AFD4FF32788DFF3A3632FF326C7DFF37AFD4FF37AFD4FF37AFD4FF32A1
C3F9F5F6F706FFFFFF00FFFFFF00FFFFFF00FFFFFF0042A5C4E737AFD4FF37AF
D4FF37AFD4FF32839CFF393531FF32778CFF37AFD4FF37AFD4FF37AFD4FF32A1
C3F9F5F6F706FFFFFF00FFFFFF00FFFFFF00FFFFFF0042A5C4E737AFD4FF37AF
D4FF37AFD4FF329BBCFF393531FF328FABFF37AFD4FF37AFD4FF37AFD4FF32A1
C3F9F5F6F706FFFFFF00FFFFFF00FFFFFF00FFFFFF0042A5C4E737AFD4FF37AF
D4FF37AFD4FF3293B0FF344143FF3288A2FF37AFD4FF37AFD4FF37AFD4FF32A1
C3F9F5F6F706FFFFFF00FFFFFF00FFFFFF00FFFFFF0042A5C4E737AFD4FF37AF
D4FF37AFD4FF37AFD4FF37AFD4FF37AFD4FF37AFD4FF37AFD4FF37AFD4FF32A1
C3F9F5F6F706FFFFFF00FFFFFF00FFFFFF00FFFFFF00526A73DC4A6772F34A67
72F34A6772F34A6772F34A6772F34A6772F34A6772F34A6772F34A6772F3445F
69EDF6F6F606FFFFFF00FFFFFF00
}
end
end

View file

@ -16,6 +16,7 @@ type
TfrmStackView = class(TForm)
ColorDialog1: TColorDialog;
FindDialog1: TFindDialog;
svImageList: TImageList;
lvStack: TListView;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;

View file

@ -1,38 +1,39 @@
object frmTracer: TfrmTracer
Left = 1018
Height = 470
Height = 588
Top = 282
Width = 511
Width = 639
BorderIcons = [biSystemMenu]
Caption = 'Tracer'
ClientHeight = 450
ClientWidth = 511
ClientHeight = 563
ClientWidth = 639
DesignTimePPI = 120
Menu = MainMenu1
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.6.4.0'
LCLVersion = '2.0.0.4'
object Splitter1: TSplitter
Left = 280
Height = 450
Left = 350
Height = 563
Top = 0
Width = 4
Width = 5
Align = alRight
ResizeAnchor = akRight
end
object Panel1: TPanel
Left = 284
Height = 450
Left = 355
Height = 563
Top = 0
Width = 227
Width = 284
Align = alRight
BevelOuter = bvNone
ClientHeight = 450
ClientWidth = 227
Constraints.MinWidth = 20
Font.Height = -13
ClientHeight = 563
ClientWidth = 284
Constraints.MinWidth = 25
Font.Height = -16
Font.Name = 'Courier New'
ParentFont = False
TabOrder = 0
@ -43,15 +44,15 @@ object frmTracer: TfrmTracer
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = Panel1
AnchorSideBottom.Side = asrBottom
Left = 76
Height = 25
Top = 422
Width = 75
Left = 95
Height = 30
Top = 529
Width = 94
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Bottom = 3
BorderSpacing.Bottom = 4
Caption = 'Close'
Constraints.MinWidth = 75
Constraints.MinWidth = 94
OnClick = Button1Click
ParentFont = False
TabOrder = 0
@ -59,11 +60,11 @@ object frmTracer: TfrmTracer
object lblInstruction: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
Left = 5
Height = 15
Left = 6
Height = 20
Top = 1
Width = 57
BorderSpacing.Left = 5
Width = 69
BorderSpacing.Left = 6
BorderSpacing.Top = 1
Caption = 'Instruction'
ParentColor = False
@ -73,42 +74,51 @@ object frmTracer: TfrmTracer
AnchorSideLeft.Control = lblInstruction
AnchorSideTop.Control = lblInstruction
AnchorSideTop.Side = asrBottom
Left = 5
Height = 16
Top = 18
Width = 136
Left = 6
Height = 18
Top = 23
Width = 170
BorderSpacing.Top = 2
Caption = 'Accesses Address:'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
end
object Panel4: TPanel
AnchorSideLeft.Control = lblAddressed
AnchorSideTop.Control = lblAddressed
AnchorSideTop.Side = asrBottom
Left = 5
Height = 192
Left = 6
Height = 210
Hint = 'Rightclick to copy to clipboard'#13#10'Middleclick to ignore it when comparing traces'
Top = 34
Width = 96
Top = 41
Width = 120
AutoSize = True
BevelOuter = bvNone
ChildSizing.VerticalSpacing = 6
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 192
ClientWidth = 96
ClientHeight = 210
ClientWidth = 120
Font.Height = -16
Font.Name = 'Courier New'
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
object EAXLabel: TLabel
Cursor = crHandPoint
Left = 0
Height = 16
Height = 18
Top = 0
Width = 96
Width = 120
AutoSize = False
Caption = 'EAX 00000000'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
OnDblClick = EAXLabelDblClick
OnMouseDown = RegisterMouseDown
end
@ -116,11 +126,14 @@ object frmTracer: TfrmTracer
Tag = 1
Cursor = crHandPoint
Left = 0
Height = 16
Top = 22
Width = 96
Height = 18
Top = 24
Width = 120
Caption = 'EBX 00000000'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
OnDblClick = EAXLabelDblClick
OnMouseDown = RegisterMouseDown
end
@ -128,11 +141,14 @@ object frmTracer: TfrmTracer
Tag = 2
Cursor = crHandPoint
Left = 0
Height = 16
Top = 44
Width = 96
Height = 18
Top = 48
Width = 120
Caption = 'ECX 00000000'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
OnDblClick = EAXLabelDblClick
OnMouseDown = RegisterMouseDown
end
@ -140,11 +156,14 @@ object frmTracer: TfrmTracer
Tag = 3
Cursor = crHandPoint
Left = 0
Height = 16
Top = 66
Width = 96
Height = 18
Top = 72
Width = 120
Caption = 'EDX 00000000'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
OnDblClick = EAXLabelDblClick
OnMouseDown = RegisterMouseDown
end
@ -152,11 +171,14 @@ object frmTracer: TfrmTracer
Tag = 4
Cursor = crHandPoint
Left = 0
Height = 16
Top = 88
Width = 96
Height = 18
Top = 96
Width = 120
Caption = 'ESI 00000000'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
OnDblClick = EAXLabelDblClick
OnMouseDown = RegisterMouseDown
end
@ -164,11 +186,14 @@ object frmTracer: TfrmTracer
Tag = 5
Cursor = crHandPoint
Left = 0
Height = 16
Top = 110
Width = 96
Height = 18
Top = 120
Width = 120
Caption = 'EDI 00000000'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
OnDblClick = EAXLabelDblClick
OnMouseDown = RegisterMouseDown
end
@ -176,11 +201,14 @@ object frmTracer: TfrmTracer
Tag = 6
Cursor = crHandPoint
Left = 0
Height = 16
Top = 132
Width = 96
Height = 18
Top = 144
Width = 120
Caption = 'EBP 00000000'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
OnDblClick = EAXLabelDblClick
OnMouseDown = RegisterMouseDown
end
@ -188,11 +216,14 @@ object frmTracer: TfrmTracer
Tag = 7
Cursor = crHandPoint
Left = 0
Height = 16
Top = 154
Width = 96
Height = 18
Top = 168
Width = 120
Caption = 'ESP 00000000'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
OnDblClick = EAXLabelDblClick
OnMouseDown = RegisterMouseDown
end
@ -200,11 +231,14 @@ object frmTracer: TfrmTracer
Tag = 8
Cursor = crHandPoint
Left = 0
Height = 16
Top = 176
Width = 96
Height = 18
Top = 192
Width = 120
Caption = 'EIP 00000000'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
OnDblClick = EAXLabelDblClick
OnMouseDown = RegisterMouseDown
end
@ -213,78 +247,99 @@ object frmTracer: TfrmTracer
AnchorSideLeft.Control = Panel4
AnchorSideTop.Control = Panel4
AnchorSideTop.Side = asrBottom
Left = 5
Height = 126
Top = 256
Width = 56
Left = 6
Height = 138
Top = 289
Width = 70
AutoSize = True
BorderSpacing.Top = 30
BorderSpacing.Top = 38
BevelOuter = bvNone
ChildSizing.VerticalSpacing = 6
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 126
ClientWidth = 56
ClientHeight = 138
ClientWidth = 70
Font.Height = -16
Font.Name = 'Courier New'
ParentFont = False
TabOrder = 2
object CSLabel: TLabel
Tag = 9
Cursor = crHandPoint
Left = 0
Height = 16
Height = 18
Top = 0
Width = 56
Width = 70
Caption = 'CS 0000'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
end
object SSlabel: TLabel
Tag = 10
Cursor = crHandPoint
Left = 0
Height = 16
Top = 22
Width = 56
Height = 18
Top = 24
Width = 70
Caption = 'SS 0000'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
end
object DSLabel: TLabel
Tag = 11
Cursor = crHandPoint
Left = 0
Height = 16
Top = 44
Width = 56
Height = 18
Top = 48
Width = 70
Caption = 'DS 0000'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
end
object ESlabel: TLabel
Tag = 12
Cursor = crHandPoint
Left = 0
Height = 16
Top = 66
Width = 56
Height = 18
Top = 72
Width = 70
Caption = 'ES 0000'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
end
object FSlabel: TLabel
Tag = 13
Cursor = crHandPoint
Left = 0
Height = 16
Top = 88
Width = 56
Height = 18
Top = 96
Width = 70
Caption = 'FS 0000'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
end
object GSlabel: TLabel
Tag = 14
Cursor = crHandPoint
Left = 0
Height = 16
Top = 110
Width = 56
Height = 18
Top = 120
Width = 70
Caption = 'GS 0000'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
end
end
object Panel6: TPanel
@ -293,75 +348,99 @@ object frmTracer: TfrmTracer
AnchorSideTop.Control = Panel4
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 185
Height = 148
Top = 34
Width = 32
Left = 232
Height = 162
Top = 41
Width = 40
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 10
BorderSpacing.Right = 12
BevelOuter = bvNone
ChildSizing.VerticalSpacing = 6
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 148
ClientWidth = 32
ClientHeight = 162
ClientWidth = 40
Font.Height = -16
Font.Name = 'Courier New'
ParentFont = False
TabOrder = 3
object cflabel: TLabel
Left = 0
Height = 16
Height = 18
Top = 0
Width = 32
Width = 40
Caption = 'CF 0'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
end
object pflabel: TLabel
Left = 0
Height = 16
Top = 22
Width = 32
Height = 18
Top = 24
Width = 40
Caption = 'PF 0'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
end
object aflabel: TLabel
Left = 0
Height = 16
Top = 44
Width = 32
Height = 18
Top = 48
Width = 40
Caption = 'AF 0'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
end
object zflabel: TLabel
Left = 0
Height = 16
Top = 66
Width = 32
Height = 18
Top = 72
Width = 40
Caption = 'ZF 0'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
end
object sflabel: TLabel
Left = 0
Height = 16
Top = 88
Width = 32
Height = 18
Top = 96
Width = 40
Caption = 'SF 0'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
end
object dflabel: TLabel
Left = 0
Height = 16
Top = 110
Width = 32
Height = 18
Top = 120
Width = 40
Caption = 'DF 0'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
end
object oflabel: TLabel
Left = 0
Height = 16
Top = 132
Width = 32
Height = 18
Top = 144
Width = 40
Caption = 'OF 0'
Font.Height = -16
Font.Name = 'Courier New'
ParentColor = False
ParentFont = False
end
end
object Panel7: TPanel
@ -369,15 +448,18 @@ object frmTracer: TfrmTracer
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 195
Height = 38
Top = 207
Width = 32
Left = 245
Height = 48
Top = 258
Width = 39
Anchors = [akRight]
AutoSize = True
BevelOuter = bvNone
ClientHeight = 38
ClientWidth = 32
ClientHeight = 48
ClientWidth = 39
Font.Height = -16
Font.Name = 'Courier New'
ParentFont = False
TabOrder = 4
object sbShowFloats: TSpeedButton
AnchorSideLeft.Control = Panel7
@ -385,10 +467,10 @@ object frmTracer: TfrmTracer
AnchorSideRight.Control = Panel7
AnchorSideRight.Side = asrBottom
Left = 0
Height = 19
Height = 24
Hint = 'Floating point registers'
Top = 0
Width = 32
Width = 39
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Float'
@ -404,10 +486,10 @@ object frmTracer: TfrmTracer
AnchorSideRight.Control = Panel7
AnchorSideRight.Side = asrBottom
Left = 0
Height = 19
Height = 24
Hint = 'Stack'
Top = 19
Width = 32
Top = 24
Width = 39
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Stack'
@ -421,40 +503,42 @@ object frmTracer: TfrmTracer
end
object Panel2: TPanel
Left = 0
Height = 450
Height = 563
Top = 0
Width = 280
Width = 350
Align = alClient
AutoSize = True
BevelOuter = bvNone
ClientHeight = 450
ClientWidth = 280
ClientHeight = 563
ClientWidth = 350
ParentFont = False
TabOrder = 2
object pnlSearch: TPanel
Left = 0
Height = 48
Top = 402
Width = 280
Height = 58
Top = 505
Width = 350
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 48
ClientWidth = 280
ClientHeight = 58
ClientWidth = 350
ParentFont = False
TabOrder = 0
Visible = False
object btnStopSearch: TButton
AnchorSideLeft.Control = pnlSearch
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = pnlSearch
Left = 96
Height = 25
Left = 123
Height = 30
Top = 2
Width = 88
Width = 105
AutoSize = True
BorderSpacing.Top = 2
BorderSpacing.Bottom = 2
Caption = 'Stop Search'
Constraints.MinWidth = 75
Constraints.MinWidth = 94
OnClick = btnStopSearchClick
ParentFont = False
TabOrder = 0
@ -468,43 +552,46 @@ object frmTracer: TfrmTracer
AnchorSideBottom.Control = pnlSearch
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 19
Top = 29
Width = 280
Height = 24
Top = 34
Width = 350
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True
BevelOuter = bvNone
ClientHeight = 19
ClientWidth = 280
ClientHeight = 24
ClientWidth = 350
ParentFont = False
TabOrder = 1
object ProgressBar1: TProgressBar
Left = 0
Height = 19
Height = 24
Top = 0
Width = 280
Width = 350
Align = alBottom
ParentFont = False
TabOrder = 0
end
end
end
object pnlTracer: TPanel
Left = 0
Height = 364
Height = 457
Top = 0
Width = 280
Width = 350
Align = alClient
BevelOuter = bvNone
ClientHeight = 364
ClientWidth = 280
ClientHeight = 457
ClientWidth = 350
ParentFont = False
TabOrder = 1
object lvTracer: TTreeView
Left = 0
Height = 364
Height = 457
Top = 0
Width = 280
Width = 350
Align = alClient
DefaultItemHeight = 18
HideSelection = False
ParentFont = False
PopupMenu = pmTracer
ReadOnly = True
TabOrder = 0
@ -517,34 +604,38 @@ object frmTracer: TfrmTracer
end
object cbFPUXMM: TCheckBox
Left = 0
Height = 19
Top = 383
Width = 280
Height = 24
Top = 481
Width = 350
Align = alBottom
Caption = 'Compare FPU/XMM'
OnChange = cbFPUXMMChange
ParentFont = False
TabOrder = 2
end
object cbIgnoreStackPointers: TCheckBox
Left = 0
Height = 19
Top = 364
Width = 280
Height = 24
Top = 457
Width = 350
Align = alBottom
Caption = 'Ignore stackpointers'
Checked = True
OnChange = cbIgnoreStackPointersChange
ParentFont = False
State = cbChecked
TabOrder = 3
end
end
object MainMenu1: TMainMenu
left = 72
top = 56
Images = ftImageList
left = 90
top = 70
object MenuItem1: TMenuItem
Caption = 'File'
object miNewTrace: TMenuItem
Caption = 'New trace'
ImageIndex = 2
ShortCut = 16462
OnClick = miNewTraceClick
end
@ -558,11 +649,13 @@ object frmTracer: TfrmTracer
end
object miSave: TMenuItem
Caption = 'Save trace'
ImageIndex = 1
ShortCut = 16467
OnClick = miSaveClick
end
object miLoad: TMenuItem
Caption = 'Open trace'
ImageIndex = 0
ShortCut = 16463
OnClick = miLoadClick
end
@ -591,12 +684,12 @@ object frmTracer: TfrmTracer
DefaultExt = '.cetrace'
Filter = 'CE Trace (*.cetrace)|*.cetrace|All file (*.*)|*.*'
Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
left = 72
top = 119
left = 90
top = 149
end
object pmTracer: TPopupMenu
left = 72
top = 184
left = 90
top = 230
object MenuItem5: TMenuItem
Caption = 'Expand all'
OnClick = MenuItem5Click
@ -615,7 +708,110 @@ object frmTracer: TfrmTracer
object OpenDialog1: TOpenDialog
DefaultExt = '.cetrace'
Filter = 'CE Trace (*.cetrace)|*.cetrace|All file (*.*)|*.*'
left = 72
top = 248
left = 90
top = 310
end
object ftImageList: TImageList
left = 233
top = 231
Bitmap = {
4C69030000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00C9C5C33AB7B2B090B7B2B090B7B2B090B7B2
B090CAC6C43DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00B6B0AE68E1E1E1FFE1E1E1FFE1E1E1FFE1E1
E1FFC1BEBDF7CBC6C549FFFFFF00BEBCBA3CB5B4B348B5B4B348D1CECE2AFFFF
FF00FFFFFF00FFFFFF00FFFFFF00B6B0AE68E1E1E1FFE1E1E1FFE1E1E1FFE1E1
E1FFE1E1E1FFBDB9B8C0FFFFFF005CB3C0D84BE6FEFF4BE6FEFF4AC2D4F7BFC7
C749FFFFFF00FFFFFF00FFFFFF00B6B0AE68E1E1E1FFE1E1E1FFE1E1E1FFE1E1
E1FFE1E1E1FFBEBAB9C0FFFFFF005CB3C0D84BE6FEFF4BE6FEFF4BE6FEFF4AC8
DAF980B6BDA38AC0C7A089BFC69F7B9395C2E1E1E1FFE1E1E1FFE1E1E1FFE1E1
E1FFE1E1E1FFBEBAB9C0FFFFFF005CB3C0D84BE6FEFF4BE6FEFF4BE6FEFF4BE6
FEFF4BE6FEFF4BE6FEFF4BE6FEFF5DB5C2FFE1E1E1FFE1E1E1FFE1E1E1FFE1E1
E1FFE1E1E1FFBEBAB9C0FFFFFF005CB3C0D84BE6FEFF4BE6FEFF4BE6FEFF4BE6
FEFF4BE6FEFF4BE6FEFF4BE6FEFF5DB5C2FFE1E1E1FFE1E1E1FFE1E1E1FFE1E1
E1FFE1E1E1FFBEBAB9C0FFFFFF005CB3C0D84BE6FEFF3DB3C7FF279FBBFF279F
BBFF279FBBFF279FBBFF279FBBFF2C90A8FF569DB2FF569DB2FF569DB2FF569D
B2FF569DB2FF488EA2EC78939B885CB3C0D84BE6FDFF1D93B2FF04B1E3FF04B1
E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1
E3FF04B1E3FF04B1E3FF84A3AC7C5CB3C0D845BED0FF07A7D4FF04B1E3FF04B1
E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1
E3FF04B1E3FF0AA0CBFFD0CDCC265CB3C0D82D9FB7FF04B1E3FF04B1E3FF04B1
E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1
E3FF04B1E3FF348CA5D0FFFFFF005BAAB5D81394B8FF04B1E3FF04B1E3FF04B1
E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1
E3FF04B1E3FF8EACB479FFFFFF004E7A82D804B0E2FF04B1E3FF04B1E3FF04B1
E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1E3FF04B1
E3FF0B9EC8FFDAD7D624FFFFFF005A7982B6338FAAD8338FAAD8338FAAD8338F
AAD8338FAAD8338FAAD8338FAAD8338FAAD8338FAAD8338FAAD8338FAAD8338F
AAD8558896B2FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF009FA100FF999800FF928D00FF928D00FFB5B7
98FFBEC3C3FFBEC3C3FFBEC3C3FFBEC3C3FFB6BBBBFFA6ABABFFBABFB0FF9FA1
00FFC9CA7074FFFFFF00FFFFFF009FA100FF999800FF928D00FF928D00FFB5B7
98FFBEC3C3FFBEC3C3FFBEC3C3FFBEC3C3FF7D8080FF000000FFB5B9ABFF9FA1
00FF9FA100FFC9CA7074FFFFFF009FA100FF999800FF928D00FF928D00FFB5B7
98FFBEC3C3FFBEC3C3FFBEC3C3FFBEC3C3FF7D8080FF000000FFB5B9ABFF9FA1
00FF9FA100FF9FA100FFC9CA70749FA100FF999800FF928D00FF928D00FFB5B7
98FFBEC3C3FFBEC3C3FFBEC3C3FFBEC3C3FF999D9DFF535555FFB8BCADFF9FA1
00FF9FA100FF9FA100FF9FA100FF9FA100FF9B9B00FF938F00FF938F00FFAEAF
75FFBBC0B1FFBBC0B1FFBBC0B1FFBBC0B1FFBBC0B1FFBBC0B1FFB5B98AFF9FA1
00FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA1
00FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA1
00FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA1
00FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA1
00FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA1
00FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA100FF9FA1
00FF9FA100FF9FA100FF9FA100FF9FA100FFA4A60AFFABAD1AFFABAD1AFFABAD
1AFFABAD1AFFABAD1AFFABAD1AFFABAD1AFFABAD1AFFABAD1AFFABAD1AFFABAD
1AFFABAD1AFFA4A60AFF9FA100FF9FA100FFCFD069FFFFFFD2FFFFFFD2FFFFFF
D2FFFFFFD2FFFFFFD2FFFFFFD2FFFFFFD2FFFFFFD2FFFFFFD2FFFFFFD2FFFFFF
D2FFFFFFD2FFCFD069FF9FA100FF9FA100FFCFD069FFE3E3C2FFCDCDB5FFCDCD
B5FFCDCDB5FFCDCDB5FFCDCDB5FFCDCDB5FFCDCDB5FFCDCDB5FFCDCDB5FFCDCD
B5FFE3E3C2FFCFD069FF9FA100FF9FA100FFCFD069FFFFFFD2FFFFFFD2FFFFFF
D2FFFFFFD2FFFFFFD2FFFFFFD2FFFFFFD2FFFFFFD2FFFFFFD2FFFFFFD2FFFFFF
D2FFFFFFD2FFCFD069FF9FA100FF9FA100FFCFD069FFE3E3C2FFCDCDB5FFCDCD
B5FFCDCDB5FFCDCDB5FFCDCDB5FFCDCDB5FFCDCDB5FFCDCDB5FFCDCDB5FFCDCD
B5FFE3E3C2FFCFD069FF9FA100FF9FA100FFCFD069FFF0F0CAFFE5E5C3FFE5E5
C3FFE5E5C3FFE5E5C3FFE5E5C3FFE5E5C3FFE5E5C3FFE5E5C3FFE5E5C3FFE5E5
C3FFF0F0CAFFCFD069FF9FA100FF9FA100FFCFD069FFF0F0CAFFE5E5C3FFE5E5
C3FFE5E5C3FFE5E5C3FFE5E5C3FFE5E5C3FFE5E5C3FFE5E5C3FFE5E5C3FFE5E5
C3FFF0F0CAFFCFD069FF9FA100FF9FA100FFAEB021FFC0C248FFC0C248FFC0C2
48FFC0C248FFC0C248FFC0C248FFC0C248FFC0C248FFC0C248FFC0C248FFC0C2
48FFC0C248FFAEB021FF9FA100FFFFFFFF00A0A0A060808080C0808080C08080
80C0808080C0808080C0808080C0808080C0808080C0808080C0747474BFBCBC
BC35FFFFFF00FFFFFF00FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6767
67E6D8D8D81BFFFFFF00FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6F6
F6FF5C5C5CCCF0F0F009FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFE5E5E5FF84848476FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFB469FFFFB469FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFAF60FFFFAF60FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFAF60FFFFAF60FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFFF1E4FFFFE0
BFFFFFE0BFFFFFE0BFFFFFA851FFFFA851FFFFE0BFFFFFE0BFFFFFE0BFFFFFF1
E4FFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFFD3A6FFFF99
33FFFF9933FFFF9933FFFF9933FFFF9933FFFF9933FFFF9933FFFF9933FFFFD3
A6FFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFFF3E6FFFFE3
C6FFFFE3C6FFFFE3C6FFFFA953FFFFA953FFFFE3C6FFFFE3C6FFFFE3C6FFFFF3
E6FFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFAF60FFFFAF60FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFAF60FFFFAF60FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFB469FFFFB469FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF80808080FFFFFF00FFFFFF0080808080FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF80808080FFFFFF00FFFFFF00A0A0A060808080C0808080C08080
80C0808080C0808080C0808080C0808080C0808080C0808080C0808080C08080
80C0808080C0A0A0A060FFFFFF00
}
end
end

View file

@ -64,6 +64,7 @@ type
ESPlabel: TLabel;
FSlabel: TLabel;
GSlabel: TLabel;
ftImageList: TImageList;
lblInstruction: TLabel;
lblAddressed: TLabel;
lvTracer: TTreeView;

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.7 KiB

After

Width:  |  Height:  |  Size: 1.8 KiB

Before After
Before After