/jcl/examples/windows/delphitools/toolhelpview/MemoryDump.dfm
Unknown | 282 lines | 282 code | 0 blank | 0 comment | 0 complexity | 0b5f9bf9a0dcfa26b4cde92fcaaa6a18 MD5 | raw file
Possible License(s): BSD-3-Clause
1inherited 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 282end