paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-29 12:33:05 +01:00
Code Issues Packages Projects Releases Wiki Activity

LeakView: added dbginforeader.pas to package and improved main dialog layout

Browse Source 
git-svn-id: trunk@37460 -
This commit is contained in:
maxim 2012-05-29 22:45:49 +00:00
parent 7cae4e4c5d
commit 42312bafc2
2 changed files with 37 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
components/leakview/heaptrcview.lfm
View File

@ -14,9 +14,9 @@ object HeapTrcViewForm: THeapTrcViewForm
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 16 Height = 14
Top = 9 Top = 9
Width = 37 Width = 35
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = '.trc file' Caption = '.trc file'
ParentColor = False ParentColor = False
@ -25,9 +25,9 @@ object HeapTrcViewForm: THeapTrcViewForm
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 25 Height = 23
Top = 40 Top = 40
Width = 64 Width = 61
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 12 BorderSpacing.Top = 12
@ -40,10 +40,10 @@ object HeapTrcViewForm: THeapTrcViewForm
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 603 Left = 609
Height = 19 Height = 17
Top = 43 Top = 43
Width = 80 Width = 74
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'Stay on top' Caption = 'Stay on top'
@ -67,10 +67,10 @@ object HeapTrcViewForm: THeapTrcViewForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnUpdate AnchorSideTop.Control = btnUpdate
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 272 Left = 266
Height = 19 Height = 17
Top = 43 Top = 43
Width = 92 Width = 86
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'Raw leak data' Caption = 'Raw leak data'
Checked = True Checked = True
@ -87,24 +87,24 @@ object HeapTrcViewForm: THeapTrcViewForm
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 439 Height = 441
Top = 71 Top = 69
Width = 677 Width = 677
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 439 ClientHeight = 441
ClientWidth = 677 ClientWidth = 677
TabOrder = 4 TabOrder = 4
object trvTraceInfo: TTreeView object trvTraceInfo: TTreeView
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 347 Height = 349
Top = 6 Top = 6
Width = 677 Width = 677
Align = alClient Align = alClient
BorderSpacing.Top = 6 BorderSpacing.Top = 6
DefaultItemHeight = 18 DefaultItemHeight = 16
ReadOnly = True ReadOnly = True
TabOrder = 0 TabOrder = 0
OnDblClick = trvTraceInfoDblClick OnDblClick = trvTraceInfoDblClick
@ -113,7 +113,7 @@ object HeapTrcViewForm: THeapTrcViewForm
object memoSummary: TMemo object memoSummary: TMemo
Left = 0 Left = 0
Height = 81 Height = 81
Top = 358 Top = 360
Width = 677 Width = 677
Align = alBottom Align = alBottom
ReadOnly = True ReadOnly = True
@ -124,7 +124,7 @@ object HeapTrcViewForm: THeapTrcViewForm
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 353 Top = 355
Width = 677 Width = 677
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
@ -134,10 +134,10 @@ object HeapTrcViewForm: THeapTrcViewForm
AnchorSideLeft.Control = btnUpdate AnchorSideLeft.Control = btnUpdate
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnUpdate AnchorSideTop.Control = btnUpdate
Left = 76 Left = 73
Height = 25 Height = 23
Top = 40 Top = 40
Width = 109 Width = 101
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'Paste Clipboard' Caption = 'Paste Clipboard'
@ -148,14 +148,14 @@ object HeapTrcViewForm: THeapTrcViewForm
AnchorSideLeft.Control = lblTrcFile AnchorSideLeft.Control = lblTrcFile
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = btnBrowse AnchorSideRight.Control = btnBrowse
Left = 49 Left = 47
Height = 23 Height = 21
Top = 8 Top = 8
Width = 590 Width = 592
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 15 ItemHeight = 13
TabOrder = 6 TabOrder = 6
end end
object BtnResolve: TButton object BtnResolve: TButton
@ -163,10 +163,11 @@ object HeapTrcViewForm: THeapTrcViewForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnUpdate AnchorSideTop.Control = btnUpdate
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 191 Left = 180
Height = 25 Height = 23
Top = 40 Top = 40
Width = 75 Width = 80
AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'BtnResolve' Caption = 'BtnResolve'
OnClick = BtnResolveClick OnClick = BtnResolveClick

15
components/leakview/leakview.lpk
View File

@ -1,11 +1,12 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<Package Version="3"> <Package Version="4">
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Name Value="leakview"/> <Name Value="leakview"/>
<AddToProjectUsesSection Value="True"/>
<Author Value="Dmitry 'skalogryz' Boyarintsev"/> <Author Value="Dmitry 'skalogryz' Boyarintsev"/>
<CompilerOptions> <CompilerOptions>
<Version Value="9"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<SearchPaths> <SearchPaths>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\$(LCLWidgetType)"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\$(LCLWidgetType)"/>
@ -18,6 +19,7 @@
</Parsing> </Parsing>
<Linking> <Linking>
<Debugging> <Debugging>
<GenerateDebugInfo Value="False"/>
<UseLineInfoUnit Value="False"/> <UseLineInfoUnit Value="False"/>
</Debugging> </Debugging>
</Linking> </Linking>
@ -27,7 +29,7 @@
</CompilerOptions> </CompilerOptions>
<Description Value="Leak View. allows fast navigation trough HeapTrc (and other?) leaks."/> <Description Value="Leak View. allows fast navigation trough HeapTrc (and other?) leaks."/>
<Version Major="1"/> <Version Major="1"/>
<Files Count="3"> <Files Count="4">
<Item1> <Item1>
<Filename Value="heaptrcview.lfm"/> <Filename Value="heaptrcview.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
@ -41,6 +43,10 @@
<Filename Value="leakinfo.pas"/> <Filename Value="leakinfo.pas"/>
<UnitName Value="leakinfo"/> <UnitName Value="leakinfo"/>
</Item3> </Item3>
<Item4>
<Filename Value="dbginforeader.pas"/>
<UnitName Value="DbgInfoReader"/>
</Item4>
</Files> </Files>
<i18n> <i18n>
<EnableI18N Value="True"/> <EnableI18N Value="True"/>
@ -67,8 +73,5 @@
<DestinationDirectory Value="$(TestDir)\publishedpackage\"/> <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
</PublishOptions> </PublishOptions>
<CustomOptions Children="ExternHelp">
<_ExternHelp Children="Count"/>
</CustomOptions>
</Package> </Package>
</CONFIG> </CONFIG>