PageRenderTime 31ms CodeModel.GetById 17ms app.highlight 1ms RepoModel.GetById 0ms app.codeStats 0ms

/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
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