Tiny File Manager

Back Back Up Advanced Editor

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "calcul.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
// d�finition
DecimalSeparator = '.';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SortieClick(TObject *Sender)
{
          Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::zone(TObject *Sender, char &Key)
{

if ((Key < 48 || Key > 57)
        && Key != VK_BACK
        && Key != VK_DELETE
        && Key != DecimalSeparator)
        Key = 0;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::FrancZoneChange(TObject *Sender)
{
double valeur = 0;
    try { // L'exception sera d�clench�e si le contenu de
          // la zone est vide
        valeur = StrToFloat(FrancZone->Text);
    }
    catch(...)
    {
        // On ne fait rien, c'est le but recherch�
    }

valeur /= 6.55957;

// On supprime la gestion de l'�v�nement OnChange pour la
    // zone d'�dition cible
    EuroZone->OnChange = 0;

EuroZone->Text = EuroZone->Text.FloatToStrF(valeur, AnsiString::sffFixed, 15, 2);

// On restaure la gestion de l'�v�nement OnChange
    EuroZone->OnChange = EuroZoneChange;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::EuroZoneChange(TObject *Sender)
{

double valeur = 0;
    try { // L'exception sera d�clench�e si le contenu de
          // la zone est vide
        valeur = StrToFloat(EuroZone->Text);
    }
    catch(...)
    {
        // On ne fait rien, c'est le but recherch�
    }

valeur *= 6.55957;

// On supprime la gestion de l'�v�nement OnChange pour la
    // zone d'�dition cible
    FrancZone->OnChange = 0;

FrancZone->Text = FrancZone->Text.FloatToStrF(valeur, AnsiString::sffFixed, 15, 2);

// On restaure la gestion de l'�v�nement OnChange
    FrancZone->OnChange = FrancZoneChange;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::aboutClick(TObject *Sender)
{
ShowMessage("Informations\nLogiciel d�velopp� par Delpy patrice, (c) Avril 2005");
}
//---------------------------------------------------------------------------