delphimvcframework/samples/profiling_showcase/MainFormU.dfm

56 lines
1.1 KiB
Plaintext
Raw Normal View History

object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'Profiler :: Sample'
ClientHeight = 232
ClientWidth = 560
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
OnCreate = FormCreate
DesignSize = (
560
232)
TextHeight = 15
object btnSimple: TButton
Left = 16
Top = 24
Width = 129
Height = 41
Caption = 'Simple Profiling'
TabOrder = 0
OnClick = btnSimpleClick
end
object btnNestedCalls: TButton
Left = 16
Top = 96
Width = 129
Height = 41
Caption = 'Nested Calls'
TabOrder = 1
OnClick = btnNestedCallsClick
end
object btnNestedCallsInLoop: TButton
Left = 16
Top = 168
Width = 129
Height = 41
Caption = 'Nested Calls In Loop'
TabOrder = 2
OnClick = btnNestedCallsInLoopClick
end
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
end