AlonsoYSal_FactuGES2/Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.dfm
2019-11-18 10:36:42 +00:00

234 lines
5.7 KiB
Plaintext

inherited fEditorElegirPersonaContacto: TfEditorElegirPersonaContacto
Left = 227
Top = 108
Caption = 'Elegir una direcciones de cliente'
ClientHeight = 460
ClientWidth = 661
OldCreateOrder = True
Position = poOwnerFormCenter
ExplicitWidth = 667
ExplicitHeight = 492
PixelsPerInch = 96
TextHeight = 13
inherited Bevel2: TBevel
Width = 661
ExplicitWidth = 661
end
inherited Bevel3: TBevel
Top = 416
Width = 661
ExplicitTop = 416
ExplicitWidth = 661
end
inherited pnlBotones: TPanel
Top = 418
Width = 661
TabOrder = 1
ExplicitTop = 418
ExplicitWidth = 661
inherited btnAceptar: TButton
Left = 499
Top = 6
ExplicitLeft = 499
ExplicitTop = 6
end
inherited btnCancelar: TButton
Left = 578
Top = 6
ExplicitLeft = 578
ExplicitTop = 6
end
end
inherited pnlHeader: TPanel
Width = 661
TabOrder = 2
ExplicitWidth = 661
inherited lblTitle: TLabel
Width = 611
end
inherited lblComments: TLabel
Width = 586
Height = 27
Caption = ''
ExplicitWidth = 586
end
end
inherited pnlCuerpo: TPanel
Width = 661
Height = 350
TabOrder = 0
ExplicitWidth = 661
ExplicitHeight = 350
object DBCtrlGrid1: TDBCtrlGrid
Left = 50
Top = 15
Width = 561
Height = 320
Margins.Left = 10
Margins.Top = 10
Margins.Right = 10
Margins.Bottom = 0
Align = alClient
AllowDelete = False
AllowInsert = False
Color = clBtnFace
DataSource = dsPersonas
PanelHeight = 106
PanelWidth = 544
ParentColor = False
TabOrder = 0
SelectedColor = clHighlight
OnDblClick = DBCtrlGrid1DblClick
object ePuesto: TDBText
Left = 58
Top = 28
Width = 502
Height = 17
DataField = 'PUESTO'
DataSource = dsPersonas
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object eTelefono: TDBText
Left = 70
Top = 47
Width = 187
Height = 17
DataField = 'TELEFONO'
DataSource = dsPersonas
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object eNombre: TDBText
Left = 8
Top = 7
Width = 537
Height = 17
DataField = 'NOMBRE'
DataSource = dsPersonas
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object Label1: TLabel
Left = 15
Top = 28
Width = 37
Height = 13
Caption = 'Puesto:'
OnDblClick = ComponenteDblClick
end
object Label2: TLabel
Left = 15
Top = 47
Width = 46
Height = 13
Caption = 'Tel'#233'fono:'
OnDblClick = ComponenteDblClick
end
object Label3: TLabel
Left = 281
Top = 47
Width = 47
Height = 13
Caption = 'Tlf. m'#243'vil:'
OnDblClick = ComponenteDblClick
end
object eMovil: TDBText
Left = 334
Top = 47
Width = 187
Height = 17
DataField = 'MOVIL'
DataSource = dsPersonas
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object Label4: TLabel
Left = 16
Top = 66
Width = 48
Height = 13
Caption = 'N'#250'm. fax:'
OnDblClick = ComponenteDblClick
end
object eFax: TDBText
Left = 70
Top = 66
Width = 187
Height = 17
DataField = 'FAX'
DataSource = dsPersonas
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object Label5: TLabel
Left = 281
Top = 66
Width = 32
Height = 13
Caption = 'E-mail:'
OnDblClick = ComponenteDblClick
end
object eEMail: TDBText
Left = 334
Top = 66
Width = 187
Height = 17
DataField = 'EMAIL'
DataSource = dsPersonas
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
end
end
inherited ActionListDialog: TActionList
inherited actAceptar: TAction
Caption = '&Seleccionar'
OnExecute = actAceptarExecute
end
inherited actCancelar: TAction
OnExecute = actCancelarExecute
end
end
object dsPersonas: TDADataSource
Left = 24
Top = 286
end
end