programs/view/view.c

   1 /*
   2  * Copyright 1998 Douglas Ridgway
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include <windows.h>
  20 #include <commdlg.h>
  21 #include <stdio.h>
  22
  23 #include "resource.h"
  24
  25 static HINSTANCE hInst;
  26 static HWND hMainWnd;
  27 static WCHAR szAppName[5] = {'V','i','e','w',0};
  28 static WCHAR szTitle[MAX_PATH];
  29 static WCHAR szFileTitle[MAX_PATH];
  30
  31 static HMETAFILE hmf;
  32 static HENHMETAFILE enhmf;
  33 static int deltax = 0, deltay = 0;
  34 static int width = 0, height = 0;
  35 static BOOL isAldus, isEnhanced;
  36
  37 #include "pshpack1.h"
  38 typedef struct
  39 {
  40         DWORD           key;
  41         WORD            hmf;
  42         SMALL_RECT      bbox;
  43         WORD            inch;
  44         DWORD           reserved;
  45         WORD            checksum;
  46 } APMFILEHEADER;
  47 #include "poppack.h"
  48
  49 #define APMHEADER_KEY   0x9AC6CDD7l
  50
  51
  52 static BOOL FileOpen(HWND hWnd, WCHAR *fn, int fnsz)
  53 {
  54   WCHAR filter[120], metafileFilter[100];
  55   static const WCHAR filterW[] = {'%','s','%','c','*','.','w','m','f',';','*','.','e','m','f','%','c',0};
  56   OPENFILENAMEW ofn = { sizeof(OPENFILENAMEW),
  57                         0, 0, NULL, NULL, 0, 0, NULL,
  58                         fnsz, NULL, 0, NULL, NULL,
  59                         OFN_SHOWHELP, 0, 0, NULL, 0, NULL };
  60
  61   LoadStringW( hInst, IDS_OPEN_META_STRING, metafileFilter, ARRAY_SIZE(metafileFilter) );
  62   swprintf( filter, ARRAY_SIZE(filter), filterW, metafileFilter, 0, 0 );
  63
  64   ofn.lpstrFilter = filter;
  65   ofn.hwndOwner = hWnd;
  66   ofn.lpstrFile = fn;
  67   if( fnsz < 1 )
  68     return FALSE;
  69   *fn = 0;
  70   return GetOpenFileNameW(&ofn);
  71 }
  72
  73 static BOOL FileIsEnhanced( LPCWSTR szFileName )
  74 {
  75   ENHMETAHEADER enh;
  76   HANDLE handle;
  77   DWORD size;
  78
  79   handle = CreateFileW( szFileName, GENERIC_READ, FILE_SHARE_READ | FILE_SHARE_WRITE,
  80                         NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0 );
  81   if (handle == INVALID_HANDLE_VALUE)
  82     return FALSE;
  83
  84   if (!ReadFile( handle, &enh, sizeof(ENHMETAHEADER), &size, NULL ) || size != sizeof(ENHMETAHEADER) )
  85   {
  86       CloseHandle( handle );
  87       return FALSE;
  88   }
  89   CloseHandle( handle );
  90
  91   /* Is it enhanced? */
  92   return (enh.dSignature == ENHMETA_SIGNATURE);
  93 }
  94
  95 static BOOL FileIsPlaceable( LPCWSTR szFileName )
  96 {
  97   APMFILEHEADER apmh;
  98   HANDLE handle;
  99   DWORD size;
 100
 101   handle = CreateFileW( szFileName, GENERIC_READ, FILE_SHARE_READ | FILE_SHARE_WRITE,
 102                         NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0 );
 103   if (handle == INVALID_HANDLE_VALUE)
 104     return FALSE;
 105
 106   if (!ReadFile( handle, &apmh, sizeof(APMFILEHEADER), &size, NULL ) || size != sizeof(APMFILEHEADER))
 107   {
 108       CloseHandle( handle );
 109       return FALSE;
 110   }
 111   CloseHandle( handle );
 112
 113   /* Is it placeable? */
 114   return (apmh.key == APMHEADER_KEY);
 115 }
 116
 117 static HMETAFILE GetPlaceableMetaFile( LPCWSTR szFileName )
 118 {
 119   LPBYTE lpData;
 120   METAHEADER mfHeader;
 121   APMFILEHEADER APMHeader;
 122   HANDLE handle;
 123   DWORD size;
 124   HMETAFILE hmf;
 125   WORD checksum, *p;
 126   HDC hdc;
 127   int i;
 128
 129   handle = CreateFileW( szFileName, GENERIC_READ, FILE_SHARE_READ | FILE_SHARE_WRITE,
 130                         NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0 );
 131   if (handle == INVALID_HANDLE_VALUE)
 132     return 0;
 133
 134   if (!ReadFile( handle, &APMHeader, sizeof(APMFILEHEADER), &size, NULL ) || size != sizeof(APMFILEHEADER))
 135   {
 136       CloseHandle( handle );
 137       return 0;
 138   }
 139   checksum = 0;
 140   p = (WORD *) &APMHeader;
 141
 142   for(i=0; i<10; i++)
 143     checksum ^= *p++;
 144   if (checksum != APMHeader.checksum) {
 145     char msg[128];
 146     sprintf(msg, "Computed checksum %04x != stored checksum %04x\n",
 147            checksum, APMHeader.checksum);
 148     MessageBoxA(hMainWnd, msg, "Checksum failed", MB_OK);
 149     CloseHandle( handle );
 150     return 0;
 151   }
 152
 153   if (!ReadFile( handle, &mfHeader, sizeof(METAHEADER), &size, NULL) || size != sizeof(METAHEADER))
 154   {
 155       CloseHandle( handle );
 156       return 0;
 157   }
 158
 159   if (!(lpData = GlobalAlloc(GPTR, (mfHeader.mtSize * 2L))))
 160   {
 161       CloseHandle( handle );
 162       return 0;
 163   }
 164
 165   SetFilePointer( handle, sizeof(APMFILEHEADER), NULL, FILE_BEGIN );
 166   if (!ReadFile(handle, lpData, mfHeader.mtSize * 2, &size, NULL ) || size != mfHeader.mtSize * 2)
 167   {
 168     GlobalFree(lpData);
 169     CloseHandle( handle );
 170     return 0;
 171   }
 172   CloseHandle( handle );
 173
 174   if (!(hmf = SetMetaFileBitsEx(mfHeader.mtSize*2, lpData))) {
 175     GlobalFree(lpData);
 176     return 0;
 177   }
 178
 179
 180   width = APMHeader.bbox.Right - APMHeader.bbox.Left;
 181   height = APMHeader.bbox.Bottom - APMHeader.bbox.Top;
 182
 183   /*      printf("Ok! width %d height %d inch %d\n", width, height, APMHeader.inch);  */
 184   hdc = GetDC(hMainWnd);
 185   width = width * GetDeviceCaps(hdc, LOGPIXELSX)/APMHeader.inch;
 186   height = height * GetDeviceCaps(hdc,LOGPIXELSY)/APMHeader.inch;
 187   ReleaseDC(hMainWnd, hdc);
 188
 189   deltax = 0;
 190   deltay = 0 ;
 191   GlobalFree(lpData);
 192   return hmf;
 193 }
 194
 195 static void DoOpenFile(LPCWSTR filename)
 196 {
 197   if (!filename) return;
 198
 199   isAldus = FileIsPlaceable(filename);
 200   if (isAldus) {
 201     hmf = GetPlaceableMetaFile(filename);
 202   } else {
 203     RECT r;
 204     isEnhanced = FileIsEnhanced(filename);
 205     if (isEnhanced)
 206        enhmf = GetEnhMetaFileW(filename);
 207     else
 208        hmf = GetMetaFileW(filename);
 209     GetClientRect(hMainWnd, &r);
 210     width = r.right - r.left;
 211     height = r.bottom - r.top;
 212   }
 213   InvalidateRect( hMainWnd, NULL, TRUE );
 214 }
 215
 216 static void UpdateWindowCaption(void)
 217 {
 218   WCHAR szCaption[MAX_PATH];
 219   WCHAR szView[MAX_PATH];
 220   static const WCHAR hyphenW[] = { ' ','-',' ',0 };
 221
 222   LoadStringW(hInst, IDS_DESCRIPTION, szView, ARRAY_SIZE(szView));
 223
 224   if (szFileTitle[0] != '\0')
 225   {
 226     lstrcpyW(szCaption, szFileTitle);
 227     LoadStringW(hInst, IDS_DESCRIPTION, szView, ARRAY_SIZE(szView));
 228     lstrcatW(szCaption, hyphenW);
 229     lstrcatW(szCaption, szView);
 230   }
 231   else
 232     lstrcpyW(szCaption, szView);
 233
 234   SetWindowTextW(hMainWnd, szCaption);
 235 }
 236
 237 static LRESULT CALLBACK WndProc(HWND hwnd, UINT uMessage, WPARAM wparam, LPARAM lparam)
 238 {
 239   switch (uMessage)
 240     {
 241     case WM_PAINT:
 242       {
 243         PAINTSTRUCT ps;
 244         BeginPaint(hwnd, &ps);
 245         SetMapMode(ps.hdc, MM_ANISOTROPIC);
 246         /* Set the window extent to a sane value in case the metafile doesn't */
 247         SetWindowExtEx(ps.hdc, width, height, NULL);
 248         SetViewportExtEx(ps.hdc, width, height, NULL);
 249         SetViewportOrgEx(ps.hdc, deltax, deltay, NULL);
 250        if (isEnhanced && enhmf)
 251        {
 252            RECT r;
 253            GetClientRect(hwnd, &r);
 254            PlayEnhMetaFile(ps.hdc, enhmf, &r);
 255        }
 256        else if (hmf)
 257            PlayMetaFile(ps.hdc, hmf);
 258         EndPaint(hwnd, &ps);
 259       }
 260       break;
 261
 262     case WM_COMMAND: /* message: command from application menu */
 263         switch (LOWORD(wparam))
 264         {
 265         case IDM_OPEN:
 266           {
 267               WCHAR filename[MAX_PATH];
 268               if (FileOpen(hwnd, filename, ARRAY_SIZE(filename)))
 269               {
 270                   szFileTitle[0] = 0;
 271                   GetFileTitleW(filename, szFileTitle, ARRAY_SIZE(szFileTitle));
 272                   DoOpenFile(filename);
 273                   UpdateWindowCaption();
 274               }
 275           }
 276           break;
 277
 278         case IDM_SET_EXT_TO_WIN:
 279           {
 280             RECT r;
 281             GetClientRect(hwnd, &r);
 282             width = r.right - r.left;
 283             height = r.bottom - r.top;
 284             deltax = deltay = 0;
 285             InvalidateRect( hwnd, NULL, TRUE );
 286           }
 287           break;
 288
 289
 290         case IDM_LEFT:
 291           deltax += 100;
 292           InvalidateRect( hwnd, NULL, TRUE );
 293           break;
 294         case IDM_RIGHT:
 295           deltax -= 100;
 296           InvalidateRect( hwnd, NULL, TRUE );
 297           break;
 298         case IDM_UP:
 299           deltay += 100;
 300           InvalidateRect( hwnd, NULL, TRUE );
 301           break;
 302         case IDM_DOWN:
 303           deltay -= 100;
 304           InvalidateRect( hwnd, NULL, TRUE );
 305           break;
 306
 307         case IDM_EXIT:
 308           DestroyWindow(hwnd);
 309           break;
 310
 311         default:
 312           return DefWindowProcW(hwnd, uMessage, wparam, lparam);
 313         }
 314       break;
 315
 316     case WM_DESTROY:  /* message: window being destroyed */
 317       PostQuitMessage(0);
 318       break;
 319
 320     default:          /* Passes it on if unprocessed */
 321       return DefWindowProcW(hwnd, uMessage, wparam, lparam);
 322     }
 323     return 0;
 324 }
 325
 326 static BOOL InitApplication(HINSTANCE hInstance)
 327 {
 328   WNDCLASSEXW wc;
 329
 330   /* Load the application description strings */
 331   LoadStringW(hInstance, IDS_DESCRIPTION, szTitle, ARRAY_SIZE(szTitle));
 332
 333   /* Fill in window class structure with parameters that describe the
 334      main window */
 335
 336   wc.cbSize        = sizeof(WNDCLASSEXW);
 337   wc.style         = CS_HREDRAW | CS_VREDRAW;             /* Class style(s) */
 338   wc.lpfnWndProc   = WndProc;                             /* Window Procedure */
 339   wc.cbClsExtra    = 0;                          /* No per-class extra data */
 340   wc.cbWndExtra    = 0;                         /* No per-window extra data */
 341   wc.hInstance     = hInstance;                      /* Owner of this class */
 342   wc.hIcon         = NULL;
 343   wc.hIconSm       = NULL;
 344   wc.hCursor       = LoadCursorW(NULL, (LPWSTR)IDC_ARROW);
 345   wc.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);           /* Default color */
 346   wc.lpszMenuName  = szAppName;                       /* Menu name from .rc */
 347   wc.lpszClassName = szAppName;                      /* Name to register as */
 348
 349   if (!RegisterClassExW(&wc)) return FALSE;
 350
 351   /* Call module specific initialization functions here */
 352
 353   return TRUE;
 354 }
 355
 356 static BOOL InitInstance(HINSTANCE hInstance, int nCmdShow)
 357 {
 358     /* Save the instance handle in a global variable for later use */
 359     hInst = hInstance;
 360
 361     /* Create main window */
 362     hMainWnd = CreateWindowW(szAppName,          /* See RegisterClass() call */
 363                             szTitle,             /* window title */
 364                             WS_OVERLAPPEDWINDOW, /* Window style */
 365                             CW_USEDEFAULT, 0,    /* positioning */
 366                             CW_USEDEFAULT, 0,    /* size */
 367                             NULL,                /* Overlapped has no parent */
 368                             NULL,                /* Use the window class menu */
 369                             hInstance,
 370                             NULL);
 371
 372     if (!hMainWnd)
 373         return FALSE;
 374
 375     /* Call module specific instance initialization functions here */
 376
 377     /* show the window, and paint it for the first time */
 378     ShowWindow(hMainWnd, nCmdShow);
 379     UpdateWindow(hMainWnd);
 380
 381     return TRUE;
 382 }
 383
 384 static void HandleCommandLine(LPWSTR cmdline)
 385 {
 386     /* skip white space */
 387     while (*cmdline == ' ') cmdline++;
 388
 389     if (*cmdline)
 390     {
 391         /* file name is passed on the command line */
 392         if (cmdline[0] == '"')
 393         {
 394             cmdline++;
 395             cmdline[lstrlenW(cmdline) - 1] = 0;
 396         }
 397         szFileTitle[0] = 0;
 398         GetFileTitleW(cmdline, szFileTitle, ARRAY_SIZE(szFileTitle));
 399         DoOpenFile(cmdline);
 400         UpdateWindowCaption();
 401     }
 402 }
 403
 404 int APIENTRY wWinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPWSTR lpCmdLine, int nCmdShow)
 405 {
 406     MSG msg;
 407
 408     /* Other instances of app running? */
 409     if (!hPrevInstance)
 410     {
 411       /* stuff to be done once */
 412       if (!InitApplication(hInstance))
 413       {
 414         return FALSE;      /* exit */
 415       }
 416     }
 417
 418     /* stuff to be done every time */
 419     if (!InitInstance(hInstance, nCmdShow))
 420     {
 421       return FALSE;
 422     }
 423
 424     HandleCommandLine(lpCmdLine);
 425
 426     /* Main loop */
 427     /* Acquire and dispatch messages until a WM_QUIT message is received */
 428     while (GetMessageW(&msg, NULL, 0, 0))
 429     {
 430         TranslateMessage(&msg);
 431         DispatchMessageW(&msg);
 432     }
 433
 434     return msg.wParam;
 435 }