Se fuerza a viewgrid base a coger color gris y así no coge color del sistema , en windows 10 no se veían las letras. En presupuestos se pone la opción poder previsualizar e imprimir el documento si tener que entrar en el mismo

git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@28 9a1d36f3-7752-2d40-8ccb-50eb49674c68

Base/uEditorBase.dfm

@@ -77,7 +77,7 @@ object fEditorBase: TfEditorBase
       Caption = 'tbxMain'
       ChevronHint = 'M'#225's botones|'
       DockMode = dmCannotFloatOrChangeDocks
-      DockPos = -23
+      DockPos = -200
       DockRow = 1
       DragHandleStyle = dhNone
       Images = SmallImages

Base/uEditorGrid.dfm

@@ -35,7 +35,7 @@ inherited fEditorGrid: TfEditorGrid
       inherited TBXItem25: TTBXItem
         Visible = False
       end
-      object TBXItem35: TTBXItem [17]
+      object TBXItem35: TTBXItem [16]
         Action = actAnchoAuto
       end
       inherited TBXItem28: TTBXItem

Base/uViewGrid.dfm

@@ -9,8 +9,8 @@ inherited frViewGrid: TfrViewGrid
     Height = 168
     Align = alClient
     TabOrder = 0
-    LookAndFeel.Kind = lfOffice11
-    LookAndFeel.NativeStyle = True
+    LookAndFeel.Kind = lfFlat
+    LookAndFeel.NativeStyle = False
     object cxGridView: TcxGridDBTableView
       OnDblClick = cxGridViewDblClick
       NavigatorButtons.ConfirmDelete = False
@@ -114,7 +114,7 @@ inherited frViewGrid: TfrViewGrid
       PrinterPage.PageSize.Y = 297000
       PrinterPage._dxMeasurementUnits_ = 0
       PrinterPage._dxLastMU_ = 2
-      ReportDocument.CreationDate = 39213.688278530090000000
+      ReportDocument.CreationDate = 42423.553023946760000000
       OptionsCharts.Transparent = True
       OptionsFormatting.SuppressBackgroundBitmaps = True
       OptionsOnEveryPage.Caption = False
@@ -140,7 +140,7 @@ inherited frViewGrid: TfrViewGrid
     end
     object cxStyleOdd: TcxStyle
       AssignedValues = [svColor]
-      Color = clInactiveCaptionText
+      Color = 15724785
     end
     object cxStyleSelection: TcxStyle
       AssignedValues = [svColor, svTextColor]

Cliente/FactuGES.dof

@@ -183,8 +183,8 @@ Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
 Count=16
-Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
-Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
 Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
 Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
 Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
@@ -204,8 +204,8 @@ Count=1
 Item0=.\
 [HistoryLists\hlOutputDirectorry]
 Count=2
-Item0=..\Output\Servidor
-Item1=..\Output\Cliente
+Item0=..\Output\Cliente
+Item1=..\Output\Servidor
 [HistoryLists\hlBPLOutput]
 Count=3
 Item0=..\..\..\Output\Cliente

Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm

@@ -1,15 +1,15 @@
 inherited fEditorPresupuestos: TfEditorPresupuestos
-  Left = 194
-  Top = 174
-  Width = 781
+  Left = 796
+  Top = 291
+  Width = 901
   Caption = 'Lista de presupuestos'
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 773
+    Width = 893
     Caption = 'Lista de presupuestos'
     inherited Image1: TImage
