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

143
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 = alBottom Align = alTop
FlowStyle = fsBottomTopRightLeft Shape = bsTopLine
Padding.Left = 20 ExplicitWidth = 500
Padding.Top = 20
Padding.Right = 20
Padding.Bottom = 15
ParentBackground = False
TabOrder = 0
VerticalAlignment = taAlignTop
object Button1: TButton
Left = 527
Top = 15
Width = 75
Height = 25
Action = actCancelar
Cancel = True
ModalResult = 2
TabOrder = 1
end end
object Button2: TButton object Bevel3: TBevel
Left = 0
Top = 398
Width = 625
Height = 2
Align = alBottom
Shape = bsTopLine
ExplicitTop = 369
ExplicitWidth = 500
end
object pnlBotones: TPanel
Left = 0
Top = 400
Width = 625
Height = 42
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object btnAceptar: 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
object FlowPanel1: TFlowPanel end
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

141
Source/GUIBase/uDialogElegirEMail.dfm
View File

@ -1,84 +1,82 @@
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
ExplicitWidth = 533
inherited Button1: TButton
Left = 437
ExplicitLeft = 437
end end
inherited Button2: TButton inherited Bevel3: TBevel
Left = 347 Top = 262
ExplicitLeft = 347 Width = 572
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
inherited btnCancelar: TButton
Left = 487
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
TabOrder = 0 Top = 16
object rbCombo: TRadioButton Width = 277
Tag = 1 Height = 13
Left = 10 Caption = 'Indique la direcci'#243'n de correo electr'#243'nico del destinatario:'
Top = 6
Width = 170
Height = 17
Caption = 'Usar esta direcci'#243'n de correo:'
TabOrder = 0
OnClick = rbComboClick
end end
object cbEMail: TComboBox object cbEMail: TComboBox
Left = 211 Left = 250
Top = 6 Top = 46
Width = 262 Width = 262
Height = 21 Height = 21
Style = csDropDownList Style = csDropDownList
ItemHeight = 0 ItemHeight = 13
TabOrder = 1 TabOrder = 0
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 end
object edtEMail: TcxHyperLinkEdit object edtEMail: TcxHyperLinkEdit
Left = 211 Left = 250
Top = 39 Top = 79
Properties.UsePrefix = upNever Properties.UsePrefix = upNever
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Properties.Prefix = '' Properties.Prefix = ''
@ -90,14 +88,33 @@ inherited fDialogElegirEMail: TfDialogElegirEMail
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 1
Width = 262 Width = 262
end end
object rbCombo: TRadioButton
Tag = 1
Left = 49
Top = 46
Width = 170
Height = 17
Caption = 'Usar esta direcci'#243'n de correo:'
TabOrder = 2
OnClick = rbComboClick
end
object rbEdit: TRadioButton
Tag = 2
Left = 49
Top = 81
Width = 202
Height = 17
Caption = 'Usar la siguiente direcci'#243'n de correo:'
TabOrder = 3
OnClick = rbEditClick
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
ExplicitWidth = 488
inherited Button1: TButton
Left = 392
ExplicitLeft = 392
end end
inherited Button2: TButton inherited Bevel3: TBevel
Left = 302 Top = 196
ExplicitLeft = 302 Width = 418
ExplicitTop = 196
ExplicitWidth = 418
end
inherited pnlBotones: TPanel
Top = 198
Width = 418
ExplicitTop = 198
ExplicitWidth = 418
inherited btnAceptar: TButton
Left = 254
ExplicitLeft = 254
end
inherited btnCancelar: TButton
Left = 333
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

79
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
Top = 195
Width = 393
end
inherited pnlBotones: TPanel
Top = 197
Width = 393
ExplicitLeft = -8
ExplicitTop = 320
ExplicitWidth = 637
inherited btnAceptar: TButton
Left = 229
ExplicitLeft = 229
end
inherited btnCancelar: TButton
Left = 308
ExplicitLeft = 308
end
end
inherited pnlHeader: TPanel
Width = 393
ExplicitWidth = 488 ExplicitWidth = 488
inherited Button1: TButton
Left = 392
ExplicitLeft = 392
end
inherited Button2: TButton
Left = 302
ExplicitLeft = 302
end
end
inherited FlowPanel1: TFlowPanel
Width = 488
Height = 141
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