unit desgloce;

interface

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

type
  TFormaDesglosaTotal = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    SubTotal: TLabel;
    Descuento: TLabel;
    Iva: TLabel;
    Total: TLabel;
    Letra1: TLabel;
    Letra2: TLabel;
    Shape1: TShape;
    Panel3: TPanel;
    Bevel20: TBevel;
    Bevel21: TBevel;
    Bevel22: TBevel;
    Panel4: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Panel4Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label6MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaDesglosaTotal: TFormaDesglosaTotal;

implementation

{$R *.DFM}


procedure TFormaDesglosaTotal.Panel4Click(Sender: TObject);
begin
Close;
end;

procedure TFormaDesglosaTotal.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=27 then Close;
end;

procedure TFormaDesglosaTotal.Panel3MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaDesglosaTotal.Handle, WM_SYSCOMMAND, $F012, 0);
end;

procedure TFormaDesglosaTotal.Label6MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaDesglosaTotal.Handle, WM_SYSCOMMAND, $F012, 0);
end;

end.