Mejorada la apariencia del formulario TfDialogBase.
Revisión de TfDialogElegirEMail git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@946 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
5918d9fa8d
commit
1f6db0edf6
@ -3,9 +3,9 @@ object fDialogBase: TfDialogBase
|
|||||||
Top = 0
|
Top = 0
|
||||||
BorderStyle = bsDialog
|
BorderStyle = bsDialog
|
||||||
Caption = 'fDialogBase'
|
Caption = 'fDialogBase'
|
||||||
ClientHeight = 430
|
ClientHeight = 442
|
||||||
ClientWidth = 623
|
ClientWidth = 625
|
||||||
Color = clWindow
|
Color = clBtnFace
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
Font.Height = -11
|
Font.Height = -11
|
||||||
@ -16,34 +16,37 @@ object fDialogBase: TfDialogBase
|
|||||||
OnShow = FormShow
|
OnShow = FormShow
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
object pnlBotones: TFlowPanel
|
object Bevel2: TBevel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 374
|
Top = 64
|
||||||
Width = 623
|
Width = 625
|
||||||
Height = 56
|
Height = 2
|
||||||
|
Align = alTop
|
||||||
|
Shape = bsTopLine
|
||||||
|
ExplicitWidth = 500
|
||||||
|
end
|
||||||
|
object Bevel3: TBevel
|
||||||
|
Left = 0
|
||||||
|
Top = 398
|
||||||
|
Width = 625
|
||||||
|
Height = 2
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
FlowStyle = fsBottomTopRightLeft
|
Shape = bsTopLine
|
||||||
Padding.Left = 20
|
ExplicitTop = 369
|
||||||
Padding.Top = 20
|
ExplicitWidth = 500
|
||||||
Padding.Right = 20
|
end
|
||||||
Padding.Bottom = 15
|
object pnlBotones: TPanel
|
||||||
ParentBackground = False
|
Left = 0
|
||||||
|
Top = 400
|
||||||
|
Width = 625
|
||||||
|
Height = 42
|
||||||
|
Align = alBottom
|
||||||
|
BevelOuter = bvNone
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
VerticalAlignment = taAlignTop
|
object btnAceptar: TButton
|
||||||
object Button1: TButton
|
|
||||||
Left = 527
|
|
||||||
Top = 15
|
|
||||||
Width = 75
|
|
||||||
Height = 25
|
|
||||||
Action = actCancelar
|
|
||||||
Cancel = True
|
|
||||||
ModalResult = 2
|
|
||||||
TabOrder = 1
|
|
||||||
end
|
|
||||||
object Button2: TButton
|
|
||||||
AlignWithMargins = True
|
AlignWithMargins = True
|
||||||
Left = 437
|
Left = 464
|
||||||
Top = 15
|
Top = 8
|
||||||
Width = 75
|
Width = 75
|
||||||
Height = 25
|
Height = 25
|
||||||
Margins.Left = 0
|
Margins.Left = 0
|
||||||
@ -54,51 +57,83 @@ object fDialogBase: TfDialogBase
|
|||||||
ModalResult = 1
|
ModalResult = 1
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
end
|
end
|
||||||
|
object btnCancelar: TButton
|
||||||
|
Left = 543
|
||||||
|
Top = 8
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Action = actCancelar
|
||||||
|
Cancel = True
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object FlowPanel1: TFlowPanel
|
object pnlHeader: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 623
|
Width = 625
|
||||||
Height = 374
|
Height = 64
|
||||||
Align = alClient
|
Align = alTop
|
||||||
Padding.Left = 30
|
BevelOuter = bvNone
|
||||||
Padding.Top = 30
|
Color = clWhite
|
||||||
Padding.Right = 30
|
Padding.Left = 25
|
||||||
Padding.Bottom = 30
|
Padding.Top = 8
|
||||||
ParentColor = True
|
Padding.Right = 25
|
||||||
|
Padding.Bottom = 8
|
||||||
|
ParentBackground = False
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object lblInstruccion: TLabel
|
object lblInstruccion: TLabel
|
||||||
AlignWithMargins = True
|
AlignWithMargins = True
|
||||||
Left = 31
|
Left = 25
|
||||||
Top = 31
|
Top = 8
|
||||||
Width = 78
|
Width = 575
|
||||||
Height = 19
|
Height = 13
|
||||||
Margins.Left = 0
|
Margins.Left = 0
|
||||||
Margins.Top = 0
|
Margins.Top = 0
|
||||||
Margins.Right = 0
|
Margins.Right = 0
|
||||||
Margins.Bottom = 20
|
Margins.Bottom = 8
|
||||||
Align = alTop
|
Align = alTop
|
||||||
Caption = 'Instrucci'#243'n'
|
Caption = 'T'#237'tulo'
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
Font.Height = -16
|
Font.Height = -11
|
||||||
Font.Name = 'Tahoma'
|
Font.Name = 'Tahoma'
|
||||||
Font.Style = []
|
Font.Style = [fsBold]
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
|
ExplicitWidth = 32
|
||||||
end
|
end
|
||||||
object Label2: TLabel
|
object Label2: TLabel
|
||||||
Left = 31
|
AlignWithMargins = True
|
||||||
Top = 70
|
Left = 50
|
||||||
Width = 571
|
Top = 29
|
||||||
Height = 81
|
Width = 550
|
||||||
Align = alTop
|
Height = 27
|
||||||
AutoSize = False
|
Margins.Left = 25
|
||||||
Caption = 'Comentarios'
|
Margins.Top = 0
|
||||||
|
Margins.Right = 0
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Align = alClient
|
||||||
|
Caption = 'Bla Bla Bla'
|
||||||
|
ExplicitWidth = 48
|
||||||
|
ExplicitHeight = 13
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object pnlCuerpo: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 66
|
||||||
|
Width = 625
|
||||||
|
Height = 332
|
||||||
|
Align = alClient
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Padding.Left = 50
|
||||||
|
Padding.Top = 15
|
||||||
|
Padding.Right = 50
|
||||||
|
Padding.Bottom = 15
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
object ActionList1: TActionList
|
object ActionList1: TActionList
|
||||||
Left = 16
|
Left = 8
|
||||||
Top = 384
|
Top = 400
|
||||||
object actAceptar: TAction
|
object actAceptar: TAction
|
||||||
Caption = '&Aceptar'
|
Caption = '&Aceptar'
|
||||||
end
|
end
|
||||||
|
|||||||
@ -8,15 +8,18 @@ uses
|
|||||||
|
|
||||||
type
|
type
|
||||||
TfDialogBase = class(TForm)
|
TfDialogBase = class(TForm)
|
||||||
pnlBotones: TFlowPanel;
|
|
||||||
Button1: TButton;
|
|
||||||
Button2: TButton;
|
|
||||||
ActionList1: TActionList;
|
ActionList1: TActionList;
|
||||||
actAceptar: TAction;
|
actAceptar: TAction;
|
||||||
actCancelar: TAction;
|
actCancelar: TAction;
|
||||||
FlowPanel1: TFlowPanel;
|
pnlBotones: TPanel;
|
||||||
|
btnAceptar: TButton;
|
||||||
|
btnCancelar: TButton;
|
||||||
|
pnlHeader: TPanel;
|
||||||
lblInstruccion: TLabel;
|
lblInstruccion: TLabel;
|
||||||
Label2: TLabel;
|
Label2: TLabel;
|
||||||
|
Bevel3: TBevel;
|
||||||
|
Bevel2: TBevel;
|
||||||
|
pnlCuerpo: TPanel;
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
private
|
private
|
||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
@ -29,7 +32,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDMBase, JvNavigationPane;
|
uDMBase;
|
||||||
|
|
||||||
procedure TfDialogBase.FormShow(Sender: TObject);
|
procedure TfDialogBase.FormShow(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
|
|||||||
@ -1,103 +1,120 @@
|
|||||||
inherited fDialogElegirEMail: TfDialogElegirEMail
|
inherited fDialogElegirEMail: TfDialogElegirEMail
|
||||||
Caption = 'Elegir direcci'#243'n de correo electr'#243'nico'
|
Caption = 'Elegir direcci'#243'n de correo electr'#243'nico'
|
||||||
ClientHeight = 220
|
ClientHeight = 307
|
||||||
ClientWidth = 533
|
ClientWidth = 572
|
||||||
OnCloseQuery = FormCloseQuery
|
OnCloseQuery = FormCloseQuery
|
||||||
OnCreate = FormCreate
|
OnCreate = FormCreate
|
||||||
OnDestroy = FormDestroy
|
OnDestroy = FormDestroy
|
||||||
ExplicitWidth = 539
|
ExplicitWidth = 578
|
||||||
ExplicitHeight = 252
|
ExplicitHeight = 339
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited pnlBotones: TFlowPanel
|
inherited Bevel2: TBevel
|
||||||
Top = 164
|
Width = 572
|
||||||
Width = 533
|
ExplicitWidth = 572
|
||||||
ExplicitTop = 164
|
end
|
||||||
ExplicitWidth = 533
|
inherited Bevel3: TBevel
|
||||||
inherited Button1: TButton
|
Top = 262
|
||||||
Left = 437
|
Width = 572
|
||||||
ExplicitLeft = 437
|
ExplicitWidth = 572
|
||||||
|
end
|
||||||
|
inherited pnlBotones: TPanel
|
||||||
|
Top = 264
|
||||||
|
Width = 572
|
||||||
|
Height = 43
|
||||||
|
ExplicitLeft = -8
|
||||||
|
ExplicitTop = 280
|
||||||
|
ExplicitWidth = 572
|
||||||
|
ExplicitHeight = 43
|
||||||
|
inherited btnAceptar: TButton
|
||||||
|
Left = 408
|
||||||
|
Top = 10
|
||||||
|
ExplicitLeft = 408
|
||||||
|
ExplicitTop = 10
|
||||||
end
|
end
|
||||||
inherited Button2: TButton
|
inherited btnCancelar: TButton
|
||||||
Left = 347
|
Left = 487
|
||||||
ExplicitLeft = 347
|
Top = 9
|
||||||
|
ExplicitLeft = 487
|
||||||
|
ExplicitTop = 9
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited FlowPanel1: TFlowPanel
|
inherited pnlHeader: TPanel
|
||||||
Width = 533
|
Width = 572
|
||||||
Height = 164
|
ExplicitWidth = 572
|
||||||
ExplicitWidth = 533
|
|
||||||
ExplicitHeight = 164
|
|
||||||
inherited lblInstruccion: TLabel
|
inherited lblInstruccion: TLabel
|
||||||
Width = 411
|
Width = 522
|
||||||
Caption = 'Indique la direcci'#243'n de correo electr'#243'nico del destinatario:'
|
Caption = 'Elegir la direcci'#243'n de correo electr'#243'nico'
|
||||||
ExplicitWidth = 411
|
ExplicitWidth = 221
|
||||||
end
|
end
|
||||||
inherited Label2: TLabel
|
inherited Label2: TLabel
|
||||||
Height = 3
|
Width = 497
|
||||||
|
Height = 27
|
||||||
Visible = False
|
Visible = False
|
||||||
ExplicitHeight = 3
|
|
||||||
end
|
end
|
||||||
object Panel1: TPanel
|
end
|
||||||
Left = 31
|
inherited pnlCuerpo: TPanel
|
||||||
Top = 73
|
Width = 572
|
||||||
Width = 482
|
Height = 196
|
||||||
Height = 80
|
ExplicitWidth = 572
|
||||||
Align = alClient
|
ExplicitHeight = 208
|
||||||
BevelOuter = bvNone
|
object Label1: TLabel
|
||||||
ParentColor = True
|
Left = 25
|
||||||
|
Top = 16
|
||||||
|
Width = 277
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Indique la direcci'#243'n de correo electr'#243'nico del destinatario:'
|
||||||
|
end
|
||||||
|
object cbEMail: TComboBox
|
||||||
|
Left = 250
|
||||||
|
Top = 46
|
||||||
|
Width = 262
|
||||||
|
Height = 21
|
||||||
|
Style = csDropDownList
|
||||||
|
ItemHeight = 13
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object rbCombo: TRadioButton
|
end
|
||||||
Tag = 1
|
object edtEMail: TcxHyperLinkEdit
|
||||||
Left = 10
|
Left = 250
|
||||||
Top = 6
|
Top = 79
|
||||||
Width = 170
|
Properties.UsePrefix = upNever
|
||||||
Height = 17
|
Properties.ValidateOnEnter = True
|
||||||
Caption = 'Usar esta direcci'#243'n de correo:'
|
Properties.Prefix = ''
|
||||||
TabOrder = 0
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
OnClick = rbComboClick
|
Style.LookAndFeel.NativeStyle = True
|
||||||
end
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
object cbEMail: TComboBox
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
Left = 211
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
Top = 6
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
Width = 262
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
Height = 21
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
Style = csDropDownList
|
TabOrder = 1
|
||||||
ItemHeight = 0
|
Width = 262
|
||||||
TabOrder = 1
|
end
|
||||||
end
|
object rbCombo: TRadioButton
|
||||||
object rbEdit: TRadioButton
|
Tag = 1
|
||||||
Tag = 2
|
Left = 49
|
||||||
Left = 10
|
Top = 46
|
||||||
Top = 41
|
Width = 170
|
||||||
Width = 202
|
Height = 17
|
||||||
Height = 17
|
Caption = 'Usar esta direcci'#243'n de correo:'
|
||||||
Caption = 'Usar la siguiente direcci'#243'n de correo:'
|
TabOrder = 2
|
||||||
TabOrder = 2
|
OnClick = rbComboClick
|
||||||
OnClick = rbEditClick
|
end
|
||||||
end
|
object rbEdit: TRadioButton
|
||||||
object edtEMail: TcxHyperLinkEdit
|
Tag = 2
|
||||||
Left = 211
|
Left = 49
|
||||||
Top = 39
|
Top = 81
|
||||||
Properties.UsePrefix = upNever
|
Width = 202
|
||||||
Properties.ValidateOnEnter = True
|
Height = 17
|
||||||
Properties.Prefix = ''
|
Caption = 'Usar la siguiente direcci'#243'n de correo:'
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
TabOrder = 3
|
||||||
Style.LookAndFeel.NativeStyle = True
|
OnClick = rbEditClick
|
||||||
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
|
||||||
end
|
end
|
||||||
inherited ActionList1: TActionList
|
inherited ActionList1: TActionList
|
||||||
Left = 8
|
Left = 16
|
||||||
Top = 8
|
Top = 48
|
||||||
inherited actAceptar: TAction
|
inherited actAceptar: TAction
|
||||||
OnExecute = actAceptarExecute
|
OnExecute = actAceptarExecute
|
||||||
end
|
end
|
||||||
|
|||||||
@ -9,11 +9,11 @@ uses
|
|||||||
|
|
||||||
type
|
type
|
||||||
TfDialogElegirEMail = class(TfDialogBase)
|
TfDialogElegirEMail = class(TfDialogBase)
|
||||||
Panel1: TPanel;
|
|
||||||
rbCombo: TRadioButton;
|
rbCombo: TRadioButton;
|
||||||
cbEMail: TComboBox;
|
cbEMail: TComboBox;
|
||||||
rbEdit: TRadioButton;
|
rbEdit: TRadioButton;
|
||||||
edtEMail: TcxHyperLinkEdit;
|
edtEMail: TcxHyperLinkEdit;
|
||||||
|
Label1: TLabel;
|
||||||
procedure rbComboClick(Sender: TObject);
|
procedure rbComboClick(Sender: TObject);
|
||||||
procedure rbEditClick(Sender: TObject);
|
procedure rbEditClick(Sender: TObject);
|
||||||
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||||
|
|||||||
@ -1,70 +1,81 @@
|
|||||||
inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFacturasCliente
|
inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFacturasCliente
|
||||||
Caption = 'Opciones para facturas de cliente'
|
Caption = 'Opciones para facturas de cliente'
|
||||||
ClientHeight = 197
|
ClientHeight = 240
|
||||||
ClientWidth = 488
|
ClientWidth = 418
|
||||||
ExplicitWidth = 494
|
ExplicitWidth = 424
|
||||||
ExplicitHeight = 229
|
ExplicitHeight = 272
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited pnlBotones: TFlowPanel
|
inherited Bevel2: TBevel
|
||||||
Top = 141
|
Width = 418
|
||||||
Width = 488
|
ExplicitWidth = 418
|
||||||
ExplicitTop = 141
|
end
|
||||||
ExplicitWidth = 488
|
inherited Bevel3: TBevel
|
||||||
inherited Button1: TButton
|
Top = 196
|
||||||
Left = 392
|
Width = 418
|
||||||
ExplicitLeft = 392
|
ExplicitTop = 196
|
||||||
|
ExplicitWidth = 418
|
||||||
|
end
|
||||||
|
inherited pnlBotones: TPanel
|
||||||
|
Top = 198
|
||||||
|
Width = 418
|
||||||
|
ExplicitTop = 198
|
||||||
|
ExplicitWidth = 418
|
||||||
|
inherited btnAceptar: TButton
|
||||||
|
Left = 254
|
||||||
|
ExplicitLeft = 254
|
||||||
end
|
end
|
||||||
inherited Button2: TButton
|
inherited btnCancelar: TButton
|
||||||
Left = 302
|
Left = 333
|
||||||
ExplicitLeft = 302
|
ExplicitLeft = 333
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited FlowPanel1: TFlowPanel
|
inherited pnlHeader: TPanel
|
||||||
Width = 488
|
Width = 418
|
||||||
Height = 141
|
ExplicitWidth = 418
|
||||||
ExplicitWidth = 488
|
|
||||||
ExplicitHeight = 141
|
|
||||||
inherited lblInstruccion: TLabel
|
inherited lblInstruccion: TLabel
|
||||||
Width = 397
|
Width = 368
|
||||||
Margins.Bottom = 10
|
Margins.Bottom = 10
|
||||||
Caption = 'Indique las siguiente opciones para la factura de cliente:'
|
Caption = 'Indique las siguiente opciones para la factura de cliente:'
|
||||||
ExplicitWidth = 397
|
ExplicitWidth = 317
|
||||||
end
|
end
|
||||||
inherited Label2: TLabel
|
inherited Label2: TLabel
|
||||||
Top = 60
|
Top = 31
|
||||||
Width = 195
|
Width = 343
|
||||||
Height = 11
|
Height = 25
|
||||||
Visible = False
|
Visible = False
|
||||||
ExplicitTop = 60
|
ExplicitTop = 31
|
||||||
ExplicitWidth = 195
|
|
||||||
ExplicitHeight = 11
|
|
||||||
end
|
end
|
||||||
object cbVerSello: TCheckBox
|
end
|
||||||
|
inherited pnlCuerpo: TPanel
|
||||||
|
Width = 418
|
||||||
|
Height = 130
|
||||||
|
ExplicitWidth = 418
|
||||||
|
ExplicitHeight = 130
|
||||||
|
object cbVerCopia: TCheckBox
|
||||||
AlignWithMargins = True
|
AlignWithMargins = True
|
||||||
Left = 34
|
Left = 50
|
||||||
Top = 74
|
Top = 51
|
||||||
Width = 415
|
Width = 279
|
||||||
Height = 17
|
Height = 17
|
||||||
Caption = 'Mostrar sello de la empresa'
|
Caption = 'Indicar '#39'COPIA'#39' en la cabecera'
|
||||||
Checked = True
|
Checked = True
|
||||||
State = cbChecked
|
State = cbChecked
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
end
|
end
|
||||||
object cbVerCopia: TCheckBox
|
object cbVerSello: TCheckBox
|
||||||
AlignWithMargins = True
|
AlignWithMargins = True
|
||||||
Left = 34
|
Left = 50
|
||||||
Top = 97
|
Top = 28
|
||||||
Width = 441
|
Width = 200
|
||||||
Height = 17
|
Height = 17
|
||||||
Caption = 'Mostrar copia de factura'
|
Caption = 'Mostrar sello de la empresa'
|
||||||
Checked = True
|
Checked = True
|
||||||
State = cbChecked
|
State = cbChecked
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited ActionList1: TActionList
|
inherited ActionList1: TActionList
|
||||||
Left = 8
|
|
||||||
Top = 16
|
Top = 16
|
||||||
inherited actAceptar: TAction
|
inherited actAceptar: TAction
|
||||||
OnExecute = actAceptarExecute
|
OnExecute = actAceptarExecute
|
||||||
|
|||||||
@ -1,49 +1,61 @@
|
|||||||
inherited fDialogOpcionesImpresionPedidosProveedor: TfDialogOpcionesImpresionPedidosProveedor
|
inherited fDialogOpcionesImpresionPedidosProveedor: TfDialogOpcionesImpresionPedidosProveedor
|
||||||
Caption = 'Opciones para pedido a proveedor'
|
Caption = 'Opciones para pedido a proveedor'
|
||||||
ClientHeight = 197
|
ClientHeight = 239
|
||||||
ClientWidth = 488
|
ClientWidth = 393
|
||||||
ExplicitWidth = 494
|
ExplicitWidth = 399
|
||||||
ExplicitHeight = 229
|
ExplicitHeight = 271
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited pnlBotones: TFlowPanel
|
inherited Bevel2: TBevel
|
||||||
Top = 141
|
Width = 393
|
||||||
Width = 488
|
end
|
||||||
ExplicitTop = 141
|
inherited Bevel3: TBevel
|
||||||
ExplicitWidth = 488
|
Top = 195
|
||||||
inherited Button1: TButton
|
Width = 393
|
||||||
Left = 392
|
end
|
||||||
ExplicitLeft = 392
|
inherited pnlBotones: TPanel
|
||||||
|
Top = 197
|
||||||
|
Width = 393
|
||||||
|
ExplicitLeft = -8
|
||||||
|
ExplicitTop = 320
|
||||||
|
ExplicitWidth = 637
|
||||||
|
inherited btnAceptar: TButton
|
||||||
|
Left = 229
|
||||||
|
ExplicitLeft = 229
|
||||||
end
|
end
|
||||||
inherited Button2: TButton
|
inherited btnCancelar: TButton
|
||||||
Left = 302
|
Left = 308
|
||||||
ExplicitLeft = 302
|
ExplicitLeft = 308
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited FlowPanel1: TFlowPanel
|
inherited pnlHeader: TPanel
|
||||||
Width = 488
|
Width = 393
|
||||||
Height = 141
|
|
||||||
ExplicitWidth = 488
|
ExplicitWidth = 488
|
||||||
ExplicitHeight = 141
|
|
||||||
inherited lblInstruccion: TLabel
|
inherited lblInstruccion: TLabel
|
||||||
Width = 415
|
Width = 343
|
||||||
Margins.Bottom = 10
|
Margins.Bottom = 10
|
||||||
Caption = 'Indique las siguiente opciones para el pedido a proveedor:'
|
Caption = 'Indique las siguiente opciones para el pedido a proveedor:'
|
||||||
ExplicitWidth = 415
|
ExplicitWidth = 328
|
||||||
end
|
end
|
||||||
inherited Label2: TLabel
|
inherited Label2: TLabel
|
||||||
Top = 60
|
Top = 31
|
||||||
Width = 195
|
Width = 318
|
||||||
Height = 11
|
Height = 25
|
||||||
Visible = False
|
Visible = False
|
||||||
ExplicitTop = 60
|
ExplicitTop = 60
|
||||||
ExplicitWidth = 195
|
|
||||||
ExplicitHeight = 11
|
|
||||||
end
|
end
|
||||||
|
end
|
||||||
|
inherited pnlCuerpo: TPanel
|
||||||
|
Width = 393
|
||||||
|
Height = 129
|
||||||
|
ExplicitLeft = -8
|
||||||
|
ExplicitTop = 70
|
||||||
|
ExplicitWidth = 637
|
||||||
|
ExplicitHeight = 222
|
||||||
object cbVerPrecios: TCheckBox
|
object cbVerPrecios: TCheckBox
|
||||||
AlignWithMargins = True
|
AlignWithMargins = True
|
||||||
Left = 34
|
Left = 50
|
||||||
Top = 74
|
Top = 29
|
||||||
Width = 415
|
Width = 415
|
||||||
Height = 17
|
Height = 17
|
||||||
Caption = 'Mostrar los precios en los conceptos'
|
Caption = 'Mostrar los precios en los conceptos'
|
||||||
@ -53,8 +65,8 @@ inherited fDialogOpcionesImpresionPedidosProveedor: TfDialogOpcionesImpresionPed
|
|||||||
end
|
end
|
||||||
object cbVerRefProveedor: TCheckBox
|
object cbVerRefProveedor: TCheckBox
|
||||||
AlignWithMargins = True
|
AlignWithMargins = True
|
||||||
Left = 34
|
Left = 50
|
||||||
Top = 97
|
Top = 52
|
||||||
Width = 441
|
Width = 441
|
||||||
Height = 17
|
Height = 17
|
||||||
Caption = 'Mostrar las referencias de proveedor de los conceptos'
|
Caption = 'Mostrar las referencias de proveedor de los conceptos'
|
||||||
@ -64,7 +76,6 @@ inherited fDialogOpcionesImpresionPedidosProveedor: TfDialogOpcionesImpresionPed
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited ActionList1: TActionList
|
inherited ActionList1: TActionList
|
||||||
Left = 8
|
|
||||||
Top = 16
|
Top = 16
|
||||||
inherited actAceptar: TAction
|
inherited actAceptar: TAction
|
||||||
OnExecute = actAceptarExecute
|
OnExecute = actAceptarExecute
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user