139 lines
3.3 KiB
Plaintext
139 lines
3.3 KiB
Plaintext
|
object fEditorProcedenciasCliente: TfEditorProcedenciasCliente
|
||
|
|
Left = 453
|
||
|
|
Top = 234
|
||
|
|
ActiveControl = ListaProcedenciasCliente
|
||
|
|
BorderIcons = [biSystemMenu]
|
||
|
|
BorderStyle = bsSingle
|
||
|
|
Caption = 'Administraci'#243'n de procedencias de clientes'
|
||
|
|
ClientHeight = 499
|
||
|
|
ClientWidth = 404
|
||
|
|
Color = clBtnFace
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'MS Sans Serif'
|
||
|
|
Font.Style = []
|
||
|
|
OldCreateOrder = False
|
||
|
|
Position = poScreenCenter
|
||
|
|
OnClose = CustomEditorClose
|
||
|
|
OnShow = FormShow
|
||
|
|
InstanceID = 0
|
||
|
|
ReadOnly = False
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 13
|
||
|
|
object bAceptar: TButton
|
||
|
|
Left = 226
|
||
|
|
Top = 464
|
||
|
|
Width = 75
|
||
|
|
Height = 25
|
||
|
|
Action = actAceptar
|
||
|
|
Default = True
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
object bCancelar: TButton
|
||
|
|
Left = 314
|
||
|
|
Top = 464
|
||
|
|
Width = 75
|
||
|
|
Height = 25
|
||
|
|
Action = actCancelar
|
||
|
|
Cancel = True
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
object PageControl1: TPageControl
|
||
|
|
Left = 8
|
||
|
|
Top = 8
|
||
|
|
Width = 390
|
||
|
|
Height = 442
|
||
|
|
ActivePage = TabSheet1
|
||
|
|
TabOrder = 0
|
||
|
|
object TabSheet1: TTabSheet
|
||
|
|
Caption = 'Procedencias de cliente'
|
||
|
|
object Label1: TLabel
|
||
|
|
Left = 10
|
||
|
|
Top = 12
|
||
|
|
Width = 153
|
||
|
|
Height = 13
|
||
|
|
Caption = 'Lista de procedencias de cliente'
|
||
|
|
end
|
||
|
|
object ListaProcedenciasCliente: TDBLookupListBox
|
||
|
|
Left = 8
|
||
|
|
Top = 31
|
||
|
|
Width = 281
|
||
|
|
Height = 277
|
||
|
|
KeyField = 'RecID'
|
||
|
|
ListField = 'DESCRIPCION'
|
||
|
|
ListSource = DADataSource
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object bEliminar: TButton
|
||
|
|
Left = 304
|
||
|
|
Top = 31
|
||
|
|
Width = 75
|
||
|
|
Height = 25
|
||
|
|
Action = actEliminar
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
object GroupBox1: TGroupBox
|
||
|
|
Left = 6
|
||
|
|
Top = 318
|
||
|
|
Width = 369
|
||
|
|
Height = 84
|
||
|
|
Caption = 'A'#241'adir una nueva procedencia de cliente'
|
||
|
|
TabOrder = 2
|
||
|
|
object eCategoria: TLabel
|
||
|
|
Left = 18
|
||
|
|
Top = 20
|
||
|
|
Width = 128
|
||
|
|
Height = 13
|
||
|
|
Caption = 'Nombre de la procedencia:'
|
||
|
|
end
|
||
|
|
object bAnadir: TButton
|
||
|
|
Left = 282
|
||
|
|
Top = 38
|
||
|
|
Width = 75
|
||
|
|
Height = 25
|
||
|
|
Action = actAnadir
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
object editProcedenciaCliente: TEdit
|
||
|
|
Left = 18
|
||
|
|
Top = 40
|
||
|
|
Width = 255
|
||
|
|
Height = 21
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object ActionList1: TActionList
|
||
|
|
Left = 144
|
||
|
|
Top = 16
|
||
|
|
object actAnadir: TAction
|
||
|
|
Caption = '&A'#241'adir'
|
||
|
|
OnExecute = actAnadirExecute
|
||
|
|
OnUpdate = actAnadirUpdate
|
||
|
|
end
|
||
|
|
object actEliminar: TAction
|
||
|
|
Caption = '&Eliminar'
|
||
|
|
OnExecute = actEliminarExecute
|
||
|
|
OnUpdate = actEliminarUpdate
|
||
|
|
end
|
||
|
|
object actAceptar: TAction
|
||
|
|
Caption = 'A&ceptar'
|
||
|
|
OnExecute = actAceptarExecute
|
||
|
|
end
|
||
|
|
object actCancelar: TAction
|
||
|
|
Caption = '&Cancelar'
|
||
|
|
OnExecute = actCancelarExecute
|
||
|
|
end
|
||
|
|
object actCerrar: TAction
|
||
|
|
Caption = 'actCerrar'
|
||
|
|
OnExecute = actCerrarExecute
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object DADataSource: TDADataSource
|
||
|
|
Left = 168
|
||
|
|
Top = 16
|
||
|
|
end
|
||
|
|
end
|