david
68ec970246
git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@4 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca
588 lines
16 KiB
ObjectPascal
588 lines
16 KiB
ObjectPascal
|
||
unit uPantallaPrincipal;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, StdCtrls, ExtCtrls, XPMan, uGUIBase, uCustomEditor,
|
||
JvNavigationPane, JvExExtCtrls, JvComponent, Menus, ImgList,
|
||
PngImageList, ActnList, uHostManager, JvExControls, JvPageList, JvPanel,
|
||
TBX, TB2Item, TB2Dock, TB2Toolbar, ComCtrls, TBXToolPals, TBXLists,
|
||
TBXExtItems, TB2ExtItems, TBXMDI, TBXDkPanels, JvSplitter, JvSyncSplitter,
|
||
JvXPBar, JvXPCore, JvXPContainer, JvLookOut, JvOutlookBar, Buttons,
|
||
JvExButtons, JvBitBtn, JvSpeedButton, JvExStdCtrls, JvButton, JvCtrls,
|
||
JvStartMenuButton, JvTransparentButton, JvExComCtrls, JvListView,
|
||
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvBaseDlg,
|
||
JvJVCLAboutForm, AppEvnts, JvWaitingGradient, JvGradient,
|
||
cxControls, JvComponentBase;
|
||
|
||
type
|
||
TfPantallaPrincipal = class(TForm, IHostForm)
|
||
GeneralActionList: TActionList;
|
||
ModulesSmallImageList: TPngImageList;
|
||
XPManifest1: TXPManifest;
|
||
actSalir: TAction;
|
||
ModulesActionList: TActionList;
|
||
ModulesLargeImageList: TPngImageList;
|
||
HostMenu: TMainMenu;
|
||
Archivo1: TMenuItem;
|
||
Ayuda1: TMenuItem;
|
||
pnlContenido: TTBXAlignmentPanel;
|
||
JvNavigationPane: TJvNavigationPane;
|
||
JvSyncSplitter1: TJvSyncSplitter;
|
||
StatusBar: TStatusBar;
|
||
HostManager: THostManager;
|
||
Salir1: TMenuItem;
|
||
pagInicio: TJvNavPanelPage;
|
||
StyleManagerButtons: TJvNavPaneStyleManager;
|
||
JvFormStorage: TJvFormStorage;
|
||
JvAppRegistryStorage: TJvAppRegistryStorage;
|
||
ApplicationEvents: TApplicationEvents;
|
||
N1: TMenuItem;
|
||
actConexion: TAction;
|
||
Configurarconexin1: TMenuItem;
|
||
actAcerca: TAction;
|
||
Acercade1: TMenuItem;
|
||
Ver1: TMenuItem;
|
||
pnlBorde: TJvXPContainer;
|
||
pnlMain: TTBXAlignmentPanel;
|
||
lblBienvenido: TLabel;
|
||
Label22: TLabel;
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure HostManagerAfterLoad(Sender: TObject; AModuleInfo: TModuleInfo);
|
||
procedure Salir1Click(Sender: TObject);
|
||
procedure actSalirExecute(Sender: TObject);
|
||
procedure ApplicationEventsActionExecute(Action: TBasicAction;
|
||
var Handled: Boolean);
|
||
procedure actAcercaExecute(Sender: TObject);
|
||
procedure actAdministracionExecute(Sender: TObject);
|
||
procedure Button1Click(Sender: TObject);
|
||
procedure actConexionExecute(Sender: TObject);
|
||
private
|
||
FContenido : TCustomEditor;
|
||
// FStartDefaultAction : TBasicAction;
|
||
FActivePanelSubMenuEditor : TPanel;
|
||
|
||
procedure ShowEmbedded(AEditor : ICustomEditor);
|
||
function FindNavPanePage(ACaption : String) : Integer;
|
||
procedure InitializeUI;
|
||
procedure OnThemeChange(Sender: TObject);
|
||
procedure CopyImages(const SrcList: TPngImageList; var DstList: TPngImageList;
|
||
out Index, Count: Integer);
|
||
procedure RegisterModule(AModuleInfo : TModuleInfo);
|
||
procedure ExecuteActionMenu(Sender : TObject);
|
||
protected
|
||
function GetWorkPanel : TWinControl;
|
||
public
|
||
function IsShortcut(var Message: TWMKey): Boolean; override;
|
||
procedure OnWorkPanelChanged(AEditor : ICustomEditor);
|
||
property WorkPanel : TWinControl read GetWorkPanel;
|
||
constructor Create(AOwner: TComponent); override;
|
||
end;
|
||
|
||
var
|
||
fPantallaPrincipal: TfPantallaPrincipal;
|
||
|
||
implementation
|
||
|
||
uses
|
||
PNGImage, uModuleController, uDataModuleBase, Math, uMenuUtils,
|
||
uSplash, uAcercaDe, uViewBase, uEditorUtils;
|
||
|
||
{$R *.dfm}
|
||
|
||
{
|
||
***************************** TfPantallaPrincipal ******************************
|
||
}
|
||
|
||
procedure TfPantallaPrincipal.CopyImages(const SrcList: TPngImageList; var DstList:
|
||
TPngImageList; out Index, Count: Integer);
|
||
begin
|
||
Index := -1;
|
||
Count := 0;
|
||
|
||
if not Assigned(SrcList) or not Assigned(DstList) then
|
||
Exit;
|
||
|
||
DstList.BeginUpdate;
|
||
try
|
||
Index := DstList.Count;
|
||
DstList.AddImages(SrcList);
|
||
Count := SrcList.Count;
|
||
finally
|
||
DstList.EndUpdate;
|
||
end;
|
||
end;
|
||
|
||
procedure TfPantallaPrincipal.FormCreate(Sender: TObject);
|
||
var
|
||
ACursor : TCursor;
|
||
begin
|
||
ACursor := Screen.Cursor;
|
||
Screen.Cursor := crHourGlass;
|
||
try
|
||
Caption := Application.Title + ' ' + dmBase.darVersion;
|
||
SplashScreen := TSplashScreen.Create(Application) ;
|
||
SplashScreen.Show;
|
||
SplashScreen.Update;
|
||
Application.ProcessMessages;
|
||
|
||
JvNavigationPane.StyleManager := dmBase.StyleManager;
|
||
dmBase.OnThemeChange := Self.OnThemeChange;
|
||
Self.OnThemeChange(Self); // Forzar el refresco de los colores del tema activo
|
||
SplashScreen.Update;
|
||
|
||
with HostManager do
|
||
begin
|
||
BPLPath := ExtractFilePath(Application.ExeName) + '\';
|
||
MainForm := Self;
|
||
|
||
Application.ProcessMessages;
|
||
HostManager.LoadModule('Contactos.bpl');
|
||
HostManager.LoadModule('Obras.bpl');
|
||
HostManager.LoadModule('FacturasCliente.bpl');
|
||
HostManager.LoadModule('Recibos.bpl');
|
||
HostManager.LoadModule('ObrasFinal.bpl');
|
||
end;
|
||
|
||
InitializeUI;
|
||
Application.ProcessMessages;
|
||
Visible := True;
|
||
finally
|
||
SplashScreen.Update;
|
||
SplashScreen.Hide;
|
||
SplashScreen.Free;
|
||
Screen.Cursor := ACursor;
|
||
end;
|
||
end;
|
||
|
||
procedure TfPantallaPrincipal.FormDestroy(Sender: TObject);
|
||
begin
|
||
HostManager.UnloadModules;
|
||
end;
|
||
|
||
procedure TfPantallaPrincipal.HostManagerAfterLoad(Sender: TObject;
|
||
AModuleInfo: TModuleInfo);
|
||
begin
|
||
RegisterModule(AModuleInfo);
|
||
end;
|
||
|
||
procedure TfPantallaPrincipal.RegisterModule(AModuleInfo : TModuleInfo);
|
||
var
|
||
AModule: TModuleController;
|
||
AModuleMenu : TMainMenu;
|
||
AIndex: Integer;
|
||
ACount: Integer;
|
||
begin
|
||
AModule := AModuleInfo.Module;
|
||
SplashScreen.Texto := 'Cargando ''' + AModule.ModuleName + '''...';
|
||
|
||
CopyImages(TPngImageList(AModule.SmallImages), TPngImageList(ModulesSmallImageList), AIndex, ACount);
|
||
CopyImages(TPngImageList(AModule.LargeImages), TPngImageList(ModulesLargeImageList), AIndex, ACount);
|
||
|
||
if Assigned(AModule.ModuleMenu) then
|
||
begin
|
||
AModuleMenu := AModule.ModuleMenu;
|
||
MergeMenus(AModuleMenu, Self.Menu, AIndex);
|
||
end;
|
||
end;
|
||
|
||
procedure TfPantallaPrincipal.Salir1Click(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfPantallaPrincipal.actSalirExecute(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfPantallaPrincipal.OnThemeChange(Sender: TObject);
|
||
begin
|
||
LockWindowUpdate(Handle);
|
||
try
|
||
Color := dmBase.StyleManager.Colors.DividerColorTo;
|
||
pnlBorde.Color := dmBase.StyleManager.Colors.FrameColor;
|
||
with StyleManagerButtons do
|
||
begin
|
||
Colors.ButtonColorFrom := clWindow;
|
||
Colors.ButtonColorTo := clWindow;
|
||
Colors.ButtonSeparatorColor := clWindow;
|
||
Colors.SplitterColorFrom := clWindow;
|
||
Colors.SplitterColorTo := clWindow;
|
||
Colors.DividerColorFrom := clWindow;
|
||
Colors.DividerColorTo := clWindow;
|
||
Colors.HeaderColorFrom := clWindow;
|
||
Colors.HeaderColorTo := clWindow;
|
||
Colors.FrameColor := clWindow;
|
||
Colors.ToolPanelHeaderColorFrom := clWindow;
|
||
Colors.ToolPanelHeaderColorTo := clWindow;
|
||
|
||
Colors.ButtonHotColorFrom := dmBase.StyleManager.Colors.ButtonHotColorFrom;
|
||
Colors.ButtonHotColorTo := dmBase.StyleManager.Colors.ButtonHotColorTo;
|
||
|
||
Colors.ButtonSelectedColorFrom := dmBase.StyleManager.Colors.ButtonSelectedColorFrom;
|
||
Colors.ButtonSelectedColorTo := dmBase.StyleManager.Colors.ButtonSelectedColorTo;
|
||
end;
|
||
finally
|
||
LockWindowUpdate(0);
|
||
Refresh;
|
||
end;
|
||
end;
|
||
|
||
function TfPantallaPrincipal.GetWorkPanel: TWinControl;
|
||
begin
|
||
Result := pnlMain;
|
||
end;
|
||
|
||
procedure TfPantallaPrincipal.InitializeUI;
|
||
|
||
function EsUnModulo(AMenuItem : TMenuItem) : Boolean;
|
||
begin
|
||
Result := (AMenuItem.Tag >= 0) and (AMenuItem.Tag < 9000)
|
||
end;
|
||
|
||
{var
|
||
i : Integer;
|
||
AMenuItem : TMenuItem;
|
||
APageIndex : Integer;
|
||
begin
|
||
SortMenuByTag(Menu);
|
||
|
||
for i := 0 to Menu.Items.Count - 1 do
|
||
begin
|
||
AMenuItem := Menu.Items[i];
|
||
if not EsUnModulo(AMenuItem) then
|
||
Continue;
|
||
|
||
APageIndex := 0;
|
||
PopulateNavPagePane(JvNavigationPane.NavPages[APageIndex], AMenuItem,
|
||
ModulesSmallImageList, StyleManagerButtons);
|
||
|
||
// Elimino la imagen que tiene el men<65> porque queda feo.
|
||
AMenuItem.ImageIndex := -1;
|
||
end;
|
||
JvNavigationPane.ActivePage := pagInicio;
|
||
ApplicationEvents.OnActionExecute := ApplicationEventsActionExecute;}
|
||
|
||
|
||
var
|
||
i : Integer;
|
||
AMenuItem : TMenuItem;
|
||
APageIndex : Integer;
|
||
AStringList : TStringList;
|
||
APanel : TScrollBox;
|
||
begin
|
||
SortMenuByTag(Menu);
|
||
|
||
AStringList := TStringList.Create;
|
||
AStringList.Duplicates := dupIgnore;
|
||
try
|
||
for i := 0 to Menu.Items.Count - 1 do
|
||
begin
|
||
AMenuItem := Menu.Items[i];
|
||
if not EsUnModulo(AMenuItem) then
|
||
Continue;
|
||
|
||
AStringList.Add(StringReplace(AMenuItem.Caption, '&', '', []))
|
||
end;
|
||
|
||
for i := 0 to AStringList.Count - 1 do
|
||
begin
|
||
with TJvNavPanelDivider.Create(Self) do
|
||
begin
|
||
Parent := pagInicio;
|
||
Top := 100 * i;
|
||
Align := alTop;
|
||
Caption := AStringList[i];
|
||
ParentFont := True;
|
||
if i = 0 then
|
||
begin
|
||
Enabled := false;
|
||
Cursor := crDefault;
|
||
end
|
||
else
|
||
Cursor := crSizeNS;
|
||
end;
|
||
|
||
APanel := TScrollBox.Create(Self);
|
||
with APanel do
|
||
begin
|
||
Parent := pagInicio;
|
||
Top := 101 * i;
|
||
if i = AStringList.Count - 1 then
|
||
Align := alClient
|
||
else
|
||
Align := alTop;
|
||
BorderStyle := bsNone;
|
||
end;
|
||
AStringList.Objects[i] := APanel;
|
||
end;
|
||
|
||
for i := 0 to Menu.Items.Count - 1 do
|
||
begin
|
||
AMenuItem := Menu.Items[i];
|
||
if not EsUnModulo(AMenuItem) then
|
||
Continue;
|
||
|
||
{if not Assigned(FStartDefaultAction) then
|
||
FStartDefaultAction := AMenuItem[0].Action;}
|
||
|
||
APageIndex := AStringList.IndexOf(StringReplace(AMenuItem.Caption, '&', '', []));
|
||
PopulateNavPagePane(TScrollBox(AStringList.Objects[APageIndex]), AMenuItem, ModulesLargeImageList, StyleManagerButtons);
|
||
|
||
// Elimino la imagen que tiene el men<65> porque queda feo.
|
||
AMenuItem.ImageIndex := -1;
|
||
end;
|
||
finally
|
||
AStringList.Free;
|
||
end;
|
||
|
||
ApplicationEvents.OnActionExecute := ApplicationEventsActionExecute;
|
||
end;
|
||
|
||
|
||
function TfPantallaPrincipal.FindNavPanePage(ACaption: String): Integer;
|
||
var
|
||
i : integer;
|
||
begin
|
||
Result := -1;
|
||
for i := 0 to JvNavigationPane.PageCount - 1 do
|
||
if JvNavigationPane.NavPages[i].Caption = ACaption then
|
||
begin
|
||
Result := i;
|
||
break;
|
||
end;
|
||
end;
|
||
|
||
procedure TfPantallaPrincipal.ExecuteActionMenu(Sender: TObject);
|
||
var
|
||
i : integer;
|
||
begin
|
||
for i := 0 to JvNavigationPane.PageCount - 1 do
|
||
begin
|
||
if JvNavigationPane.NavPages[i].Caption = (Sender as TAction).Caption then
|
||
begin
|
||
JvNavigationPane.ActivePageIndex := i;
|
||
Break;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfPantallaPrincipal.ApplicationEventsActionExecute(
|
||
Action: TBasicAction; var Handled: Boolean);
|
||
var
|
||
APageIndex : Integer;
|
||
begin
|
||
if (Action is TAction) then
|
||
begin
|
||
APageIndex := FindNavPanePage((Action as TAction).Category);
|
||
if APageIndex > 0 then
|
||
JvNavigationPane.ActivePageIndex := APageIndex;
|
||
end;
|
||
end;
|
||
|
||
procedure TfPantallaPrincipal.OnWorkPanelChanged(AEditor: ICustomEditor);
|
||
var
|
||
AEditorMenu : IEditorMenu;
|
||
MenuEditor : TMainMenu;
|
||
NombrePanel : String;
|
||
// APageNew : TJvNavPanelPage;
|
||
APanelAux: TPanel;
|
||
APanelAux2: TPanel;
|
||
i: Integer;
|
||
begin
|
||
//Liberamos el panel del submenu actual si existiese
|
||
if Assigned(FActivePanelSubMenuEditor) then
|
||
begin
|
||
FActivePanelSubMenuEditor.Free;
|
||
FActivePanelSubMenuEditor := Nil;
|
||
getSubMenu(Menu, 'Ver').Clear;
|
||
getSubMenu(Menu, 'Ver').Enabled := False;
|
||
end;
|
||
|
||
AEditor.QueryInterface(IEditorMenu, AEditorMenu);
|
||
if Assigned(AEditorMenu) then
|
||
begin
|
||
MenuEditor := AEditorMenu.getEditorMenu;
|
||
SortMenuByTag(MenuEditor);
|
||
NombrePanel := 'pnl' + StringReplace(MenuEditor.Items[0].Caption,'&','',[]);
|
||
|
||
//Creamos el panel para el submenu
|
||
APanelAux := TPanel.Create(Self);
|
||
with APanelAux do
|
||
begin
|
||
Parent := JvNavigationPane.NavPages[0];//APageNew;
|
||
ParentColor := True;
|
||
ParentFont := True;
|
||
BevelOuter := bvNone;
|
||
BevelInner := bvNone;
|
||
Height := 200;
|
||
AutoScroll := True;
|
||
Align := alBottom;
|
||
Name := NombrePanel;
|
||
Caption := '';
|
||
end;
|
||
|
||
with TJvNavPanelDivider.Create(Self) do
|
||
begin
|
||
Parent := APanelAux;
|
||
Caption := 'Vistas disponibles';
|
||
StyleManager := JvNavigationPane.StyleManager;
|
||
Align := alTop;
|
||
end;
|
||
|
||
APanelAux2 := TPanel.Create(Self);
|
||
with APanelAux2 do
|
||
begin
|
||
Parent := APanelAux;
|
||
Caption := '';
|
||
ParentColor := True;
|
||
ParentFont := True;
|
||
BevelOuter := bvNone;
|
||
BevelInner := bvNone;
|
||
AutoScroll := True;
|
||
Align := alClient;
|
||
BorderWidth := 10;
|
||
end;
|
||
|
||
//Cada uno de los items del submenu se corresponder<65> con un radiobutton
|
||
with MenuEditor.Items[0] do
|
||
begin
|
||
for i := (Count - 1) downto 0 do
|
||
begin
|
||
with TRadioButton.Create(Self) do
|
||
begin
|
||
Parent := APanelAux2;
|
||
Action := Items[i].Action;
|
||
Align := alTop;
|
||
Tag := Items[i].Tag;
|
||
Caption := Items[i].Caption;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
//Rellenamos el menu Ver con todos y cada uno de los items posibles
|
||
copiarItemsMenu(getSubMenu(Menu, 'Ver'), MenuEditor.Items[0]);
|
||
getSubMenu(Menu, 'Ver').Enabled := True;
|
||
FActivePanelSubMenuEditor := APanelAux;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfPantallaPrincipal.ShowEmbedded(AEditor: ICustomEditor);
|
||
var
|
||
ACursor : TCursor;
|
||
begin
|
||
ACursor := Screen.Cursor;
|
||
Screen.Cursor := crHourGlass;
|
||
LockWindowUpdate(Handle);
|
||
try
|
||
if Assigned(FContenido) then
|
||
FContenido.Release;
|
||
|
||
FContenido := AEditor.GetInstance as TCustomEditor;
|
||
with (FContenido) do
|
||
begin
|
||
Visible := False;
|
||
BorderIcons := [];
|
||
BorderStyle := bsNone;
|
||
Parent := WorkPanel;
|
||
FContenido.Show;
|
||
Align := alClient;
|
||
FContenido.SetFocus;
|
||
end;
|
||
finally
|
||
Application.ProcessMessages;
|
||
LockWindowUpdate(0);
|
||
Screen.Cursor := ACursor;
|
||
end;
|
||
OnWorkPanelChanged(FContenido);
|
||
end;
|
||
|
||
constructor TfPantallaPrincipal.Create(AOwner: TComponent);
|
||
begin
|
||
inherited;
|
||
FContenido := NIL;
|
||
end;
|
||
|
||
procedure TfPantallaPrincipal.actAcercaExecute(Sender: TObject);
|
||
begin
|
||
with TfAcercaDe.Create(NIL) do
|
||
try
|
||
HostManager := Self.HostManager;
|
||
ShowModal;
|
||
finally
|
||
Free;
|
||
end;
|
||
end;
|
||
|
||
function TfPantallaPrincipal.IsShortcut(var Message: TWMKey): Boolean;
|
||
Var
|
||
ctrl: TWinControl;
|
||
comp: TComponent;
|
||
i: Integer;
|
||
Begin
|
||
ctrl := ActiveControl;
|
||
If ctrl <> Nil Then Begin
|
||
Repeat
|
||
ctrl := ctrl.Parent
|
||
Until (ctrl = nil) or (ctrl Is TCustomForm);
|
||
// Note: replace TCustomFrame with TForm, check if the found form is
|
||
// self, if not, execute the following block of code.
|
||
If ctrl <> nil Then Begin
|
||
For i:= 0 To ctrl.componentcount-1 Do Begin
|
||
comp:= ctrl.Components[i];
|
||
If comp Is TCustomActionList Then Begin
|
||
result := TCustomActionList(comp).IsShortcut( message );
|
||
If result Then
|
||
Exit;
|
||
End;
|
||
End;
|
||
End;
|
||
End;
|
||
//Result := inherited IsShortCut(Message);
|
||
end;
|
||
|
||
|
||
procedure TfPantallaPrincipal.actAdministracionExecute(Sender: TObject);
|
||
begin
|
||
//
|
||
end;
|
||
|
||
procedure TfPantallaPrincipal.Button1Click(Sender: TObject);
|
||
//var
|
||
// i : integer;
|
||
// AModule : TModuleInfo;
|
||
// AVista : IViewInicio;
|
||
{ lCLG: TdxLayoutGroup;
|
||
lLI: TdxLayoutItem;}
|
||
begin
|
||
{
|
||
for i := 0 to HostManager.ModulesCount -1 do
|
||
begin
|
||
AModule := HostManager.Modules[i];
|
||
if Supports(AModule.Module, IViewInicio, AVista) then
|
||
begin
|
||
Exit;
|
||
lLI := dxLayoutControl1.CreateItemForControl(Button2);
|
||
lLI.Caption := 'Hello World';
|
||
lCLG := dxLayoutControl1.CreateGroup;
|
||
lCLG.Caption := 'Test this';
|
||
lCLG.Parent := dxLayoutControl1.Items;
|
||
lLI.Parent := lCLG;
|
||
dxLayoutControl1.Customization := True;
|
||
end;
|
||
end;
|
||
}
|
||
end;
|
||
|
||
procedure TfPantallaPrincipal.actConexionExecute(Sender: TObject);
|
||
begin
|
||
dmBase.ConfigurarConexion;
|
||
end;
|
||
|
||
end.
|