/****************************************************************************
	 PROGRAM: Thello.c
	 PURPOSE: Ohjelma tyypillisten kontrollien testaamiseen.
	 Editor:  Vesa Lappalainen  typistänyt malliohjelmista.
	 Project: thello.c, whello.def

****************************************************************************/
#include <windows.h>
#include <windowsx.h>           /* Tarvitaan kaikissa Windows C-ohjelmissa */
#include <stdio.h>
#include <string.h>


#define MIN_BAR    0
#define MAX_BAR   50

static int value = 0;

//static lpstr *jono[50]={"Eka rivi","Toka","Kolmas","Neljäs",

void tulosta(hDC)
{
	char  rivi[200];
	int	i,j;
	DWORD dwTextex=GetTextExtent(hDC,"X",1);
	int	ysize=HIWORD(dwTextex)+1;
	for (i=value,j=0;i<MAX_BAR;i++,j++){
		  sprintf(rivi,"olen rivi numero %d. Että hei vaan",i);
		  TextOut(hDC, 0, j*ysize, rivi,strlen(rivi));
	}
	return;
}


LONG CALLBACK MainWndProc(HWND hWnd, UINT message,
								  WPARAM wParam, LPARAM lParam)
{

HDC hdc;
PAINTSTRUCT ps;
TEXTMETRIC tm;

/* These variables are required to display text. */

static int xClient;     /* width of client area                  */
static int yClient;     /* height of client area                 */
static int xClientMax;  /* maximum width of client area          */

static int xChar;       /* horizontal scrolling unit             */
static int yChar;       /* vertical scrolling unit               */
static int xUpper;      /* average width of uppercase letters    */

static int xPos;        /* current horizontal scrolling position */
static int yPos;        /* current vertical scrolling position   */

static int xMax;        /* maximum horiz. scrolling position     */
static int yMax;        /* maximum vert. scrolling position      */


int xInc;               /* horizontal scrolling increment        */
int yInc;               /* vertical scrolling increment          */

int i;                  /* loop counter                          */
int x, y;               /* horiz. and vert. printing coords      */

int FirstLine;          /* first line in the invalidated area    */
int LastLine;           /* last line in the invalidated area     */

/* Create an array of lines to display. */

#define LINES 27
static char *abc[] = { "anteater", "bear", "cougar", "dingo",
  "elephant", "frog", "gazelle", "hyena", "iguana", "jackal",

  "kangaroo", "llama", "moose", "newt", "octopus", "penguin",
  "quail", "rat", "squid", "tortoise", "urus", "vole",
  "walrus", "xylophone", "yak", "zebra",
  "This line contains many words, but no character. Go figure." };

switch (message) {

	 case WM_CREATE :

		  /* Get the handle of the client area's device context. */

		  hdc = GetDC (hWnd);

        /* Extract font dimensions from the text metrics. */

		  GetTextMetrics (hdc, &tm);
        xChar = tm.tmAveCharWidth;
		  xUpper = (tm.tmPitchAndFamily & 1 ? 3 : 2) * xChar/2;

		  yChar = tm.tmHeight + tm.tmExternalLeading;

		  /* Free the device context. */

		  ReleaseDC (hWnd, hdc);

		  /*
			* Set an arbitrary maximum width for client area.
			* (xClientMax is the sum of the widths of 48 average
         * lowercase letters and 12 uppercase letters.)
			*/

		  xClientMax = 48 * xChar + 12 * xUpper;

        return 0;

	 case WM_SIZE:

		  /* Retrieve the dimensions of the client area. */

		  yClient = HIWORD (lParam);
		  xClient = LOWORD (lParam);


		  /*
			* Determine the maximum vertical scrolling position.
         * The two is added for extra space below the lines
			* of text.
			*/

        yMax = max (0, LINES + 2 - yClient/yChar);

		  /*
         * Make sure the current vertical scrolling position
			* does not exceed the maximum.
			*/

		  yPos = min (yPos, yMax);

        /*
			* Adjust the vertical scrolling range and scroll box
			* position to reflect the new yMax and yPos values.
			*/

		  SetScrollRange (hWnd, SB_VERT, 0, yMax, TRUE);
		  SetScrollPos (hWnd, SB_VERT, yPos, TRUE);


		  /*
			* Determine the maximum horizontal scrolling position.
			* The two is added for extra space to the right of the
         * lines of text.
			*/

		  xMax = max (0, 2 + (xClientMax - xClient)/xChar);

        /*
         * Make sure the current horizontal scrolling position
			* does not exceed the maximum.
			*/

		  xPos = min (xPos, xMax);

        /*
			* Adjust the horizontal scrolling range and scroll box
         * position to reflect the new xMax and xPos values.
			*/

		  SetScrollRange (hWnd, SB_HORZ, 0, xMax, TRUE);
		  SetScrollPos (hWnd, SB_HORZ, xPos, TRUE);


		  return 0;

	 case WM_PAINT:

		  /* Prepare the window for painting. */

		  hdc = BeginPaint(hWnd, &ps);

		  /*
			* Use the current vertical scrolling position and
			* coordinates of the invalid rectangle to determine
			* the range of new lines that should be drawn in the
			* client area.
			*/

		  FirstLine = max (0, yPos + ps.rcPaint.top/yChar - 1);
		  LastLine = min (LINES, yPos + ps.rcPaint.bottom/yChar);

        /* Display these lines. */

		  for (i = FirstLine;i < LastLine;i++) {
				x = xChar * (1 - xPos);

				y = yChar * (1 - yPos + i);

				TextOut (hdc, x, y, abc[i], lstrlen(abc[i]));
            }

		  /* Indicate that painting is finished. */

		  EndPaint(hWnd, &ps);
		  break;

    case WM_HSCROLL:
      switch(LOWORD (wParam)) {

            /* User clicked shaft left of the scroll box. */

        case SB_PAGEUP:
                 xInc = -8;
                 break;

            /* User clicked shaft right of the scroll box. */

        case SB_PAGEDOWN:
                  xInc = 8;
		  break;

				/* User clicked the left arrow. */

	case SB_LINEUP:
		  xInc = -1;
                  break;

				/* User clicked the right arrow. */

	case SB_LINEDOWN:
		  xInc = 1;
                  break;

				/* User dragged the scroll box. */
        case SB_THUMBPOSITION:
        case SB_THUMBTRACK:
		  xInc = GET_WM_VSCROLL_POS(wParam,lParam)-xPos;
		  break;

	default:
		  xInc = 0;


		  }

		  /*
			* If applying the horizontal scrolling increment does not
			* take the scrolling position out of the scrolling range,
			* increment the scrolling position, adjust the position
			* of the scroll box, and update the window.
			*/

		  if ( (xInc = max (-xPos, min (xInc, xMax - xPos)) ) != 0) {
				xPos += xInc;
				ScrollWindow (hWnd, -xChar * xInc, 0,
					 (RECT *) NULL, (RECT *) NULL);
				SetScrollPos (hWnd, SB_HORZ, xPos, TRUE);
				UpdateWindow (hWnd);
		  }


		  return 0;

	 case WM_VSCROLL:
		switch(LOWORD (wParam)) {

				/* User clicked the shaft above the scroll box. */

				case SB_PAGEUP:
					  yInc = min(-1, -yClient / yChar);
					  break;

				/* User clicked the shaft below the scroll box. */

				case SB_PAGEDOWN:
					  yInc = max(1, yClient / yChar);
					  break;

				/* User clicked the top arrow. */

				case SB_LINEUP:
					  yInc = -1;

					  break;

				/* User clicked the bottom arrow. */

				case SB_LINEDOWN:
					  yInc = 1;
					  break;

				/* User dragged the scroll box. */
                                case SB_THUMBPOSITION:
				case SB_THUMBTRACK:
					  yInc = GET_WM_VSCROLL_POS(wParam,lParam)-yPos;
					  break;

				default:
					  yInc = 0;

		  }

		  /*
			* If applying the vertical scrolling increment does not
			* take the scrolling position out of the scrolling range,
			* increment the scrolling position, adjust the position

			* of the scroll box, and update the window. UpdateWindow
			* sends the WM_PAINT message.
			*/

		  if ( ( yInc = max(-yPos, min(yInc, yMax - yPos)) ) != 0 ) {
				yPos += yInc;
				ScrollWindow(hWnd, 0, -yChar * yInc,
					 (const RECT *) NULL, (const RECT *) NULL);
				SetScrollPos(hWnd, SB_VERT, yPos, TRUE);
//				UpdateWindow(hWnd);
		  }
                return 0;




	 case WM_DESTROY:          /* Viesti: ikkuna hävitetään             */
		  PostQuitMessage(0);
		  return NULL;
	 default:                  /* Antaa Windowsin käsitellä muut        */
		  break;
  }
  return DefWindowProc(hWnd, message, wParam, lParam);
}

