david
e7e45f1323
- En los controladores, cambiar TObservador por TControllerBase - Limpieza de código y warnings. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@528 0c75b7a4-871f-7646-8a2f-f78d34cc349f
110 lines
2.8 KiB
Plaintext
110 lines
2.8 KiB
Plaintext
inherited fDialogElegirEMail: TfDialogElegirEMail
|
|
Caption = 'Elegir direcci'#243'n de correo electr'#243'nico'
|
|
ClientHeight = 220
|
|
ClientWidth = 533
|
|
OnCloseQuery = FormCloseQuery
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
ExplicitWidth = 539
|
|
ExplicitHeight = 252
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
inherited pnlBotones: TFlowPanel
|
|
Top = 164
|
|
Width = 533
|
|
ExplicitTop = 164
|
|
ExplicitWidth = 533
|
|
inherited Button1: TButton
|
|
Left = 437
|
|
ExplicitLeft = 437
|
|
end
|
|
inherited Button2: TButton
|
|
Left = 347
|
|
ExplicitLeft = 347
|
|
end
|
|
end
|
|
inherited FlowPanel1: TFlowPanel
|
|
Width = 533
|
|
Height = 164
|
|
ExplicitWidth = 533
|
|
ExplicitHeight = 164
|
|
inherited lblInstruccion: TLabel
|
|
Width = 411
|
|
Caption = 'Indique la direcci'#243'n de correo electr'#243'nico del destinatario:'
|
|
ExplicitWidth = 411
|
|
end
|
|
inherited Label2: TLabel
|
|
Height = 3
|
|
Visible = False
|
|
ExplicitHeight = 3
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 31
|
|
Top = 73
|
|
Width = 482
|
|
Height = 80
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
ParentColor = True
|
|
TabOrder = 0
|
|
object rbCombo: TRadioButton
|
|
Tag = 1
|
|
Left = 10
|
|
Top = 6
|
|
Width = 170
|
|
Height = 17
|
|
Caption = 'Usar esta direcci'#243'n de correo:'
|
|
TabOrder = 0
|
|
OnClick = rbComboClick
|
|
end
|
|
object cbEMail: TComboBox
|
|
Left = 211
|
|
Top = 6
|
|
Width = 262
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 1
|
|
end
|
|
object rbEdit: TRadioButton
|
|
Tag = 2
|
|
Left = 10
|
|
Top = 41
|
|
Width = 202
|
|
Height = 17
|
|
Caption = 'Usar la siguiente direcci'#243'n de correo:'
|
|
TabOrder = 2
|
|
OnClick = rbEditClick
|
|
end
|
|
object edtEMail: TcxHyperLinkEdit
|
|
Left = 211
|
|
Top = 39
|
|
Properties.UsePrefix = upNever
|
|
Properties.ValidateOnEnter = True
|
|
Properties.OnValidate = edtEMailPropertiesValidate
|
|
Properties.Prefix = ''
|
|
Style.LookAndFeel.Kind = lfStandard
|
|
Style.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.Kind = lfStandard
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 3
|
|
Width = 262
|
|
end
|
|
end
|
|
end
|
|
inherited ActionList1: TActionList
|
|
Left = 8
|
|
Top = 8
|
|
inherited actAceptar: TAction
|
|
OnExecute = actAceptarExecute
|
|
end
|
|
inherited actCancelar: TAction
|
|
OnExecute = actCancelarExecute
|
|
end
|
|
end
|
|
end
|