File: assemblerdlg.lfm

package info (click to toggle)
lazarus 2.0.0%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 214,460 kB
  • sloc: pascal: 1,862,622; xml: 265,709; cpp: 56,595; sh: 3,008; java: 609; makefile: 535; perl: 297; sql: 222; ansic: 137
file content (200 lines) | stat: -rw-r--r-- 4,793 bytes parent folder | download | duplicates (2)
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