david
32153cd070
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@5 9a1d36f3-7752-2d40-8ccb-50eb49674c68
109 lines
2.6 KiB
ObjectPascal
109 lines
2.6 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;
|
|
|
|
type
|
|
TfConfiguracion = class(TForm)
|
|
tvArbol: TTreeView;
|
|
Button1: TButton;
|
|
Button2: TButton;
|
|
ActionList1: TActionList;
|
|
actAceptar: TAction;
|
|
actCancelar: TAction;
|
|
JvAppRegistryStorage1: TJvAppRegistryStorage;
|
|
pnlPagina: TTabControl;
|
|
PngImageList1: TPngImageList;
|
|
pnlHeader: TJvGradientHeaderPanel;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure tvArbolChange(Sender: TObject; Node: TTreeNode);
|
|
procedure actAceptarExecute(Sender: TObject);
|
|
procedure actCancelarExecute(Sender: TObject);
|
|
private
|
|
FPaginaActual : IConfiguracionFrame;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
var
|
|
fConfiguracion: TfConfiguracion;
|
|
|
|
implementation
|
|
|
|
uses uConexionBD, uDataModuleServer, uConfGeneral;
|
|
|
|
{$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;
|
|
|
|
constructor TfConfiguracion.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TfConfiguracion.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure TfConfiguracion.FormCreate(Sender: TObject);
|
|
var
|
|
ANode: TTreeNode;
|
|
begin
|
|
with tvArbol.Items do
|
|
begin
|
|
ANode := AddChild(NIL, 'General');
|
|
ANode.ImageIndex := ANode.Index;
|
|
ANode := AddChild(NIL, 'Conexión con servidor de BD');
|
|
ANode.ImageIndex := ANode.Index;
|
|
end;
|
|
end;
|
|
|
|
procedure TfConfiguracion.tvArbolChange(Sender: TObject; Node: TTreeNode);
|
|
begin
|
|
if Assigned(FPaginaActual) then
|
|
FPaginaActual.Finalize;
|
|
|
|
case Node.Index of
|
|
0 : FPaginaActual := CreateFrame(pnlPagina, TfrConfGeneral);
|
|
1 : FPaginaActual := CreateFrame(pnlPagina, TfrConexionBD);
|
|
end;
|
|
Self.Update;
|
|
pnlHeader.LabelCaption := Node.Text;
|
|
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;
|
|
|
|
end.
|