Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Mejorada la apariencia del formulario TfDialogBase.

Browse Source 
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:
David Arranz 2009-06-02 10:54:55 +00:00
parent 5918d9fa8d
commit 1f6db0edf6
6 changed files with 287 additions and 210 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

141
Source/GUIBase/uDialogBase.dfm
View File

@ -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

13
Source/GUIBase/uDialogBase.pas
View File

@ -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

179
Source/GUIBase/uDialogElegirEMail.dfm
View File

@ -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

2
Source/GUIBase/uDialogElegirEMail.pas
View File

@ -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);

89
Source/Modulos/Facturas de cliente/Views/uDialogOpcionesImpresionFacturasCliente.dfm
View File

@ -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

73
Source/Modulos/Pedidos a proveedor/Views/uDialogOpcionesImpresionPedidosProveedor.dfm
View File

@ -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