FPPS4/gui/cfg_edit.lfm

788 lines
24 KiB
Plaintext

object frmCfgEditor: TfrmCfgEditor
Left = 448
Height = 319
Top = 198
Width = 400
Caption = 'Config Editor'
ClientHeight = 319
ClientWidth = 400
Position = poMainFormCenter
LCLVersion = '3.6.0.0'
object EditPages: TPageControl
Left = 0
Height = 270
Top = 0
Width = 397
ActivePage = Tab_PS4System
Align = alCustom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Bottom = 10
TabIndex = 5
TabOrder = 0
object Tab_MainInfo: TTabSheet
Caption = 'Main'
ClientHeight = 242
ClientWidth = 389
object Label1: TLabel
AnchorSideLeft.Control = Tab_MainInfo
AnchorSideTop.Control = Tab_MainInfo
AnchorSideRight.Control = Tab_MainInfo
AnchorSideRight.Side = asrBottom
Left = 10
Height = 15
Top = 10
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'Log File:'
end
object Edt_MainInfo_LogFile: TEdit
AnchorSideLeft.Control = Tab_MainInfo
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_MainInfo
AnchorSideRight.Side = asrBottom
Left = 10
Height = 23
Top = 35
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
TabOrder = 0
end
object Edt_MainInfo_fork_proc: TCheckBox
AnchorSideLeft.Control = Tab_MainInfo
AnchorSideTop.Control = Edt_MainInfo_data
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_MainInfo
AnchorSideRight.Side = asrBottom
Left = 10
Height = 19
Top = 184
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'Run in a separate process'
TabOrder = 4
end
object Label2: TLabel
AnchorSideLeft.Control = Tab_MainInfo
AnchorSideTop.Control = Edt_MainInfo_LogFile
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_MainInfo
AnchorSideRight.Side = asrBottom
Left = 10
Height = 15
Top = 68
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'Default System Firmware folder:'
end
object Edt_MainInfo_system: TEdit
AnchorSideLeft.Control = Tab_MainInfo
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_MainInfo
AnchorSideRight.Side = asrBottom
Left = 10
Height = 23
Top = 93
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
TabOrder = 2
end
object Label3: TLabel
AnchorSideLeft.Control = Tab_MainInfo
AnchorSideTop.Control = Edt_MainInfo_system
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_MainInfo
AnchorSideRight.Side = asrBottom
Left = 10
Height = 15
Top = 126
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'Default System data folder:'
end
object Edt_MainInfo_data: TEdit
AnchorSideLeft.Control = Tab_MainInfo
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_MainInfo
AnchorSideRight.Side = asrBottom
Left = 10
Height = 23
Top = 151
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
TabOrder = 3
end
object BtnLogOpen: TButton
AnchorSideTop.Control = Edt_MainInfo_LogFile
AnchorSideRight.Control = Edt_MainInfo_LogFile
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Edt_MainInfo_LogFile
AnchorSideBottom.Side = asrBottom
Left = 343
Height = 21
Top = 36
Width = 35
Anchors = [akTop, akRight, akBottom]
AutoSize = True
BorderSpacing.Top = 1
BorderSpacing.Right = 1
BorderSpacing.Bottom = 1
Caption = '...'
TabOrder = 1
OnClick = BtnLogOpenClick
end
object BtnSysOpen: TButton
AnchorSideTop.Control = Edt_MainInfo_system
AnchorSideRight.Control = Edt_MainInfo_system
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Edt_MainInfo_system
AnchorSideBottom.Side = asrBottom
Left = 343
Height = 21
Top = 94
Width = 35
Anchors = [akTop, akRight, akBottom]
AutoSize = True
BorderSpacing.Top = 1
BorderSpacing.Right = 1
BorderSpacing.Bottom = 1
Caption = '...'
TabOrder = 5
OnClick = BtnSysOpenClick
end
object BtnDataOpen: TButton
AnchorSideTop.Control = Edt_MainInfo_data
AnchorSideRight.Control = Edt_MainInfo_data
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Edt_MainInfo_data
AnchorSideBottom.Side = asrBottom
Left = 343
Height = 21
Top = 152
Width = 35
Anchors = [akTop, akRight, akBottom]
AutoSize = True
BorderSpacing.Top = 1
BorderSpacing.Right = 1
BorderSpacing.Bottom = 1
Caption = '...'
TabOrder = 6
OnClick = BtnDataOpenClick
end
end
object Tab_BootparamInfo: TTabSheet
Caption = 'Bootparam'
ClientHeight = 242
ClientWidth = 389
object Edt_BootparamInfo_neo: TCheckBox
AnchorSideLeft.Control = Tab_BootparamInfo
AnchorSideTop.Control = Tab_BootparamInfo
AnchorSideRight.Control = Tab_BootparamInfo
AnchorSideRight.Side = asrBottom
Left = 10
Height = 19
Top = 10
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'ps4 pro mode'
TabOrder = 0
end
object Edt_BootparamInfo_halt_on_exit: TCheckBox
AnchorSideLeft.Control = Tab_BootparamInfo
AnchorSideTop.Control = Edt_BootparamInfo_neo
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_BootparamInfo
AnchorSideRight.Side = asrBottom
Left = 10
Height = 19
Top = 39
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'halt on exit'
TabOrder = 1
end
object Edt_BootparamInfo_print_guest_syscall: TCheckBox
AnchorSideLeft.Control = Tab_BootparamInfo
AnchorSideTop.Control = Edt_BootparamInfo_halt_on_exit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_BootparamInfo
AnchorSideRight.Side = asrBottom
Left = 10
Height = 19
Top = 68
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'print guest syscall'
TabOrder = 2
end
object Edt_BootparamInfo_print_pmap: TCheckBox
AnchorSideLeft.Control = Tab_BootparamInfo
AnchorSideTop.Control = Edt_BootparamInfo_print_guest_syscall
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_BootparamInfo
AnchorSideRight.Side = asrBottom
Left = 10
Height = 19
Top = 97
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'print pmap'
TabOrder = 3
end
object Edt_BootparamInfo_print_jit_preload: TCheckBox
AnchorSideLeft.Control = Tab_BootparamInfo
AnchorSideTop.Control = Edt_BootparamInfo_print_pmap
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_BootparamInfo
AnchorSideRight.Side = asrBottom
Left = 10
Height = 19
Top = 126
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'print jit preload'
TabOrder = 4
end
object Edt_BootparamInfo_print_gpu_ops: TCheckBox
AnchorSideLeft.Control = Tab_BootparamInfo
AnchorSideTop.Control = Edt_BootparamInfo_print_jit_preload
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_BootparamInfo
AnchorSideRight.Side = asrBottom
Left = 10
Height = 19
Top = 155
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'print gpu packed ops'
TabOrder = 5
end
object Edt_BootparamInfo_print_gpu_hint: TCheckBox
AnchorSideLeft.Control = Tab_BootparamInfo
AnchorSideTop.Control = Edt_BootparamInfo_print_gpu_ops
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_BootparamInfo
AnchorSideRight.Side = asrBottom
Left = 10
Height = 19
Top = 184
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'print gpu packed hint'
TabOrder = 6
end
end
object Tab_JIT: TTabSheet
Caption = 'JIT'
ClientHeight = 242
ClientWidth = 389
object Edt_JITInfo_print_asm: TCheckBox
AnchorSideLeft.Control = Tab_JIT
AnchorSideTop.Control = Tab_JIT
AnchorSideRight.Control = Tab_JIT
AnchorSideRight.Side = asrBottom
Left = 10
Height = 19
Top = 10
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'print asm code'
TabOrder = 0
end
object Edt_JITInfo_debug_info: TCheckBox
AnchorSideLeft.Control = Tab_JIT
AnchorSideTop.Control = Edt_JITInfo_print_asm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_JIT
AnchorSideRight.Side = asrBottom
Left = 10
Height = 19
Top = 39
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'Inline debug info'
TabOrder = 1
end
object Edt_JITInfo_relative_analize: TCheckBox
AnchorSideLeft.Control = Tab_JIT
AnchorSideTop.Control = Edt_JITInfo_debug_info
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_JIT
AnchorSideRight.Side = asrBottom
Left = 10
Height = 19
Top = 68
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'Try relative analize'
TabOrder = 2
end
object Edt_JITInfo_memory_guard: TCheckBox
AnchorSideLeft.Control = Tab_JIT
AnchorSideTop.Control = Edt_JITInfo_relative_analize
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_JIT
AnchorSideRight.Side = asrBottom
Left = 10
Height = 19
Top = 97
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'Guest memory guard'
TabOrder = 3
end
end
object Tab_Misc: TTabSheet
Caption = 'Misc'
ClientHeight = 242
ClientWidth = 389
object Edt_MiscInfo_strict_ps4_freq: TCheckBox
AnchorSideLeft.Control = Tab_Misc
AnchorSideTop.Control = Tab_Misc
AnchorSideRight.Control = Tab_Misc
AnchorSideRight.Side = asrBottom
Left = 10
Height = 19
Top = 10
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'Strict rdtsc timer frequency'
TabOrder = 0
end
object Edt_MiscInfo_renderdoc_capture: TCheckBox
AnchorSideLeft.Control = Tab_Misc
AnchorSideTop.Control = Edt_MiscInfo_strict_ps4_freq
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_Misc
AnchorSideRight.Side = asrBottom
Left = 10
Height = 19
Top = 39
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'Use renderdoc capture'
TabOrder = 1
end
end
object Tab_Vulkan: TTabSheet
Caption = 'Vulkan'
ClientHeight = 242
ClientWidth = 389
object Edt_VulkanInfo_device_cmb: TComboBox
AnchorSideLeft.Control = Tab_Vulkan
AnchorSideTop.Control = Label4
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_Vulkan
AnchorSideRight.Side = asrBottom
Left = 10
Height = 23
Top = 35
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
ItemHeight = 15
Style = csDropDownList
TabOrder = 0
end
object Label4: TLabel
AnchorSideLeft.Control = Tab_Vulkan
AnchorSideTop.Control = Tab_Vulkan
AnchorSideRight.Control = Tab_Vulkan
AnchorSideRight.Side = asrBottom
Left = 10
Height = 15
Top = 10
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'GPU:'
end
object GrAppFlags: TCheckGroup
AnchorSideLeft.Control = Tab_Vulkan
AnchorSideTop.Control = Edt_VulkanInfo_device_cmb
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_Vulkan
AnchorSideRight.Side = asrBottom
Left = 10
Height = 165
Top = 68
Width = 369
Anchors = [akTop, akLeft, akRight]
AutoFill = True
AutoSize = True
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'Vulkan app validation'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ChildSizing.ControlsPerLine = 7
ClientHeight = 145
ClientWidth = 365
ColumnLayout = clVerticalThenHorizontal
Columns = 2
Items.Strings = (
'debug utils'
'validation layer'
'enable gpu assisted'
'enable gpu assisted reserve'
'enable best practices'
'enable debug printf'
'enable sync validation'
'disable shaders validation'
'disable thread safety'
'disable api params'
'disable obj lifetimes'
'disable core checks'
'disable unique handles'
'disable shader validation cache'
)
TabOrder = 1
Data = {
0E0000000202020202020202020202020202
}
end
end
object Tab_PS4System: TTabSheet
Caption = 'PS4 System'
ClientHeight = 242
ClientWidth = 389
object PanelHalf: TPanel
AnchorSideLeft.Control = Tab_PS4System
AnchorSideLeft.Side = asrCenter
AnchorSideRight.Control = Tab_PS4System
AnchorSideRight.Side = asrCenter
Left = 188
Height = 49
Top = 64
Width = 12
Anchors = [akTop, akLeft, akRight]
BevelOuter = bvNone
Enabled = False
TabOrder = 0
end
object Edt_PS4SystemService_Language: TComboBox
AnchorSideLeft.Control = Tab_PS4System
AnchorSideTop.Control = Label5
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_PS4System
AnchorSideRight.Side = asrBottom
Left = 10
Height = 23
Top = 93
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
ItemHeight = 15
Items.Strings = (
'Japanese'
'English (United States)'
'French (France)'
'Spanish (Spain)'
'German'
'Italian'
'Dutch'
'Portuguese (Portugal)'
'Russian'
'Korean'
'Chinese (traditional)'
'Chinese (simplified)'
'Finnish'
'Swedish'
'Danish'
'Norwegian'
'Polish'
'Portuguese (Brazil)'
'English (United Kingdom)'
'Turkish'
'Spanish (Latin America)'
'Arabic'
'French (Canada)'
'Czech'
'Hungarian'
'Greek'
'Romanian'
'Thai'
'Vietnamese'
'Indonesian'
'Ukrainian'
)
Style = csDropDownList
TabOrder = 2
end
object Edt_PS4SystemService_DateFormat: TComboBox
AnchorSideLeft.Control = Tab_PS4System
AnchorSideTop.Control = Label6
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PanelHalf
Left = 10
Height = 23
Top = 151
Width = 168
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
ItemHeight = 15
Items.Strings = (
'YYYYMMDD'
'DDMMYYYY'
'MMDDYYYY'
)
Style = csDropDownList
TabOrder = 3
end
object Label6: TLabel
AnchorSideLeft.Control = Tab_PS4System
AnchorSideTop.Control = Edt_PS4SystemService_Language
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PanelHalf
Left = 10
Height = 15
Top = 126
Width = 168
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'Date Format:'
end
object Edt_PS4SystemService_TimeFormat: TComboBox
AnchorSideLeft.Control = PanelHalf
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label6
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_PS4System
AnchorSideRight.Side = asrBottom
Left = 210
Height = 23
Top = 151
Width = 169
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
ItemHeight = 15
Items.Strings = (
'12HOUR'
'24HOUR'
)
Style = csDropDownList
TabOrder = 4
end
object Label7: TLabel
AnchorSideLeft.Control = PanelHalf
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Edt_PS4SystemService_Language
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_PS4System
AnchorSideRight.Side = asrBottom
Left = 210
Height = 15
Top = 126
Width = 169
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'Time Format:'
end
object Label8: TLabel
AnchorSideLeft.Control = Tab_PS4System
AnchorSideTop.Control = Edt_PS4SystemService_TimeFormat
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PanelHalf
Left = 10
Height = 15
Top = 184
Width = 168
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'Button Assign:'
end
object Edt_PS4SystemService_ButtonAssign: TComboBox
AnchorSideLeft.Control = Tab_PS4System
AnchorSideTop.Control = Label8
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PanelHalf
Left = 10
Height = 23
Top = 209
Width = 168
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
ItemHeight = 15
Items.Strings = (
'CIRCLE'
'CROSS'
)
Style = csDropDownList
TabOrder = 5
end
object Label9: TLabel
AnchorSideLeft.Control = Tab_PS4System
AnchorSideTop.Control = Tab_PS4System
AnchorSideRight.Control = Tab_PS4System
AnchorSideRight.Side = asrBottom
Left = 10
Height = 15
Top = 10
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'System Name:'
end
object Label5: TLabel
AnchorSideLeft.Control = Tab_PS4System
AnchorSideTop.Control = Edt_PS4SystemService_SystemName
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_PS4System
AnchorSideRight.Side = asrBottom
Left = 10
Height = 15
Top = 68
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'Language:'
end
object Edt_PS4SystemService_SystemName: TEdit
AnchorSideLeft.Control = Tab_PS4System
AnchorSideTop.Control = Label9
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Tab_PS4System
AnchorSideRight.Side = asrBottom
Left = 10
Height = 23
Top = 35
Width = 369
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
MaxLength = 65
TabOrder = 1
end
end
end
object BtnCancel: TButton
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 315
Height = 25
Top = 284
Width = 75
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 10
BorderSpacing.Bottom = 10
Caption = 'Cancel'
Constraints.MinHeight = 25
Constraints.MinWidth = 75
TabOrder = 2
OnClick = BtnCancelClick
end
object BtnOk: TButton
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 10
Height = 25
Top = 284
Width = 75
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 10
BorderSpacing.Bottom = 10
Caption = 'OK'
Constraints.MinHeight = 25
Constraints.MinWidth = 75
TabOrder = 1
OnClick = BtnOkClick
end
end