dlls/comctl32/propsheet.c

   1 /*
   2  * Property Sheets
   3  *
   4  * Copyright 1998 Francis Beaudet
   5  * Copyright 1999 Thuy Nguyen
   6  *
   7  * TODO:
   8  *   - Tab order
   9  *   - Unicode property sheets
  10  */
  11
  12 #include <string.h>
  13 #include "winbase.h"
  14 #include "commctrl.h"
  15 #include "prsht.h"
  16 #include "dialog.h"
  17 #include "win.h"
  18 #include "winnls.h"
  19 #include "comctl32.h"
  20 #include "debugtools.h"
  21 #include "heap.h"
  22
  23
  24 /******************************************************************************
  25  * Data structures
  26  */
  27 typedef struct
  28 {
  29   WORD dlgVer;
  30   WORD signature;
  31   DWORD helpID;
  32   DWORD exStyle;
  33   DWORD style;
  34 } MyDLGTEMPLATEEX;
  35
  36 typedef struct tagPropPageInfo
  37 {
  38   HPROPSHEETPAGE hpage; /* to keep track of pages not passed to PropertySheet */
  39   HWND hwndPage;
  40   BOOL isDirty;
  41   LPCWSTR pszText;
  42   BOOL hasHelp;
  43   BOOL useCallback;
  44   BOOL hasIcon;
  45 } PropPageInfo;
  46
  47 typedef struct tagPropSheetInfo
  48 {
  49   HWND hwnd;
  50   PROPSHEETHEADERA ppshheader;
  51   LPSTR strPropertiesFor;
  52   int nPages;
  53   int active_page;
  54   BOOL isModeless;
  55   BOOL hasHelp;
  56   BOOL hasApply;
  57   BOOL useCallback;
  58   BOOL restartWindows;
  59   BOOL rebootSystem;
  60   BOOL activeValid;
  61   PropPageInfo* proppage;
  62   int x;
  63   int y;
  64   int width;
  65   int height;
  66   HIMAGELIST hImageList;
  67 } PropSheetInfo;
  68
  69 typedef struct
  70 {
  71   int x;
  72   int y;
  73 } PADDING_INFO;
  74
  75 /******************************************************************************
  76  * Defines and global variables
  77  */
  78
  79 const char * PropSheetInfoStr = "PropertySheetInfo";
  80
  81 #define MAX_CAPTION_LENGTH 255
  82 #define MAX_TABTEXT_LENGTH 255
  83 #define MAX_BUTTONTEXT_LENGTH 64
  84
  85 /******************************************************************************
  86  * Prototypes
  87  */
  88 static BOOL PROPSHEET_CreateDialog(PropSheetInfo* psInfo);
  89 static BOOL PROPSHEET_SizeMismatch(HWND hwndDlg, PropSheetInfo* psInfo);
  90 static BOOL PROPSHEET_AdjustSize(HWND hwndDlg, PropSheetInfo* psInfo);
  91 static BOOL PROPSHEET_AdjustButtons(HWND hwndParent, PropSheetInfo* psInfo);
  92 static BOOL PROPSHEET_CollectSheetInfo(LPCPROPSHEETHEADERA lppsh,
  93                                        PropSheetInfo * psInfo);
  94 static BOOL PROPSHEET_CollectPageInfo(LPCPROPSHEETPAGEA lppsp,
  95                                       PropSheetInfo * psInfo,
  96                                       int index);
  97 static BOOL PROPSHEET_CreateTabControl(HWND hwndParent,
  98                                        PropSheetInfo * psInfo);
  99 static BOOL PROPSHEET_CreatePage(HWND hwndParent, int index,
 100                                 const PropSheetInfo * psInfo,
 101                                 LPCPROPSHEETPAGEA ppshpage);
 102 static BOOL PROPSHEET_ShowPage(HWND hwndDlg, int index, PropSheetInfo * psInfo);
 103 static PADDING_INFO PROPSHEET_GetPaddingInfo(HWND hwndDlg);
 104 static BOOL PROPSHEET_Back(HWND hwndDlg);
 105 static BOOL PROPSHEET_Next(HWND hwndDlg);
 106 static BOOL PROPSHEET_Finish(HWND hwndDlg);
 107 static BOOL PROPSHEET_Apply(HWND hwndDlg, LPARAM lParam);
 108 static void PROPSHEET_Cancel(HWND hwndDlg, LPARAM lParam);
 109 static void PROPSHEET_Help(HWND hwndDlg);
 110 static void PROPSHEET_Changed(HWND hwndDlg, HWND hwndDirtyPage);
 111 static void PROPSHEET_UnChanged(HWND hwndDlg, HWND hwndCleanPage);
 112 static void PROPSHEET_PressButton(HWND hwndDlg, int buttonID);
 113 static void PROPSHEET_SetFinishTextA(HWND hwndDlg, LPCSTR lpszText);
 114 static void PROPSHEET_SetTitleA(HWND hwndDlg, DWORD dwStyle, LPCSTR lpszText);
 115 static BOOL PROPSHEET_CanSetCurSel(HWND hwndDlg);
 116 static BOOL PROPSHEET_SetCurSel(HWND hwndDlg,
 117                                 int index,
 118                                 HPROPSHEETPAGE hpage);
 119 static LRESULT PROPSHEET_QuerySiblings(HWND hwndDlg,
 120                                        WPARAM wParam, LPARAM lParam);
 121 static BOOL PROPSHEET_AddPage(HWND hwndDlg,
 122                               HPROPSHEETPAGE hpage);
 123
 124 static BOOL PROPSHEET_RemovePage(HWND hwndDlg,
 125                                  int index,
 126                                  HPROPSHEETPAGE hpage);
 127 static void PROPSHEET_CleanUp();
 128 static int PROPSHEET_GetPageIndex(HPROPSHEETPAGE hpage, PropSheetInfo* psInfo);
 129 static void PROPSHEET_SetWizButtons(HWND hwndDlg, DWORD dwFlags);
 130 static PADDING_INFO PROPSHEET_GetPaddingInfoWizard(HWND hwndDlg, const PropSheetInfo* psInfo);
 131 static BOOL PROPSHEET_IsDialogMessage(HWND hwnd, LPMSG lpMsg);
 132 static INT PROPSHEET_DoDialogBox( HWND hwnd, HWND owner);
 133
 134 BOOL WINAPI
 135 PROPSHEET_DialogProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam);
 136
 137 DEFAULT_DEBUG_CHANNEL(propsheet);
 138
 139 /******************************************************************************
 140  *            PROPSHEET_CollectSheetInfo
 141  *
 142  * Collect relevant data.
 143  */
 144 static BOOL PROPSHEET_CollectSheetInfo(LPCPROPSHEETHEADERA lppsh,
 145                                        PropSheetInfo * psInfo)
 146 {
 147   DWORD dwSize = min(lppsh->dwSize,sizeof(PROPSHEETHEADERA));
 148   DWORD dwFlags = lppsh->dwFlags;
 149
 150   psInfo->hasHelp = dwFlags & PSH_HASHELP;
 151   psInfo->hasApply = !(dwFlags & PSH_NOAPPLYNOW);
 152   psInfo->useCallback = dwFlags & PSH_USECALLBACK;
 153   psInfo->isModeless = dwFlags & PSH_MODELESS;
 154
 155   memcpy(&psInfo->ppshheader,lppsh,dwSize);
 156
 157   if (HIWORD(lppsh->pszCaption))
 158      psInfo->ppshheader.pszCaption = HEAP_strdupA( GetProcessHeap(),
 159                                                  0, lppsh->pszCaption );
 160
 161   psInfo->nPages = lppsh->nPages;
 162
 163   if (dwFlags & PSH_USEPSTARTPAGE)
 164   {
 165     TRACE("PSH_USEPSTARTPAGE is on");
 166     psInfo->active_page = 0;
 167   }
 168   else
 169     psInfo->active_page = lppsh->u2.nStartPage;
 170
 171   if (psInfo->active_page < 0 || psInfo->active_page >= psInfo->nPages)
 172      psInfo->active_page = 0;
 173
 174   psInfo->restartWindows = FALSE;
 175   psInfo->rebootSystem = FALSE;
 176   psInfo->hImageList = 0;
 177   psInfo->activeValid = FALSE;
 178
 179   return TRUE;
 180 }
 181
 182 /******************************************************************************
 183  *            PROPSHEET_CollectPageInfo
 184  *
 185  * Collect property sheet data.
 186  * With code taken from DIALOG_ParseTemplate32.
 187  */
 188 BOOL PROPSHEET_CollectPageInfo(LPCPROPSHEETPAGEA lppsp,
 189                                PropSheetInfo * psInfo,
 190                                int index)
 191 {
 192   DLGTEMPLATE* pTemplate;
 193   const WORD*  p;
 194   DWORD dwFlags;
 195   int width, height;
 196
 197   psInfo->proppage[index].hpage = (HPROPSHEETPAGE)lppsp;
 198   psInfo->proppage[index].hwndPage = 0;
 199   psInfo->proppage[index].isDirty = FALSE;
 200
 201   /*
 202    * Process property page flags.
 203    */
 204   dwFlags = lppsp->dwFlags;
 205   psInfo->proppage[index].useCallback = dwFlags & PSP_USECALLBACK;
 206   psInfo->proppage[index].hasHelp = dwFlags & PSP_HASHELP;
 207   psInfo->proppage[index].hasIcon = dwFlags & (PSP_USEHICON | PSP_USEICONID);
 208
 209   /* as soon as we have a page with the help flag, set the sheet flag on */
 210   if (psInfo->proppage[index].hasHelp)
 211     psInfo->hasHelp = TRUE;
 212
 213   /*
 214    * Process page template.
 215    */
 216   if (dwFlags & PSP_DLGINDIRECT)
 217     pTemplate = (DLGTEMPLATE*)lppsp->u.pResource;
 218   else
 219   {
 220     HRSRC hResource = FindResourceA(lppsp->hInstance,
 221                                     lppsp->u.pszTemplate,
 222                                     RT_DIALOGA);
 223     HGLOBAL hTemplate = LoadResource(lppsp->hInstance,
 224                                      hResource);
 225     pTemplate = (LPDLGTEMPLATEA)LockResource(hTemplate);
 226   }
 227
 228   /*
 229    * Extract the size of the page and the caption.
 230    */
 231   if (!pTemplate)
 232       return FALSE;
 233
 234   p = (const WORD *)pTemplate;
 235
 236   if (((MyDLGTEMPLATEEX*)pTemplate)->signature == 0xFFFF)
 237   {
 238     /* DIALOGEX template */
 239
 240     p++;       /* dlgVer    */
 241     p++;       /* signature */
 242     p += 2;    /* help ID   */
 243     p += 2;    /* ext style */
 244     p += 2;    /* style     */
 245   }
 246   else
 247   {
 248     /* DIALOG template */
 249
 250     p += 2;    /* style     */
 251     p += 2;    /* ext style */
 252   }
 253
 254   p++;    /* nb items */
 255   p++;    /*   x      */
 256   p++;    /*   y      */
 257   width  = (WORD)*p; p++;
 258   height = (WORD)*p; p++;
 259
 260   /* remember the largest width and height */
 261   if (width > psInfo->width)
 262     psInfo->width = width;
 263
 264   if (height > psInfo->height)
 265     psInfo->height = height;
 266
 267   /* menu */
 268   switch ((WORD)*p)
 269   {
 270     case 0x0000:
 271       p++;
 272       break;
 273     case 0xffff:
 274       p += 2;
 275       break;
 276     default:
 277       p += lstrlenW( (LPCWSTR)p ) + 1;
 278       break;
 279   }
 280
 281   /* class */
 282   switch ((WORD)*p)
 283   {
 284     case 0x0000:
 285       p++;
 286       break;
 287     case 0xffff:
 288       p += 2;
 289       break;
 290     default:
 291       p += lstrlenW( (LPCWSTR)p ) + 1;
 292       break;
 293   }
 294
 295   /* Extract the caption */
 296   psInfo->proppage[index].pszText = (LPCWSTR)p;
 297   TRACE("Tab %d %s\n",index,debugstr_w((LPCWSTR)p));
 298   p += lstrlenW((LPCWSTR)p) + 1;
 299
 300   if (dwFlags & PSP_USETITLE)
 301   {
 302     if ( !HIWORD( lppsp->pszTitle ) )
 303     {
 304       char szTitle[256];
 305
 306       if ( !LoadStringA( lppsp->hInstance, (UINT) lppsp->pszTitle, szTitle, 256 ) )
 307         return FALSE;
 308
 309       psInfo->proppage[index].pszText = HEAP_strdupAtoW( GetProcessHeap(),
 310                                                          0, szTitle );
 311     }
 312     else
 313       psInfo->proppage[index].pszText = HEAP_strdupAtoW(GetProcessHeap(),
 314                                                         0,
 315                                                         lppsp->pszTitle);
 316   }
 317
 318   /*
 319    * Build the image list for icons
 320    */
 321   if ((dwFlags & PSP_USEHICON) || (dwFlags & PSP_USEICONID))
 322   {
 323     HICON hIcon;
 324     int icon_cx = GetSystemMetrics(SM_CXSMICON);
 325     int icon_cy = GetSystemMetrics(SM_CYSMICON);
 326
 327     if (dwFlags & PSP_USEICONID)
 328       hIcon = LoadImageA(lppsp->hInstance, lppsp->u2.pszIcon, IMAGE_ICON,
 329                          icon_cx, icon_cy, LR_DEFAULTCOLOR);
 330     else
 331       hIcon = lppsp->u2.hIcon;
 332
 333     if ( hIcon )
 334     {
 335       if (psInfo->hImageList == 0 )
 336         psInfo->hImageList = ImageList_Create(icon_cx, icon_cy, ILC_COLOR, 1, 1);
 337
 338       ImageList_AddIcon(psInfo->hImageList, hIcon);
 339     }
 340
 341   }
 342
 343   return TRUE;
 344 }
 345
 346 /******************************************************************************
 347  *            PROPSHEET_DoDialogBox
 348  *
 349  * Copied from windows/dialog.c:DIALOG_DoDialogBox
 350  */
 351 static INT PROPSHEET_DoDialogBox( HWND hwnd, HWND owner)
 352 {
 353    WND * wndPtr;
 354    DIALOGINFO * dlgInfo;
 355    MSG msg;
 356    INT retval;
 357
 358      /* Owner must be a top-level window */
 359    owner = WIN_GetTopParent( owner );
 360    if (!(wndPtr = WIN_FindWndPtr( hwnd ))) return -1;
 361    dlgInfo = (DIALOGINFO *)wndPtr->wExtra;
 362
 363    if (!(dlgInfo->flags & DF_END)) /* was EndDialog called in WM_INITDIALOG ? */
 364    {
 365        EnableWindow( owner, FALSE );
 366        ShowWindow( hwnd, SW_SHOW );
 367        while (GetMessageA(&msg, 0, 0, 0))
 368        {
 369            if (!PROPSHEET_IsDialogMessage( hwnd, &msg))
 370            {
 371                TranslateMessage( &msg );
 372                DispatchMessageA( &msg );
 373            }
 374            if (dlgInfo->flags & DF_END) break;
 375        }
 376        EnableWindow( owner, TRUE );
 377    }
 378    retval = dlgInfo->idResult;
 379    WIN_ReleaseWndPtr(wndPtr);
 380    DestroyWindow( hwnd );
 381    return retval;
 382 }
 383
 384
 385 /******************************************************************************
 386  *            PROPSHEET_CreateDialog
 387  *
 388  * Creates the actual property sheet.
 389  */
 390 BOOL PROPSHEET_CreateDialog(PropSheetInfo* psInfo)
 391 {
 392   LRESULT ret;
 393   LPCVOID template;
 394   LPVOID temp = 0;
 395   HRSRC hRes;
 396   DWORD resSize;
 397   WORD resID = IDD_PROPSHEET;
 398
 399   if (psInfo->ppshheader.dwFlags & PSH_WIZARD)
 400     resID = IDD_WIZARD;
 401
 402   if(!(hRes = FindResourceA(COMCTL32_hModule,
 403                             MAKEINTRESOURCEA(resID),
 404                             RT_DIALOGA)))
 405     return FALSE;
 406
 407   if(!(template = (LPVOID)LoadResource(COMCTL32_hModule, hRes)))
 408     return FALSE;
 409
 410   /*
 411    * Make a copy of the dialog template.
 412    */
 413   resSize = SizeofResource(COMCTL32_hModule, hRes);
 414
 415   temp = COMCTL32_Alloc(resSize);
 416
 417   if (!temp)
 418     return FALSE;
 419
 420   memcpy(temp, template, resSize);
 421
 422   if (psInfo->useCallback)
 423     (*(psInfo->ppshheader.pfnCallback))(0, PSCB_PRECREATE, (LPARAM)temp);
 424
 425   ret = CreateDialogIndirectParamA(psInfo->ppshheader.hInstance,
 426                                      (LPDLGTEMPLATEA) temp,
 427                                      psInfo->ppshheader.hwndParent,
 428                                      (DLGPROC) PROPSHEET_DialogProc,
 429                                      (LPARAM)psInfo);
 430
 431   if (!(psInfo->ppshheader.dwFlags & PSH_MODELESS))
 432      ret = PROPSHEET_DoDialogBox((HWND)ret, psInfo->ppshheader.hwndParent);
 433
 434   COMCTL32_Free(temp);
 435
 436   return ret;
 437 }
 438
 439 /******************************************************************************
 440  *            PROPSHEET_SizeMismatch
 441  *
 442  *     Verify that the tab control and the "largest" property sheet page dlg. template
 443  *     match in size.
 444  */
 445 static BOOL PROPSHEET_SizeMismatch(HWND hwndDlg, PropSheetInfo* psInfo)
 446 {
 447   HWND hwndTabCtrl = GetDlgItem(hwndDlg, IDC_TABCONTROL);
 448   RECT rcOrigTab, rcPage;
 449
 450   /*
 451    * Original tab size.
 452    */
 453   GetClientRect(hwndTabCtrl, &rcOrigTab);
 454   TRACE("orig tab %d %d %d %d\n", rcOrigTab.left, rcOrigTab.top,
 455         rcOrigTab.right, rcOrigTab.bottom);
 456
 457   /*
 458    * Biggest page size.
 459    */
 460   rcPage.left   = psInfo->x;
 461   rcPage.top    = psInfo->y;
 462   rcPage.right  = psInfo->width;
 463   rcPage.bottom = psInfo->height;
 464
 465   MapDialogRect(hwndDlg, &rcPage);
 466   TRACE("biggest page %d %d %d %d\n", rcPage.left, rcPage.top,
 467         rcPage.right, rcPage.bottom);
 468
 469   if ( (rcPage.right - rcPage.left) != (rcOrigTab.right - rcOrigTab.left) )
 470     return TRUE;
 471   if ( (rcPage.bottom - rcPage.top) != (rcOrigTab.bottom - rcOrigTab.top) )
 472     return TRUE;
 473
 474   return FALSE;
 475 }
 476
 477 /******************************************************************************
 478  *            PROPSHEET_IsTooSmallWizard
 479  *
 480  * Verify that the default property sheet is big enough.
 481  */
 482 static BOOL PROPSHEET_IsTooSmallWizard(HWND hwndDlg, PropSheetInfo* psInfo)
 483 {
 484   RECT rcSheetRect, rcPage, rcLine, rcSheetClient;
 485   HWND hwndLine = GetDlgItem(hwndDlg, IDC_SUNKEN_LINE);
 486   PADDING_INFO padding = PROPSHEET_GetPaddingInfoWizard(hwndDlg, psInfo);
 487
 488   GetClientRect(hwndDlg, &rcSheetClient);
 489   GetWindowRect(hwndDlg, &rcSheetRect);
 490   GetWindowRect(hwndLine, &rcLine);
 491
 492   /* Remove the space below the sunken line */
 493   rcSheetClient.bottom -= (rcSheetRect.bottom - rcLine.top);
 494
 495   /* Remove the buffer zone all around the edge */
 496   rcSheetClient.bottom -= (padding.y * 2);
 497   rcSheetClient.right -= (padding.x * 2);
 498
 499   /*
 500    * Biggest page size.
 501    */
 502   rcPage.left   = psInfo->x;
 503   rcPage.top    = psInfo->y;
 504   rcPage.right  = psInfo->width;
 505   rcPage.bottom = psInfo->height;
 506
 507   MapDialogRect(hwndDlg, &rcPage);
 508   TRACE("biggest page %d %d %d %d\n", rcPage.left, rcPage.top,
 509         rcPage.right, rcPage.bottom);
 510
 511   if (rcPage.right > rcSheetClient.right)
 512     return TRUE;
 513
 514   if (rcPage.bottom > rcSheetClient.bottom)
 515     return TRUE;
 516
 517   return FALSE;
 518 }
 519
 520 /******************************************************************************
 521  *            PROPSHEET_AdjustSize
 522  *
 523  * Resizes the property sheet and the tab control to fit the largest page.
 524  */
 525 static BOOL PROPSHEET_AdjustSize(HWND hwndDlg, PropSheetInfo* psInfo)
 526 {
 527   HWND hwndTabCtrl = GetDlgItem(hwndDlg, IDC_TABCONTROL);
 528   HWND hwndButton = GetDlgItem(hwndDlg, IDOK);
 529   RECT rc,tabRect;
 530   int tabOffsetX, tabOffsetY, buttonHeight;
 531   PADDING_INFO padding = PROPSHEET_GetPaddingInfo(hwndDlg);
 532   WND * wndPtr = WIN_FindWndPtr( hwndDlg );
 533   DIALOGINFO * dlgInfo = (DIALOGINFO *)wndPtr->wExtra;
 534
 535   /* Get the height of buttons */
 536   GetClientRect(hwndButton, &rc);
 537   buttonHeight = rc.bottom;
 538
 539   /*
 540    * Biggest page size.
 541    */
 542   rc.left   = psInfo->x;
 543   rc.top    = psInfo->y;
 544   rc.right  = psInfo->width;
 545   rc.bottom = psInfo->height;
 546
 547   MapDialogRect(hwndDlg, &rc);
 548
 549   /*
 550    * Resize the tab control.
 551    */
 552   GetClientRect(hwndTabCtrl,&tabRect);
 553
 554   SendMessageA(hwndTabCtrl, TCM_ADJUSTRECT, FALSE, (LPARAM)&tabRect);
 555
 556   if ((rc.bottom - rc.top) < (tabRect.bottom - tabRect.top))
 557   {
 558       rc.bottom = rc.top + tabRect.bottom - tabRect.top;
 559       psInfo->height = MulDiv((rc.bottom - rc.top),8,dlgInfo->yBaseUnit);
 560   }
 561
 562   if ((rc.right - rc.left) < (tabRect.right - tabRect.left))
 563   {
 564       rc.right = rc.left + tabRect.right - tabRect.left;
 565       psInfo->width  = MulDiv((rc.right - rc.left),4,dlgInfo->xBaseUnit);
 566   }
 567
 568   SendMessageA(hwndTabCtrl, TCM_ADJUSTRECT, TRUE, (LPARAM)&rc);
 569
 570   tabOffsetX = -(rc.left);
 571   tabOffsetY = -(rc.top);
 572
 573   rc.right -= rc.left;
 574   rc.bottom -= rc.top;
 575   SetWindowPos(hwndTabCtrl, 0, 0, 0, rc.right, rc.bottom,
 576                SWP_NOMOVE | SWP_NOZORDER | SWP_NOACTIVATE);
 577
 578   GetClientRect(hwndTabCtrl, &rc);
 579
 580   TRACE("tab client rc %d %d %d %d\n",
 581         rc.left, rc.top, rc.right, rc.bottom);
 582
 583   rc.right += ((padding.x * 2) + tabOffsetX);
 584   rc.bottom += (buttonHeight + (3 * padding.y) + tabOffsetY);
 585
 586   /*
 587    * Resize the property sheet.
 588    */
 589   SetWindowPos(hwndDlg, 0, 0, 0, rc.right, rc.bottom,
 590                SWP_NOMOVE | SWP_NOZORDER | SWP_NOACTIVATE);
 591
 592   WIN_ReleaseWndPtr(wndPtr);
 593   return TRUE;
 594 }
 595
 596 /******************************************************************************
 597  *            PROPSHEET_AdjustSizeWizard
 598  *
 599  * Resizes the property sheet to fit the largest page.
 600  */
 601 static BOOL PROPSHEET_AdjustSizeWizard(HWND hwndDlg, PropSheetInfo* psInfo)
 602 {
 603   HWND hwndButton = GetDlgItem(hwndDlg, IDCANCEL);
 604   HWND hwndLine = GetDlgItem(hwndDlg, IDC_SUNKEN_LINE);
 605   HWND hwndTabCtrl = GetDlgItem(hwndDlg, IDC_TABCONTROL);
 606   RECT rc,tabRect;
 607   int buttonHeight, lineHeight;
 608   PADDING_INFO padding = PROPSHEET_GetPaddingInfoWizard(hwndDlg, psInfo);
 609   WND * wndPtr = WIN_FindWndPtr( hwndDlg );
 610   DIALOGINFO * dlgInfo = (DIALOGINFO *)wndPtr->wExtra;
 611
 612   /* Get the height of buttons */
 613   GetClientRect(hwndButton, &rc);
 614   buttonHeight = rc.bottom;
 615
 616   GetClientRect(hwndLine, &rc);
 617   lineHeight = rc.bottom;
 618
 619   /*
 620    * Biggest page size.
 621    */
 622   rc.left   = psInfo->x;
 623   rc.top    = psInfo->y;
 624   rc.right  = psInfo->width;
 625   rc.bottom = psInfo->height;
 626
 627   MapDialogRect(hwndDlg, &rc);
 628
 629   GetClientRect(hwndTabCtrl,&tabRect);
 630
 631   if ((rc.bottom - rc.top) < (tabRect.bottom - tabRect.top))
 632   {
 633       rc.bottom = rc.top + tabRect.bottom - tabRect.top;
 634       psInfo->height = MulDiv((rc.bottom - rc.top), 8, dlgInfo->yBaseUnit);
 635   }
 636
 637   if ((rc.right - rc.left) < (tabRect.right - tabRect.left))
 638   {
 639       rc.right = rc.left + tabRect.right - tabRect.left;
 640       psInfo->width  = MulDiv((rc.right - rc.left), 4, dlgInfo->xBaseUnit);
 641   }
 642
 643   TRACE("Biggest page %d %d %d %d\n", rc.left, rc.top, rc.right, rc.bottom);
 644
 645   /* Make room */
 646   rc.right += (padding.x * 2);
 647   rc.bottom += (buttonHeight + (5 * padding.y) + lineHeight);
 648
 649   /*
 650    * Resize the property sheet.
 651    */
 652   SetWindowPos(hwndDlg, 0, 0, 0, rc.right, rc.bottom,
 653                SWP_NOMOVE | SWP_NOZORDER | SWP_NOACTIVATE);
 654
 655   WIN_ReleaseWndPtr(wndPtr);
 656   return TRUE;
 657 }
 658
 659 /******************************************************************************
 660  *            PROPSHEET_AdjustButtons
 661  *
 662  * Adjusts the buttons' positions.
 663  */
 664 static BOOL PROPSHEET_AdjustButtons(HWND hwndParent, PropSheetInfo* psInfo)
 665 {
 666   HWND hwndButton = GetDlgItem(hwndParent, IDOK);
 667   RECT rcSheet;
 668   int x, y;
 669   int num_buttons = 2;
 670   int buttonWidth, buttonHeight;
 671   PADDING_INFO padding = PROPSHEET_GetPaddingInfo(hwndParent);
 672
 673   if (psInfo->hasApply)
 674     num_buttons++;
 675
 676   if (psInfo->hasHelp)
 677     num_buttons++;
 678
 679   /*
 680    * Obtain the size of the buttons.
 681    */
 682   GetClientRect(hwndButton, &rcSheet);
 683   buttonWidth = rcSheet.right;
 684   buttonHeight = rcSheet.bottom;
 685
 686   /*
 687    * Get the size of the property sheet.
 688    */
 689   GetClientRect(hwndParent, &rcSheet);
 690
 691   /*
 692    * All buttons will be at this y coordinate.
 693    */
 694   y = rcSheet.bottom - (padding.y + buttonHeight);
 695
 696   /*
 697    * Position OK button.
 698    */
 699   hwndButton = GetDlgItem(hwndParent, IDOK);
 700
 701   x = rcSheet.right - ((padding.x + buttonWidth) * num_buttons);
 702
 703   SetWindowPos(hwndButton, 0, x, y, 0, 0,
 704                SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE);
 705
 706   /*
 707    * Position Cancel button.
 708    */
 709   hwndButton = GetDlgItem(hwndParent, IDCANCEL);
 710
 711   x = rcSheet.right - ((padding.x + buttonWidth) * (num_buttons - 1));
 712
 713   SetWindowPos(hwndButton, 0, x, y, 0, 0,
 714                SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE);
 715
 716   /*
 717    * Position Apply button.
 718    */
 719   hwndButton = GetDlgItem(hwndParent, IDC_APPLY_BUTTON);
 720
 721   if (psInfo->hasApply)
 722   {
 723     if (psInfo->hasHelp)
 724       x = rcSheet.right - ((padding.x + buttonWidth) * 2);
 725     else
 726       x = rcSheet.right - (padding.x + buttonWidth);
 727
 728     SetWindowPos(hwndButton, 0, x, y, 0, 0,
 729                  SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE);
 730
 731     EnableWindow(hwndButton, FALSE);
 732   }
 733   else
 734     ShowWindow(hwndButton, SW_HIDE);
 735
 736   /*
 737    * Position Help button.
 738    */
 739   hwndButton = GetDlgItem(hwndParent, IDHELP);
 740
 741   if (psInfo->hasHelp)
 742   {
 743     x = rcSheet.right - (padding.x + buttonWidth);
 744
 745     SetWindowPos(hwndButton, 0, x, y, 0, 0,
 746                  SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE);
 747   }
 748   else
 749     ShowWindow(hwndButton, SW_HIDE);
 750
 751   return TRUE;
 752 }
 753
 754 /******************************************************************************
 755  *            PROPSHEET_AdjustButtonsWizard
 756  *
 757  * Adjusts the buttons' positions.
 758  */
 759 static BOOL PROPSHEET_AdjustButtonsWizard(HWND hwndParent,
 760                                           PropSheetInfo* psInfo)
 761 {
 762   HWND hwndButton = GetDlgItem(hwndParent, IDCANCEL);
 763   HWND hwndLine = GetDlgItem(hwndParent, IDC_SUNKEN_LINE);
 764   RECT rcSheet;
 765   int x, y;
 766   int num_buttons = 3;
 767   int buttonWidth, buttonHeight, lineHeight, lineWidth;
 768   PADDING_INFO padding = PROPSHEET_GetPaddingInfoWizard(hwndParent, psInfo);
 769
 770   if (psInfo->hasHelp)
 771     num_buttons++;
 772
 773   /*
 774    * Obtain the size of the buttons.
 775    */
 776   GetClientRect(hwndButton, &rcSheet);
 777   buttonWidth = rcSheet.right;
 778   buttonHeight = rcSheet.bottom;
 779
 780   GetClientRect(hwndLine, &rcSheet);
 781   lineHeight = rcSheet.bottom;
 782
 783   /*
 784    * Get the size of the property sheet.
 785    */
 786   GetClientRect(hwndParent, &rcSheet);
 787
 788   /*
 789    * All buttons will be at this y coordinate.
 790    */
 791   y = rcSheet.bottom - (padding.y + buttonHeight);
 792
 793   /*
 794    * Position the Next and the Finish buttons.
 795    */
 796   hwndButton = GetDlgItem(hwndParent, IDC_NEXT_BUTTON);
 797
 798   x = rcSheet.right - ((padding.x + buttonWidth) * (num_buttons - 1));
 799
 800   SetWindowPos(hwndButton, 0, x, y, 0, 0,
 801                SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE);
 802
 803   hwndButton = GetDlgItem(hwndParent, IDC_FINISH_BUTTON);
 804
 805   SetWindowPos(hwndButton, 0, x, y, 0, 0,
 806                SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE);
 807
 808   ShowWindow(hwndButton, SW_HIDE);
 809
 810   /*
 811    * Position the Back button.
 812    */
 813   hwndButton = GetDlgItem(hwndParent, IDC_BACK_BUTTON);
 814
 815   x -= buttonWidth;
 816
 817   SetWindowPos(hwndButton, 0, x, y, 0, 0,
 818                SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE);
 819
 820   /*
 821    * Position the Cancel button.
 822    */
 823   hwndButton = GetDlgItem(hwndParent, IDCANCEL);
 824
 825   x = rcSheet.right - ((padding.x + buttonWidth) * (num_buttons - 2));
 826
 827   SetWindowPos(hwndButton, 0, x, y, 0, 0,
 828                SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE);
 829
 830   /*
 831    * Position Help button.
 832    */
 833   hwndButton = GetDlgItem(hwndParent, IDHELP);
 834
 835   if (psInfo->hasHelp)
 836   {
 837     x = rcSheet.right - (padding.x + buttonWidth);
 838
 839     SetWindowPos(hwndButton, 0, x, y, 0, 0,
 840                  SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE);
 841   }
 842   else
 843     ShowWindow(hwndButton, SW_HIDE);
 844
 845   /*
 846    * Position and resize the sunken line.
 847    */
 848   x = padding.x;
 849   y = rcSheet.bottom - ((padding.y * 2) + buttonHeight + lineHeight);
 850
 851   GetClientRect(hwndParent, &rcSheet);
 852   lineWidth = rcSheet.right - (padding.x * 2);
 853
 854   SetWindowPos(hwndLine, 0, x, y, lineWidth, 2,
 855                SWP_NOZORDER | SWP_NOACTIVATE);
 856
 857   return TRUE;
 858 }
 859
 860 /******************************************************************************
 861  *            PROPSHEET_GetPaddingInfo
 862  *
 863  * Returns the layout information.
 864  */
 865 static PADDING_INFO PROPSHEET_GetPaddingInfo(HWND hwndDlg)
 866 {
 867   HWND hwndTab = GetDlgItem(hwndDlg, IDC_TABCONTROL);
 868   RECT rcTab;
 869   POINT tl;
 870   PADDING_INFO padding;
 871
 872   GetWindowRect(hwndTab, &rcTab);
 873
 874   tl.x = rcTab.left;
 875   tl.y = rcTab.top;
 876
 877   ScreenToClient(hwndDlg, &tl);
 878
 879   padding.x = tl.x;
 880   padding.y = tl.y;
 881
 882   return padding;
 883 }
 884
 885 /******************************************************************************
 886  *            PROPSHEET_GetPaddingInfoWizard
 887  *
 888  * Returns the layout information.
 889  * Vertical spacing is the distance between the line and the buttons.
 890  * Do NOT use the Help button to gather padding information when it isn't mapped
 891  * (PSH_HASHELP), as app writers aren't forced to supply correct coordinates
 892  * for it in this case !
 893  * FIXME: I'm not sure about any other coordinate problems with these evil
 894  * buttons. Fix it in case additional problems appear or maybe calculate
 895  * a padding in a completely different way, as this is somewhat messy.
 896  */
 897 static PADDING_INFO PROPSHEET_GetPaddingInfoWizard(HWND hwndDlg, const PropSheetInfo*
 898  psInfo)
 899 {
 900   PADDING_INFO padding;
 901   RECT rc;
 902   HWND hwndControl;
 903   INT idButton;
 904   POINT ptButton, ptLine;
 905
 906   if (psInfo->hasHelp)
 907   {
 908         idButton = IDHELP;
 909   }
 910   else
 911   {
 912     if (psInfo->ppshheader.dwFlags & PSH_WIZARD)
 913     {
 914         idButton = IDC_NEXT_BUTTON;
 915     }
 916     else
 917     {
 918         /* hopefully this is ok */
 919         idButton = IDCANCEL;
 920     }
 921   }
 922
 923   hwndControl = GetDlgItem(hwndDlg, idButton);
 924   GetWindowRect(hwndControl, &rc);
 925
 926   ptButton.x = rc.left;
 927   ptButton.y = rc.top;
 928
 929   ScreenToClient(hwndDlg, &ptButton);
 930
 931   /* Line */
 932   hwndControl = GetDlgItem(hwndDlg, IDC_SUNKEN_LINE);
 933   GetWindowRect(hwndControl, &rc);
 934
 935   ptLine.x = 0;
 936   ptLine.y = rc.bottom;
 937
 938   ScreenToClient(hwndDlg, &ptLine);
 939
 940   padding.y = ptButton.y - ptLine.y;
 941
 942   if (padding.y < 0)
 943           ERR("padding negative ! Please report this !\n");
 944
 945   /* this is most probably not correct, but the best we have now */
 946   padding.x = padding.y;
 947   return padding;
 948 }
 949
 950 /******************************************************************************
 951  *            PROPSHEET_CreateTabControl
 952  *
 953  * Insert the tabs in the tab control.
 954  */
 955 static BOOL PROPSHEET_CreateTabControl(HWND hwndParent,
 956                                        PropSheetInfo * psInfo)
 957 {
 958   HWND hwndTabCtrl = GetDlgItem(hwndParent, IDC_TABCONTROL);
 959   TCITEMA item;
 960   int i, nTabs;
 961   int iImage = 0;
 962   char tabtext[MAX_TABTEXT_LENGTH] = "Tab text";
 963
 964   item.mask = TCIF_TEXT;
 965   item.pszText = tabtext;
 966   item.cchTextMax = MAX_TABTEXT_LENGTH;
 967
 968   nTabs = psInfo->nPages;
 969
 970   /*
 971    * Set the image list for icons.
 972    */
 973   if (psInfo->hImageList)
 974   {
 975     SendMessageA(hwndTabCtrl, TCM_SETIMAGELIST, 0, (LPARAM)psInfo->hImageList);
 976   }
 977
 978   for (i = 0; i < nTabs; i++)
 979   {
 980     if ( psInfo->proppage[i].hasIcon )
 981     {
 982       item.mask |= TCIF_IMAGE;
 983       item.iImage = iImage++;
 984     }
 985     else
 986     {
 987       item.mask &= ~TCIF_IMAGE;
 988     }
 989
 990     WideCharToMultiByte(CP_ACP, 0,
 991                         (LPCWSTR)psInfo->proppage[i].pszText,
 992                         -1, tabtext, MAX_TABTEXT_LENGTH, NULL, NULL);
 993
 994     SendMessageA(hwndTabCtrl, TCM_INSERTITEMA, (WPARAM)i, (LPARAM)&item);
 995   }
 996
 997   return TRUE;
 998 }
 999
