105 lines
2.5 KiB
ObjectPascal
105 lines
2.5 KiB
ObjectPascal
unit uConfiguracion;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, StdCtrls, ComCtrls, ActnList, JvComponent,
|
||
JvAppStorage, JvAppRegistryStorage, Contnrs, ExtCtrls, ImgList,
|
||
PngImageList, JvExControls, JvGradientHeaderPanel, uFrameConfiguracion,
|
||
JvComponentBase, JvPageList, JvExComCtrls, JvPageListTreeView,
|
||
uConexionBD, uConfGeneral;
|
||
|
||
type
|
||
TfConfiguracion = class(TForm)
|
||
Button1: TButton;
|
||
Button2: TButton;
|
||
ActionList1: TActionList;
|
||
actAceptar: TAction;
|
||
actCancelar: TAction;
|
||
JvAppRegistryStorage1: TJvAppRegistryStorage;
|
||
PngImageList1: TPngImageList;
|
||
frConfGeneral1: TfrConfGeneral;
|
||
PageControl1: TPageControl;
|
||
pagGeneral: TTabSheet;
|
||
pagBD: TTabSheet;
|
||
frConexionBD1: TfrConexionBD;
|
||
procedure actAceptarExecute(Sender: TObject);
|
||
procedure actCancelarExecute(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure PageControl1Change(Sender: TObject);
|
||
private
|
||
FPaginaActual : IConfiguracionFrame;
|
||
public
|
||
constructor Create(AOwner: TComponent); override;
|
||
end;
|
||
|
||
var
|
||
fConfiguracion: TfConfiguracion;
|
||
|
||
implementation
|
||
|
||
uses uDataModuleServer;
|
||
|
||
{$R *.dfm}
|
||
|
||
{type
|
||
TFrameClass = class of TFrameConfiguracion;
|
||
|
||
function CreateFrame(Parent: TWinControl; FrameClass: TFrameClass): IConfiguracionFrame;
|
||
var
|
||
aFrame : TFrameConfiguracion;
|
||
begin
|
||
aFrame := FrameClass.Create(NIL);
|
||
aFrame.Name:='Frame'+IntToStr(Random(10000));
|
||
aFrame.Parent := Parent;
|
||
aFrame.Init;
|
||
aFrame.Show;
|
||
Result := aFrame;
|
||
end;}
|
||
|
||
procedure TfConfiguracion.actAceptarExecute(Sender: TObject);
|
||
begin
|
||
if Assigned(FPaginaActual) then
|
||
FPaginaActual.Finalize;
|
||
|
||
dmServer.SalvarConfiguracion;
|
||
Close;
|
||
end;
|
||
|
||
procedure TfConfiguracion.actCancelarExecute(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
constructor TfConfiguracion.Create(AOwner: TComponent);
|
||
begin
|
||
inherited;
|
||
FPaginaActual := NIL;
|
||
end;
|
||
|
||
procedure TfConfiguracion.FormShow(Sender: TObject);
|
||
begin
|
||
PageControl1.ActivePageIndex := 0;
|
||
//Se ha de llamar al evento ya que la asignaci<63>n anterior no lo lanza
|
||
PageControl1Change(PageControl1);
|
||
end;
|
||
|
||
procedure TfConfiguracion.PageControl1Change(Sender: TObject);
|
||
begin
|
||
if Assigned(FPaginaActual) then
|
||
FPaginaActual.Finalize;
|
||
|
||
case PageControl1.ActivePageIndex of
|
||
0 : FPaginaActual := frConfGeneral1;
|
||
1 : FPaginaActual := frConexionBD1;
|
||
end;
|
||
|
||
if Assigned(FPaginaActual) then
|
||
FPaginaActual.Init;
|
||
|
||
Self.Update;
|
||
end;
|
||
|
||
end.
|