-      Left = 746
+      Left = 866
       Picture.Data = {
         0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
         0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -32,16 +32,47 @@ inherited fEditorPresupuestos: TfEditorPresupuestos
     end
   end
   inherited TBXDock: TTBXDock
-    Width = 773
+    Width = 893
     inherited tbxMain: TTBXToolbar
-      object TBXSeparatorItem16: TTBXSeparatorItem
+      DockPos = -64
+      inherited TBXSeparatorItem2: TTBXSeparatorItem [9]
       end
-      object TBXItem38: TTBXItem
+      inherited TBXItem24: TTBXItem [10]
+      end
+      inherited TBXItem26: TTBXItem [11]
+      end
+      inherited TBXItem25: TTBXItem [12]
+      end
+      inherited TBXItem35: TTBXItem [13]
+      end
+      inherited TBXItem6: TTBXItem [14]
+      end
+      object TBXSeparatorItem16: TTBXSeparatorItem [15]
+      end
+      object TBXItem38: TTBXItem [16]
         Action = actAceptado
       end
-      object TBXItem36: TTBXItem
+      object TBXItem36: TTBXItem [17]
         Action = actRechazado
       end
+      inherited TBXItem28: TTBXItem [18]
+      end
+      inherited TBXSeparatorItem11: TTBXSeparatorItem [19]
+      end
+      object TBXItem39: TTBXItem [20]
+        Action = actPrevisualizarDocumento
+        DisplayMode = nbdmImageAndText
+      end
+      inherited TBXItem23: TTBXItem [21]
+      end
+      inherited TBXSeparatorItem10: TTBXSeparatorItem [22]
+      end
+      object TBXItem40: TTBXItem [23]
+        Action = actImprimirDocumento
+        DisplayMode = nbdmImageAndText
+      end
+      inherited TBXItem3: TTBXItem [24]
+      end
     end
     inherited tbxFiltro: TTBXToolbar
       inherited lblAno: TTBXLabelItem
@@ -56,12 +87,12 @@ inherited fEditorPresupuestos: TfEditorPresupuestos
     end
   end
   inherited StatusBar: TStatusBar
-    Width = 773
+    Width = 893
   end
   inline frViewBarraSeleccion: TfrViewBarraSeleccion [3]
     Left = 0
     Top = 395
-    Width = 773
+    Width = 893
     Height = 37
     Align = alBottom
     AutoScroll = False
@@ -76,12 +107,12 @@ inherited fEditorPresupuestos: TfEditorPresupuestos
     ReadOnly = False
     inherited pnlSeleccion: TPanel
       Top = 0
-      Width = 773
+      Width = 893
       inherited bSeleccionar: TButton
-        Left = 616
+        Left = 736
       end
       inherited bCancelar: TButton
-        Left = 695
+        Left = 815
       end
     end
     inherited ActionListSeleccion: TActionList
@@ -96,6 +127,19 @@ inherited fEditorPresupuestos: TfEditorPresupuestos
       ImageIndex = 24
       OnExecute = actNuevoExecute
     end
+    inherited actPrevisualizar: TAction
+      Caption = 'Previsualizar &lista actual'
+    end
+    inherited actImprimir: TAction
+      Caption = 'Imprimir lista actual'
+    end
+    object actPrevisualizarDocumento: TAction [23]
+      Category = 'Archivo'
+      Caption = '&Previsualizar documento'
+      ImageIndex = 6
+      OnExecute = actPrevisualizarDocumentoExecute
+      OnUpdate = actPrevisualizarDocumentoUpdate
+    end
     object actAceptado: TAction
       Category = 'Situaciones'
       Caption = 'Aceptado'
@@ -113,6 +157,13 @@ inherited fEditorPresupuestos: TfEditorPresupuestos
       Caption = 'Pendiente'
       OnExecute = actPendienteExecute
     end
+    object actImprimirDocumento: TAction
+      Category = 'Archivo'
+      Caption = '&Imprimir Documento'
+      ImageIndex = 7
+      OnExecute = actImprimirDocumentoExecute
+      OnUpdate = actImprimirDocumentoUpdate
+    end
   end
   inherited SmallImages: TPngImageList [5]
     PngImages = <

Modulos/Presupuestos/Cliente/uEditorPresupuestos.pas

@@ -33,6 +33,10 @@ type
     TBXItem36: TTBXItem;
     TBXSeparatorItem16: TTBXSeparatorItem;
     TBXItem38: TTBXItem;
+    actPrevisualizarDocumento: TAction;
+    TBXItem39: TTBXItem;
+    actImprimirDocumento: TAction;
+    TBXItem40: TTBXItem;
     procedure actEliminarExecute(Sender: TObject);
     procedure actModificarExecute(Sender: TObject);
     procedure actNuevoExecute(Sender: TObject);
@@ -45,10 +49,14 @@ type
     procedure actPendienteExecute(Sender: TObject);
     procedure OnListaAnosChange(Sender: TObject; const Text: string);
     procedure FormShow(Sender: TObject);
+    procedure actPrevisualizarDocumentoExecute(Sender: TObject);
+    procedure actImprimirDocumentoExecute(Sender: TObject);
+    procedure actImprimirDocumentoUpdate(Sender: TObject);
+    procedure actPrevisualizarDocumentoUpdate(Sender: TObject);
 
   private
     FPresupuestos: IBizPresupuestos;
-    
+
   protected
     function GetPresupuestos: IBizPresupuestos;
     function GetSelectionBarVisible: Boolean;
@@ -71,7 +79,7 @@ var
 implementation
 
 uses cxControls, uDataModulePresupuestos, uEditorUtils, uEditorBase,
-  DateUtils, uDataModuleMontajes, uDBSelectionList;
+  DateUtils, uDataModuleMontajes, uDBSelectionList, uBizInformesBase;
 
 {$R *.DFM}
 
@@ -284,6 +292,51 @@ begin
   inherited;
 end;
 
+procedure TfEditorPresupuestos.actPrevisualizarDocumentoExecute(
+  Sender: TObject);
+var
+  aInf : IBizInformesAware;
+begin
+  inherited;
+
+  if Assigned(dsDataTable.DataTable) and
+    Supports(dsDataTable.DataTable, IBizInformesAware, aInf) then
+    aInf.Preview;
+end;
+
+procedure TfEditorPresupuestos.actImprimirDocumentoExecute(
+  Sender: TObject);
+var
+  aInf : IBizInformesAware;
+begin
+  inherited;
+
+  if Assigned(dsDataTable.DataTable) and
+    Supports(dsDataTable.DataTable, IBizInformesAware, aInf) then
+    aInf.Print;
+end;
+
+procedure TfEditorPresupuestos.actImprimirDocumentoUpdate(Sender: TObject);
+begin
+  inherited;
+  if Assigned(dsDataTable.DataTable) then
+    (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty)
+      and not (dsDataTable.DataTable.State = dsInsert)
+  else
+    (Sender as TAction).Enabled := False;
+end;
+
+procedure TfEditorPresupuestos.actPrevisualizarDocumentoUpdate(
+  Sender: TObject);
+begin
+  inherited;
+  if Assigned(dsDataTable.DataTable) then
+    (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty)
+      and not (dsDataTable.DataTable.State = dsInsert)    
+  else
+    (Sender as TAction).Enabled := False;
+end;
+
 initialization
   RegisterEditor(IBizPresupuestos, ShowEditorPresupuestos, etItems);
   RegisterEditor(IBizPresupuestos, ShowSelectEditorPresupuestos, etSelectItems);

Usuarios/uLoginForm.dfm

@@ -1,6 +1,6 @@
 object fLoginForm: TfLoginForm
-  Left = 384
-  Top = 376
+  Left = 651
+  Top = 378
   ActiveControl = edtUser
   BorderStyle = bsDialog
   ClientHeight = 243
@@ -15,9 +15,6 @@ object fLoginForm: TfLoginForm
   Position = poScreenCenter
   OnCreate = FormCreate
   OnShow = FormShow
-  DesignSize = (
-    386
-    243)
   PixelsPerInch = 96
   TextHeight = 13
   object Label3: TLabel
@@ -58,6 +55,15 @@ object fLoginForm: TfLoginForm
     StartColor = 2971346
     EndColor = 4828405
   end
+  object Button1: TButton
+    Left = 95
+    Top = 160
+    Width = 116
+    Height = 25
+    Caption = 'Configurar conexi'#243'n...'
+    TabOrder = 5
+    OnClick = ToolButton4Click
+  end
   object Panel1: TPanel
     Left = 0
     Top = 0
@@ -1028,7 +1034,7 @@ object fLoginForm: TfLoginForm
     Height = 21
     CharCase = ecLowerCase
     PasswordChar = '*'
-    TabOrder = 1
+    TabOrder = 2
   end
   object bAceptar: TButton
     Left = 208
@@ -1037,7 +1043,7 @@ object fLoginForm: TfLoginForm
     Height = 25
     Caption = '&Aceptar'
     Default = True
-    TabOrder = 2
+    TabOrder = 3
     OnClick = bAceptarClick
   end
   object bCancelar: TButton
@@ -1048,7 +1054,7 @@ object fLoginForm: TfLoginForm
     Cancel = True
     Caption = '&Salir'
     ModalResult = 2
-    TabOrder = 3
+    TabOrder = 4
   end
   object edtUser: TEdit
     Left = 96
@@ -1056,33 +1062,7 @@ object fLoginForm: TfLoginForm
     Width = 278
     Height = 21
     CharCase = ecLowerCase
-    TabOrder = 4
-  end
-  object ToolBar2: TToolBar
-    Left = 96
-    Top = 160
-    Width = 281
-    Height = 22
-    Align = alNone
-    Anchors = [akLeft, akTop, akRight]
-    ButtonHeight = 21
-    ButtonWidth = 110
-    Caption = 'ToolBar1'
-    EdgeBorders = []
-    EdgeInner = esNone
-    EdgeOuter = esNone
-    Flat = True
-    ParentShowHint = False
-    ShowCaptions = True
-    ShowHint = True
-    TabOrder = 5
-    Transparent = True
-    object ToolButton4: TToolButton
-      Left = 0
-      Top = 0
-      Caption = 'Configurar conexi'#243'n...'
-      OnClick = ToolButton4Click
-    end
+    TabOrder = 1
   end
   object PngImageList1: TPngImageList
     PngImages = <

Usuarios/uLoginForm.pas

@@ -20,10 +20,9 @@ type
     Label1: TLabel;
     PngImageList1: TPngImageList;
     edtUser: TEdit;
-    ToolBar2: TToolBar;
-    ToolButton4: TToolButton;
     Image1: TImage;
     JvGradient1: TJvGradient;
+    Button1: TButton;
     procedure bAceptarClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure ToolButton4Click(Sender: TObject);