david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
110 lines
2.5 KiB
Plaintext
110 lines
2.5 KiB
Plaintext
object BusinessProcessorServerMainForm: TBusinessProcessorServerMainForm
|
|
Left = 100
|
|
Top = 111
|
|
BorderStyle = bsDialog
|
|
Caption = 'Business Processor Server'
|
|
ClientHeight = 170
|
|
ClientWidth = 380
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Label1: TLabel
|
|
Left = 7
|
|
Top = 7
|
|
Width = 39
|
|
Height = 13
|
|
Caption = 'Checks:'
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 7
|
|
Top = 24
|
|
Width = 365
|
|
Height = 73
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Caption = 'Customers'
|
|
TabOrder = 0
|
|
object cbCheckCustomerID: TCheckBox
|
|
Left = 8
|
|
Top = 15
|
|
Width = 321
|
|
Height = 17
|
|
Caption = 'New records: CustomerID needs at least 5 characters'
|
|
TabOrder = 0
|
|
OnClick = cbCheckCustomerIDClick
|
|
end
|
|
object cbDeclineDeleteCustomers: TCheckBox
|
|
Left = 8
|
|
Top = 49
|
|
Width = 216
|
|
Height = 17
|
|
Caption = 'Restrict deleting records'
|
|
TabOrder = 1
|
|
OnClick = cbDeclineDeleteCustomersClick
|
|
end
|
|
object cbCompany: TCheckBox
|
|
Left = 8
|
|
Top = 32
|
|
Width = 228
|
|
Height = 17
|
|
Caption = 'New records: Company name for should be '
|
|
TabOrder = 2
|
|
OnClick = cbCompanyClick
|
|
end
|
|
object eCompany: TEdit
|
|
Left = 245
|
|
Top = 30
|
|
Width = 110
|
|
Height = 21
|
|
TabOrder = 3
|
|
Text = 'Company'
|
|
OnChange = eCompanyChange
|
|
end
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 7
|
|
Top = 100
|
|
Width = 365
|
|
Height = 60
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Caption = 'Orders'
|
|
TabOrder = 1
|
|
object cbFreight: TCheckBox
|
|
Left = 8
|
|
Top = 15
|
|
Width = 218
|
|
Height = 17
|
|
Caption = 'Freight should be greater than'
|
|
TabOrder = 0
|
|
OnClick = cbFreightClick
|
|
end
|
|
object cbDeclineDeleteOrders: TCheckBox
|
|
Left = 8
|
|
Top = 33
|
|
Width = 216
|
|
Height = 17
|
|
Caption = 'Restrict deleting of orders'
|
|
TabOrder = 1
|
|
OnClick = cbDeclineDeleteOrdersClick
|
|
end
|
|
object eFreight: TSpinEdit
|
|
Left = 245
|
|
Top = 12
|
|
Width = 110
|
|
Height = 22
|
|
MaxValue = 0
|
|
MinValue = 0
|
|
TabOrder = 2
|
|
Value = 0
|
|
OnChange = eFreightChange
|
|
end
|
|
end
|
|
end
|