/debugger/registersdlg.lfm

http://github.com/graemeg/lazarus · Unknown · 172 lines · 172 code · 0 blank · 0 comment · 0 complexity · 0977b11e1a2b1f3d79ce63a49be76a78 MD5 · raw file

  1. inherited 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
  172. end