david
d51e1fe077
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@225 0c75b7a4-871f-7646-8a2f-f78d34cc349f
143 lines
3.3 KiB
Plaintext
143 lines
3.3 KiB
Plaintext
object fEditorGruposCliente: TfEditorGruposCliente
|
|
Left = 453
|
|
Top = 234
|
|
ActiveControl = ListaGruposCliente
|
|
BorderIcons = [biSystemMenu]
|
|
BorderStyle = bsSingle
|
|
Caption = 'Administraci'#243'n de grupos 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 = 'Grupos de cliente'
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object Label1: TLabel
|
|
Left = 10
|
|
Top = 12
|
|
Width = 121
|
|
Height = 13
|
|
Caption = 'Lista de grupos de cliente'
|
|
end
|
|
object ListaGruposCliente: 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 un nuevo grupo de cliente'
|
|
TabOrder = 2
|
|
object eCategoria: TLabel
|
|
Left = 18
|
|
Top = 20
|
|
Width = 87
|
|
Height = 13
|
|
Caption = 'Nombre del grupo:'
|
|
end
|
|
object bAnadir: TButton
|
|
Left = 282
|
|
Top = 38
|
|
Width = 75
|
|
Height = 25
|
|
Action = actAnadir
|
|
TabOrder = 1
|
|
end
|
|
object editGrupoCliente: 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
|