/*---------------------------------------------------------------------------*/
/*          						SKAPA OCH VISA TEXTBOX                   		  */
/*---------------------------------------------------------------------------*/

int iButton;
extern char szTextStamp[];

bool dTextbox()
{
	iButton = DialogBox(					//Skapa dialogruta och ta hand om resultat
   	hInstance,
   	"MY_TEXTBOX",
      hWnd,
      (DLGPROC)TextboxProc);
}

/*---------------------------------------------------------------------------*/
/*                       HANTERING AV MEDDELANDE (TEXTBOX)                   */
/*---------------------------------------------------------------------------*/

long FAR PASCAL TextboxProc(
   HWND hTextbox,															//Fönsterhandtag
	UINT   msg, 															//Meddelande
	WPARAM wParam,		 													//Parameter (w)
	LPARAM lParam)											 				//Parameter (l)
{
	switch(msg)
	{
      case WM_COMMAND:                          			//Något ät tryckt?
      	switch(LOWORD(wParam))
         {
         	case IDOK:                    					//OK-knapp tryckt?
					//Hämta text (från textboxen i dialogruta) och ändra textstämpel
					GetDlgItemText(hTextbox,101,szTextStamp,200);
            	EndDialog(hTextbox,wParam);
               break;
            case IDCANCEL:                      			//CANCEL-knapp tryckt?
            	EndDialog(hTextbox,wParam);
               break;
         }
      	break;
      case WM_INITDIALOG:                    	//Vid initiering av dialogruta
      	break;
      default:
      	return FALSE;              				//Meddelande har ej bearbetats
	}
	return true;											//Meddelande har bearbetats
}