/jcl/examples/windows/delphitools/toolhelpview/MemoryDump.dfm

https://github.com/the-Arioch/jcl · Unknown · 282 lines · 282 code · 0 blank · 0 comment · 0 complexity · 0b5f9bf9a0dcfa26b4cde92fcaaa6a18 MD5 · raw file

  1. inherited MemoryDumpForm: TMemoryDumpForm
  2. Left = 206
  3. Top = 116
  4. Width = 654
  5. Height = 423
  6. Caption = 'MemoryDumpForm'
  7. OldCreateOrder = True
  8. OnCreate = FormCreate
  9. OnDestroy = FormDestroy
  10. PixelsPerInch = 96
  11. TextHeight = 13
  12. object Splitter1: TSplitter [0]
  13. Left = 0
  14. Top = 191
  15. Width = 646
  16. Height = 3
  17. Cursor = crVSplit
  18. Align = alBottom
  19. AutoSnap = False
  20. ResizeStyle = rsUpdate
  21. end
  22. object Splitter2: TSplitter [1]
  23. Left = 105
  24. Top = 26
  25. Width = 3
  26. Height = 165
  27. Cursor = crHSplit
  28. AutoSnap = False
  29. ResizeStyle = rsUpdate
  30. end
  31. inherited CoolBar: TCoolBar
  32. Width = 646
  33. Bands = <
  34. item
  35. Control = ToolBar
  36. ImageIndex = -1
  37. MinHeight = 22
  38. Width = 642
  39. end>
  40. inherited ToolBar: TToolBar
  41. Width = 629
  42. object ToolButton5: TToolButton
  43. Left = 0
  44. Top = 0
  45. Action = Refresh1
  46. end
  47. object ToolButton6: TToolButton
  48. Left = 23
  49. Top = 0
  50. Width = 8
  51. Caption = 'ToolButton6'
  52. ImageIndex = 1
  53. Style = tbsSeparator
  54. end
  55. object ToolButton1: TToolButton
  56. Left = 31
  57. Top = 0
  58. Action = Copy1
  59. end
  60. object ToolButton2: TToolButton
  61. Left = 54
  62. Top = 0
  63. Action = SaveToFile1
  64. end
  65. object ToolButton10: TToolButton
  66. Left = 77
  67. Top = 0
  68. Action = Find1
  69. end
  70. object ToolButton9: TToolButton
  71. Left = 100
  72. Top = 0
  73. Action = SaveData1
  74. end
  75. object ToolButton3: TToolButton
  76. Left = 123
  77. Top = 0
  78. Width = 8
  79. Caption = 'ToolButton3'
  80. ImageIndex = 4
  81. Style = tbsSeparator
  82. end
  83. object ToolButton4: TToolButton
  84. Left = 131
  85. Top = 0
  86. Action = SelectAll1
  87. end
  88. object ToolButton7: TToolButton
  89. Left = 154
  90. Top = 0
  91. Width = 8
  92. Caption = 'ToolButton7'
  93. ImageIndex = 18
  94. Style = tbsSeparator
  95. end
  96. object ToolButton8: TToolButton
  97. Left = 162
  98. Top = 0
  99. Action = ViewAsText1
  100. Style = tbsCheck
  101. end
  102. end
  103. end
  104. object StatusBar: TStatusBar [3]
  105. Left = 0
  106. Top = 377
  107. Width = 646
  108. Height = 19
  109. Panels = <
  110. item
  111. Width = 65
  112. end
  113. item
  114. Width = 130
  115. end
  116. item
  117. Width = 130
  118. end
  119. item
  120. Width = 50
  121. end>
  122. SimplePanel = False
  123. end
  124. object PagesListView: TListView [4]
  125. Left = 108
  126. Top = 26
  127. Width = 538
  128. Height = 165
  129. Align = alClient
  130. AllocBy = 64
  131. Columns = <
  132. item
  133. Caption = 'Base'
  134. Width = 80
  135. end
  136. item
  137. Caption = 'Protect'
  138. Width = 75
  139. end
  140. item
  141. Caption = 'Allocation'
  142. Width = 65
  143. end
  144. item
  145. Caption = 'Alloc.protect'
  146. Width = 75
  147. end
  148. item
  149. Alignment = taRightJustify
  150. Caption = 'Region size'
  151. Width = 90
  152. end
  153. item
  154. Caption = 'State'
  155. Width = 60
  156. end
  157. item
  158. Caption = 'ModuleName'
  159. Width = 100
  160. end
  161. item
  162. Caption = 'Type'
  163. end>
  164. ColumnClick = False
  165. HideSelection = False
  166. MultiSelect = True
  167. OwnerData = True
  168. ReadOnly = True
  169. RowSelect = True
  170. PopupMenu = PopupMenu
  171. SmallImages = GlobalModule.ToolbarImagesList
  172. TabOrder = 1
  173. ViewStyle = vsReport
  174. OnCustomDrawItem = PagesListViewCustomDrawItem
  175. OnData = PagesListViewData
  176. OnSelectItem = PagesListViewSelectItem
  177. end
  178. object DumpListView: TListView [5]
  179. Left = 0
  180. Top = 194
  181. Width = 646
  182. Height = 183
  183. Align = alBottom
  184. Columns = <
  185. item
  186. Caption = 'Address'
  187. Width = 80
  188. end
  189. item
  190. Caption = 'Data'
  191. Width = 350
  192. end
  193. item
  194. Caption = 'ASCII'
  195. Width = 130
  196. end>
  197. ColumnClick = False
  198. Font.Charset = EASTEUROPE_CHARSET
  199. Font.Color = clWindowText
  200. Font.Height = -11
  201. Font.Name = 'Courier New'
  202. Font.Style = []
  203. MultiSelect = True
  204. OwnerData = True
  205. ReadOnly = True
  206. RowSelect = True
  207. ParentFont = False
  208. PopupMenu = PopupMenu
  209. TabOrder = 2
  210. ViewStyle = vsReport
  211. OnData = DumpListViewData
  212. end
  213. object MemoryTreeView: TTreeView [6]
  214. Left = 0
  215. Top = 26
  216. Width = 105
  217. Height = 165
  218. Align = alLeft
  219. Images = GlobalModule.ToolbarImagesList
  220. Indent = 19
  221. ReadOnly = True
  222. TabOrder = 4
  223. OnChange = MemoryTreeViewChange
  224. OnGetSelectedIndex = MemoryTreeViewGetSelectedIndex
  225. end
  226. inherited ActionList: TActionList
  227. inherited Refresh1: TAction
  228. OnExecute = Refresh1Execute
  229. end
  230. object ViewAsText1: TAction
  231. Caption = 'View as text'
  232. Hint = 'View as text'
  233. ImageIndex = 23
  234. ShortCut = 16468
  235. OnExecute = ViewAsText1Execute
  236. end
  237. object SaveData1: TAction
  238. Caption = 'Save data'
  239. Hint = 'Save region data'
  240. ImageIndex = 25
  241. ShortCut = 16452
  242. OnExecute = SaveData1Execute
  243. OnUpdate = SaveData1Update
  244. end
  245. end
  246. inherited PopupMenu: TPopupMenu
  247. object Refresh2: TMenuItem
  248. Action = Refresh1
  249. end
  250. object N1: TMenuItem
  251. Caption = '-'
  252. end
  253. object Copy2: TMenuItem
  254. Action = Copy1
  255. end
  256. object Save1: TMenuItem
  257. Action = SaveToFile1
  258. end
  259. object Savedata2: TMenuItem
  260. Action = SaveData1
  261. end
  262. object N2: TMenuItem
  263. Caption = '-'
  264. end
  265. object Selectall2: TMenuItem
  266. Action = SelectAll1
  267. end
  268. object N3: TMenuItem
  269. Caption = '-'
  270. end
  271. object Viewastext2: TMenuItem
  272. Action = ViewAsText1
  273. end
  274. end
  275. object SaveDataDialog: TSaveDialog
  276. DefaultExt = 'bin'
  277. Filter = 'Binary files (*.bin)|*.bin|All files (*.*)|*.*'
  278. Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
  279. Left = 104
  280. Top = 224
  281. end
  282. end