/**************/
/* initest.c  */
/*****************************************************************************
  PROGRAM: initest.c
  Windows: Win 3.1 & WIN32
  PURPOSE: Tutkitaan .INI-tiedostojen toimintaa
  Editor:  Vesa Lappalainen 9.10.1994
  PROJECT: initest.c, demo.def, ALI\tabhand.c, ALI\printw.c

*****************************************************************************/
#include <windowsx.h>
#include <stdlib.h>
#include "tabhand.h"
#include "printw.h"

#define ININAME ".\\MHELLO.INI"

/****************************************************************************/
TblClassSWindowMAIN("TblWndClass","ikoni","Otsikko",MsgTbl,0);
/****************************************************************************/

static char text[100]="";

static EVENT WM_paint(tMSGParam *msg) /* # MAKE_DC # */
{
  SetTextStart(msg->hDC,10,10);
  printw(msg->hDC,text);
  return 0;
}

static EVENT WM_create(tMSGParam *msg)
{
  int lkm,raja; (void)msg;
  GetPrivateProfileString("Teksti","Terve","",text,sizeof(text),ININAME);
  lkm  = GetPrivateProfileInt("Kaytot","Lkm",0,ININAME);
  raja = GetPrivateProfileInt("Kaytot","Raja",0,ININAME);
  if ( lkm >= raja ) return -1; /* Kieltäydytään käynnistymästä */
  MoveWindow(msg->hWnd,10,10,200,100,FALSE);
  return 0;
}

static EVENT WM_destroy(tMSGParam *msg)
{
  char s[20];
  int lkm  = GetPrivateProfileInt("Kaytot","Lkm",0,ININAME);
  WritePrivateProfileString("Kaytot","Lkm",itoa(lkm+1,s,10),ININAME);
  PostQuitMessage(msg->wParam);
  return 0;
}

/****************************************************************************/
/* Viestien käsittelytaulukko                                               */
/****************************************************************************/
tMSGEntry MsgTbl[] = {
  { WM_PAINT , DoC , DoC , WM_paint,  MAKE_DC  }, /*a*/
  { WM_CREATE , DoC , DoC , WM_create }, /*a*/
  { WM_DESTROY , DoC , DoC , WM_destroy }, /*a*/
  { 0 }
};
/****************************************************************************/