2022-11-07 15:37:21 +01:00
|
|
|
object MainForm: TMainForm
|
|
|
|
Left = 0
|
|
|
|
Top = 0
|
|
|
|
Caption = 'Profiler :: Sample'
|
2023-04-06 14:47:01 +02:00
|
|
|
ClientHeight = 232
|
|
|
|
ClientWidth = 560
|
2022-11-07 15:37:21 +01:00
|
|
|
Color = clBtnFace
|
|
|
|
Font.Charset = DEFAULT_CHARSET
|
|
|
|
Font.Color = clWindowText
|
|
|
|
Font.Height = -12
|
|
|
|
Font.Name = 'Segoe UI'
|
|
|
|
Font.Style = []
|
2023-04-06 14:47:01 +02:00
|
|
|
OnCreate = FormCreate
|
|
|
|
DesignSize = (
|
|
|
|
560
|
|
|
|
232)
|
2022-11-07 15:37:21 +01:00
|
|
|
TextHeight = 15
|
|
|
|
object btnSimple: TButton
|
|
|
|
Left = 16
|
2023-04-06 14:47:01 +02:00
|
|
|
Top = 24
|
2022-11-07 15:37:21 +01:00
|
|
|
Width = 129
|
|
|
|
Height = 41
|
|
|
|
Caption = 'Simple Profiling'
|
|
|
|
TabOrder = 0
|
|
|
|
OnClick = btnSimpleClick
|
|
|
|
end
|
|
|
|
object btnNestedCalls: TButton
|
|
|
|
Left = 16
|
2023-04-06 14:47:01 +02:00
|
|
|
Top = 96
|
2022-11-07 15:37:21 +01:00
|
|
|
Width = 129
|
|
|
|
Height = 41
|
|
|
|
Caption = 'Nested Calls'
|
|
|
|
TabOrder = 1
|
|
|
|
OnClick = btnNestedCallsClick
|
|
|
|
end
|
|
|
|
object btnNestedCallsInLoop: TButton
|
|
|
|
Left = 16
|
2023-04-06 14:47:01 +02:00
|
|
|
Top = 168
|
2022-11-07 15:37:21 +01:00
|
|
|
Width = 129
|
|
|
|
Height = 41
|
|
|
|
Caption = 'Nested Calls In Loop'
|
|
|
|
TabOrder = 2
|
|
|
|
OnClick = btnNestedCallsInLoopClick
|
|
|
|
end
|
2023-04-06 14:47:01 +02:00
|
|
|
object chkLogsThreshold: TCheckBox
|
|
|
|
Left = 362
|
|
|
|
Top = 108
|
|
|
|
Width = 182
|
|
|
|
Height = 17
|
|
|
|
Anchors = [akTop, akRight]
|
|
|
|
Caption = 'Logs Only If Over Threshold'
|
|
|
|
TabOrder = 3
|
|
|
|
OnClick = chkLogsThresholdClick
|
|
|
|
end
|
2022-11-07 15:37:21 +01:00
|
|
|
end
|