unit fconfiguracion;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TCONFIGURACION = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    bok: TBitBtn;
    bcancelar: TBitBtn;
    Label3: TLabel;
    Edit3: TEdit;
    SpeedButton1: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure bokClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CONFIGURACION: TCONFIGURACION;

implementation

uses UDMGS;

{$R *.dfm}



procedure TCONFIGURACION.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   ACTION := CAFREE;
end;

procedure TCONFIGURACION.FormCreate(Sender: TObject);
begin
  EDIT1.Text := DMGS.GSERVIDOR;
  EDIT2.Text := DMGS.GPATH;
  edit3.text := dmgs.gaplicacion;
end;

procedure TCONFIGURACION.bokClick(Sender: TObject);
begin
  DMGS.GSERVIDOR :=  EDIT1.TEXT;
  DMGS.GPATH := EDIT2.TEXT;
  dmgs.gaplicacion := edit3.text;
  modalresult := mrok;
end;

procedure TCONFIGURACION.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    BEGIN
        Perform(WM_NextDLGCtl, 0, 0);
        key:=#0;
    END;
end;

procedure TCONFIGURACION.SpeedButton1Click(Sender: TObject);
begin
  DMGS.DCOMCONNECTION1.Close;
  DMGS.DCOMCONNECTION1.ComputerName := EDIT1.TEXT;
  DMGS.PATH := EDIT2.TEXT;
  DMGS.PATHLOCAL := DMGS.PATH; // LO UTILIZO PARA
  // LAS ACTUALIZACIONES
  IF TRIM(DMGS.DCOMCONNECTION1.ComputerName) = '' THEN
        DMGS.path := DMGS.PATH
  ELSE
        DMGS.PATH := '\\'+EDIT1.TEXT+'\'+EDIT3.TEXT;
  TRY
     DMGS.DCOMConnection1.OPEN;
  EXCEPT
     DMGS.DCOMCONNECTION1.ComputerName:='';
     DMGS.GSERVIDOR := '';
     DMGS.DCOMCONNECTION1.Open;
  END;
end;

End.