int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
						 LPSTR lpCmdLine, int nCmdShow)
{
  HWND hWnd;  /* Pääikkunan kahva ja apukahva kontrollien luontiin.  */
  WNDCLASS  wc;   /* Ikkunaluokka                                        */
  MSG msg;        /* Viesti                                              */
  (void)lpCmdLine; /* Hämäystä, jottei valitusta param. käytt.           */

  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(NULL, IDI_APPLICATION);
    wc.hCursor       = LoadCursor(NULL, IDC_ARROW);
    wc.hbrBackground = GetStockObject(WHITE_BRUSH);
    wc.lpszMenuName  = NULL;           wc.lpszClassName  = "WHelloWClass";
    if ( !RegisterClass(&wc) ) return 1;
  }

  hWnd = CreateWindow("WHelloWClass","Windows Hello",
           WS_CAPTION | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_SYSMENU |
           WS_THICKFRAME | WS_MINIMIZEBOX  |  WS_MAXIMIZEBOX,
           50,50,300,300,NULL,NULL,hInstance,NULL);
           if ( !hWnd ) return 1;

  ShowWindow(hWnd,nCmdShow);        /* Näytetään ikkuna               */

//  SetScrollRange(hWnd,SB_VERT,MIN_BAR,MAX_BAR,TRUE);
//  SetScrollRange(hWnd,SB_HORZ,MIN_BAR,MAX_BAR,TRUE);

  while ( GetMessage(&msg,NULL,NULL,NULL) ) {
      TranslateMessage(&msg);     /* Tulkitaan virtuaaliset näp. koodit  */
      DispatchMessage(&msg);      /* Lähetetään viesti ikkunalle         */
  }
  return msg.wParam;        /* Palautetaan PostQuitMessage-funktion arvo */
}