xtool/contrib/mORMot/SQLite3/Samples/11 - Exception logging/LogViewMain.lfm

594 lines
17 KiB
Plaintext

object MainLogView: TMainLogView
Left = 454
Height = 639
Top = 95
Width = 860
Caption = ' Synopse LogView %s -'
ClientHeight = 639
ClientWidth = 860
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
KeyPreview = True
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShow = FormShow
LCLVersion = '2.0.11.0'
object Splitter3: TSplitter
Left = 837
Height = 583
Top = 0
Width = 4
Visible = False
end
object Splitter1: TSplitter
Left = 829
Height = 583
Top = 0
Width = 4
Visible = False
end
object Splitter4: TSplitter
Left = 833
Height = 583
Top = 0
Width = 4
Visible = False
end
object PanelLeft: TPanel
Left = 257
Height = 583
Top = 0
Width = 150
Align = alLeft
ClientHeight = 583
ClientWidth = 150
Constraints.MinWidth = 150
TabOrder = 0
object ImageLogo: TImage
Left = 8
Height = 32
Top = 539
Width = 137
Anchors = [akLeft, akRight, akBottom]
Center = True
OnClick = ImageLogoClick
Picture.Data = {
07544269746D617076090000424D760900000000000076000000280000008900
0000200000000100040000000000000900000000000000000000100000000000
00000504180004A6FC00444446000704C400918FB000D1D1DF001D26E0005454
5600726FA000046EFC00B2B0CD0031323300FCFEFC005A53D1003731CF004446
FC00CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCC555A5555CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCC0000000CCCCCCCCCCCCCCCCCCCCC54444CCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCA77778777785CCCCCCCCCCCCC5444ACCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCC0000000CCCCCCCCCCCCCCCCCCCCC533338C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC58274A555555A877ACCCCCCCCCCCD3333
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC0000000CCCCCCCCCCCC
CCCCCCCCCC63333CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCA774A472BBBB74AA82
4CCCCCCCCCCD3333CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC000
0000CCCCCCCCCCCCCCCCCCCCCCA3333ACCCCCCCCCCCCCCCCCCCCCCCCCCCCC428
4700000000000244775CCCCCCCCD3333CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCC0000000CCCCCCCCCCCCCCCCCCCCCCC3333ECCCCCCCCCCCCCCCC
CCCCCCCCCCCC4278B0000000000000078775CCCCCCCD3336CCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCC0000000CCCCC54E3333EACCCCCCCCC83333
CCCCCCCC888D5CCCC488DACCCCC4277000000000000000002727CCCCCCCD3336
CD63E4CCCCCCCAF333368CCCCCCCCC5863333FACCCCCC0000000CCCC83333333
3334CCCCCCCE3333DCCCCCCC3333ACCCC3333FCCCCA277000000000000000000
0B728CCCCCCD333333333365CCC53333333333FCCCCC5E3333333333ACCCC000
0000CCCCD333333333334CCCCC5333333CCCCCCC3333ACCCC6333DCCCC748000
000033333333000000287ACCCCCD333333333333CCC533333333333ECCC53333
33333333ACCCC0000000CCCCD3EACCCC83333CCCCCD3333334CCCCCC3333ACCC
C6333DCCC48AB0000033333333333000000847CCCCCD33335AAD3333DCC53345
CCCA33335CC333338A5C5463ACCCC0000000CCCC4ACCCCCC43333CCCCC333333
36CCCCCC3333ACCCC6333DCCC7AA000003333333333333000002A75CCCCD3336
CCCCD33335C58CCCCCC533334CA3333ACCCCCCC85CCCC0000000CCCCCCC5A8E3
33333CCCCA3333E3335CCCCC3333ACCCC6333DCC5BA700003333333333333330
0000587CCCCD3333CCCC53333ACCCCCA8F333333AC8333FCCCCCCCCCCCCCC000
0000CCCCCCD333333333FCCCC63338A333DCCCCC3333ACCCC6333DCC42400000
33333333333333330000442CCCCD3333CCCCC33334CCC43333333333CCD3333F
EEEEEEE68CCCC0000000CCCCC3333333333DCCCC533335C3333CCCCC3333ACCC
C6333DCC227000033333333333333333000028B5CCCD3333CCCCC33338CC8333
33333335CCD3333333333333FCCCC0000000CCCC53333333E45CCCCC83336CCE
3334CCCC3333ACCCC3333DCCB77000033333333333333333000008B5CCCD3333
CCCCC33334CC33333336D5CCCCD3333333333333DCCCC0000000CCCC43333ACC
CCCCCCCC33334CCA3333CCCC3333ACCCC3333DCC07B000033333336193333333
000007BACCCD3336CCCCA3333ACC33338CCCCCC5CCA333DCCCCC63334CCCC000
0000CCCCA3333CCCCC538CCA3333CCCC33335CCC333338AAF33334CC07B00003
3333336193333333000007BACCCD3333ACC5333335CC3333ACCCC5D3CCC33335
CCCC33335CCCC0000000CCCCC333333633334CC3333ECCCCD3336CCC33333333
333335CC077000033333633333333333000007BACCCD333333333333DCCCD333
33633333CCCA3333F4D3333FCCCCC0000000CCCCC533333333338C53333ACCCC
A3333CCC3333F3333333FCCCB7700B03333F6333336663330000B8B5CCCD3333
63333333CCCCCE3333333333CCCC43333333333CCCCCC0000000CCCCCCC46333
3368CC4366ECCCCCCE6634CCE6635CD33338CCCC828004003333333333336333
00B077BCCCC8366DC83333DCCCCCCCAE333333FACCCCCCD3333338CCCCCCC000
0000CCCCCCCCCC555CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC55CCCCCC5B4B0A20
DD3333EFF333336B0040872CCCCCCCCCCCC55CCCCCCCCCCCCC55CCCCCCCCCCCC
5555CCCCCCCCC0000000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCC7440BB00333333333333372088B42ACCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCC0000000CCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCA4AB00000333EEEEE3330000B0847CCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC0000000CCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC4440000000384A48300000
007445CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC000
0000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC574800
000B0000000BB0000244ACCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCC0000000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCC474400085555555554B007487CCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCC0000000CCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCC72A4B0028A5C5A470008A825CCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC0000000CCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC77AA8000000000007AA
8B5CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC000
0000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCA7
4A5A8BB0BB7455478CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCC0000000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCC5474A55555555487ACCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCC0000000CCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCA44AAAAA4445CCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC0000000CCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC555555CCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC000
0000
}
Transparent = True
end
object lblServerRoot: TLabel
Left = 16
Height = 12
Top = 48
Width = 70
Caption = 'Server Root:'
ParentColor = False
end
object lblServerPort: TLabel
Left = 16
Height = 12
Top = 90
Width = 67
Caption = 'Server Port:'
ParentColor = False
end
object BtnBrowse: TButton
Left = 16
Height = 25
Top = 8
Width = 107
Anchors = [akTop, akRight]
Caption = 'Select File'
OnClick = BtnBrowseClick
TabOrder = 0
end
object EventsList: TCheckListBox
Left = 16
Height = 105
Top = 72
Width = 118
ItemHeight = 13
OnClickCheck = EventsListClickCheck
OnDblClick = EventsListDblClick
OnDrawItem = EventsListDrawItem
PopupMenu = FilterMenu
Style = lbOwnerDrawFixed
TabOrder = 3
TopIndex = -1
end
object EditSearch: TEdit
Left = 16
Height = 30
Hint = 'Search (Ctrl+F, F3 for next) '
Top = 40
Width = 85
Anchors = [akTop, akLeft, akRight]
OnChange = BtnSearchNextClick
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object BtnSearchNext: TButton
Left = 105
Height = 21
Hint = 'Search Next (F3)'
Top = 40
Width = 20
Anchors = [akTop, akRight]
Caption = 'v'
OnClick = BtnSearchNextClick
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object BtnStats: TButton
Left = 16
Height = 25
Top = 304
Width = 57
Caption = 'Stats'
OnClick = BtnStatsClick
TabOrder = 6
end
object BtnMapSearch: TButton
Left = 80
Height = 25
Hint = 'Search for an address in a .map file'
Top = 304
Width = 59
Caption = '.map'
OnClick = BtnMapSearchClick
ParentShowHint = False
ShowHint = True
TabOrder = 7
end
object MergedProfile: TCheckBox
Left = 22
Height = 23
Top = 283
Width = 134
Caption = 'Merge method calls'
OnClick = MergedProfileClick
TabOrder = 5
end
object ProfileGroup: TRadioGroup
Left = 16
Height = 89
Top = 192
Width = 118
AutoFill = True
Caption = ' Methods profiler '
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
OnClick = ProfileGroupClick
TabOrder = 4
end
object ThreadGroup: TGroupBox
Left = 16
Height = 96
Top = 336
Width = 118
Caption = ' Threads '
ClientHeight = 81
ClientWidth = 116
TabOrder = 8
object BtnThreadNext: TButton
Left = 8
Height = 25
Top = 0
Width = 41
Caption = 'Next'
OnClick = BtnThreadNextClick
TabOrder = 0
end
object BtnThreadShow: TButton
Left = 8
Height = 25
Top = 24
Width = 97
Caption = 'View threads'
OnClick = BtnThreadShowClick
TabOrder = 1
end
object btnThread0: TButton
Left = 8
Height = 25
Hint = 'Select No Thread'
Top = 48
Width = 25
Caption = '0'
Enabled = False
OnClick = BtnThreadClick
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object btnThread1: TButton
Left = 40
Height = 25
Hint = 'Select Only This Thread'
Top = 48
Width = 25
Caption = '1'
Enabled = False
OnClick = BtnThreadClick
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
object btnThreadAll: TButton
Left = 72
Height = 25
Hint = 'Select All Threads'
Top = 48
Width = 33
Caption = 'All'
Enabled = False
OnClick = BtnThreadClick
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object btnThreadDown: TButton
Left = 56
Height = 25
Hint = 'Goto Next Row'
Top = 0
Width = 25
Caption = 'v'
OnClick = btnThreadDownClick
ParentShowHint = False
ShowHint = True
TabOrder = 5
end
object btnThreadUp: TButton
Left = 80
Height = 25
Hint = 'Goto Previous Row'
Top = 0
Width = 25
Caption = '^'
OnClick = btnThreadUpClick
ParentShowHint = False
ShowHint = True
TabOrder = 6
end
end
object BtnSearchPrevious: TButton
Left = 125
Height = 21
Hint = 'Search Previous (Shift F3)'
Top = 40
Width = 20
Anchors = [akTop, akRight]
Caption = '^'
OnClick = BtnSearchNextClick
ParentShowHint = False
ShowHint = True
TabOrder = 9
end
object btnServerLaunch: TButton
Left = 16
Height = 25
Hint = 'Lauch a HTTP server for remote logging'
Top = 132
Width = 107
Anchors = [akTop, akRight]
Caption = 'Server Launch'
OnClick = btnServerLaunchClick
ParentShowHint = False
ShowHint = True
TabOrder = 10
end
object edtServerRoot: TEdit
Left = 16
Height = 30
Top = 64
Width = 121
TabOrder = 11
Text = 'LogService'
end
object edtServerPort: TEdit
Left = 16
Height = 30
Top = 106
Width = 121
TabOrder = 12
Text = '8091'
end
object btnListClear: TButton
Left = 16
Height = 25
Top = 160
Width = 105
Caption = 'Clear List'
OnClick = btnListClearClick
TabOrder = 13
Visible = False
end
object btnListSave: TButton
Left = 16
Height = 25
Top = 192
Width = 105
Caption = 'Save List'
OnClick = btnListSaveClick
TabOrder = 14
Visible = False
end
object lstDays: TListBox
Left = 16
Height = 57
Top = 440
Width = 121
ItemHeight = 0
OnDblClick = lstDaysDblClick
ScrollWidth = 119
TabOrder = 15
TopIndex = -1
end
end
object Splitter2: TSplitter
Cursor = crVSplit
Left = 0
Height = 4
Top = 583
Width = 860
Align = alBottom
ResizeAnchor = akBottom
end
object PanelBottom: TPanel
Left = 0
Height = 52
Top = 587
Width = 860
Align = alBottom
TabOrder = 9
OnResize = PanelBottomResize
end
object List: TDrawGrid
Left = 841
Height = 583
Top = 0
Width = 19
Align = alClient
ColCount = 3
DefaultColWidth = 100
DefaultRowHeight = 14
ExtendedSelect = False
FixedCols = 0
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSelect, goThumbTracking]
PopupMenu = ListMenu
RowCount = 1
TabOrder = 2
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
Visible = False
OnClick = ListClick
OnDblClick = ListDblClick
OnDrawCell = ListDrawCell
end
object ProfileList: TDrawGrid
Left = 407
Height = 583
Top = 0
Width = 274
Align = alLeft
ColCount = 2
DefaultColWidth = 100
DefaultRowHeight = 14
ExtendedSelect = False
FixedCols = 0
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect, goThumbTracking]
TabOrder = 1
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
Visible = False
OnClick = ProfileListClick
OnDrawCell = ProfileListDrawCell
end
object PanelThread: TPanel
Left = 681
Height = 583
Top = 0
Width = 148
Align = alLeft
ClientHeight = 583
ClientWidth = 148
TabOrder = 3
Visible = False
object ThreadListBox: TCheckListBox
Left = 1
Height = 541
Top = 1
Width = 146
Align = alClient
ItemHeight = 0
OnClick = ThreadListBoxClick
OnClickCheck = ThreadListBoxClickCheck
OnDblClick = ThreadListBoxDblClick
TabOrder = 0
TopIndex = -1
end
object pnlThreadBottom: TPanel
Left = 1
Height = 40
Top = 542
Width = 146
Align = alBottom
ClientHeight = 40
ClientWidth = 146
TabOrder = 1
object lblThreadName: TLabel
Left = 3
Height = 33
Top = 3
Width = 141
Anchors = [akTop, akLeft, akRight, akBottom]
ParentColor = False
ParentFont = False
WordWrap = True
end
end
end
object PanelBrowse: TPanel
Left = 0
Height = 583
Top = 0
Width = 257
Align = alLeft
ClientHeight = 583
ClientWidth = 257
Constraints.MinWidth = 80
TabOrder = 4
Visible = False
object Directory: TShellTreeView
Left = 8
Height = 344
Top = 8
Width = 240
FileSortType = fstNone
HideSelection = False
ReadOnly = True
TabOrder = 0
Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
ObjectTypes = [otFolders]
ShellListView = Files
end
object Files: TShellListView
Left = 8
Height = 207
Top = 368
Width = 240
Color = clDefault
HideSelection = False
ReadOnly = True
TabOrder = 1
OnClick = FilesClick
ObjectTypes = [otNonFolders]
ShellTreeView = Directory
end
end
object FilterMenu: TPopupMenu
Left = 88
Top = 16
end
object OpenDialog: TOpenDialog
DefaultExt = '.log'
Filter = 'Log|*.log;*.txt;*.synlz'
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Left = 40
Top = 80
end
object ListMenu: TPopupMenu
Left = 40
Top = 16
object ListMenuCopy: TMenuItem
Caption = '&Copy'
OnClick = ListMenuCopyClick
end
end
object tmrRefresh: TTimer
Enabled = False
Interval = 200
OnTimer = tmrRefreshTimer
Left = 88
Top = 80
end
object dlgSaveList: TSaveDialog
DefaultExt = '.log'
Filter = 'log|*.log|txt|*.txt|synlz|*.synlz'
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
Left = 136
Top = 16
end
end