Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Pantalla principal -> cambios estéticos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@81 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-02-01 16:18:22 +00:00
parent e39c524647
commit 3f491d885b
2 changed files with 68 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -2,8 +2,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 358 Left = 358
Top = 250 Top = 250
Caption = 'Pantalla principal' Caption = 'Pantalla principal'
ClientHeight = 551 ClientHeight = 565
ClientWidth = 884 ClientWidth = 878
Color = clWindow Color = clWindow
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -25,8 +25,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
AlignWithMargins = True AlignWithMargins = True
Left = 5 Left = 5
Top = 5 Top = 5
Width = 874 Width = 868
Height = 531 Height = 545
Margins.Left = 5 Margins.Left = 5
Margins.Top = 5 Margins.Top = 5
Margins.Right = 5 Margins.Right = 5
@ -36,20 +36,18 @@ object fPantallaPrincipal: TfPantallaPrincipal
TabOrder = 0 TabOrder = 0
ShowCaption = False ShowCaption = False
ShowCaptionWhenDocked = False ShowCaptionWhenDocked = False
object JvSyncSplitter1: TJvSyncSplitter object Splitter1: TSplitter
Left = 210 Left = 210
Top = 0 Top = 0
Width = 5 Width = 5
Height = 531 Height = 545
ResizeStyle = rsPattern ExplicitHeight = 508
ExplicitTop = 5
ExplicitHeight = 570
end end
object JvNavigationPane: TJvNavigationPane object JvNavigationPane: TJvNavigationPane
Left = 0 Left = 0
Top = 0 Top = 0
Width = 210 Width = 210
Height = 531 Height = 545
ActivePage = pagInicio ActivePage = pagInicio
Align = alLeft Align = alLeft
AutoHeaders = True AutoHeaders = True
@ -95,7 +93,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 0 Left = 0
Top = 0 Top = 0
Width = 208 Width = 208
Height = 458 Height = 472
Background.Stretch = False Background.Stretch = False
Background.Proportional = False Background.Proportional = False
Background.Center = False Background.Center = False
@ -105,7 +103,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
ImageIndex = 0 ImageIndex = 0
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 372 Top = 386
Width = 208 Width = 208
Height = 86 Height = 86
Align = alBottom Align = alBottom
@ -158,8 +156,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
object pnlBorde: TJvXPContainer object pnlBorde: TJvXPContainer
Left = 215 Left = 215
Top = 0 Top = 0
Width = 659 Width = 653
Height = 531 Height = 545
BoundColor = 8684676 BoundColor = 8684676
BoundLines = [blLeft, blTop, blRight, blBottom] BoundLines = [blLeft, blTop, blRight, blBottom]
Caption = 'pnlBorde' Caption = 'pnlBorde'
@ -167,8 +165,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
object pnlMain: TSpTBXDockablePanel object pnlMain: TSpTBXDockablePanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 657 Width = 651
Height = 529 Height = 543
Color = clWindow Color = clWindow
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -210,8 +208,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
end end
object SpTBXStatusBar1: TSpTBXStatusBar object SpTBXStatusBar1: TSpTBXStatusBar
Left = 0 Left = 0
Top = 541 Top = 555
Width = 884 Width = 878
Height = 10 Height = 10
object SpTBXLabelItem1: TSpTBXLabelItem object SpTBXLabelItem1: TSpTBXLabelItem
Images = StatusPanelImageList Images = StatusPanelImageList
@ -306,11 +304,26 @@ object fPantallaPrincipal: TfPantallaPrincipal
end end
object actInformacionEmpresa: TAction object actInformacionEmpresa: TAction
Category = 'Empresa' Category = 'Empresa'
Caption = 'Informaci'#243'n de empresa' Caption = '&Informaci'#243'n de empresa'
ImageIndex = 2 ImageIndex = 2
OnExecute = actInformacionEmpresaExecute OnExecute = actInformacionEmpresaExecute
OnUpdate = actMenuComprasUpdate OnUpdate = actMenuComprasUpdate
end end
object actUsuarios: TAction
Category = 'Opciones'
Caption = '&Usuarios'
OnExecute = actUsuariosExecute
end
object actPerfilesUsuario: TAction
Category = 'Opciones'
Caption = 'Perfiles de usuario'
OnExecute = actPerfilesUsuarioExecute
end
object actSeleccionEmpresas: TAction
Category = 'Empresa'
Caption = '&Selecci'#243'n de empresas'
OnExecute = actSeleccionEmpresasExecute
end
end end
object ModulesSmallImageList: TPngImageList object ModulesSmallImageList: TPngImageList
PngImages = < PngImages = <
@ -528,14 +541,13 @@ object fPantallaPrincipal: TfPantallaPrincipal
end end
object HostMenu: TJvMainMenu object HostMenu: TJvMainMenu
Images = ModulesSmallImageList Images = ModulesSmallImageList
Style = msItemPainter Style = msOffice
ImageMargin.Left = 0 ImageMargin.Left = 0
ImageMargin.Top = 0 ImageMargin.Top = 0
ImageMargin.Right = 0 ImageMargin.Right = 0
ImageMargin.Bottom = 0 ImageMargin.Bottom = 0
ImageSize.Height = 0 ImageSize.Height = 0
ImageSize.Width = 0 ImageSize.Width = 0
ItemPainter = JvXPMenuItemPainter1
Left = 248 Left = 248
Top = 168 Top = 168
object Archivo2_OLD: TMenuItem object Archivo2_OLD: TMenuItem
@ -590,13 +602,11 @@ object fPantallaPrincipal: TfPantallaPrincipal
Caption = 'Administraci'#243'n' Caption = 'Administraci'#243'n'
object Usuarios1: TMenuItem object Usuarios1: TMenuItem
Tag = 1 Tag = 1
Caption = 'Usuarios' Action = actUsuarios
OnClick = Usuarios1Click
end end
object Perfiles1: TMenuItem object Perfiles1: TMenuItem
Tag = 2 Tag = 2
Caption = 'Perfiles de usuario' Action = actPerfilesUsuario
OnClick = Perfiles1Click
end end
end end
end end
@ -615,9 +625,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Tag = 1000 Tag = 1000
Caption = 'Empresa' Caption = 'Empresa'
object Listadeempresas1_OLD: TMenuItem object Listadeempresas1_OLD: TMenuItem
Caption = 'Selecci'#243'n de empresas' Action = actSeleccionEmpresas
Visible = False
OnClick = Listadeempresas1_OLDClick
end end
object N1_OLD: TMenuItem object N1_OLD: TMenuItem
Tag = 100 Tag = 100
@ -678,12 +686,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
end end
end end
end end
object JvXPMenuItemPainter1: TJvXPMenuItemPainter
SelectionFrameBrush.Color = 13811126
SelectionFramePen.Color = 6956042
Left = 288
Top = 168
end
object StatusPanelImageList: TPngImageList object StatusPanelImageList: TPngImageList
PngImages = < PngImages = <
item item

