unit totales;

interface

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

type
  TFormaTotales = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Total1: TLabel;
    Total2: TLabel;
    Total3: TLabel;
    Total4: TLabel;
    Shape1: TShape;
    Panel1: TPanel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Panel2: TPanel;
    Label1: TLabel;
    Label6: TLabel;
    procedure Panel2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Panel1MouseDown(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
  FormaTotales: TFormaTotales;

implementation

{$R *.DFM}

procedure actualizatotales;
type
mone=record
Nombre:string[15];
valor:string[10];
end;
var
arch:file of mone;
money:mone;
i:integer;
begin
with FormaTotales do
begin
{if FileExists(ruta(8)+'\moneda.sif') then
begin
AssignFile(arch,ruta(8)+'\moneda.sif');
reset(arch);
for i:=1 to Monedas.RowCount-1 do
begin
Read(arch,money);
Monedas.Cells[1,i]:=money.nombre;
Monedas.Cells[2,i]:=money.valor;
end;
CloseFile(arch);
 }
end;
end;



procedure TFormaTotales.Panel2Click(Sender: TObject);
begin
Close;
end;

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


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

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

end.