1000 /******************************************************************************
1001  *            PROPSHEET_CreatePage
1002  *
1003  * Creates a page.
1004  */
1005 static BOOL PROPSHEET_CreatePage(HWND hwndParent,
1006                                 int index,
1007                                 const PropSheetInfo * psInfo,
1008                                 LPCPROPSHEETPAGEA ppshpage)
1009 {
1010   DLGTEMPLATE* pTemplate;
1011   HWND hwndPage;
1012   RECT rc;
1013   PropPageInfo* ppInfo = psInfo->proppage;
1014   PADDING_INFO padding;
1015   UINT pageWidth,pageHeight;
1016   DWORD resSize;
1017   LPVOID temp = NULL;
1018
1019   TRACE("index %d\n", index);
1020
1021   if (ppshpage->dwFlags & PSP_DLGINDIRECT)
1022     pTemplate = (DLGTEMPLATE*)ppshpage->u.pResource;
1023   else
1024   {
1025     HRSRC hResource;
1026     HANDLE hTemplate;
1027
1028     hResource = FindResourceA(ppshpage->hInstance,
1029                                     ppshpage->u.pszTemplate,
1030                                     RT_DIALOGA);
1031     if(!hResource)
1032         return FALSE;
1033
1034     resSize = SizeofResource(ppshpage->hInstance, hResource);
1035
1036     hTemplate = LoadResource(ppshpage->hInstance, hResource);
1037     if(!hTemplate)
1038         return FALSE;
1039
1040     pTemplate = (LPDLGTEMPLATEA)LockResource(hTemplate);
1041     /*
1042      * Make a copy of the dialog template to make it writable
1043      */
1044     temp = COMCTL32_Alloc(resSize);
1045     if (!temp)
1046       return FALSE;
1047
1048     memcpy(temp, pTemplate, resSize);
1049     pTemplate = temp;
1050   }
1051
1052   if (((MyDLGTEMPLATEEX*)pTemplate)->signature == 0xFFFF)
1053   {
1054     ((MyDLGTEMPLATEEX*)pTemplate)->style |= WS_CHILD | DS_CONTROL;
1055     ((MyDLGTEMPLATEEX*)pTemplate)->style &= ~DS_MODALFRAME;
1056     ((MyDLGTEMPLATEEX*)pTemplate)->style &= ~WS_CAPTION;
1057     ((MyDLGTEMPLATEEX*)pTemplate)->style &= ~WS_SYSMENU;
1058     ((MyDLGTEMPLATEEX*)pTemplate)->style &= ~WS_POPUP;
1059     ((MyDLGTEMPLATEEX*)pTemplate)->style &= ~WS_DISABLED;
1060     ((MyDLGTEMPLATEEX*)pTemplate)->style &= ~WS_VISIBLE;
1061   }
1062   else
1063   {
1064     pTemplate->style |= WS_CHILD | DS_CONTROL;
1065     pTemplate->style &= ~DS_MODALFRAME;
1066     pTemplate->style &= ~WS_CAPTION;
1067     pTemplate->style &= ~WS_SYSMENU;
1068     pTemplate->style &= ~WS_POPUP;
1069     pTemplate->style &= ~WS_DISABLED;
1070     pTemplate->style &= ~WS_VISIBLE;
1071   }
1072
1073   if (psInfo->proppage[index].useCallback)
1074     (*(ppshpage->pfnCallback))(hwndParent,
1075                                PSPCB_CREATE,
1076                                (LPPROPSHEETPAGEA)ppshpage);
1077
1078   hwndPage = CreateDialogIndirectParamA(ppshpage->hInstance,
1079                                         pTemplate,
1080                                         hwndParent,
1081                                         ppshpage->pfnDlgProc,
1082                                         (LPARAM)ppshpage);
1083   /* Free a no more needed copy */
1084   if(temp)
1085       COMCTL32_Free(temp);
1086
1087   ppInfo[index].hwndPage = hwndPage;
1088
1089   rc.left = psInfo->x;
1090   rc.top = psInfo->y;
1091   rc.right = psInfo->width;
1092   rc.bottom = psInfo->height;
1093
1094   MapDialogRect(hwndParent, &rc);
1095
1096   pageWidth = rc.right - rc.left;
1097   pageHeight = rc.bottom - rc.top;
1098
1099   if (psInfo->ppshheader.dwFlags & PSH_WIZARD)
1100     padding = PROPSHEET_GetPaddingInfoWizard(hwndParent, psInfo);
1101   else
1102   {
1103     /*
1104      * Ask the Tab control to fit this page in.
1105      */
1106
1107     HWND hwndTabCtrl = GetDlgItem(hwndParent, IDC_TABCONTROL);
1108     SendMessageA(hwndTabCtrl, TCM_ADJUSTRECT, FALSE, (LPARAM)&rc);
1109     padding = PROPSHEET_GetPaddingInfo(hwndParent);
1110   }
1111
1112   SetWindowPos(hwndPage, HWND_TOP,
1113                rc.left + padding.x,
1114                rc.top + padding.y,
1115                pageWidth, pageHeight, 0);
1116
1117   return TRUE;
1118 }
1119
1120 /******************************************************************************
1121  *            PROPSHEET_ShowPage
1122  *
1123  * Displays or creates the specified page.
1124  */
1125 static BOOL PROPSHEET_ShowPage(HWND hwndDlg, int index, PropSheetInfo * psInfo)
1126 {
1127   if (index == psInfo->active_page)
1128     {
1129       if (GetTopWindow(hwndDlg) != psInfo->proppage[index].hwndPage)
1130           SetWindowPos(psInfo->proppage[index].hwndPage, HWND_TOP, 0, 0, 0, 0, SWP_NOSIZE | SWP_NOMOVE);
1131     return TRUE;
1132     }
1133
1134   if (psInfo->proppage[index].hwndPage == 0)
1135   {
1136      LPCPROPSHEETPAGEA ppshpage;
1137      PSHNOTIFY psn;
1138
1139      ppshpage = (LPCPROPSHEETPAGEA)psInfo->proppage[index].hpage;
1140      PROPSHEET_CreatePage(hwndDlg, index, psInfo, ppshpage);
1141
1142      psn.hdr.hwndFrom = hwndDlg;
1143      psn.hdr.code     = PSN_SETACTIVE;
1144      psn.hdr.idFrom   = 0;
1145      psn.lParam       = 0;
1146
1147      /* Send the notification before showing the page. */
1148      SendMessageA(psInfo->proppage[index].hwndPage,
1149                   WM_NOTIFY, 0, (LPARAM) &psn);
1150
1151      /*
1152       * TODO: check return value.
1153       */
1154   }
1155
1156   if (psInfo->active_page != -1)
1157      ShowWindow(psInfo->proppage[psInfo->active_page].hwndPage, SW_HIDE);
1158
1159   ShowWindow(psInfo->proppage[index].hwndPage, SW_SHOW);
1160
1161   if (!(psInfo->ppshheader.dwFlags & PSH_WIZARD))
1162   {
1163      HWND hwndTabCtrl;
1164
1165      /* Synchronize current selection with tab control */
1166      hwndTabCtrl = GetDlgItem(hwndDlg, IDC_TABCONTROL);
1167      SendMessageA(hwndTabCtrl, TCM_SETCURSEL, index, 0);
1168   }
1169
1170   psInfo->active_page = index;
1171   psInfo->activeValid = TRUE;
1172
1173   return TRUE;
1174 }
1175
1176 /******************************************************************************
1177  *            PROPSHEET_Back
1178  */
1179 static BOOL PROPSHEET_Back(HWND hwndDlg)
1180 {
1181   BOOL res;
1182   PSHNOTIFY psn;
1183   HWND hwndPage;
1184   PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwndDlg,
1185                                                     PropSheetInfoStr);
1186
1187   if (psInfo->active_page < 0)
1188      return FALSE;
1189
1190   psn.hdr.code     = PSN_WIZBACK;
1191   psn.hdr.hwndFrom = hwndDlg;
1192   psn.hdr.idFrom   = 0;
1193   psn.lParam       = 0;
1194
1195   hwndPage = psInfo->proppage[psInfo->active_page].hwndPage;
1196
1197   if (SendMessageA(hwndPage, WM_NOTIFY, 0, (LPARAM) &psn) == -1)
1198     return FALSE;
1199
1200   if (psInfo->active_page > 0)
1201   {
1202      res = PROPSHEET_CanSetCurSel(hwndDlg);
1203      if(res != FALSE)
1204      {
1205        res = PROPSHEET_SetCurSel(hwndDlg, psInfo->active_page - 1, 0);
1206      }
1207   }
1208
1209   return TRUE;
1210 }
1211
1212 /******************************************************************************
1213  *            PROPSHEET_Next
1214  */
1215 static BOOL PROPSHEET_Next(HWND hwndDlg)
1216 {
1217   PSHNOTIFY psn;
1218   HWND hwndPage;
1219   LRESULT msgResult = 0;
1220   PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwndDlg,
1221                                                     PropSheetInfoStr);
1222
1223   if (psInfo->active_page < 0)
1224      return FALSE;
1225
1226   psn.hdr.code     = PSN_WIZNEXT;
1227   psn.hdr.hwndFrom = hwndDlg;
1228   psn.hdr.idFrom   = 0;
1229   psn.lParam       = 0;
1230
1231   hwndPage = psInfo->proppage[psInfo->active_page].hwndPage;
1232
1233   msgResult = SendMessageA(hwndPage, WM_NOTIFY, 0, (LPARAM) &psn);
1234
1235   TRACE("msg result %ld\n", msgResult);
1236
1237   if (msgResult == -1)
1238     return FALSE;
1239
1240   if(PROPSHEET_CanSetCurSel(hwndDlg) != FALSE)
1241   {
1242     PROPSHEET_SetCurSel(hwndDlg, psInfo->active_page + 1, 0);
1243   }
1244
1245   return TRUE;
1246 }
1247
1248 /******************************************************************************
1249  *            PROPSHEET_Finish
1250  */
1251 static BOOL PROPSHEET_Finish(HWND hwndDlg)
1252 {
1253   PSHNOTIFY psn;
1254   HWND hwndPage;
1255   LRESULT msgResult = 0;
1256   PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwndDlg,
1257                                                     PropSheetInfoStr);
1258
1259   if (psInfo->active_page < 0)
1260      return FALSE;
1261
1262   psn.hdr.code     = PSN_WIZFINISH;
1263   psn.hdr.hwndFrom = hwndDlg;
1264   psn.hdr.idFrom   = 0;
1265   psn.lParam       = 0;
1266
1267   hwndPage = psInfo->proppage[psInfo->active_page].hwndPage;
1268
1269   msgResult = SendMessageA(hwndPage, WM_NOTIFY, 0, (LPARAM) &psn);
1270
1271   TRACE("msg result %ld\n", msgResult);
1272
1273   if (msgResult != 0)
1274     return FALSE;
1275
1276   if (psInfo->isModeless)
1277     psInfo->activeValid = FALSE;
1278   else
1279     EndDialog(hwndDlg, TRUE);
1280
1281   return TRUE;
1282 }
1283
1284 /******************************************************************************
1285  *            PROPSHEET_Apply
1286  */
1287 static BOOL PROPSHEET_Apply(HWND hwndDlg, LPARAM lParam)
1288 {
1289   int i;
1290   HWND hwndPage;
1291   PSHNOTIFY psn;
1292   LRESULT msgResult;
1293   PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwndDlg,
1294                                                     PropSheetInfoStr);
1295
1296   if (psInfo->active_page < 0)
1297      return FALSE;
1298
1299   psn.hdr.hwndFrom = hwndDlg;
1300   psn.hdr.idFrom   = 0;
1301   psn.lParam       = 0;
1302
1303
1304   /*
1305    * Send PSN_KILLACTIVE to the current page.
1306    */
1307   psn.hdr.code = PSN_KILLACTIVE;
1308
1309   hwndPage = psInfo->proppage[psInfo->active_page].hwndPage;
1310
1311   if (SendMessageA(hwndPage, WM_NOTIFY, 0, (LPARAM) &psn) != FALSE)
1312     return FALSE;
1313
1314   /*
1315    * Send PSN_APPLY to all pages.
1316    */
1317   psn.hdr.code = PSN_APPLY;
1318   psn.lParam   = lParam;
1319
1320   for (i = 0; i < psInfo->nPages; i++)
1321   {
1322     hwndPage = psInfo->proppage[i].hwndPage;
1323     if (hwndPage)
1324     {
1325        msgResult = SendMessageA(hwndPage, WM_NOTIFY, 0, (LPARAM) &psn);
1326        if (msgResult == PSNRET_INVALID_NOCHANGEPAGE)
1327           return FALSE;
1328     }
1329   }
1330
1331   if(lParam)
1332   {
1333      psInfo->activeValid = FALSE;
1334   }
1335   else if(psInfo->active_page >= 0)
1336   {
1337      psn.hdr.code = PSN_SETACTIVE;
1338      psn.lParam   = 0;
1339      hwndPage = psInfo->proppage[psInfo->active_page].hwndPage;
1340      SendMessageA(hwndPage, WM_NOTIFY, 0, (LPARAM) &psn);
1341   }
1342
1343   return TRUE;
1344 }
1345
1346 /******************************************************************************
1347  *            PROPSHEET_Cancel
1348  */
1349 static void PROPSHEET_Cancel(HWND hwndDlg, LPARAM lParam)
1350 {
1351   PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwndDlg,
1352                                                     PropSheetInfoStr);
1353   HWND hwndPage;
1354   PSHNOTIFY psn;
1355   int i;
1356
1357   if (psInfo->active_page < 0)
1358      return;
1359
1360   hwndPage = psInfo->proppage[psInfo->active_page].hwndPage;
1361   psn.hdr.code     = PSN_QUERYCANCEL;
1362   psn.hdr.hwndFrom = hwndDlg;
1363   psn.hdr.idFrom   = 0;
1364   psn.lParam       = 0;
1365
1366   if (SendMessageA(hwndPage, WM_NOTIFY, 0, (LPARAM) &psn))
1367     return;
1368
1369   psn.hdr.code = PSN_RESET;
1370   psn.lParam   = lParam;
1371
1372   for (i = 0; i < psInfo->nPages; i++)
1373   {
1374     hwndPage = psInfo->proppage[i].hwndPage;
1375
1376     if (hwndPage)
1377        SendMessageA(hwndPage, WM_NOTIFY, 0, (LPARAM) &psn);
1378   }
1379
1380   if (psInfo->isModeless)
1381   {
1382      /* makes PSM_GETCURRENTPAGEHWND return NULL */
1383      psInfo->activeValid = FALSE;
1384   }
1385   else
1386     EndDialog(hwndDlg, FALSE);
1387 }
1388
1389 /******************************************************************************
1390  *            PROPSHEET_Help
1391  */
1392 static void PROPSHEET_Help(HWND hwndDlg)
1393 {
1394   PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwndDlg,
1395                                                     PropSheetInfoStr);
1396   HWND hwndPage;
1397   PSHNOTIFY psn;
1398
1399   if (psInfo->active_page < 0)
1400      return;
1401
1402   hwndPage = psInfo->proppage[psInfo->active_page].hwndPage;
1403   psn.hdr.code     = PSN_HELP;
1404   psn.hdr.hwndFrom = hwndDlg;
1405   psn.hdr.idFrom   = 0;
1406   psn.lParam       = 0;
1407
1408   SendMessageA(hwndPage, WM_NOTIFY, 0, (LPARAM) &psn);
1409 }
1410
1411 /******************************************************************************
1412  *            PROPSHEET_Changed
1413  */
1414 static void PROPSHEET_Changed(HWND hwndDlg, HWND hwndDirtyPage)
1415 {
1416   int i;
1417   PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwndDlg,
1418                                                     PropSheetInfoStr);
1419
1420   if (!psInfo) return;
1421   /*
1422    * Set the dirty flag of this page.
1423    */
1424   for (i = 0; i < psInfo->nPages; i++)
1425   {
1426     if (psInfo->proppage[i].hwndPage == hwndDirtyPage)
1427       psInfo->proppage[i].isDirty = TRUE;
1428   }
1429
1430   /*
1431    * Enable the Apply button.
1432    */
1433   if (psInfo->hasApply)
1434   {
1435     HWND hwndApplyBtn = GetDlgItem(hwndDlg, IDC_APPLY_BUTTON);
1436
1437     EnableWindow(hwndApplyBtn, TRUE);
1438   }
1439 }
1440
1441 /******************************************************************************
1442  *            PROPSHEET_UnChanged
1443  */
1444 static void PROPSHEET_UnChanged(HWND hwndDlg, HWND hwndCleanPage)
1445 {
1446   int i;
1447   BOOL noPageDirty = TRUE;
1448   HWND hwndApplyBtn = GetDlgItem(hwndDlg, IDC_APPLY_BUTTON);
1449   PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwndDlg,
1450                                                     PropSheetInfoStr);
1451
1452   if ( !psInfo ) return;
1453   for (i = 0; i < psInfo->nPages; i++)
1454   {
1455     /* set the specified page as clean */
1456     if (psInfo->proppage[i].hwndPage == hwndCleanPage)
1457       psInfo->proppage[i].isDirty = FALSE;
1458
1459     /* look to see if there's any dirty pages */
1460     if (psInfo->proppage[i].isDirty)
1461       noPageDirty = FALSE;
1462   }
1463
1464   /*
1465    * Disable Apply button.
1466    */
1467   if (noPageDirty)
1468     EnableWindow(hwndApplyBtn, FALSE);
1469 }
1470
1471 /******************************************************************************
1472  *            PROPSHEET_PressButton
1473  */
1474 static void PROPSHEET_PressButton(HWND hwndDlg, int buttonID)
1475 {
1476   switch (buttonID)
1477   {
1478     case PSBTN_APPLYNOW:
1479       SendMessageA(hwndDlg, WM_COMMAND, IDC_APPLY_BUTTON, 0);
1480       break;
1481     case PSBTN_BACK:
1482       PROPSHEET_Back(hwndDlg);
1483       break;
1484     case PSBTN_CANCEL:
1485       SendMessageA(hwndDlg, WM_COMMAND, IDCANCEL, 0);
1486       break;
1487     case PSBTN_FINISH:
1488       PROPSHEET_Finish(hwndDlg);
1489       break;
1490     case PSBTN_HELP:
1491       SendMessageA(hwndDlg, WM_COMMAND, IDHELP, 0);
1492       break;
1493     case PSBTN_NEXT:
1494       PROPSHEET_Next(hwndDlg);
1495       break;
1496     case PSBTN_OK:
1497       SendMessageA(hwndDlg, WM_COMMAND, IDOK, 0);
1498       break;
1499     default:
1500       FIXME("Invalid button index %d\n", buttonID);
1501   }
1502 }
1503
1504
1505 /*************************************************************************
1506  * BOOL PROPSHEET_CanSetCurSel [Internal]
1507  *
1508  * Test weither the current page can be changed by sending a PSN_KILLACTIVE
1509  *
1510  * PARAMS
1511  *     hwndDlg        [I] handle to a Dialog hWnd
1512  *
1513  * RETURNS
1514  *     TRUE if Current Selection can change
1515  *
1516  * NOTES
1517  */
1518 static BOOL PROPSHEET_CanSetCurSel(HWND hwndDlg)
1519 {
1520   PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwndDlg,
1521                                                     PropSheetInfoStr);
1522   HWND hwndPage;
1523   PSHNOTIFY psn;
1524
1525   if (!psInfo)
1526      return FALSE;
1527
1528   if (psInfo->active_page < 0)
1529      return TRUE;
1530
1531   /*
1532    * Notify the current page.
1533    */
1534   hwndPage = psInfo->proppage[psInfo->active_page].hwndPage;
1535   psn.hdr.code     = PSN_KILLACTIVE;
1536   psn.hdr.hwndFrom = hwndDlg;
1537   psn.hdr.idFrom   = 0;
1538   psn.lParam       = 0;
1539
1540   return !SendMessageA(hwndPage, WM_NOTIFY, 0, (LPARAM) &psn);
1541 }
1542
1543 /******************************************************************************
1544  *            PROPSHEET_SetCurSel
1545  */
1546 static BOOL PROPSHEET_SetCurSel(HWND hwndDlg,
1547                                 int index,
1548                                 HPROPSHEETPAGE hpage)
1549 {
1550   PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwndDlg,
1551                                                     PropSheetInfoStr);
1552   HWND hwndPage;
1553   HWND hwndHelp  = GetDlgItem(hwndDlg, IDHELP);
1554
1555   /* hpage takes precedence over index */
1556   if (hpage != NULL)
1557     index = PROPSHEET_GetPageIndex(hpage, psInfo);
1558
1559   if (index < 0 || index >= psInfo->nPages)
1560   {
1561     TRACE("Could not find page to select!\n");
1562     return FALSE;
1563   }
1564
1565   hwndPage = psInfo->proppage[index].hwndPage;
1566
1567   /*
1568    * Notify the new page if it's already created.
1569    * If not it will get created and notified in PROPSHEET_ShowPage.
1570    */
1571   if (hwndPage)
1572   {
1573     int result;
1574     PSHNOTIFY psn;
1575
1576     psn.hdr.code     = PSN_SETACTIVE;
1577     psn.hdr.hwndFrom = hwndDlg;
1578     psn.hdr.idFrom   = 0;
1579     psn.lParam       = 0;
1580
1581     result = SendMessageA(hwndPage, WM_NOTIFY, 0, (LPARAM) &psn);
1582
1583     /*
1584      * TODO: check return value.
1585      */
1586   }
1587
1588   /*
1589    * Display the new page.
1590    */
1591   PROPSHEET_ShowPage(hwndDlg, index, psInfo);
1592
1593   if (psInfo->proppage[index].hasHelp)
1594     EnableWindow(hwndHelp, TRUE);
1595   else
1596     EnableWindow(hwndHelp, FALSE);
1597
1598   return TRUE;
1599 }
1600
1601 /******************************************************************************
1602  *            PROPSHEET_SetTitleA
1603  */
1604 static void PROPSHEET_SetTitleA(HWND hwndDlg, DWORD dwStyle, LPCSTR lpszText)
1605 {
1606   PropSheetInfo*        psInfo = (PropSheetInfo*) GetPropA(hwndDlg, PropSheetInfoStr);
1607   char                          szTitle[256];
1608
1609   if (HIWORD(lpszText) == 0) {
1610     if (!LoadStringA(psInfo->ppshheader.hInstance,
1611                      LOWORD(lpszText), szTitle, sizeof(szTitle)-1))
1612       return;
1613     lpszText = szTitle;
1614   }
1615   if (dwStyle & PSH_PROPTITLE)
1616   {
1617     char* dest;
1618     int lentitle = strlen(lpszText);
1619     int lenprop  = strlen(psInfo->strPropertiesFor);
1620
1621     dest = COMCTL32_Alloc(lentitle + lenprop + 1);
1622     strcpy(dest, psInfo->strPropertiesFor);
1623     strcat(dest, lpszText);
1624
1625     SetWindowTextA(hwndDlg, dest);
1626     COMCTL32_Free(dest);
1627   }
1628   else
1629     SetWindowTextA(hwndDlg, lpszText);
1630 }
1631
1632 /******************************************************************************
1633  *            PROPSHEET_SetFinishTextA
1634  */
1635 static void PROPSHEET_SetFinishTextA(HWND hwndDlg, LPCSTR lpszText)
1636 {
1637   HWND hwndButton = GetDlgItem(hwndDlg, IDC_FINISH_BUTTON);
1638
1639   /* Set text, show and enable the Finish button */
1640   SetWindowTextA(hwndButton, lpszText);
1641   ShowWindow(hwndButton, SW_SHOW);
1642   EnableWindow(hwndButton, TRUE);
1643
1644   /* Make it default pushbutton */
1645   SendMessageA(hwndDlg, DM_SETDEFID, IDC_FINISH_BUTTON, 0);
1646
1647   /* Hide Back button */
1648   hwndButton = GetDlgItem(hwndDlg, IDC_BACK_BUTTON);
1649   ShowWindow(hwndButton, SW_HIDE);
1650
1651   /* Hide Next button */
1652   hwndButton = GetDlgItem(hwndDlg, IDC_NEXT_BUTTON);
1653   ShowWindow(hwndButton, SW_HIDE);
1654 }
1655
1656 /******************************************************************************
1657  *            PROPSHEET_QuerySiblings
1658  */
1659 static LRESULT PROPSHEET_QuerySiblings(HWND hwndDlg,
1660                                        WPARAM wParam, LPARAM lParam)
1661 {
1662   int i = 0;
1663   HWND hwndPage;
1664   LRESULT msgResult = 0;
1665   PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwndDlg,
1666                                                     PropSheetInfoStr);
1667
1668   while ((i < psInfo->nPages) && (msgResult == 0))
1669   {
1670     hwndPage = psInfo->proppage[i].hwndPage;
1671     msgResult = SendMessageA(hwndPage, PSM_QUERYSIBLINGS, wParam, lParam);
1672     i++;
1673   }
1674
1675   return msgResult;
1676 }
1677
1678
1679 /******************************************************************************
1680  *            PROPSHEET_AddPage
1681  */
1682 static BOOL PROPSHEET_AddPage(HWND hwndDlg,
1683                               HPROPSHEETPAGE hpage)
1684 {
1685   PropSheetInfo * psInfo = (PropSheetInfo*) GetPropA(hwndDlg,
1686                                                      PropSheetInfoStr);
1687   HWND hwndTabControl = GetDlgItem(hwndDlg, IDC_TABCONTROL);
1688   TCITEMA item;
1689   char tabtext[MAX_TABTEXT_LENGTH] = "Tab text";
1690   LPCPROPSHEETPAGEA ppsp = (LPCPROPSHEETPAGEA)hpage;
1691
1692   /*
1693    * Allocate and fill in a new PropPageInfo entry.
1694    */
1695   psInfo->proppage = (PropPageInfo*) COMCTL32_ReAlloc(psInfo->proppage,
1696                                                       sizeof(PropPageInfo) *
1697                                                       (psInfo->nPages + 1));
1698   if (!PROPSHEET_CollectPageInfo(ppsp, psInfo, psInfo->nPages))
1699       return FALSE;
1700
1701   psInfo->proppage[psInfo->nPages].hpage = hpage;
1702
1703   if (ppsp->dwFlags & PSP_PREMATURE)
1704   {
1705      /* Create the page but don't show it */
1706      PROPSHEET_CreatePage(hwndDlg, psInfo->nPages, psInfo, ppsp);
1707   }
1708
1709   /*
1710    * Add a new tab to the tab control.
1711    */
1712   item.mask = TCIF_TEXT;
1713   item.pszText = tabtext;
1714   item.cchTextMax = MAX_TABTEXT_LENGTH;
1715
1716   WideCharToMultiByte(CP_ACP, 0,
1717                       (LPCWSTR)psInfo->proppage[psInfo->nPages].pszText,
1718                       -1, tabtext, MAX_TABTEXT_LENGTH, NULL, NULL);
1719
1720   SendMessageA(hwndTabControl, TCM_INSERTITEMA, psInfo->nPages + 1,
1721                (LPARAM)&item);
1722
1723   psInfo->nPages++;
1724
1725   /* If it is the only page - show it */
1726   if(psInfo->nPages == 1)
1727      PROPSHEET_ShowPage(hwndDlg, 0, psInfo);
1728
1729   return TRUE;
1730 }
1731
1732 /******************************************************************************
1733  *            PROPSHEET_RemovePage
1734  */
1735 static BOOL PROPSHEET_RemovePage(HWND hwndDlg,
1736                                  int index,
1737                                  HPROPSHEETPAGE hpage)
1738 {
1739   PropSheetInfo * psInfo = (PropSheetInfo*) GetPropA(hwndDlg,
1740                                                      PropSheetInfoStr);
1741   HWND hwndTabControl = GetDlgItem(hwndDlg, IDC_TABCONTROL);
1742   PropPageInfo* oldPages;
1743
1744   if (!psInfo) {
1745     return FALSE;
1746   }
1747   oldPages = psInfo->proppage;
1748   /*
1749    * hpage takes precedence over index.
1750    */
1751   if (hpage != 0)
1752   {
1753     index = PROPSHEET_GetPageIndex(hpage, psInfo);
1754   }
1755
1756   /* Make sure that index is within range */
1757   if (index < 0 || index >= psInfo->nPages)
1758   {
1759       TRACE("Could not find page to remove!\n");
1760       return FALSE;
1761   }
1762
1763   TRACE("total pages %d removing page %d active page %d\n",
1764         psInfo->nPages, index, psInfo->active_page);
1765   /*
1766    * Check if we're removing the active page.
1767    */
1768   if (index == psInfo->active_page)
1769   {
1770     if (psInfo->nPages > 1)
1771     {
1772       if (index > 0)
1773       {
1774         /* activate previous page  */
1775         PROPSHEET_ShowPage(hwndDlg, index - 1, psInfo);
1776       }
1777       else
1778       {
1779         /* activate the next page */
1780         PROPSHEET_ShowPage(hwndDlg, index + 1, psInfo);
1781         psInfo->active_page = index;
1782       }
1783     }
1784     else
1785     {
1786       psInfo->active_page = -1;
1787       if (!psInfo->isModeless)
1788       {
1789          EndDialog(hwndDlg, FALSE);
1790          return TRUE;
1791       }
1792     }
1793   }
1794   else if (index < psInfo->active_page)
1795     psInfo->active_page--;
1796
1797   /* Destroy page dialog window */
1798   DestroyWindow(psInfo->proppage[index].hwndPage);
1799
1800   /* Free page resources */
1801   if(psInfo->proppage[index].hpage)
1802   {
1803      PROPSHEETPAGEA* psp = (PROPSHEETPAGEA*)psInfo->proppage[index].hpage;
1804
1805      if ((psp->dwFlags & PSP_USETITLE) && psInfo->proppage[index].pszText)
1806         HeapFree(GetProcessHeap(), 0, (LPVOID)psInfo->proppage[index].pszText);
1807
1808      DestroyPropertySheetPage(psInfo->proppage[index].hpage);
1809   }
1810
1811   /* Remove the tab */
1812   SendMessageA(hwndTabControl, TCM_DELETEITEM, index, 0);
1813
1814   psInfo->nPages--;
1815   psInfo->proppage = COMCTL32_Alloc(sizeof(PropPageInfo) * psInfo->nPages);
1816
1817   if (index > 0)
1818     memcpy(&psInfo->proppage[0], &oldPages[0], index * sizeof(PropPageInfo));
1819
1820   if (index < psInfo->nPages)
1821     memcpy(&psInfo->proppage[index], &oldPages[index + 1],
1822            (psInfo->nPages - index) * sizeof(PropPageInfo));
1823
1824   COMCTL32_Free(oldPages);
1825
1826   return FALSE;
1827 }
1828
1829 /******************************************************************************
1830  *            PROPSHEET_SetWizButtons
1831  *
1832  * This code will work if (and assumes that) the Next button is on top of the
1833  * Finish button. ie. Finish comes after Next in the Z order.
1834  * This means make sure the dialog template reflects this.
1835  *
1836  */
1837 static void PROPSHEET_SetWizButtons(HWND hwndDlg, DWORD dwFlags)
1838 {
1839   HWND hwndBack   = GetDlgItem(hwndDlg, IDC_BACK_BUTTON);
1840   HWND hwndNext   = GetDlgItem(hwndDlg, IDC_NEXT_BUTTON);
1841   HWND hwndFinish = GetDlgItem(hwndDlg, IDC_FINISH_BUTTON);
1842
1843   TRACE("%ld\n", dwFlags);
1844
1845   EnableWindow(hwndBack, FALSE);
1846   EnableWindow(hwndNext, FALSE);
1847   EnableWindow(hwndFinish, FALSE);
1848
1849   if (dwFlags & PSWIZB_BACK)
1850     EnableWindow(hwndBack, TRUE);
1851
1852   if (dwFlags & PSWIZB_NEXT)
1853   {
1854     /* Hide the Finish button */
1855     ShowWindow(hwndFinish, SW_HIDE);
1856
1857     /* Show and enable the Next button */
1858     ShowWindow(hwndNext, SW_SHOW);
1859     EnableWindow(hwndNext, TRUE);
1860
1861     /* Set the Next button as the default pushbutton  */
1862     SendMessageA(hwndDlg, DM_SETDEFID, IDC_NEXT_BUTTON, 0);
1863   }
1864
1865   if ((dwFlags & PSWIZB_FINISH) || (dwFlags & PSWIZB_DISABLEDFINISH))
1866   {
1867     /* Hide the Next button */
1868     ShowWindow(hwndNext, SW_HIDE);
1869
1870     /* Show the Finish button */
1871     ShowWindow(hwndFinish, SW_SHOW);
1872
1873     if (dwFlags & PSWIZB_FINISH)
1874       EnableWindow(hwndFinish, TRUE);
1875
1876     /* Set the Finish button as the default pushbutton  */
1877     SendMessageA(hwndDlg, DM_SETDEFID, IDC_FINISH_BUTTON, 0);
1878   }
1879 }
1880
1881 /******************************************************************************
1882  *            PROPSHEET_GetPageIndex
1883  *
1884  * Given a HPROPSHEETPAGE, returns the index of the corresponding page from
1885  * the array of PropPageInfo.
1886  */
1887 static int PROPSHEET_GetPageIndex(HPROPSHEETPAGE hpage, PropSheetInfo* psInfo)
1888 {
1889   BOOL found = FALSE;
1890   int index = 0;
1891
1892   while ((index < psInfo->nPages) && (found == FALSE))
1893   {
1894     if (psInfo->proppage[index].hpage == hpage)
1895       found = TRUE;
1896     else
1897       index++;
1898   }
1899
1900   if (found == FALSE)
1901     index = -1;
1902
1903   return index;
1904 }
1905
1906 /******************************************************************************
1907  *            PROPSHEET_CleanUp
1908  */
1909 static void PROPSHEET_CleanUp(HWND hwndDlg)
1910 {
1911   int i;
1912   PropSheetInfo* psInfo = (PropSheetInfo*) RemovePropA(hwndDlg,
1913                                                        PropSheetInfoStr);
1914
1915   TRACE("\n");
1916   if (HIWORD(psInfo->ppshheader.pszCaption))
1917       HeapFree(GetProcessHeap(), 0, (LPVOID)psInfo->ppshheader.pszCaption);
1918
1919   for (i = 0; i < psInfo->nPages; i++)
1920   {
1921      PROPSHEETPAGEA* psp = (PROPSHEETPAGEA*)psInfo->proppage[i].hpage;
1922
1923      if(psInfo->proppage[i].hwndPage)
1924         DestroyWindow(psInfo->proppage[i].hwndPage);
1925
1926      if(psp)
1927      {
1928         if ((psp->dwFlags & PSP_USETITLE) && psInfo->proppage[i].pszText)
1929            HeapFree(GetProcessHeap(), 0, (LPVOID)psInfo->proppage[i].pszText);
1930
1931         DestroyPropertySheetPage(psInfo->proppage[i].hpage);
1932      }
1933   }
1934
1935   COMCTL32_Free(psInfo->proppage);
1936   COMCTL32_Free(psInfo->strPropertiesFor);
1937   ImageList_Destroy(psInfo->hImageList);
1938
1939   GlobalFree((HGLOBAL)psInfo);
1940 }
1941
1942 /******************************************************************************
1943  *            PropertySheetA   (COMCTL32.84)(COMCTL32.83)
1944  */
1945 INT WINAPI PropertySheetA(LPCPROPSHEETHEADERA lppsh)
1946 {
1947   int bRet = 0;
1948   PropSheetInfo* psInfo = (PropSheetInfo*) GlobalAlloc(GPTR,
1949                                                        sizeof(PropSheetInfo));
1950   int i, n;
1951   BYTE* pByte;
1952
1953   PROPSHEET_CollectSheetInfo(lppsh, psInfo);
1954
1955   psInfo->proppage = (PropPageInfo*) COMCTL32_Alloc(sizeof(PropPageInfo) *
1956                                                     lppsh->nPages);
1957   pByte = (BYTE*) psInfo->ppshheader.u3.ppsp;
1958
1959   for (n = i = 0; i < lppsh->nPages; i++, n++)
1960   {
1961     if (!(lppsh->dwFlags & PSH_PROPSHEETPAGE))
1962       psInfo->proppage[n].hpage = psInfo->ppshheader.u3.phpage[i];
1963     else
1964     {
1965        psInfo->proppage[n].hpage = CreatePropertySheetPageA((LPCPROPSHEETPAGEA)pByte);
1966        pByte += ((LPPROPSHEETPAGEA)pByte)->dwSize;
1967     }
1968
1969     if (!PROPSHEET_CollectPageInfo((LPCPROPSHEETPAGEA)psInfo->proppage[n].hpage,
1970                                psInfo, n))
1971     {
1972         if (lppsh->dwFlags & PSH_PROPSHEETPAGE)
1973             DestroyPropertySheetPage(psInfo->proppage[n].hpage);
1974         n--;
1975         psInfo->nPages--;
1976     }
1977   }
1978
1979   bRet = PROPSHEET_CreateDialog(psInfo);
1980
1981   return bRet;
1982 }
1983
1984 /******************************************************************************
1985  *            PropertySheetW   (COMCTL32.85)
1986  */
1987 INT WINAPI PropertySheetW(LPCPROPSHEETHEADERW propertySheetHeader)
1988 {
1989     FIXME("(%p): stub\n", propertySheetHeader);
1990
1991     return -1;
1992 }
1993
1994 /******************************************************************************
1995  *            CreatePropertySheetPageA   (COMCTL32.19)(COMCTL32.18)
1996  */
1997 HPROPSHEETPAGE WINAPI CreatePropertySheetPageA(
1998                           LPCPROPSHEETPAGEA lpPropSheetPage)
1999 {
2000   PROPSHEETPAGEA* ppsp = COMCTL32_Alloc(sizeof(PROPSHEETPAGEA));
2001
2002   *ppsp = *lpPropSheetPage;
2003
2004   if ( !(ppsp->dwFlags & PSP_DLGINDIRECT) && HIWORD( ppsp->u.pszTemplate ) )
2005     ppsp->u.pszTemplate = HEAP_strdupA( GetProcessHeap(), 0, lpPropSheetPage->u.pszTemplate );
2006
2007   if ( (ppsp->dwFlags & PSP_USEICONID) && HIWORD( ppsp->u2.pszIcon ) )
2008       ppsp->u2.pszIcon = HEAP_strdupA( GetProcessHeap(), 0, lpPropSheetPage->u2.pszIcon );
2009
2010
2011   if ((ppsp->dwFlags & PSP_USETITLE) && HIWORD( ppsp->pszTitle ))
2012       ppsp->pszTitle = HEAP_strdupA( GetProcessHeap(), 0, lpPropSheetPage->pszTitle );
2013   else if ( !(ppsp->dwFlags & PSP_USETITLE) )
2014       ppsp->pszTitle = NULL;
2015
2016   return (HPROPSHEETPAGE)ppsp;
2017 }
2018
2019 /******************************************************************************
2020  *            CreatePropertySheetPageW   (COMCTL32.20)
2021  */
2022 HPROPSHEETPAGE WINAPI CreatePropertySheetPageW(LPCPROPSHEETPAGEW lpPropSheetPage)
2023 {
2024     FIXME("(%p): stub\n", lpPropSheetPage);
2025
2026     return 0;
2027 }
2028
2029 /******************************************************************************
2030  *            DestroyPropertySheetPage   (COMCTL32.24)
2031  */
2032 BOOL WINAPI DestroyPropertySheetPage(HPROPSHEETPAGE hPropPage)
2033 {
2034   PROPSHEETPAGEA *psp = (PROPSHEETPAGEA *)hPropPage;
2035
2036   if (!psp)
2037      return FALSE;
2038
2039   if ( !(psp->dwFlags & PSP_DLGINDIRECT) && HIWORD( psp->u.pszTemplate ) )
2040      HeapFree(GetProcessHeap(), 0, (LPVOID)psp->u.pszTemplate);
2041
2042   if ( (psp->dwFlags & PSP_USEICONID) && HIWORD( psp->u2.pszIcon ) )
2043      HeapFree(GetProcessHeap(), 0, (LPVOID)psp->u2.pszIcon);
2044
2045   if ((psp->dwFlags & PSP_USETITLE) && HIWORD( psp->pszTitle ))
2046       HeapFree(GetProcessHeap(), 0, (LPVOID)psp->pszTitle);
2047
2048   COMCTL32_Free(hPropPage);
2049
2050   return TRUE;
2051 }
2052
2053 /******************************************************************************
2054  *            PROPSHEET_IsDialogMessage
2055  */
2056 static BOOL PROPSHEET_IsDialogMessage(HWND hwnd, LPMSG lpMsg)
2057 {
2058    PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwnd, PropSheetInfoStr);
2059
2060    if (!psInfo || (hwnd != lpMsg->hwnd && !IsChild(hwnd, lpMsg->hwnd)))
2061       return FALSE;
2062
2063    if (lpMsg->message == WM_KEYDOWN && (GetKeyState(VK_CONTROL) & 0x8000))
2064    {
2065       int new_page = 0;
2066       INT dlgCode = SendMessageA(lpMsg->hwnd, WM_GETDLGCODE, 0, (LPARAM)lpMsg);
2067
2068       if (!(dlgCode & DLGC_WANTMESSAGE))
2069       {
2070          switch (lpMsg->wParam)
2071          {
2072             case VK_TAB:
2073                if (GetKeyState(VK_SHIFT) & 0x8000)
2074                    new_page = -1;
2075                 else
2076                    new_page = 1;
2077                break;
2078
2079             case VK_NEXT:   new_page = 1;  break;
2080             case VK_PRIOR:  new_page = -1; break;
2081          }
2082       }
2083
2084       if (new_page)
2085       {
2086          if (PROPSHEET_CanSetCurSel(hwnd) != FALSE)
2087          {
2088             new_page += psInfo->active_page;
2089
2090             if (new_page < 0)
2091                new_page = psInfo->nPages - 1;
2092             else if (new_page >= psInfo->nPages)
2093                new_page = 0;
2094
2095             PROPSHEET_SetCurSel(hwnd, new_page, 0);
2096          }
2097
2098          return TRUE;
2099       }
2100    }
2101
2102    return IsDialogMessageA(hwnd, lpMsg);
2103 }
2104
2105 /******************************************************************************
2106  *            PROPSHEET_DialogProc
2107  */
2108 BOOL WINAPI
2109 PROPSHEET_DialogProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
2110 {
2111   switch (uMsg)
2112   {
2113     case WM_INITDIALOG:
2114     {
2115       PropSheetInfo* psInfo = (PropSheetInfo*) lParam;
2116       char* strCaption = (char*)COMCTL32_Alloc(MAX_CAPTION_LENGTH);
2117       HWND hwndTabCtrl = GetDlgItem(hwnd, IDC_TABCONTROL);
2118       LPCPROPSHEETPAGEA ppshpage;
2119       int idx;
2120
2121       SetPropA(hwnd, PropSheetInfoStr, (HANDLE)psInfo);
2122
2123       /*
2124        * psInfo->hwnd is not being used by WINE code - it exists
2125        * for compatibility with "real" Windoze. The same about
2126        * SetWindowLong - WINE is only using the PropSheetInfoStr
2127        * property.
2128        */
2129       psInfo->hwnd = hwnd;
2130       SetWindowLongA(hwnd,DWL_USER,(LONG)psInfo);
2131
2132       /*
2133        * Small icon in the title bar.
2134        */
2135       if ((psInfo->ppshheader.dwFlags & PSH_USEICONID) ||
2136           (psInfo->ppshheader.dwFlags & PSH_USEHICON))
2137       {
2138         HICON hIcon;
2139         int icon_cx = GetSystemMetrics(SM_CXSMICON);
2140         int icon_cy = GetSystemMetrics(SM_CYSMICON);
2141
2142         if (psInfo->ppshheader.dwFlags & PSH_USEICONID)
2143           hIcon = LoadImageA(psInfo->ppshheader.hInstance,
2144                              psInfo->ppshheader.u.pszIcon,
2145                              IMAGE_ICON,
2146                              icon_cx, icon_cy,
2147                              LR_DEFAULTCOLOR);
2148         else
2149           hIcon = psInfo->ppshheader.u.hIcon;
2150
2151         SendMessageA(hwnd, WM_SETICON, 0, hIcon);
2152       }
2153
2154       if (psInfo->ppshheader.dwFlags & PSH_USEHICON)
2155         SendMessageA(hwnd, WM_SETICON, 0, psInfo->ppshheader.u.hIcon);
2156
2157       psInfo->strPropertiesFor = strCaption;
2158
2159       GetWindowTextA(hwnd, psInfo->strPropertiesFor, MAX_CAPTION_LENGTH);
2160
2161       PROPSHEET_CreateTabControl(hwnd, psInfo);
2162
2163       if (psInfo->ppshheader.dwFlags & PSH_WIZARD)
2164       {
2165         if (PROPSHEET_IsTooSmallWizard(hwnd, psInfo))
2166         {
2167           PROPSHEET_AdjustSizeWizard(hwnd, psInfo);
2168           PROPSHEET_AdjustButtonsWizard(hwnd, psInfo);
2169         }
2170       }
2171       else
2172       {
2173         if (PROPSHEET_SizeMismatch(hwnd, psInfo))
2174         {
2175           PROPSHEET_AdjustSize(hwnd, psInfo);
2176           PROPSHEET_AdjustButtons(hwnd, psInfo);
2177         }
2178       }
2179
2180       if (psInfo->useCallback)
2181              (*(psInfo->ppshheader.pfnCallback))(hwnd,
2182                                               PSCB_INITIALIZED, (LPARAM)0);
2183
2184       idx = psInfo->active_page;
2185       ppshpage = (LPCPROPSHEETPAGEA)psInfo->proppage[idx].hpage;
2186       psInfo->active_page = -1;
2187
2188       PROPSHEET_SetCurSel(hwnd, idx, psInfo->proppage[idx].hpage);
2189
2190       if (!(psInfo->ppshheader.dwFlags & PSH_WIZARD))
2191         SendMessageA(hwndTabCtrl, TCM_SETCURSEL, psInfo->active_page, 0);
2192
2193       if (!HIWORD(psInfo->ppshheader.pszCaption) &&
2194               psInfo->ppshheader.hInstance)
2195       {
2196          char szText[256];
2197
2198          if (LoadStringA(psInfo->ppshheader.hInstance,
2199                  (UINT)psInfo->ppshheader.pszCaption, szText, 255))
2200             PROPSHEET_SetTitleA(hwnd, psInfo->ppshheader.dwFlags, szText);
2201       }
2202       else
2203       {
2204          PROPSHEET_SetTitleA(hwnd, psInfo->ppshheader.dwFlags,
2205                          psInfo->ppshheader.pszCaption);
2206       }
2207
2208       return TRUE;
2209     }
2210
2211     case WM_DESTROY:
2212       PROPSHEET_CleanUp(hwnd);
2213       return TRUE;
2214
2215     case WM_CLOSE:
2216       PROPSHEET_Cancel(hwnd, 1);
2217       return TRUE;
2218
2219     case WM_COMMAND:
2220     {
2221       WORD wID = LOWORD(wParam);
2222
2223       switch (wID)
2224       {
2225         case IDOK:
2226         case IDC_APPLY_BUTTON:
2227         {
2228           HWND hwndApplyBtn = GetDlgItem(hwnd, IDC_APPLY_BUTTON);
2229
2230           if (PROPSHEET_Apply(hwnd, wID == IDOK ? 1: 0) == FALSE)
2231             break;
2232
2233           if (wID == IDOK)
2234           {
2235             PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwnd,
2236                                                             PropSheetInfoStr);
2237             int result = TRUE;
2238
2239             if (psInfo->restartWindows)
2240               result = ID_PSRESTARTWINDOWS;
2241
2242             /* reboot system takes precedence over restart windows */
2243             if (psInfo->rebootSystem)
2244               result = ID_PSREBOOTSYSTEM;
2245
2246             if (psInfo->isModeless)
2247               psInfo->activeValid = FALSE;
2248             else
2249               EndDialog(hwnd, result);
2250           }
2251           else
2252              EnableWindow(hwndApplyBtn, FALSE);
2253
2254           break;
2255         }
2256
2257         case IDC_BACK_BUTTON:
2258           PROPSHEET_Back(hwnd);
2259           break;
2260
2261         case IDC_NEXT_BUTTON:
2262           PROPSHEET_Next(hwnd);
2263           break;
2264
2265         case IDC_FINISH_BUTTON:
2266           PROPSHEET_Finish(hwnd);
2267           break;
2268
2269         case IDCANCEL:
2270           PROPSHEET_Cancel(hwnd, 0);
2271           break;
2272
2273         case IDHELP:
2274           PROPSHEET_Help(hwnd);
2275           break;
2276       }
2277
2278       return TRUE;
2279     }
2280
2281     case WM_NOTIFY:
2282     {
2283       NMHDR* pnmh = (LPNMHDR) lParam;
2284
2285       if (pnmh->code == TCN_SELCHANGE)
2286       {
2287         int index = SendMessageA(pnmh->hwndFrom, TCM_GETCURSEL, 0, 0);
2288         PROPSHEET_SetCurSel(hwnd, index, 0);
2289       }
2290
2291       if(pnmh->code == TCN_SELCHANGING)
2292       {
2293         BOOL bRet = PROPSHEET_CanSetCurSel(hwnd);
2294         SetWindowLongA(hwnd, DWL_MSGRESULT, !bRet);
2295         return TRUE;
2296       }
2297
2298       return FALSE;
2299     }
2300
2301     case PSM_GETCURRENTPAGEHWND:
2302     {
2303       PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwnd,
2304                                                         PropSheetInfoStr);
2305       HWND hwndPage = 0;
2306
2307       if (psInfo->activeValid && psInfo->active_page != -1)
2308         hwndPage = psInfo->proppage[psInfo->active_page].hwndPage;
2309
2310       SetWindowLongA(hwnd, DWL_MSGRESULT, hwndPage);
2311
2312       return TRUE;
2313     }
2314
2315     case PSM_CHANGED:
2316       PROPSHEET_Changed(hwnd, (HWND)wParam);
2317       return TRUE;
2318
2319     case PSM_UNCHANGED:
2320       PROPSHEET_UnChanged(hwnd, (HWND)wParam);
2321       return TRUE;
2322
2323     case PSM_GETTABCONTROL:
2324     {
2325       HWND hwndTabCtrl = GetDlgItem(hwnd, IDC_TABCONTROL);
2326
2327       SetWindowLongA(hwnd, DWL_MSGRESULT, hwndTabCtrl);
2328
2329       return TRUE;
2330     }
2331
2332     case PSM_SETCURSEL:
2333     {
2334       BOOL msgResult;
2335
2336       msgResult = PROPSHEET_CanSetCurSel(hwnd);
2337       if(msgResult != FALSE)
2338       {
2339         msgResult = PROPSHEET_SetCurSel(hwnd,
2340                                        (int)wParam,
2341                                        (HPROPSHEETPAGE)lParam);
2342       }
2343
2344       SetWindowLongA(hwnd, DWL_MSGRESULT, msgResult);
2345
2346       return TRUE;
2347     }
2348
2349     case PSM_CANCELTOCLOSE:
2350     {
2351       char buf[MAX_BUTTONTEXT_LENGTH];
2352       HWND hwndOK = GetDlgItem(hwnd, IDOK);
2353       HWND hwndCancel = GetDlgItem(hwnd, IDCANCEL);
2354
2355       EnableWindow(hwndCancel, FALSE);
2356       if (LoadStringA(COMCTL32_hModule, IDS_CLOSE, buf, sizeof(buf)))
2357          SetWindowTextA(hwndOK, buf);
2358
2359       return FALSE;
2360     }
2361
2362     case PSM_RESTARTWINDOWS:
2363     {
2364       PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwnd,
2365                                                         PropSheetInfoStr);
2366
2367       psInfo->restartWindows = TRUE;
2368       return TRUE;
2369     }
2370
2371     case PSM_REBOOTSYSTEM:
2372     {
2373       PropSheetInfo* psInfo = (PropSheetInfo*) GetPropA(hwnd,
2374                                                         PropSheetInfoStr);
2375
2376       psInfo->rebootSystem = TRUE;
2377       return TRUE;
2378     }
2379
2380     case PSM_SETTITLEA:
2381       PROPSHEET_SetTitleA(hwnd, (DWORD) wParam, (LPCSTR) lParam);
2382       return TRUE;
2383
2384     case PSM_APPLY:
2385     {
2386       BOOL msgResult = PROPSHEET_Apply(hwnd, 0);
2387
2388       SetWindowLongA(hwnd, DWL_MSGRESULT, msgResult);
2389
2390       return TRUE;
2391     }
2392
2393     case PSM_QUERYSIBLINGS:
2394     {
2395       LRESULT msgResult = PROPSHEET_QuerySiblings(hwnd, wParam, lParam);
2396
2397       SetWindowLongA(hwnd, DWL_MSGRESULT, msgResult);
2398
2399       return TRUE;
2400     }
2401
2402     case PSM_ADDPAGE:
2403     {
2404       /*
2405        * Note: MSVC++ 6.0 documentation says that PSM_ADDPAGE does not have
2406        *       a return value. This is not true. PSM_ADDPAGE returns TRUE
2407        *       on success or FALSE otherwise, as specified on MSDN Online.
2408        *       Also see the MFC code for
2409        *       CPropertySheet::AddPage(CPropertyPage* pPage).
2410        */
2411
2412       BOOL msgResult = PROPSHEET_AddPage(hwnd, (HPROPSHEETPAGE)lParam);
2413
2414       SetWindowLongA(hwnd, DWL_MSGRESULT, msgResult);
2415
2416       return TRUE;
2417     }
2418
2419     case PSM_REMOVEPAGE:
2420       PROPSHEET_RemovePage(hwnd, (int)wParam, (HPROPSHEETPAGE)lParam);
2421       return TRUE;
2422
2423     case PSM_ISDIALOGMESSAGE:
2424     {
2425        BOOL msgResult = PROPSHEET_IsDialogMessage(hwnd, (LPMSG)lParam);
2426        SetWindowLongA(hwnd, DWL_MSGRESULT, msgResult);
2427        return TRUE;
2428     }
2429
2430     case PSM_PRESSBUTTON:
2431       PROPSHEET_PressButton(hwnd, (int)wParam);
2432       return TRUE;
2433
2434     case PSM_SETFINISHTEXTA:
2435       PROPSHEET_SetFinishTextA(hwnd, (LPCSTR) lParam);
2436       return TRUE;
2437
2438     case PSM_SETWIZBUTTONS:
2439       PROPSHEET_SetWizButtons(hwnd, (DWORD)lParam);
2440       return TRUE;
2441
2442     case PSM_SETTITLEW:
2443         FIXME("Unimplemented msg PSM_SETTITLE32W\n");
2444         return FALSE;
2445
2446     case PSM_SETCURSELID:
2447         FIXME("Unimplemented msg PSM_SETCURSELID\n");
2448         return FALSE;
2449
2450     case PSM_SETFINISHTEXTW:
2451         FIXME("Unimplemented msg PSM_SETFINISHTEXT32W\n");
2452         return FALSE;
2453
2454     default:
2455       return FALSE;
2456   }
2457
2458   return FALSE;
2459 }
2460