/**************/
/* autoldde.c */
/****************************************************************************
**  PROGRAM: autoldde  (muokattu ohjelmasta  laskurm2.c )
**  PURPOSE: Autolaskuri mallina DDE-palvelimesta ja asiakkaasta.
**           Mahdollisuus kopioida leikekirjaan valmis viite.
**           Toinen ikkuna, johon saadaan DDE-asiakas.
**           Asiakas ikkunan linkit voidaan ottaa leikekirjasta
**           tai Edit-ikkunaan kirjoitetun linkin mukaan.
**           Yksinkertaistettu versio.
**  USAGE:
**           Esim EXCELissä kirjoitetaan kaava =AUTOLDDE|LKM!HA
**           Quattro Prossa kaava              @DDELINK([AUTOLDDE|LKM]"HA")
**           Tässä tapauksessa nämä kaavat voidaan kopoida automaattisesti
**           aktivoimalla joku laskurin nappula ja Edit/Copy
**           Sitten esim. taulukkolaskennassa Edit/Paste Link ja DDE-linkki
**           on valmis!
**           Asiakas ikkunan 2 pientä linkkikenttää saadaan aktivoimalla
**           jompikumpi niistä ja valitsemalla sen jälkeen Edit/Paste Link
**           Mikäli kumpikaan ei ole valittu tulee linkki aina isoon ikkunaan.
**           Ison ikkunan linkki saadaan myös edit-ikkunan tekstin mukaan
**           valitsemalla Edit/Do Edit Link.
**            
**  HUOM!
**           Toteutuksessa on molemmille ikkunoille laiskuuden vuoksi
**           sama menu.  Oikeassa ohjelmassa tämä ei ole suotavaa!
**           Mallissa palvelin toimii toisesta ikkunasta ja asiakas
**           toisesta.  Tarvittaessa molemmat voivat toimia samassa
**           ikkunassa!
**
**           Tämä malli toimii vain Windows 3.1:ssä, koska siinä on
**           käytetty read-only Edit-kenttiä.  Poistamalla read-only,
**           pitäisi toimia myös Win 3.0:ssa
**
**  Editor:  Vesa Lappalainen ( DDE-palvelin yleiskäytöiseksi+leikekirja)
**                            ( DDE-asiakas )
**           Kari Heikkilä    ( DDE-palvelin )
**
**           DDE palvelimen (server) vaatimat lisäykset merkitty ds
**           DDE asiakkaan  (client) vaatimat lisäykset merkitty dc
**
**    Projektiin tarvitaan
**      autoldde.c    - tämä tiedosto
**      autoldde.def  - moduulin määrittely
**      autoldde.rc   - resurssit
**      ddeser.c      - dde-palvelin
**      ddecli.c      - dde-asiakas
**      clipboard.c   - leikekirjan käsittely
**
****************************************************************************/
#include <windows.h>            /* Tarvitaan kaikissa Windows C-ohjelmissa */
#include <string.h>
#include "ddeser.h"                                                  /* ds */
#include "ddecli.h"                                                  /* dc */
#include "autoldde.h"
#define BORDLG                  /* Jos dialogissa on tyyli BorDlg          */ 

#define WTITLE "Laskuri"
#define LASKUREITA 2

#define SERVICE "AutolDDE"                                           /* ds */
#define TOPIC   "Lkm"                                                /* ds */

static int laskurit[LASKUREITA] = {0,0};


static HWND hcWnd;                                                   /* ds */

/***************************************************************************/
int UpdateData(HWND hWnd,int n,HDDEDATA hData,LONG size)             /* dc */
/* Tällä aliohjelmalla päivitetään näyttöön DDE-serverin ilmoittamat
** muutokset.  Aliohjelmaa ei tarvita, mikäli muutokset tulevat suoraan
** johonkin ikkunaan, jonka sisältö voidaan muuttaa SetWindowTextillä.
** Tässä tapauksessa aliohjelma on kirjoitettu mallin vuoksi.
*/
{
#pragma argsused
  char ddedata[100];
  HWND hswnd = GetDlgItem(hWnd,ID_LINK+n);
  DdeGetData(hData,ddedata,sizeof(ddedata),0);
  SetWindowText(hswnd,ddedata);
  return 0;
}


/***************************************************************************/
void ShowStatic(HWND hWnd, int nr, int value)
/* Aliohjelmalla tulostetaan Static ikkunaan numero                        */
{
  char s[20];
  HWND hswnd = GetDlgItem(hWnd,nr);
  wsprintf(s,"%d ",value);
  SetWindowText(hswnd,s);

  InformDDEChangeSN(nr);                     /* Tarvit. jos autom. *//* ds */
}


