unit moneda;

interface

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

type
  TFormaDivisa = class(TForm)
    Monedas: TStringGrid;
    Shape1: TShape;
    Panel1: TPanel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Panel2: TPanel;
    Panel3: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
mone=record
Nombre:string[15];
valor:string[10];
eti1:String[30];
eti2:String[30];
eti3:String[30];
eti4:String[30];
eti5:String[5];

end;

var
  FormaDivisa: TFormaDivisa;

implementation

{$R *.DFM}

procedure TFormaDivisa.SpeedButton1Click(Sender: TObject);
type
mone=record
Nombre:string[15];
valor:string[10];
eti1:String[30];
eti2:String[30];
eti3:String[30];
eti4:String[30];
eti5:string[5];
end;
var
arch:file of mone;
money:mone;
i:integer;
begin
AssignFile(arch,ruta(8)+'\moneda.sif');
rewrite(arch);
money.nombre:='M.N.';
{money.valor:='1.00';}
money.eti1:=Monedas.Cells[3,1];
money.eti2:=Monedas.Cells[4,1];
money.eti3:=Monedas.Cells[5,1];
money.eti4:=Monedas.Cells[6,1];
money.eti5:=Monedas.Cells[7,1];
{Write(arch,money);}

for i:=1 to Monedas.RowCount-1 do
begin
money.nombre:=Monedas.Cells[1,i];
money.valor:=Monedas.Cells[2,i];
money.eti1:=Monedas.Cells[3,i];
money.eti2:=Monedas.Cells[4,i];
money.eti3:=Monedas.Cells[5,i];
money.eti4:=Monedas.Cells[6,i];
money.eti5:=Monedas.Cells[7,1];

Write(arch,money);
end;
CloseFile(arch);
end;

procedure TFormaDivisa.FormActivate(Sender: TObject);
{}
var
arch:file of mone;
money:mone;
i:integer;
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;
Monedas.Cells[3,i]:=money.eti1;
Monedas.Cells[4,i]:=money.eti2;
Monedas.Cells[5,i]:=money.eti3;
Monedas.Cells[6,i]:=money.eti4;
Monedas.Cells[7,i]:=money.eti5;
end;
CloseFile(arch);
end;
end;


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


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

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

procedure TFormaDivisa.FormCreate(Sender: TObject);
begin
Monedas.ColWidths[0]:=1;
Monedas.ColWidths[1]:=60;
Monedas.ColWidths[2]:=60;
Monedas.ColWidths[3]:=100;
Monedas.ColWidths[4]:=70;
Monedas.ColWidths[5]:=70;
Monedas.ColWidths[6]:=70;
Monedas.ColWidths[7]:=70;

Monedas.Cells[1,0]:='Divisa';
Monedas.Cells[2,0]:='Valor';
Monedas.Cells[3,0]:='Singular';
Monedas.Cells[4,0]:='Plural';
Monedas.Cells[5,0]:='Plural';
Monedas.Cells[6,0]:='Abrev. Divisa';
Monedas.Cells[6,0]:='Símbolo Mone.';

end;

end.