82
Source/Cliente/uPantallaPrincipal.pas
View File

@ -4,13 +4,10 @@ interface
uses uses
Windows, Forms, SysUtils, Messages, JvMenus, Menus, Graphics, AppEvnts, Windows, Forms, SysUtils, Messages, JvMenus, Menus, Graphics, AppEvnts,
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, Dialogs,
JvNavigationPane, ImgList, Controls, PngImageList, Classes, ActnList, XPMan, JvNavigationPane, ImgList, Controls, PngImageList, Classes, ActnList, XPMan,
JvXPCore, JvXPContainer, pngimage, ExtCtrls, StdCtrls, SpTBXItem, JvXPCore, JvXPContainer, pngimage, ExtCtrls, TB2Item, SpTBXItem, StdCtrls,
JvPageList, JvExControls, JvExExtCtrls, JvSplitter, JvSyncSplitter, JvPageList, JvExControls, TB2Dock, SpTBXDkPanels, uGUIBase, uCustomEditor;
SpTBXDkPanels, uCustomEditor, uHostManager, uGUIBase,
Dialogs, jpeg, TB2Dock, TB2Item, TntStdCtrls, SpTBXEditors, TB2Toolbar,
JvLinkLabel, JvLabel, SpTBXControls;
type type
IMainForm = interface(IHostForm) IMainForm = interface(IHostForm)
@ -29,7 +26,6 @@ type
pnlContenido: TSpTBXDockablePanel; pnlContenido: TSpTBXDockablePanel;
JvNavigationPane: TJvNavigationPane; JvNavigationPane: TJvNavigationPane;
pnlMain: TSpTBXDockablePanel; pnlMain: TSpTBXDockablePanel;
JvSyncSplitter1: TJvSyncSplitter;
actLogin: TAction; actLogin: TAction;
StyleManagerButtons: TJvNavPaneStyleManager; StyleManagerButtons: TJvNavPaneStyleManager;
JvFormStorage: TJvFormStorage; JvFormStorage: TJvFormStorage;
@ -41,7 +37,6 @@ type
actAcerca: TAction; actAcerca: TAction;
pnlBorde: TJvXPContainer; pnlBorde: TJvXPContainer;
HostMenu: TJvMainMenu; HostMenu: TJvMainMenu;
JvXPMenuItemPainter1: TJvXPMenuItemPainter;
Archivo2_OLD: TMenuItem; Archivo2_OLD: TMenuItem;
Ayuda2_OLD: TMenuItem; Ayuda2_OLD: TMenuItem;
Cambiarmicontrasea2_OLD: TMenuItem; Cambiarmicontrasea2_OLD: TMenuItem;
@ -95,8 +90,11 @@ type
SpTBXLabelItem1: TSpTBXLabelItem; SpTBXLabelItem1: TSpTBXLabelItem;
SpTBXSeparatorItem1: TSpTBXSeparatorItem; SpTBXSeparatorItem1: TSpTBXSeparatorItem;
SpTBXLabelItem2: TSpTBXLabelItem; SpTBXLabelItem2: TSpTBXLabelItem;
actUsuarios: TAction;
actPerfilesUsuario: TAction;
actSeleccionEmpresas: TAction;
Splitter1: TSplitter;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure Salir1Click(Sender: TObject);
procedure actSalirExecute(Sender: TObject); procedure actSalirExecute(Sender: TObject);
procedure actCambiarPassExecute(Sender: TObject); procedure actCambiarPassExecute(Sender: TObject);
procedure actAcercaExecute(Sender: TObject); procedure actAcercaExecute(Sender: TObject);
@ -113,14 +111,13 @@ type
procedure actVerPanelExecute(Sender: TObject); procedure actVerPanelExecute(Sender: TObject);
procedure actVerBarraEstadoUpdate(Sender: TObject); procedure actVerBarraEstadoUpdate(Sender: TObject);
procedure actVerBarraEstadoExecute(Sender: TObject); procedure actVerBarraEstadoExecute(Sender: TObject);
procedure Acercade1Click(Sender: TObject);
procedure Usuarios1Click(Sender: TObject);
procedure Perfiles1Click(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure actMenuInformesExecute(Sender: TObject); procedure actMenuInformesExecute(Sender: TObject);
procedure Listadeempresas1_OLDClick(Sender: TObject);
procedure actInformacionEmpresaExecute(Sender: TObject); procedure actInformacionEmpresaExecute(Sender: TObject);
procedure actUsuariosExecute(Sender: TObject);
procedure actPerfilesUsuarioExecute(Sender: TObject);
procedure actSeleccionEmpresasExecute(Sender: TObject);
private private
FContenido : TCustomEditor; FContenido : TCustomEditor;
procedure ShowEmbedded(AEditor : ICustomEditor); procedure ShowEmbedded(AEditor : ICustomEditor);
@ -213,15 +210,8 @@ begin
Application.Title := ATitulo; Application.Title := ATitulo;
Caption := Application.Title; Caption := Application.Title;
if dmConexion.HayConexion then SpTBXLabelItem1.ImageIndex := 1;
begin SpTBXLabelItem1.Caption := 'Conectado a: ' + dmConexion.TargetURL;
SpTBXLabelItem1.ImageIndex := 1;
SpTBXLabelItem1.Caption := 'Conectado a: ' + dmConexion.TargetURL
end
else begin
SpTBXLabelItem1.ImageIndex := -1;
SpTBXLabelItem1.Caption := 'Desconectado';
end;
if Assigned(AppFactuGES.UsuarioActivo) then if Assigned(AppFactuGES.UsuarioActivo) then
begin begin
@ -250,21 +240,32 @@ begin
Application.ProcessMessages; Application.ProcessMessages;
end; end;
procedure TfPantallaPrincipal.Salir1Click(Sender: TObject);
begin
Close;
end;
procedure TfPantallaPrincipal.actSalirExecute(Sender: TObject); procedure TfPantallaPrincipal.actSalirExecute(Sender: TObject);
begin begin
Close; Close;
end; end;
procedure TfPantallaPrincipal.actSeleccionEmpresasExecute(Sender: TObject);
begin
AppFactuGES.SeleccionarEmpresa;
RefrescarUI;
end;
procedure TfPantallaPrincipal.actUsuariosExecute(Sender: TObject);
begin
AppFactuGES.UsuariosController.VerUsuarios;
end;
procedure TfPantallaPrincipal.actMenuVentasExecute(Sender: TObject); procedure TfPantallaPrincipal.actMenuVentasExecute(Sender: TObject);
begin begin
// //
end; end;
procedure TfPantallaPrincipal.actPerfilesUsuarioExecute(Sender: TObject);
begin
AppFactuGES.UsuariosController.VerPerfiles;
end;
procedure TfPantallaPrincipal.actVerBarraEstadoExecute(Sender: TObject); procedure TfPantallaPrincipal.actVerBarraEstadoExecute(Sender: TObject);
begin begin
SpTBXStatusBar1.Visible := not SpTBXStatusBar1.Visible; SpTBXStatusBar1.Visible := not SpTBXStatusBar1.Visible;
@ -291,7 +292,7 @@ procedure TfPantallaPrincipal.OnThemeChange(Sender: TObject);
begin begin
LockWindowUpdate(Handle); LockWindowUpdate(Handle);
try try
Color := dmBase.StyleManager.Colors.DividerColorTo; Self.Color := dmBase.StyleManager.Colors.DividerColorTo;
//pnlBorde.Color := dmBase.StyleManager.Colors.FrameColor; //pnlBorde.Color := dmBase.StyleManager.Colors.FrameColor;
pnlBorde.BoundColor := dmBase.StyleManager.Colors.FrameColor; pnlBorde.BoundColor := dmBase.StyleManager.Colors.FrameColor;
with StyleManagerButtons do with StyleManagerButtons do
@ -337,7 +338,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do
MainMenuController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]); MainMenuController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]);
MainMenuController.SortMenuByTag; MainMenuController.SortMenuByTag;
MainMenuController.InitMainMenu; MainMenuController.InitMainMenu;
@ -433,11 +434,6 @@ begin
// //
end; end;
procedure TfPantallaPrincipal.Perfiles1Click(Sender: TObject);
begin
AppFactuGES.UsuariosController.VerPerfiles;
end;
procedure TfPantallaPrincipal.ShowEmbedded(AEditor: ICustomEditor); procedure TfPantallaPrincipal.ShowEmbedded(AEditor: ICustomEditor);
begin begin
if Assigned(FContenido) and not FContenido.CloseQuery then if Assigned(FContenido) and not FContenido.CloseQuery then
@ -470,11 +466,6 @@ begin
OnWorkPanelChanged(FContenido); OnWorkPanelChanged(FContenido);
end; end;
procedure TfPantallaPrincipal.Usuarios1Click(Sender: TObject);
begin
AppFactuGES.UsuariosController.VerUsuarios;
end;
{procedure TfPantallaPrincipal.WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; {procedure TfPantallaPrincipal.WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
begin begin
// Sirve para recuperar el foco el formulario principal cuando // Sirve para recuperar el foco el formulario principal cuando
@ -552,11 +543,6 @@ begin
RefrescarUI; RefrescarUI;
end; end;
procedure TfPantallaPrincipal.Acercade1Click(Sender: TObject);
begin
AppFactuGES.UsuariosController.StartLogin;
end;
procedure TfPantallaPrincipal.actAcercaExecute(Sender: TObject); procedure TfPantallaPrincipal.actAcercaExecute(Sender: TObject);
begin begin
with TfAcercaDe.Create(NIL) do with TfAcercaDe.Create(NIL) do
@ -609,12 +595,6 @@ begin
RefrescarUI; RefrescarUI;
end; end;
procedure TfPantallaPrincipal.Listadeempresas1_OLDClick(Sender: TObject);
begin
AppFactuGES.SeleccionarEmpresa;
RefrescarUI;
end;
procedure TfPantallaPrincipal.actConexionExecute(Sender: TObject); procedure TfPantallaPrincipal.actConexionExecute(Sender: TObject);
begin begin
dmConexion.ConfigurarConexion; dmConexion.ConfigurarConexion;
@ -648,6 +628,8 @@ begin
end; end;
end; end;
end; end;
Self.Color := dmBase.StyleManager.Colors.DividerColorTo;
Splitter1.Color := Self.Color;
end; end;
end. end.