/**************/
/* vaihtaj2.c */
/****************************************************************************
    PROGRAM: vaihtaj2.c
    PURPOSE: Vaihtaa rahaa ja matkoja
             Ohjelmalla esitellään omatekoisten dialog boxien käyttöä.
             Pääikkuna tekee vain menun, jolla voidaan valita mikä
             dialog box tulee aktiiviseksi

             Skaalausvaihtajan oletusikkunana on luonnosta mitattu
             matka.  Painamalla ENTER (IDOK) päästään aina tähän ikkunaan.
             Kun ikkunaan tullaan, valitaan koko ikkunassa oleva teksti, jotta
             uuden syöttäminen olisi helpompaa.

             Ikkunoiden toimintajärjestys on valittu Resource Workshopissa
             toiminnolla Options - Set order.

             Ikkunat ovat käytettävissä yhtäaikaa jos ne on luotu Modeless.
             Modeless-dialogien on käyttöön omat aliohjelmat,
             jotka tallettavat kaikki käyttöön otetut modeless dialogit.
             Modeless tai Modal dialogi valitaan kutsun perusteella
               DoModelessDialog tai
               DoModalDialog.
             Itse dialogit voivat olla samoja, mikäli ne lopetetaan
             kutsuun DestroyDialog.

    PROJECT:
      vaihtaj2.c
      vaihtaja.rc
      vaihtaja.def
      mdialog.c

    TEHTÄVIÄ:
             1)  Täydennä rahanvaihto-toiminto valmiiksi.

             2)  Kokeile muuttaa dialogin oletusjärjetystä (RWSHOP!)
             
             3)  Vain yksi modeless esiintymä kustakin dialogista voi olla kerrallaan
                 käynnissä!  Miksi?

             4)  Miten voisit korjata ongelman?
             
    Editor:  Vesa Lappalainen 26.10.1992 
****************************************************************************/
#include <windows.h>            /* Tarvitaan kaikissa Windows C-ohjelmissa */
#include <stdio.h>     
#include <string.h>
#include <math.h>
#include "mdialog.h"
#include "vaihtaja.h"

#define WCLASSNAME "WMultiWClass"

/***************************************************************************/
BOOL CALLBACK_E About(HWND hDlg,unsigned message,WPARAM wParam,LPARAM lParam)
{
#pragma argsused
  switch (message) {
  case WM_INITDIALOG:
    return (TRUE);

  case WM_COMMAND:
    if ( wParam == IDOK || wParam == IDCANCEL ) {
      DestroyDialog(hDlg,TRUE);
      return (TRUE);
    }
    break;
  }
  return (FALSE);
}

static char  s[100];
/***************************************************************************/
double GetDouble(HWND hDlg,WPARAM id)
{
  double d=0;
  GetDlgItemText(hDlg,id,s,sizeof(s));
  sscanf(s,"%lf",&d);
  return d;
}

/***************************************************************************/
void ShowDouble(HWND hDlg,WPARAM id,double d)
{
  double ad,old_d = GetDouble(hDlg,id);
  ad = fabs(d); if ( fabs(old_d) > ad ) ad = fabs(old_d);
  if ( fabs(d -old_d) <= ad*0.0000001 ) return; /* Suht virhe isompaan     */

  sprintf(s,"%-0.9lg",d);
  SetDlgItemText(hDlg,id,s);
}

/***************************************************************************/
#include "scalin2.c"

/***************************************************************************/
BOOL CALLBACK_E Money(HWND hDlg,unsigned message,WPARAM wParam,LPARAM lParam)
{
#pragma argsused
  switch (message) {
  case WM_INITDIALOG:
    return (TRUE);

  case WM_COMMAND:
    if ( wParam == IDOK || wParam == IDCANCEL ) {
      DestroyDialog(hDlg,1);
      return (TRUE);
    }
    break;
  }
  return (FALSE);
}

/***************************************************************************/
LRESULT CALLBACK_E MainWndProc(HWND hWnd, unsigned message, WPARAM wParam, LPARAM lParam)
{
  static char viesti[]="Valitse menusta ohjelma!";
  PAINTSTRUCT ps;

  switch (message)
  {
    case WM_PAINT:            /* Viesti: Piirrä ikkuna uudelleen       */
      if ( BeginPaint(hWnd,&ps) )
        TextOut(ps.hdc, 10, 10, viesti,strlen(viesti));
      EndPaint(hWnd,&ps);
      return (NULL);

    case WM_DESTROY:          /* Viesti: ikkuna hävitetään             */
      PostQuitMessage(0);
      return (NULL);

    case WM_COMMAND:
      switch (wParam) {
        case IDM_FILE_EXIT:
          SendMessage(hWnd,WM_DESTROY,0,0); 
          return NULL;
        case IDM_APP_SCALING:
          return (LRESULT)DoMultiModelessDialog(hWnd,"SCALING",Scaling);
        case IDM_APP_MONEY:
          return (LRESULT)DoMultiModelessDialog(hWnd,"CHANGE",Money);
        case IDM_HELP_ABOUT:
          return (LRESULT)DoModalDialog(hWnd,"About",About);
        default: break;
      }
      break;

    default:                  /* Antaa Windowsin käsitellä muut        */
      break;
  }
  return (DefWindowProc(hWnd, message, wParam, lParam));
}

/***************************************************************************/
int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
                   LPSTR lpCmdLine,  int nCmdShow)
{
#pragma argsused
    WNDCLASS  wc;   /* Ikkunaluokka                                        */
    HWND    hWnd;   /* Pääikkunan kahva                                    */
    MSG msg;        /* Viesti                                              */

    if (!hPrevInstance) {       /* Onko muita esiintymiä käynnisssä?       */
      wc.style         = NULL;      wc.lpfnWndProc    = MainWndProc;
      wc.cbClsExtra    = 0;         wc.cbWndExtra     = 0;
      wc.hInstance     = hInstance;       
      wc.hIcon         = LoadIcon(hInstance, "Ikoni");
      wc.hCursor       = LoadCursor(NULL, IDC_ARROW);   
      wc.hbrBackground = (HBRUSH)GetStockObject(GRAY_BRUSH);
      wc.lpszMenuName  = "MAINMENU";     wc.lpszClassName  = WCLASSNAME;
      if (!RegisterClass(&wc)) return (FALSE);
    }

    hWnd = CreateWindow(WCLASSNAME,"Vaihtaja",WS_OVERLAPPEDWINDOW,
                        20,20,400,400,
                        NULL,NULL,hInstance,NULL);
    if (!hWnd) return (FALSE);
    ShowWindow(hWnd, nCmdShow);     /* Näytetään ikkuna                    */
    UpdateWindow(hWnd);             /* Lähetetään WM_PAINT viesti          */

    while (GetMessage(&msg,NULL,NULL,NULL)) {
        if ( IsModelessMessage(&msg) ) continue;
        TranslateMessage(&msg);     /* Tulkitaan virtuaaliset näp. koodit  */
        DispatchMessage(&msg);      /* Lähetetään viesti ikkunalle         */
    }

    FreeAllModeless();

    return (msg.wParam);      /* Palautetaan PostQuitMessage-funktion arvo */
}