windows/dialog.c

   1 /*
   2  * Dialog functions
   3  *
   4  * Copyright 1993 Alexandre Julliard
   5  */
   6
   7 static char Copyright[] = "Copyright  Alexandre Julliard, 1993";
   8
   9 #include <stdlib.h>
  10
  11 #include "windows.h"
  12 #include "dialog.h"
  13 #include "win.h"
  14
  15
  16   /* Dialog base units */
  17 static WORD xBaseUnit = 0, yBaseUnit = 0;
  18
  19
  20 /***********************************************************************
  21  *           DIALOG_Init
  22  *
  23  * Initialisation of the dialog manager.
  24  */
  25 BOOL DIALOG_Init()
  26 {
  27     TEXTMETRIC tm;
  28     HDC hdc;
  29
  30       /* Calculate the dialog base units */
  31
  32     if (!(hdc = GetDC( 0 ))) return FALSE;
  33     GetTextMetrics( hdc, &tm );
  34     ReleaseDC( 0, hdc );
  35     xBaseUnit = tm.tmAveCharWidth;
  36     yBaseUnit = tm.tmHeight;
  37 #ifdef DEBUG_DIALOG
  38     printf( "DIALOG_Init: base units = %d,%d\n", xBaseUnit, yBaseUnit );
  39 #endif
  40     return TRUE;
  41 }
  42
  43
  44 /***********************************************************************
  45  *           DIALOG_GetControl
  46  *
  47  * Return the class and text of the control pointed to by ptr,
  48  * and return a pointer to the next control.
  49  */
  50 static DLGCONTROLHEADER * DIALOG_GetControl( DLGCONTROLHEADER * ptr,
  51                                              char ** class, char ** text )
  52 {
  53     unsigned char * p = (unsigned char *)ptr;
  54     p += 14;  /* size of control header */
  55     if (*p & 0x80)
  56     {
  57         switch(*p++)
  58         {
  59         case 0x80: *class = "BUTTON"; break;
  60         case 0x81: *class = "EDIT"; break;
  61         case 0x82: *class = "STATIC"; break;
  62         case 0x83: *class = "LISTBOX"; break;
  63         case 0x84: *class = "SCROLLBAR"; break;
  64         case 0x85: *class = "COMBOBOX"; break;
  65         default:   *class = ""; break;
  66         }
  67     }
  68     else
  69     {
  70         *class = p;
  71         p += strlen(p) + 1;
  72     }
  73     *text = p;
  74     p += strlen(p) + 2;
  75     return (DLGCONTROLHEADER *)p;
  76 }
  77
  78
  79 /***********************************************************************
  80  *           DIALOG_ParseTemplate
  81  *
  82  * Fill a DLGTEMPLATE structure from the dialog template.
  83  */
  84 static void DIALOG_ParseTemplate( LPCSTR template, DLGTEMPLATE * result )
  85 {
  86     int i;
  87     unsigned char * p = (unsigned char *)template;
  88
  89     result->header = (DLGTEMPLATEHEADER *)p;
  90     p += 13;
  91     result->menuName = p;
  92     if (*p == 0xff) p += 3;
  93     else p += strlen(p) + 1;
  94
  95     if (*p) result->className = p;
  96     else result->className = DIALOG_CLASS_NAME;
  97     p += strlen(p) + 1;
  98
  99     result->caption = p;
 100     p += strlen(p) + 1;
 101
 102     if (result->header->style & DS_SETFONT)
 103     {
 104         result->pointSize = *(WORD *)p; p += sizeof(WORD);
 105         result->faceName = p;           p += strlen(p) + 1;
 106     }
 107     result->controls = NULL;
 108     if (!result->header->nbItems) return;
 109     result->controls = (DLGCONTROL *) malloc( result->header->nbItems * sizeof(DLGCONTROL) );
 110     if (!result->controls) return;
 111
 112     for (i = 0; i < result->header->nbItems; i++)
 113     {
 114         result->controls[i].header = (DLGCONTROLHEADER *)p;
 115         p = (char *)DIALOG_GetControl( result->controls[i].header,
 116                                       &result->controls[i].class,
 117                                       &result->controls[i].text );
 118     }
 119 }
 120
 121
 122 /***********************************************************************
 123  *           DIALOG_DisplayTemplate
 124  */
 125 #ifdef DEBUG_DIALOG
 126 static void DIALOG_DisplayTemplate( DLGTEMPLATE * result )
 127 {
 128     int i;
 129     DLGCONTROL * ctrl = result->controls;
 130
 131     printf( "DIALOG %d, %d, %d, %d\n", result->header->x, result->header->y,
 132             result->header->cx, result->header->cy );
 133     printf( " STYLE %08x\n", result->header->style );
 134     printf( " CAPTION '%s'\n", result->caption );
 135     printf( " CLASS '%s'\n", result->className );
 136     if (result->menuName[0] == 0xff)
 137         printf( " MENU %d\n", result->menuName[1] + 256*result->menuName[2] );
 138     else printf( " MENU '%s'\n", result->menuName );
 139     if (result->header->style & DS_SETFONT)
 140         printf( " FONT %d,'%s'\n", result->pointSize, result->faceName );
 141
 142     printf( " BEGIN\n" );
 143
 144     for (i = 0; i < result->header->nbItems; i++, ctrl++)
 145     {
 146         printf( "   %s '%s' %d, %d, %d, %d, %d, %08x\n",
 147                 ctrl->class, ctrl->text, ctrl->header->id,
 148                 ctrl->header->x, ctrl->header->y, ctrl->header->cx,
 149                 ctrl->header->cy, ctrl->header->style );
 150     }
 151
 152     printf( " END\n" );
 153 }
 154 #endif  /* DEBUG_DIALOG */
 155
 156
 157 /***********************************************************************
 158  *           CreateDialog   (USER.89)
 159  */
 160 HWND CreateDialog( HINSTANCE hInst, LPCSTR dlgTemplate,
 161                    HWND owner, FARPROC dlgProc )
 162 {
 163     return CreateDialogParam( hInst, dlgTemplate, owner, dlgProc, 0 );
 164 }
 165
 166
 167 /***********************************************************************
 168  *           CreateDialogParam   (USER.241)
 169  */
 170 HWND CreateDialogParam( HINSTANCE hInst, LPCSTR dlgTemplate,
 171                         HWND owner, FARPROC dlgProc, LPARAM param )
 172 {
 173     HWND hwnd = 0;
 174     HANDLE hres, hmem;
 175     LPCSTR data;
 176     int size;
 177
 178 #ifdef DEBUG_DIALOG
 179     printf( "CreateDialogParam: %d,'%s',%d,%p,%d\n",
 180             hInst, dlgTemplate, owner, dlgProc, param );
 181 #endif
 182
 183 #if 0
 184     if (!(hres = FindResource( hInst, dlgTemplate, RT_DIALOG ))) return 0;
 185     if (!(hmem = LoadResource( hInst, hres ))) return 0;
 186     if (!(data = LockResource( hmem ))) hwnd = 0;
 187     else hwnd = CreateDialogIndirectParam(hInst, data, owner, dlgProc, param);
 188     FreeResource( hmem );
 189 #else
 190     hmem = RSC_LoadResource( hInst, dlgTemplate, 0x8005, &size );
 191     data = (LPCSTR) GlobalLock( hmem );
 192     hwnd = CreateDialogIndirectParam( hInst, data, owner, dlgProc, param );
 193     GlobalFree( hmem );
 194 #endif
 195     return hwnd;
 196 }
 197
 198
 199 /***********************************************************************
 200  *           CreateDialogIndirect   (USER.219)
 201  */
 202 HWND CreateDialogIndirect( HINSTANCE hInst, LPCSTR dlgTemplate,
 203                            HWND owner, FARPROC dlgProc )
 204 {
 205     return CreateDialogIndirectParam( hInst, dlgTemplate, owner, dlgProc, 0 );
 206 }
 207
 208
 209 /***********************************************************************
 210  *           CreateDialogIndirectParam   (USER.242)
 211  */
 212 HWND CreateDialogIndirectParam( HINSTANCE hInst, LPCSTR dlgTemplate,
 213                                 HWND owner, FARPROC dlgProc, LPARAM param )
 214 {
 215     HMENU hMenu = 0;
 216     HFONT hFont = 0;
 217     HWND hwnd;
 218     WND * wndPtr;
 219     DLGTEMPLATE template;
 220     DIALOGINFO * dlgInfo;
 221     WORD xUnit = xBaseUnit;
 222     WORD yUnit = yBaseUnit;
 223
 224     if (!dlgTemplate) return 0;
 225     DIALOG_ParseTemplate( dlgTemplate, &template );
 226
 227 #ifdef DEBUG_DIALOG
 228     DIALOG_DisplayTemplate( &template );
 229 #endif
 230
 231       /* Load menu */
 232
 233     if (template.menuName[0])
 234     {
 235         if (template.menuName[0] != 0xff)
 236             hMenu = LoadMenu( hInst, template.menuName );
 237         else
 238             hMenu = LoadMenu( hInst, MAKEINTRESOURCE( template.menuName[1] +
 239                                                    256*template.menuName[2] ));
 240     }
 241
 242       /* Create custom font if needed */
 243
 244     if (template.header->style & DS_SETFONT)
 245     {
 246         hFont = CreateFont( template.pointSize, 0, 0, 0, FW_DONTCARE,
 247                             FALSE, FALSE, FALSE, DEFAULT_CHARSET, 0, 0,
 248                             DEFAULT_QUALITY, FF_DONTCARE, template.faceName );
 249         if (hFont)
 250         {
 251             TEXTMETRIC tm;
 252             HFONT oldFont;
 253             HDC hdc;
 254
 255             hdc = GetDC( 0 );
 256             oldFont = SelectObject( hdc, hFont );
 257             GetTextMetrics( hdc, &tm );
 258             SelectObject( hdc, oldFont );
 259             ReleaseDC( 0, hdc );
 260             xUnit = tm.tmAveCharWidth;
 261             yUnit = tm.tmHeight;
 262         }
 263     }
 264
 265       /* Create dialog main window */
 266
 267     hwnd = CreateWindow( template.className, template.caption,
 268                          template.header->style & ~WS_VISIBLE,
 269                          template.header->x * xUnit / 4,
 270                          template.header->y * yUnit / 8,
 271                          template.header->cx * xUnit / 4,
 272                          template.header->cy * yUnit / 8,
 273                          owner, hMenu, hInst,
 274                          NULL );
 275     if (!hwnd)
 276     {
 277         if (hFont) DeleteObject( hFont );
 278         if (hMenu) DestroyMenu( hMenu );
 279         if (template.controls) free( template.controls );
 280         return 0;
 281     }
 282
 283       /* Create control windows */
 284
 285     if (hwnd && template.header->nbItems)
 286     {
 287         int i;
 288         DLGCONTROL * ctrl = template.controls;
 289         for (i = 0; i < template.header->nbItems; i++, ctrl++)
 290         {
 291             CreateWindowEx( WS_EX_NOPARENTNOTIFY,
 292                             ctrl->class, ctrl->text, ctrl->header->style,
 293                             ctrl->header->x * xUnit / 4,
 294                             ctrl->header->y * yUnit / 8,
 295                             ctrl->header->cx * xUnit / 4,
 296                             ctrl->header->cy * yUnit / 8,
 297                             hwnd, ctrl->header->id, hInst, NULL );
 298         }
 299     }
 300
 301       /* Initialise dialog extra data */
 302
 303     wndPtr = WIN_FindWndPtr( hwnd );
 304     dlgInfo = (DIALOGINFO *)wndPtr->wExtra;
 305     dlgInfo->dlgProc   = dlgProc;
 306     dlgInfo->hUserFont = hFont;
 307     dlgInfo->hMenu     = hMenu;
 308     dlgInfo->xBaseUnit = xUnit;
 309     dlgInfo->yBaseUnit = yUnit;
 310     dlgInfo->hwndFocus = GetNextDlgTabItem( hwnd,
 311                             GetWindow(wndPtr->hwndChild, GW_HWNDLAST), FALSE );
 312
 313       /* Send initialisation messages and set focus */
 314
 315     if (dlgInfo->hUserFont)
 316         SendMessage( hwnd, WM_SETFONT, dlgInfo->hUserFont, 0);
 317     SendMessage( hwnd, WM_INITDIALOG, dlgInfo->hwndFocus, param );
 318     if (SendMessage( hwnd, WM_INITDIALOG, dlgInfo->hwndFocus, param ))
 319         SetFocus( dlgInfo->hwndFocus );
 320
 321       /* Display dialog */
 322
 323     if (template.header->style & WS_VISIBLE) ShowWindow( hwnd, SW_SHOW );
 324
 325     if (template.controls) free( template.controls );
 326     return hwnd;
 327 }
 328
 329
 330 /***********************************************************************
 331  *           DialogBox   (USER.87)
 332  */
 333 int DialogBox( HINSTANCE hInst, LPCSTR dlgTemplate,
 334                HWND owner, FARPROC dlgProc )
 335 {
 336     HWND hwnd;
 337     WND * wndPtr;
 338     DIALOGINFO * dlgInfo;
 339     MSG msg;
 340     int retval;
 341
 342 #ifdef DEBUG_DIALOG
 343     printf( "DialogBox: %d,'%s',%d,%p\n", hInst, dlgTemplate, owner, dlgProc );
 344 #endif
 345
 346     hwnd = CreateDialog( hInst, dlgTemplate, owner, dlgProc );
 347     if (!hwnd) return -1;
 348     wndPtr = WIN_FindWndPtr( hwnd );
 349     dlgInfo = (DIALOGINFO *)wndPtr->wExtra;
 350     while (GetMessage (&msg, 0, 0, 0))
 351     {
 352         if (!IsDialogMessage( hwnd, &msg))
 353         {
 354             TranslateMessage(&msg);
 355             DispatchMessage(&msg);
 356         }
 357         if (dlgInfo->fEnd) break;
 358     }
 359     retval = dlgInfo->msgResult;
 360     DestroyWindow( hwnd );
 361     return retval;
 362 }
 363
 364
 365 /***********************************************************************
 366  *           EndDialog   (USER.88)
 367  */
 368 void EndDialog( HWND hwnd, short retval )
 369 {
 370     WND * wndPtr = WIN_FindWndPtr( hwnd );
 371     DIALOGINFO * dlgInfo = (DIALOGINFO *)wndPtr->wExtra;
 372     dlgInfo->msgResult = retval;
 373     dlgInfo->fEnd = TRUE;
 374 #ifdef DEBUG_DIALOG
 375     printf( "EndDialog: %d %d\n", hwnd, retval );
 376 #endif
 377 }
 378
 379
 380 /***********************************************************************
 381  *           IsDialogMessage   (USER.90)
 382  */
 383 BOOL IsDialogMessage( HWND hwndDlg, LPMSG msg )
 384 {
 385     WND * wndPtr;
 386
 387     if (!(wndPtr = WIN_FindWndPtr( hwndDlg ))) return FALSE;
 388     if ((hwndDlg != msg->hwnd) && !IsChild( hwndDlg, msg->hwnd )) return FALSE;
 389
 390     if (msg->message != WM_KEYDOWN)
 391     {
 392         SendMessage( msg->hwnd, msg->message, msg->wParam, msg->lParam );
 393     }
 394     else
 395     {
 396         int dlgCode = SendMessage( msg->hwnd, WM_GETDLGCODE, 0, 0 );
 397         /* Process key message */
 398         /* .... */
 399     }
 400     return TRUE;
 401 }
 402
 403
 404 /****************************************************************
 405  *         GetDlgCtrlID           (USER.277)
 406  */
 407 int GetDlgCtrlID( HWND hwnd )
 408 {
 409     WND *wndPtr = WIN_FindWndPtr(hwnd);
 410     if (wndPtr) return wndPtr->wIDmenu;
 411     else return 0;
 412 }
 413
 414
 415 /***********************************************************************
 416  *           GetDlgItem   (USER.91)
 417  */
 418 HWND GetDlgItem( HWND hwndDlg, WORD id )
 419 {
 420     HWND curChild;
 421     WND * childPtr;
 422     WND * wndPtr;
 423
 424     if (!(wndPtr = WIN_FindWndPtr( hwndDlg ))) return 0;
 425     curChild = wndPtr->hwndChild;
 426     while(curChild)
 427     {
 428         childPtr = WIN_FindWndPtr( curChild );
 429         if (childPtr->wIDmenu == id) return curChild;
 430         curChild = childPtr->hwndNext;
 431     }
 432     return 0;
 433 }
 434
 435
 436 /*******************************************************************
 437  *           SendDlgItemMessage   (USER.101)
 438  */
 439 LONG SendDlgItemMessage(HWND hwnd, WORD id, UINT msg, WORD wParam, LONG lParam)
 440 {
 441     HWND hwndCtrl = GetDlgItem( hwnd, id );
 442     if (hwndCtrl) return SendMessage( hwndCtrl, msg, wParam, lParam );
 443     else return 0;
 444 }
 445
 446
 447 /*******************************************************************
 448  *           SetDlgItemText   (USER.92)
 449  */
 450 void SetDlgItemText( HWND hwnd, WORD id, LPSTR lpString )
 451 {
 452     SendDlgItemMessage( hwnd, id, WM_SETTEXT, 0, (DWORD)lpString );
 453 }
 454
 455
 456 /***********************************************************************
 457  *           GetDlgItemText   (USER.93)
 458  */
 459 int GetDlgItemText( HWND hwnd, WORD id, LPSTR str, WORD max )
 460 {
 461     return (int)SendDlgItemMessage( hwnd, id, WM_GETTEXT, max, (DWORD)str );
 462 }
 463
 464
 465 /*******************************************************************
 466  *           SetDlgItemInt   (USER.94)
 467  */
 468 void SetDlgItemInt( HWND hwnd, WORD id, WORD value, BOOL fSigned )
 469 {
 470     HANDLE hText = LocalAlloc( LMEM_MOVEABLE, 10 );
 471     char * str = (char *) LocalLock( hText );
 472
 473     if (fSigned) sprintf( str, "%d", value );
 474     else sprintf( str, "%u", value );
 475     SendDlgItemMessage( hwnd, id, WM_SETTEXT, 0, (DWORD)str );
 476     LocalUnlock( hText );
 477     LocalFree( hText );
 478 }
 479
 480
 481 /***********************************************************************
 482  *           GetDlgItemInt   (USER.95)
 483  */
 484 WORD GetDlgItemInt( HWND hwnd, WORD id, BOOL * translated, BOOL fSigned )
 485 {
 486     int len;
 487     HANDLE hText;
 488     long result;
 489     char * str;
 490
 491     if (translated) *translated = FALSE;
 492     if (!(len = SendDlgItemMessage( hwnd, id, WM_GETTEXTLENGTH, 0, 0 )))
 493         return 0;
 494     if (!(hText = LocalAlloc(LMEM_MOVEABLE, len+1 )))
 495         return 0;
 496     str = (char *) LocalLock( hText );
 497     if (SendDlgItemMessage( hwnd, id, WM_GETTEXT, len+1, (DWORD)str ))
 498     {
 499         char * endptr;
 500         result = strtol( str, &endptr, 10 );
 501         if (endptr && (endptr != str))  /* Conversion was successful */
 502         {
 503             if (fSigned)
 504             {
 505                 if ((result < -32767) || (result > 32767)) result = 0;
 506                 else if (translated) *translated = TRUE;
 507             }
 508             else
 509             {
 510                 if ((result < 0) || (result > 65535)) result = 0;
 511                 else if (translated) *translated = TRUE;
 512             }
 513         }
 514     }
 515     LocalUnlock( hText );
 516     LocalFree( hText );
 517     return (WORD)result;
 518 }
 519
 520
 521 /***********************************************************************
 522  *           CheckDlgButton   (USER.97)
 523  */
 524 void CheckDlgButton( HWND hwnd, WORD id, WORD check )
 525 {
 526     SendDlgItemMessage( hwnd, id, BM_SETCHECK, check, 0 );
 527 }
 528
 529
 530 /***********************************************************************
 531  *           IsDlgButtonChecked   (USER.98)
 532  */
 533 WORD IsDlgButtonChecked( HWND hwnd, WORD id )
 534 {
 535     return (WORD)SendDlgItemMessage( hwnd, id, BM_GETCHECK, 0, 0 );
 536 }
 537
 538
 539 /***********************************************************************
 540  *           CheckRadioButton   (USER.96)
 541  */
 542 void CheckRadioButton( HWND hwndDlg, WORD firstID, WORD lastID, WORD checkID )
 543 {
 544     HWND button = GetDlgItem( hwndDlg, firstID );
 545     while (button != 0)
 546     {
 547         WND * wndPtr = WIN_FindWndPtr( button );
 548         if (!wndPtr) break;
 549         SendMessage( button, BM_SETCHECK, (wndPtr->wIDmenu == checkID), 0 );
 550         if (wndPtr->wIDmenu == lastID) break;
 551         button = wndPtr->hwndNext;
 552     }
 553 }
 554
 555
 556 /***********************************************************************
 557  *           GetDialogBaseUnits   (USER.243)
 558  */
 559 DWORD GetDialogBaseUnits()
 560 {
 561     return MAKELONG( xBaseUnit, yBaseUnit );
 562 }
 563
 564
 565 /***********************************************************************
 566  *           MapDialogRect   (USER.103)
 567  */
 568 void MapDialogRect( HWND hwnd, LPRECT rect )
 569 {
 570     DIALOGINFO * dlgInfo;
 571     WND * wndPtr = WIN_FindWndPtr( hwnd );
 572     if (!wndPtr) return;
 573     dlgInfo = (DIALOGINFO *)wndPtr->wExtra;
 574     rect->left   = (rect->left * dlgInfo->xBaseUnit) / 4;
 575     rect->right  = (rect->right * dlgInfo->xBaseUnit) / 4;
 576     rect->top    = (rect->top * dlgInfo->yBaseUnit) / 8;
 577     rect->bottom = (rect->bottom * dlgInfo->yBaseUnit) / 8;
 578 }
 579
 580
 581 /***********************************************************************
 582  *           GetNextDlgGroupItem   (USER.227)
 583  */
 584 HWND GetNextDlgGroupItem( HWND hwndDlg, HWND hwndCtrl, BOOL fPrevious )
 585 {
 586     HWND hwnd, hwndLast;
 587     WND * dlgPtr, * ctrlPtr, * wndPtr;
 588
 589     if (!(dlgPtr = WIN_FindWndPtr( hwndDlg ))) return 0;
 590     if (!(ctrlPtr = WIN_FindWndPtr( hwndCtrl ))) return 0;
 591     if (ctrlPtr->hwndParent != hwndDlg) return 0;
 592
 593     hwndLast = hwndCtrl;
 594     hwnd = ctrlPtr->hwndNext;
 595     while (1)
 596     {
 597         if (!hwnd) hwnd = dlgPtr->hwndChild;
 598         if (hwnd == hwndCtrl) break;
 599         wndPtr = WIN_FindWndPtr( hwnd );
 600         if (wndPtr->dwStyle & WS_TABSTOP)
 601         {
 602             hwndLast = hwnd;
 603             if (!fPrevious) break;
 604         }
 605         hwnd = wndPtr->hwndNext;
 606     }
 607     return hwndLast;
 608     return 0;
 609 }
 610
 611
 612 /***********************************************************************
 613  *           GetNextDlgTabItem   (USER.228)
 614  */
 615 HWND GetNextDlgTabItem( HWND hwndDlg, HWND hwndCtrl, BOOL fPrevious )
 616 {
 617     HWND hwnd, hwndLast;
 618     WND * dlgPtr, * ctrlPtr, * wndPtr;
 619
 620     if (!(dlgPtr = WIN_FindWndPtr( hwndDlg ))) return 0;
 621     if (!(ctrlPtr = WIN_FindWndPtr( hwndCtrl ))) return 0;
 622     if (ctrlPtr->hwndParent != hwndDlg) return 0;
 623
 624     hwndLast = hwndCtrl;
 625     hwnd = ctrlPtr->hwndNext;
 626     while (1)
 627     {
 628         if (!hwnd) hwnd = dlgPtr->hwndChild;
 629         if (hwnd == hwndCtrl) break;
 630         wndPtr = WIN_FindWndPtr( hwnd );
 631         if (wndPtr->dwStyle & WS_TABSTOP)
 632         {
 633             hwndLast = hwnd;
 634             if (!fPrevious) break;
 635         }
 636         hwnd = wndPtr->hwndNext;
 637     }
 638     return hwndLast;
 639 }