//---------------------------------------------------------------------------
#pragma warn -csu
#include <vcl\vcl.h>
#include <strstream>
#pragma hdrstop
#include "mitwin.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TFormMittakaava *FormMittakaava;
//---------------------------------------------------------------------------
__fastcall TFormMittakaava::TFormMittakaava(TComponent* Owner)
	: TForm(Owner), muunnokset(10)
{
  muunnokset.lue("yksikot.dat");
  const cMuunnos *p;
  for ( p = muunnokset.Eka(); p != NULL; p = muunnokset.Seuraava() )
    ComboBoxMap->Items->Add(p->Yks().c_str());
  Laske();
}
//---------------------------------------------------------------------------
void TFormMittakaava::Laske()
{
  double mittakaava=200000.0,matka=0,matka_km,matka_mm;
  char jono[80];
  ostrstream ostr(jono,sizeof(jono));

  sscanf(EditScale->Text.c_str(),"%lf",&mittakaava);
  sscanf(EditMap->Text.c_str(),"%lf",&matka);
  matka_mm = matka * muunnokset.kerroin(ComboBoxMap->Text.c_str());
  matka_km = matka_mm * mittakaava / (1000.0*1000.0) ;
  ostr <<  matka_km << " km" << ends;
  Labelkm->Caption = jono;
}

void __fastcall TFormMittakaava::EditMapChange(TObject *Sender)
{
  Laske();
}
//---------------------------------------------------------------------------
void __fastcall TFormMittakaava::ComboBoxMapChange(TObject *Sender)
{
  Laske();
}
//---------------------------------------------------------------------------
void __fastcall TFormMittakaava::EditScaleChange(TObject *Sender)
{
  Laske();
}
//---------------------------------------------------------------------------