unit antgra;

interface

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

type
  TFormaAnteriorGrafica = class(TForm)
    Panel1: TPanel;
    Bevel18: TBevel;
    Bevel19: TBevel;
    Bevel20: TBevel;
    Label8: TLabel;
    Panel2: TPanel;
    Label1: TLabel;
    procedure Panel2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel1Click(Sender: TObject);
    procedure Label8MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label8Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaAnteriorGrafica: TFormaAnteriorGrafica;

implementation

uses graficas;

{$R *.DFM}

procedure actualizacoordenadas;
begin
with FormaAnteriorGrafica do
begin
FormaGraficas.Top:=FormaAnteriorGrafica.Top+Panel1.Height+3;
FormaGraficas.Left:=FormaAnteriorGrafica.Left+3;
FormaGraficas.Width:=FormaAnteriorGrafica.Width-6;
FormaGraficas.Height:=FormaAnteriorGrafica.Height-Panel1.Height-6;
end;
end;

procedure ponecoordenadas;
begin
with FormaAnteriorGrafica do
begin
FormaGraficas.Top:=FormaAnteriorGrafica.Top+Panel1.Height+3;
FormaGraficas.Left:=FormaAnteriorGrafica.Left+3;
end;
end;

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

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

procedure TFormaAnteriorGrafica.Panel2Click(Sender: TObject);
begin
{******panel que simula el boton cerrar*****}
Tag:=0;
FormaGraficas.Close;
Close;
{************************************}
end;

procedure TFormaAnteriorGrafica.FormActivate(Sender: TObject);
begin
{*******va en Activa*******}
if Tag<1 then
begin
actualizacoordenadas;
poneforma;
end;
end;

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

procedure TFormaAnteriorGrafica.Panel1Click(Sender: TObject);
begin
poneforma;
end;

procedure TFormaAnteriorGrafica.Label8MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FormaGraficas.Visible:=False;
ReleaseCapture;
SendMessage(FormaAnteriorGrafica.Handle, WM_SYSCOMMAND, $F012, 0);
poneforma;
end;

procedure TFormaAnteriorGrafica.Label8Click(Sender: TObject);
begin
poneforma;
end;

procedure TFormaAnteriorGrafica.FormPaint(Sender: TObject);
begin
if FormaGraficas.Salir1.Tag=1000 then
begin
Close;
Tag:=0;
FormaGraficas.Salir1.Tag:=0;
end;
end;
procedure TFormaAnteriorGrafica.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
FormaGraficas.Salir1.Tag:=0;
Tag:=0;
end;

procedure TFormaAnteriorGrafica.FormCreate(Sender: TObject);
begin
{if ruta(31)<>'S' then
Panel1.Color:=actualizacolor(ruta(40));}

end;

end.