unit antven;

interface

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

type
  TFormaAnteriorVendedor = class(TForm)
    Panel1: TPanel;
    Bevel6: TBevel;
    Bevel7: TBevel;
    Bevel8: TBevel;
    Label7: TLabel;
    Panel2: TPanel;
    Shape1: TShape;
    Label1: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label7MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label7Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
procedure VentanaMueve(var M: TWMNCHitTest);  
    { Public declarations }
  end;

var
  FormaAnteriorVendedor: TFormaAnteriorVendedor;

implementation

uses Vendedor;

{$R *.DFM}
{****datos de la ventana*****}

procedure actualizacoordenadas;
begin
with FormaVendedor do
begin
FormaVendedor.Top:=FormaAnteriorVendedor.Top+23;
FormaVendedor.Left:=FormaAnteriorVendedor.Left+3;

FormaVendedor.Width:=FormaAnteriorVendedor.Width-6;
FormaVendedor.Height:=FormaAnteriorVendedor.Height-Panel1.Height+10;

end;
end;


procedure ponecoordenadas;
begin
with FormaVendedor do
begin
FormaVendedor.Top:=FormaAnteriorVendedor.Top+23;
FormaVendedor.Left:=FormaAnteriorVendedor.Left+3;
end;
end;

procedure TFormaAnteriorVendedor.VentanaMueve(var M: TWMNCHitTest);
 var P: TPoint;
begin
 inherited;
 GetCursorPos(P);
 P.X := P.X - Left;
 P.Y := P.Y - Top;
 with Panel1 do
  if (P.X > Left) and (P.X < (Left + Width)) and (P.Y > Top) and (P.Y < (Top + Height)) then
   M.Result := htCaption;
end;

procedure poneforma;
begin
with FormaAnteriorVendedor do
begin
ponecoordenadas;
FormaVendedor.Show;
FormaVendedor.Visible:=True;
Tag:=Tag+1; if tag>3 then Tag:=3;
end;
end;

{******************************}


procedure TFormaAnteriorVendedor.FormActivate(Sender: TObject);
begin
{***cuando se activa la forma de atras***}
if Tag<2 then
begin
actualizacoordenadas;
{FormaVendedor.Show;}
poneforma;
end;
{Tag:=1;}
{*********************}

end;

procedure TFormaAnteriorVendedor.Panel2Click(Sender: TObject);
begin
Tag:=0;
FormaVendedor.Close;
Close;

end;

procedure TFormaAnteriorVendedor.Panel1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
{*******va en el Click del panel*******}
FormaVendedor.Visible:=False;
ReleaseCapture;
SendMessage(FormaAnteriorVendedor.Handle, WM_SYSCOMMAND, $F012, 0);
poneforma;
{**********************}

end;

procedure TFormaAnteriorVendedor.Label7MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FormaVendedor.Visible:=False;
ReleaseCapture;
SendMessage(FormaAnteriorVendedor.Handle, WM_SYSCOMMAND, $F012, 0);
poneforma;
end;

procedure TFormaAnteriorVendedor.Label7Click(Sender: TObject);
begin
poneforma;
end;

procedure TFormaAnteriorVendedor.FormPaint(Sender: TObject);
begin
if FormaVendedor.BotonSalir.Tag=1000 then
begin
Close;
Tag:=0;
FormaVendedor.BotonSalir.Tag:=0;
end;
end;


procedure TFormaAnteriorVendedor.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
FormaVendedor.BotonSalir.Tag:=0;
Tag:=0;
end;

end.