/***************************************************************************/
void nollaa_laskurit(HWND hWnd,int laskurit[])
{
  int i;
  for (i=0; i<LASKUREITA; i++) ShowStatic(hWnd,HAL+i,laskurit[i] = 0);
}


/***************************************************************************/
BOOL CALLBACK _export MainWndProc(HWND hWnd, unsigned message,
                                  WORD wParam, LONG lParam)
{
#pragma argsused

  switch (message)  {
    case WM_COMMAND:
      switch (wParam) {
	case HA:             /* Painonappia painettu                       */
	case KA:
	  ShowStatic(hWnd,wParam-HA+HAL,laskurit[wParam-HA]+=1);
	  return TRUE;

	case NOLLAA:
	  nollaa_laskurit(hWnd,laskurit);
	  return TRUE;

	case IDM_EDIT_COPY: {/* Leikekirjaan se laskuri, jonka nappula akt.*/
	  int id = GetDlgCtrlID(GetFocus());   /* Mikä nappula aktiivinen? */
	  if (id < HA || HA+LASKUREITA-1 < id ) break;
	  LinkToClipboardSN(hWnd,id-HA+HAL);                         /* ds */
	  return TRUE;
	 }

	case IDM_EDIT_PASTE_LINK: {                                  /* dc */
          int id = GetDlgCtrlID(GetFocus());
          if (ID_LINK<=id && id<=ID_LINK2 )  /* Tämä tarvitsee funktion    */
            LinkFromClipboard(id-ID_LINK,hcWnd,UpdateData,NULL,CF_TEXT);
          else                               /* Tämä toimii automaattisesti*/
            AutoLinkFromClipboard(9,hcWnd,ID_AUTOLINK);
	  return TRUE;
         }

 	case IDM_EDIT_DO_EDIT_LINK: {                                /* dc */
          char link[50]; /* Otetaan edit-ikkunan teksti ja siitä linkki    */
          GetDlgItemText(hcWnd,ID_EDITLINK,link,sizeof(link));
          AutoLinkFromText(8,hcWnd,ID_AUTOLINK,link);
          return TRUE;
         }

        case IDM_EDIT_RESET_CLIENT_LINKS:                            /* dc */
          CloseAllDDEClients();                                      /* dc */
          return TRUE;

 	case IDM_FILE_EXIT:
        case IDCANCEL:
	case EXIT:
	  PostQuitMessage(0);
	  return TRUE;

	default:
	  return FALSE;
      }

  }
  return FALSE;
}


/***************************************************************************/
int PASCAL WinMain(HINSTANCE hInstance, HINSTNACE hPrevInstance,
                   LPSTR lpCmdLine,     int nCmdShow)
{
#pragma argsused
  MSG     msg;
  HACCEL  hAccel;
  FARPROC lProc;
  HWND    hWnd;

#ifdef BORDLG
  HINSTANCE hLInst=LoadLibrary("BWCC.DLL");
#endif
  lProc  = MakeProcInstance(MainWndProc,hInstance);
  hcWnd  = CreateDialog(hInstance,"Client",NULL,lProc);              /* dc */
  hWnd   = CreateDialog(hInstance,"LASKURI",NULL,lProc);
  hAccel = LoadAccelerators(hInstance,"PIKA");

  if ( !hWnd ) goto lopetus;

  InitDDEServer(hInstance,SERVICE,NULL);                             /* ds */
  AddAutoTextService(TOPIC,"ha",HAL,hWnd);                           /* ds */
  AddAutoTextService(TOPIC,"ka",KAL,hWnd);                           /* ds */

  while (GetMessage(&msg,NULL,NULL,NULL)) {
    if ( GetFocus() == hWnd ) /* Vain itse laskurissa pikanäppäimet! Miksi?*/
      if ( TranslateAccelerator(hWnd,hAccel,&msg) ) continue;
    if ( IsDialogMessage(hWnd,&msg)  )            continue;
    TranslateMessage(&msg);     /* Tulkitaan virtuaaliset näp. koodit      */
    DispatchMessage(&msg);      /* Lähetetään viesti ikkunalle             */
  }

  CloseDDEServer();                                                  /* ds */
  CloseAllDDEClients();                                              /* dc */

lopetus:
  FreeProcInstance(lProc);
#ifdef BORDLG
  FreeLibrary(hLInst);
#endif
  return 0;
}