base/applications/magnify/magnifier.c

   1 /*
   2  * PROJECT:     ReactOS Magnify
   3  * LICENSE:     GPL - See COPYING in the top level directory
   4  * FILE:        base/applications/magnify/magnifier.c
   5  * PURPOSE:     Magnification of parts of the screen.
   6  * COPYRIGHT:   Copyright 2007 Marc Piulachs <marc.piulachs@codexchange.net>
   7  *
   8  */
   9
  10 /* TODO: AppBar */
  11 #include "magnifier.h"
  12
  13 #include <winbase.h>
  14 #include <winuser.h>
  15 #include <wingdi.h>
  16 #include <winnls.h>
  17
  18 #include "resource.h"
  19
  20 const TCHAR szWindowClass[] = TEXT("MAGNIFIER");
  21
  22 #define MAX_LOADSTRING 100
  23
  24 // Global Variables:
  25 HINSTANCE hInst;                                                                // current instance
  26 HWND hMainWnd;
  27
  28 TCHAR szTitle[MAX_LOADSTRING];                                  // The title bar text
  29
  30 #define REPAINT_SPEED   100
  31
  32 HWND hDesktopWindow = NULL;
  33
  34 //Current magnified area
  35 POINT cp;
  36
  37 //Last positions
  38 POINT pMouse;
  39 POINT pCaret;
  40 POINT pFocus;
  41
  42 // Forward declarations of functions included in this code module:
  43 ATOM                            MyRegisterClass(HINSTANCE hInstance);
  44 BOOL                            InitInstance(HINSTANCE, int);
  45 LRESULT CALLBACK        WndProc(HWND, UINT, WPARAM, LPARAM);
  46 INT_PTR CALLBACK        AboutProc(HWND, UINT, WPARAM, LPARAM);
  47 INT_PTR CALLBACK        OptionsProc(HWND, UINT, WPARAM, LPARAM);
  48 INT_PTR CALLBACK        WarningProc(HWND, UINT, WPARAM, LPARAM);
  49
  50 int WINAPI WinMain( HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
  51 {
  52     // TODO: Place code here.
  53     MSG msg;
  54     HACCEL hAccelTable;
  55
  56     UNREFERENCED_PARAMETER(hPrevInstance);
  57     UNREFERENCED_PARAMETER(lpCmdLine);
  58
  59     switch (GetUserDefaultUILanguage())
  60   {
  61     case MAKELANGID(LANG_HEBREW, SUBLANG_DEFAULT):
  62       SetProcessDefaultLayout(LAYOUT_RTL);
  63       break;
  64
  65     default:
  66       break;
  67   }
  68
  69     // Initialize global strings
  70     LoadString(hInstance, IDS_APP_TITLE, szTitle, MAX_LOADSTRING);
  71     MyRegisterClass(hInstance);
  72
  73     // Perform application initialization:
  74     if (!InitInstance (hInstance, nCmdShow))
  75     {
  76         return FALSE;
  77     }
  78
  79     hAccelTable = LoadAccelerators(hInstance, MAKEINTRESOURCE(IDC_MAGNIFIER));
  80
  81     // Main message loop:
  82     while (GetMessage(&msg, NULL, 0, 0))
  83     {
  84         if (!TranslateAccelerator(msg.hwnd, hAccelTable, &msg))
  85         {
  86             TranslateMessage(&msg);
  87             DispatchMessage(&msg);
  88         }
  89     }
  90
  91     return (int) msg.wParam;
  92 }
  93
  94
  95
  96 /*
  97  *  FUNCTION: MyRegisterClass()
  98  *
  99  *  PURPOSE: Registers the window class.
 100  *
 101  *  COMMENTS:
 102  *
 103  *    This function and its usage are only necessary if you want this code
 104  *    to be compatible with Win32 systems prior to the 'RegisterClassEx'
 105  *    function that was added to Windows 95. It is important to call this function
 106  *    so that the application will get 'well formed' small icons associated
 107  *    with it.
 108  */
 109 ATOM MyRegisterClass(HINSTANCE hInstance)
 110 {
 111     WNDCLASS wc;
 112
 113     wc.style            = CS_HREDRAW | CS_VREDRAW;
 114     wc.lpfnWndProc      = WndProc;
 115     wc.cbClsExtra       = 0;
 116     wc.cbWndExtra       = 0;
 117     wc.hInstance        = hInstance;
 118     wc.hIcon            = LoadIcon(hInstance, MAKEINTRESOURCE(IDI_ICON));
 119     wc.hCursor          = LoadCursor(NULL, IDC_ARROW);
 120     wc.hbrBackground    = (HBRUSH)(COLOR_WINDOW+1);
 121     wc.lpszMenuName     = MAKEINTRESOURCE(IDC_MAGNIFIER);
 122     wc.lpszClassName    = szWindowClass;
 123
 124     return RegisterClass(&wc);
 125 }
 126
 127 /*
 128  *  FUNCTION: InitInstance(HINSTANCE, int)
 129  *
 130  *  PURPOSE: Saves instance handle and creates main window
 131  *
 132  *   COMMENTS:
 133  *
 134  *        In this function, we save the instance handle in a global variable and
 135  *        create and display the main program window.
 136  */
 137 BOOL InitInstance(HINSTANCE hInstance, int nCmdShow)
 138 {
 139    RECT rcWorkArea;
 140    hInst = hInstance; // Store instance handle in our global variable
 141
 142    SystemParametersInfo(SPI_GETWORKAREA, 0, &rcWorkArea, 0);
 143
 144    /* Create the Window */
 145    hMainWnd = CreateWindowEx(
 146         WS_EX_TOPMOST | WS_EX_PALETTEWINDOW,
 147         szWindowClass,
 148         szTitle,
 149         WS_OVERLAPPEDWINDOW,
 150         CW_USEDEFAULT,
 151         CW_USEDEFAULT,
 152         (rcWorkArea.right - rcWorkArea.left) * 2 / 3,
 153         200,
 154         NULL,
 155         NULL,
 156         hInstance,
 157         NULL);
 158
 159    if (!hMainWnd)
 160    {
 161       return FALSE;
 162    }
 163
 164    ShowWindow(hMainWnd, (bStartMinimized) ? SW_MINIMIZE : nCmdShow);
 165    UpdateWindow(hMainWnd);
 166
 167    if (bShowWarning)
 168    {
 169       DialogBox (hInstance, MAKEINTRESOURCE(IDD_WARNINGDIALOG), hMainWnd, (DLGPROC)WarningProc);
 170    }
 171
 172    return TRUE;
 173 }
 174
 175 void Refresh ()
 176 {
 177     if (!IsIconic(hMainWnd))
 178     {
 179         // Invalidate the client area forcing a WM_PAINT message
 180         InvalidateRgn(hMainWnd, NULL, TRUE);
 181     }
 182 }
 183
 184 void Draw(HDC aDc)
 185 {
 186     HDC desktopHdc = NULL;
 187     HDC HdcStrech;
 188     HANDLE hOld;
 189     HBITMAP HbmpStrech;
 190
 191     RECT R;
 192     RECT appRect;
 193     DWORD rop = SRCCOPY;
 194     CURSORINFO cinfo;
 195     ICONINFO iinfo;
 196
 197     int Width, Height, AppWidth, AppHeight;
 198     LONG blitAreaWidth, blitAreaHeight, blitAreaX, blitAreaY;
 199
 200     desktopHdc = GetWindowDC (hDesktopWindow);
 201
 202     GetClientRect(hMainWnd, &appRect);
 203     GetWindowRect(hDesktopWindow, &R);
 204
 205     ZeroMemory(&cinfo, sizeof(CURSORINFO));
 206     ZeroMemory(&iinfo, sizeof(ICONINFO));
 207     cinfo.cbSize = sizeof(cinfo);
 208     GetCursorInfo(&cinfo);
 209     GetIconInfo(cinfo.hCursor, &iinfo);
 210
 211      /* Create a memory DC compatible with client area DC.*/
 212     HdcStrech = CreateCompatibleDC(desktopHdc);
 213
 214     /* Create a bitmap compatible with the client area DC.*/
 215     HbmpStrech = CreateCompatibleBitmap(
 216         desktopHdc,
 217         R.right,
 218         R.bottom);
 219
 220     /* Select our bitmap in memory DC and save the old one.*/
 221     hOld = SelectObject (HdcStrech , HbmpStrech);
 222
 223     /* Paint the screen bitmap to our in memory DC */
 224     BitBlt(
 225         HdcStrech,
 226         0,
 227         0,
 228         R.right,
 229         R.bottom,
 230         desktopHdc,
 231         0,
 232         0,
 233         SRCCOPY);
 234
 235     /* Draw the mouse pointer in the right position */
 236     DrawIcon(
 237         HdcStrech ,
 238         pMouse.x - iinfo.xHotspot, // - 10,
 239         pMouse.y - iinfo.yHotspot, // - 10,
 240         cinfo.hCursor);
 241
 242     Width = (R.right - R.left);
 243     Height = (R.bottom - R.top);
 244
 245     AppWidth = (appRect.right - appRect.left);
 246     AppHeight = (appRect.bottom - appRect.top);
 247
 248     blitAreaWidth = AppWidth / iZoom;
 249     blitAreaHeight = AppHeight / iZoom;
 250
 251     blitAreaX = (cp.x) - (blitAreaWidth /2);
 252     blitAreaY = (cp.y) - (blitAreaHeight /2);
 253
 254     if (blitAreaX < 0)
 255     {
 256        blitAreaX = 0;
 257     }
 258
 259     if (blitAreaY < 0)
 260     {
 261        blitAreaY = 0;
 262     }
 263
 264     if (blitAreaX > (Width - blitAreaWidth))
 265     {
 266         blitAreaX = (Width - blitAreaWidth);
 267     }
 268
 269     if (blitAreaY > (Height - blitAreaHeight))
 270     {
 271         blitAreaY = (Height - blitAreaHeight);
 272     }
 273
 274     if (bInvertColors)
 275     {
 276         rop = NOTSRCCOPY;
 277     }
 278
 279     /* Blast the stretched image from memory DC to window DC.*/
 280     StretchBlt(
 281         aDc,
 282         0,
 283         0,
 284         AppWidth,
 285         AppHeight,
 286         HdcStrech,
 287         blitAreaX,
 288         blitAreaY,
 289         blitAreaWidth,
 290         blitAreaHeight,
 291         rop | NOMIRRORBITMAP);
 292
 293
 294     /* Cleanup.*/
 295     if (iinfo.hbmMask)
 296         DeleteObject(iinfo.hbmMask);
 297     if (iinfo.hbmColor)
 298         DeleteObject(iinfo.hbmColor);
 299     SelectObject (HdcStrech, hOld);
 300     DeleteObject (HbmpStrech);
 301     DeleteDC (HdcStrech);
 302     ReleaseDC(hDesktopWindow, desktopHdc);
 303 }
 304
 305 /*
 306  *  FUNCTION: WndProc(HWND, UINT, WPARAM, LPARAM)
 307  *
 308  *  PURPOSE:  Processes messages for the main window.
 309  *
 310  *  WM_COMMAND  - process the application menu
 311  *  WM_PAINT    - Paint the main window
 312  *  WM_DESTROY  - post a quit message and return
 313  *
 314  */
 315 LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
 316 {
 317     int wmId;
 318
 319     switch (message)
 320     {
 321         case WM_TIMER:
 322         {
 323             POINT pNewMouse;
 324             POINT pNewCaret;
 325             POINT pNewFocus;
 326             HWND hwnd1, hwnd2, hwnd3;
 327             DWORD a, b;
 328             RECT controlRect;
 329
 330             //Get current mouse position
 331             GetCursorPos (&pNewMouse);
 332
 333             //Get caret position
 334             hwnd1 = GetForegroundWindow ();
 335             a = GetWindowThreadProcessId(hwnd1, NULL);
 336             b = GetCurrentThreadId();
 337             AttachThreadInput (a, b, TRUE);
 338             hwnd2 = GetFocus();
 339
 340             GetCaretPos( &pNewCaret);
 341             ClientToScreen (hwnd2, (LPPOINT) &pNewCaret);
 342             AttachThreadInput (a, b, FALSE);
 343
 344             //Get current control focus
 345             hwnd3 = GetFocus ();
 346             GetWindowRect (hwnd3 , &controlRect);
 347             pNewFocus.x = controlRect.left;
 348             pNewFocus.y = controlRect.top;
 349
 350             //If mouse has moved ....
 351             if (((pMouse.x != pNewMouse.x) || (pMouse.y != pNewMouse.y)) && bFollowMouse)
 352             {
 353                 //Update to new position
 354                 pMouse = pNewMouse;
 355                 cp = pNewMouse;
 356                 Refresh();
 357             }
 358             else if (((pCaret.x != pNewCaret.x) || (pCaret.y != pNewCaret.y)) && bFollowCaret)
 359             {
 360                 //Update to new position
 361                 pCaret = pNewCaret;
 362                 cp = pNewCaret;
 363                 Refresh();
 364             }
 365             else if (((pFocus.x != pNewFocus.x) || (pFocus.y != pNewFocus.y)) && bFollowFocus)
 366             {
 367                 //Update to new position
 368                 pFocus = pNewFocus;
 369                 cp = pNewFocus;
 370                 Refresh();
 371             }
 372         }
 373         break;
 374     case WM_COMMAND:
 375         wmId    = LOWORD(wParam);
 376         // Parse the menu selections:
 377         switch (wmId)
 378         {
 379             case IDM_OPTIONS:
 380                 DialogBox(hInst, MAKEINTRESOURCE(IDD_DIALOGOPTIONS), hWnd, (DLGPROC)OptionsProc);
 381                 break;
 382             case IDM_ABOUT:
 383                 DialogBox(hInst, MAKEINTRESOURCE(IDD_ABOUTBOX), hWnd, (DLGPROC)AboutProc);
 384                 break;
 385             case IDM_EXIT:
 386                 DestroyWindow(hWnd);
 387                 break;
 388             default:
 389                 return DefWindowProc(hWnd, message, wParam, lParam);
 390         }
 391         break;
 392    case WM_PAINT:
 393         {
 394             PAINTSTRUCT PaintStruct;
 395             HDC dc;
 396             dc = BeginPaint(hWnd, &PaintStruct);
 397             Draw(dc);
 398             EndPaint(hWnd, &PaintStruct);
 399         }
 400       break;
 401    case WM_ERASEBKGND:
 402         //handle WM_ERASEBKGND by simply returning non-zero because we did all the drawing in WM_PAINT.
 403        break;
 404     case WM_DESTROY:
 405         //Save settings to registry
 406         SaveSettings ();
 407         KillTimer (hWnd , 1);
 408         PostQuitMessage(0);
 409         break;
 410     case WM_CREATE:
 411             //Load settings from registry
 412             LoadSettings ();
 413
 414             //Get the desktop window
 415             hDesktopWindow = GetDesktopWindow();
 416
 417             //Set the timer
 418             SetTimer (hWnd , 1, REPAINT_SPEED , NULL);
 419             break;
 420     default:
 421         return DefWindowProc(hWnd, message, wParam, lParam);
 422     }
 423     return 0;
 424 }
 425
 426 // Message handler for about box.
 427 INT_PTR CALLBACK AboutProc(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
 428 {
 429     UNREFERENCED_PARAMETER(lParam);
 430     switch (message)
 431     {
 432     case WM_INITDIALOG:
 433         return (INT_PTR)TRUE;
 434
 435     case WM_COMMAND:
 436         if (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL)
 437         {
 438             EndDialog(hDlg, LOWORD(wParam));
 439             return (INT_PTR)TRUE;
 440         }
 441         break;
 442     }
 443     return (INT_PTR)FALSE;
 444 }
 445
 446 // Message handler for options box.
 447 INT_PTR CALLBACK OptionsProc(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
 448 {
 449     UNREFERENCED_PARAMETER(lParam);
 450     switch (message)
 451     {
 452         case WM_INITDIALOG:
 453         {
 454             //Add the zoom items....
 455             SendDlgItemMessage(hDlg, IDC_ZOOM, CB_ADDSTRING, 0, (LPARAM)("1"));
 456             SendDlgItemMessage(hDlg, IDC_ZOOM, CB_ADDSTRING, 0, (LPARAM)("2"));
 457             SendDlgItemMessage(hDlg, IDC_ZOOM, CB_ADDSTRING, 0, (LPARAM)("3"));
 458             SendDlgItemMessage(hDlg, IDC_ZOOM, CB_ADDSTRING, 0, (LPARAM)("4"));
 459             SendDlgItemMessage(hDlg, IDC_ZOOM, CB_ADDSTRING, 0, (LPARAM)("5"));
 460             SendDlgItemMessage(hDlg, IDC_ZOOM, CB_ADDSTRING, 0, (LPARAM)("6"));
 461             SendDlgItemMessage(hDlg, IDC_ZOOM, CB_ADDSTRING, 0, (LPARAM)("7"));
 462             SendDlgItemMessage(hDlg, IDC_ZOOM, CB_ADDSTRING, 0, (LPARAM)("8"));
 463
 464             //
 465             SendDlgItemMessage(hDlg, IDC_ZOOM, CB_SETCURSEL, iZoom - 1, 0);
 466
 467             if (bFollowMouse)
 468                 SendDlgItemMessage(hDlg,IDC_FOLLOWMOUSECHECK,BM_SETCHECK , wParam ,0);
 469
 470             if (bFollowFocus)
 471                 SendDlgItemMessage(hDlg,IDC_FOLLOWKEYBOARDCHECK,BM_SETCHECK , wParam ,0);
 472
 473             if (bFollowCaret)
 474                 SendDlgItemMessage(hDlg,IDC_FOLLOWTEXTEDITINGCHECK,BM_SETCHECK , wParam ,0);
 475
 476             if (bInvertColors)
 477                 SendDlgItemMessage(hDlg,IDC_INVERTCOLORSCHECK,BM_SETCHECK , wParam ,0);
 478
 479             if (bStartMinimized)
 480                 SendDlgItemMessage(hDlg,IDC_STARTMINIMIZEDCHECK,BM_SETCHECK , wParam ,0);
 481
 482             if (bShowMagnifier)
 483                 SendDlgItemMessage(hDlg,IDC_SHOWMAGNIFIERCHECK,BM_SETCHECK , wParam ,0);
 484
 485             return (INT_PTR)TRUE;
 486         }
 487     case WM_COMMAND:
 488         switch(LOWORD(wParam))
 489         {
 490             case IDOK:
 491             case IDCANCEL:
 492                 EndDialog(hDlg, LOWORD(wParam));
 493                 return (INT_PTR)TRUE;
 494
 495             case IDC_BUTTON_HELP:
 496                 /* unimplemented */
 497                 MessageBox(hDlg , TEXT("Magnifier help not available yet!") , TEXT("Help") , MB_OK);
 498                 break;
 499             case IDC_ZOOM:
 500                 if(HIWORD(wParam) == CBN_SELCHANGE)
 501                 {
 502                     HWND hCombo = GetDlgItem(hDlg,IDC_ZOOM);
 503
 504                     /* Get index of current selection and the text of that selection. */
 505                     iZoom = SendMessage( hCombo, CB_GETCURSEL, (WPARAM) wParam, (LPARAM) lParam ) + 1;
 506
 507                     //Update the magnigier UI
 508                     Refresh ();
 509                 }
 510                 break;
 511             case IDC_INVERTCOLORSCHECK:
 512                 bInvertColors = IsDlgButtonChecked (hDlg, IDC_INVERTCOLORSCHECK);
 513                 Refresh ();
 514                 break;
 515             case IDC_FOLLOWMOUSECHECK:
 516                 bFollowMouse = IsDlgButtonChecked (hDlg, IDC_FOLLOWMOUSECHECK);
 517                 break;
 518             case IDC_FOLLOWKEYBOARDCHECK:
 519                 bFollowFocus = IsDlgButtonChecked (hDlg, IDC_FOLLOWKEYBOARDCHECK);
 520                 break;
 521             case IDC_FOLLOWTEXTEDITINGCHECK:
 522                 bFollowCaret = IsDlgButtonChecked (hDlg, IDC_FOLLOWTEXTEDITINGCHECK);
 523                 break;
 524             case IDC_STARTMINIMIZEDCHECK:
 525                 bStartMinimized = IsDlgButtonChecked (hDlg, IDC_STARTMINIMIZEDCHECK);
 526                 break;
 527             case IDC_SHOWMAGNIFIER:
 528                 bShowMagnifier = IsDlgButtonChecked (hDlg, IDC_SHOWMAGNIFIERCHECK);
 529                 if (bShowMagnifier){
 530                     ShowWindow (hMainWnd , SW_SHOW);
 531                 }else{
 532                     ShowWindow (hMainWnd , SW_HIDE);
 533                 }
 534                 break;
 535         }
 536     }
 537     return (INT_PTR)FALSE;
 538 }
 539
 540 // Message handler for warning box.
 541 INT_PTR CALLBACK WarningProc(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
 542 {
 543     UNREFERENCED_PARAMETER(lParam);
 544
 545     switch (message)
 546     {
 547         case WM_INITDIALOG:
 548             return (INT_PTR)TRUE;
 549         case WM_COMMAND:
 550             switch(LOWORD(wParam))
 551             {
 552                 case IDC_SHOWWARNINGCHECK:
 553                     bShowWarning = !IsDlgButtonChecked (hDlg, IDC_SHOWWARNINGCHECK);
 554                     break;
 555             }
 556             if (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL)
 557             {
 558                 EndDialog(hDlg, LOWORD(wParam));
 559                 return (INT_PTR)TRUE;
 560             }
 561             break;
 562     }
 563     return (INT_PTR)FALSE;
 564 }