src/msw/settings.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/msw/settings.cpp
   3 // Purpose:     wxSystemSettingsNative implementation for MSW
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     04/01/98
   7 // Copyright:   (c) Julian Smart
   8 // Licence:     wxWindows licence
   9 /////////////////////////////////////////////////////////////////////////////
  10
  11 // ============================================================================
  12 // declarations
  13 // ============================================================================
  14
  15 // ----------------------------------------------------------------------------
  16 // headers
  17 // ----------------------------------------------------------------------------
  18
  19 // For compilers that support precompilation, includes "wx.h".
  20 #include "wx/wxprec.h"
  21
  22 #ifdef __BORLANDC__
  23     #pragma hdrstop
  24 #endif
  25
  26 #include "wx/settings.h"
  27
  28 #ifndef WX_PRECOMP
  29     #include "wx/utils.h"
  30     #include "wx/gdicmn.h"
  31     #include "wx/module.h"
  32 #endif
  33
  34 #include "wx/msw/private.h"
  35 #include "wx/msw/missing.h" // for SM_CXCURSOR, SM_CYCURSOR, SM_TABLETPC
  36 #include "wx/msw/private/metrics.h"
  37
  38 #ifndef SPI_GETFLATMENU
  39 #define SPI_GETFLATMENU                     0x1022
  40 #endif
  41
  42 #include "wx/fontutil.h"
  43 #include "wx/fontenum.h"
  44
  45 // ----------------------------------------------------------------------------
  46 // private classes
  47 // ----------------------------------------------------------------------------
  48
  49 // the module which is used to clean up wxSystemSettingsNative data (this is a
  50 // singleton class so it can't be done in the dtor)
  51 class wxSystemSettingsModule : public wxModule
  52 {
  53 public:
  54     virtual bool OnInit();
  55     virtual void OnExit();
  56
  57 private:
  58     DECLARE_DYNAMIC_CLASS(wxSystemSettingsModule)
  59 };
  60
  61 // ----------------------------------------------------------------------------
  62 // global data
  63 // ----------------------------------------------------------------------------
  64
  65 // the font returned by GetFont(wxSYS_DEFAULT_GUI_FONT): it is created when
  66 // GetFont() is called for the first time and deleted by wxSystemSettingsModule
  67 static wxFont *gs_fontDefault = NULL;
  68
  69 // ============================================================================
  70 // implementation
  71 // ============================================================================
  72
  73 // TODO: see ::SystemParametersInfo for all sorts of Windows settings.
  74 // Different args are required depending on the id. How does this differ
  75 // from GetSystemMetric, and should it? Perhaps call it GetSystemParameter
  76 // and pass an optional void* arg to get further info.
  77 // Should also have SetSystemParameter.
  78 // Also implement WM_WININICHANGE (NT) / WM_SETTINGCHANGE (Win95)
  79
  80 // ----------------------------------------------------------------------------
  81 // wxSystemSettingsModule
  82 // ----------------------------------------------------------------------------
  83
  84 IMPLEMENT_DYNAMIC_CLASS(wxSystemSettingsModule, wxModule)
  85
  86 bool wxSystemSettingsModule::OnInit()
  87 {
  88     return true;
  89 }
  90
  91 void wxSystemSettingsModule::OnExit()
  92 {
  93     wxDELETE(gs_fontDefault);
  94 }
  95
  96 // ----------------------------------------------------------------------------
  97 // wxSystemSettingsNative
  98 // ----------------------------------------------------------------------------
  99
 100 // ----------------------------------------------------------------------------
 101 // colours
 102 // ----------------------------------------------------------------------------
 103
 104 wxColour wxSystemSettingsNative::GetColour(wxSystemColour index)
 105 {
 106     // we use 0 as the default value just to avoid compiler warnings, as there
 107     // is no invalid colour value we use hasCol as the real indicator of
 108     // whether colSys was initialized or not
 109     COLORREF colSys = 0;
 110     bool hasCol = false;
 111
 112     // the default colours for the entries after BTNHIGHLIGHT
 113     static const COLORREF s_defaultSysColors[] =
 114     {
 115         0x000000,   // 3DDKSHADOW
 116         0xdfdfdf,   // 3DLIGHT
 117         0x000000,   // INFOTEXT
 118         0xe1ffff,   // INFOBK
 119
 120         0,          // filler - no std colour with this index
 121
 122         // TODO: please fill in the standard values of those, I don't have them
 123         0,          // HOTLIGHT
 124         0,          // GRADIENTACTIVECAPTION
 125         0,          // GRADIENTINACTIVECAPTION
 126         0,          // MENU
 127         0,          // MENUBAR (unused)
 128     };
 129
 130     if ( index == wxSYS_COLOUR_LISTBOXTEXT)
 131     {
 132         // there is no standard colour with this index, map to another one
 133         index = wxSYS_COLOUR_WINDOWTEXT;
 134     }
 135     else if ( index == wxSYS_COLOUR_LISTBOXHIGHLIGHTTEXT)
 136     {
 137         // there is no standard colour with this index, map to another one
 138         index = wxSYS_COLOUR_HIGHLIGHTTEXT;
 139     }
 140     else if ( index == wxSYS_COLOUR_LISTBOX )
 141     {
 142         // there is no standard colour with this index, map to another one
 143         index = wxSYS_COLOUR_WINDOW;
 144     }
 145     else if ( index > wxSYS_COLOUR_BTNHIGHLIGHT )
 146     {
 147         // the indices before BTNHIGHLIGHT are understood by GetSysColor() in
 148         // all Windows version, for the other ones we have to check
 149         bool useDefault;
 150
 151         int verMaj, verMin;
 152         wxGetOsVersion(&verMaj, &verMin);
 153         if ( verMaj < 4 )
 154         {
 155             // NT 3.5
 156             useDefault = true;
 157         }
 158         else if ( verMaj == 4 )
 159         {
 160             // Win95/NT 4.0
 161             useDefault = index > wxSYS_COLOUR_INFOBK;
 162         }
 163         else if ( verMaj == 5 && verMin == 0 )
 164         {
 165             // Win98/Win2K
 166             useDefault = index > wxSYS_COLOUR_GRADIENTINACTIVECAPTION;
 167         }
 168         else // >= 5.1
 169         {
 170             // 5.1 is Windows XP
 171             useDefault = false;
 172             // Determine if we are using flat menus, only then allow wxSYS_COLOUR_MENUBAR
 173             if ( index == wxSYS_COLOUR_MENUBAR )
 174             {
 175                 BOOL isFlat ;
 176                 if ( SystemParametersInfo( SPI_GETFLATMENU , 0 ,&isFlat, 0 ) )
 177                 {
 178                     if ( !isFlat )
 179                         index = wxSYS_COLOUR_MENU ;
 180                 }
 181             }
 182         }
 183
 184         if ( useDefault )
 185         {
 186             // special handling for MENUBAR colour: we use this in wxToolBar
 187             // and wxStatusBar to have correct bg colour under Windows XP
 188             // (which uses COLOR_MENUBAR for them) but they should still look
 189             // correctly under previous Windows versions as well
 190             if ( index == wxSYS_COLOUR_MENUBAR )
 191             {
 192                 index = wxSYS_COLOUR_3DFACE;
 193             }
 194             else // replace with default colour
 195             {
 196                 unsigned int n = index - wxSYS_COLOUR_BTNHIGHLIGHT;
 197
 198                 wxASSERT_MSG( n < WXSIZEOF(s_defaultSysColors),
 199                               wxT("forgot tp update the default colours array") );
 200
 201                 colSys = s_defaultSysColors[n];
 202                 hasCol = true;
 203             }
 204         }
 205     }
 206
 207     if ( !hasCol )
 208     {
 209 #ifdef __WXWINCE__
 210         colSys = ::GetSysColor(index|SYS_COLOR_INDEX_FLAG);
 211 #else
 212         colSys = ::GetSysColor(index);
 213 #endif
 214     }
 215
 216     wxColour ret = wxRGBToColour(colSys);
 217     wxASSERT(ret.IsOk());
 218     return ret;
 219 }
 220
 221 // ----------------------------------------------------------------------------
 222 // fonts
 223 // ----------------------------------------------------------------------------
 224
 225 wxFont wxCreateFontFromStockObject(int index)
 226 {
 227     wxFont font;
 228
 229     HFONT hFont = (HFONT) ::GetStockObject(index);
 230     if ( hFont )
 231     {
 232         LOGFONT lf;
 233         if ( ::GetObject(hFont, sizeof(LOGFONT), &lf) != 0 )
 234         {
 235             wxNativeFontInfo info;
 236             info.lf = lf;
 237             // Under MicroWindows we pass the HFONT as well
 238             // because it's hard to convert HFONT -> LOGFONT -> HFONT
 239             // It's OK to delete stock objects, the delete will be ignored.
 240 #ifdef __WXMICROWIN__
 241             font.Create(info, (WXHFONT) hFont);
 242 #else
 243             font.Create(info);
 244 #endif
 245         }
 246         else
 247         {
 248             wxFAIL_MSG( wxT("failed to get LOGFONT") );
 249         }
 250     }
 251     else // GetStockObject() failed
 252     {
 253         wxFAIL_MSG( wxT("stock font not found") );
 254     }
 255
 256     return font;
 257 }
 258
 259 wxFont wxSystemSettingsNative::GetFont(wxSystemFont index)
 260 {
 261 #ifdef __WXWINCE__
 262     // under CE only a single SYSTEM_FONT exists
 263     index;
 264
 265     if ( !gs_fontDefault )
 266     {
 267         gs_fontDefault = new wxFont(wxCreateFontFromStockObject(SYSTEM_FONT));
 268     }
 269
 270     wxASSERT(gs_fontDefault->IsOk() &&
 271              wxFontEnumerator::IsValidFacename(gs_fontDefault->GetFaceName()));
 272     return *gs_fontDefault;
 273 #else // !__WXWINCE__
 274     // wxWindow ctor calls GetFont(wxSYS_DEFAULT_GUI_FONT) so we're
 275     // called fairly often -- this is why we cache this particular font
 276     if ( index == wxSYS_DEFAULT_GUI_FONT )
 277     {
 278         if ( !gs_fontDefault )
 279         {
 280             // http://blogs.msdn.com/oldnewthing/archive/2005/07/07/436435.aspx
 281             // explains why neither SYSTEM_FONT nor DEFAULT_GUI_FONT should be
 282             // used here
 283             //
 284             // the message box font seems to be the one which should be used
 285             // for most (simple) controls, e.g. buttons and such but other
 286             // controls may prefer to use lfStatusFont or lfCaptionFont if it
 287             // is more appropriate for them
 288             wxNativeFontInfo info;
 289             info.lf = wxMSWImpl::GetNonClientMetrics().lfMessageFont;
 290             gs_fontDefault = new wxFont(info);
 291         }
 292
 293         return *gs_fontDefault;
 294     }
 295
 296     wxFont font = wxCreateFontFromStockObject(index);
 297
 298     wxASSERT(font.IsOk());
 299
 300 #if wxUSE_FONTENUM
 301     wxASSERT(wxFontEnumerator::IsValidFacename(font.GetFaceName()));
 302 #endif // wxUSE_FONTENUM
 303
 304     return font;
 305 #endif // __WXWINCE__/!__WXWINCE__
 306 }
 307
 308 // ----------------------------------------------------------------------------
 309 // system metrics/features
 310 // ----------------------------------------------------------------------------
 311
 312 // TODO: some of the "metrics" clearly should be features now that we have
 313 //       HasFeature()!
 314
 315 // the conversion table from wxSystemMetric enum to GetSystemMetrics() param
 316 //
 317 // if the constant is not defined, put -1 in the table to indicate that it is
 318 // unknown
 319 static const int gs_metricsMap[] =
 320 {
 321     -1,  // wxSystemMetric enums start at 1, so give a dummy value for pos 0.
 322 #if defined(__WIN32__) && !defined(__WXWINCE__)
 323     SM_CMOUSEBUTTONS,
 324 #else
 325     -1,
 326 #endif
 327
 328     SM_CXBORDER,
 329     SM_CYBORDER,
 330 #ifdef SM_CXCURSOR
 331     SM_CXCURSOR,
 332     SM_CYCURSOR,
 333 #else
 334     -1, -1,
 335 #endif
 336     SM_CXDOUBLECLK,
 337     SM_CYDOUBLECLK,
 338 #if defined(__WIN32__) && defined(SM_CXDRAG)
 339     SM_CXDRAG,
 340     SM_CYDRAG,
 341     SM_CXEDGE,
 342     SM_CYEDGE,
 343 #else
 344     -1, -1, -1, -1,
 345 #endif
 346     SM_CXHSCROLL,
 347     SM_CYHSCROLL,
 348 #ifdef SM_CXHTHUMB
 349     SM_CXHTHUMB,
 350 #else
 351     -1,
 352 #endif
 353     SM_CXICON,
 354     SM_CYICON,
 355     SM_CXICONSPACING,
 356     SM_CYICONSPACING,
 357 #ifdef SM_CXHTHUMB
 358     SM_CXMIN,
 359     SM_CYMIN,
 360 #else
 361     -1, -1,
 362 #endif
 363     SM_CXSCREEN,
 364     SM_CYSCREEN,
 365
 366 #if defined(__WIN32__) && defined(SM_CXSIZEFRAME)
 367     SM_CXSIZEFRAME,
 368     SM_CYSIZEFRAME,
 369     SM_CXSMICON,
 370     SM_CYSMICON,
 371 #else
 372     -1, -1, -1, -1,
 373 #endif
 374     SM_CYHSCROLL,
 375     SM_CXHSCROLL,
 376     SM_CXVSCROLL,
 377     SM_CYVSCROLL,
 378 #ifdef SM_CYVTHUMB
 379     SM_CYVTHUMB,
 380 #else
 381     -1,
 382 #endif
 383     SM_CYCAPTION,
 384     SM_CYMENU,
 385 #if defined(__WIN32__) && defined(SM_NETWORK)
 386     SM_NETWORK,
 387 #else
 388     -1,
 389 #endif
 390 #ifdef SM_PENWINDOWS
 391     SM_PENWINDOWS,
 392 #else
 393     -1,
 394 #endif
 395 #if defined(__WIN32__) && defined(SM_SHOWSOUNDS)
 396     SM_SHOWSOUNDS,
 397 #else
 398     -1,
 399 #endif
 400     // SM_SWAPBUTTON is not available under CE and it doesn't make sense to ask
 401     // for it there
 402 #ifdef SM_SWAPBUTTON
 403     SM_SWAPBUTTON,
 404 #else
 405     -1,
 406 #endif
 407     -1   // wxSYS_DCLICK_MSEC - not available as system metric
 408 };
 409
 410 // Get a system metric, e.g. scrollbar size
 411 int wxSystemSettingsNative::GetMetric(wxSystemMetric index, wxWindow* WXUNUSED(win))
 412 {
 413 #ifdef __WXMICROWIN__
 414     // TODO: probably use wxUniv themes functionality
 415     return 0;
 416 #else // !__WXMICROWIN__
 417     wxCHECK_MSG( index > 0 && (size_t)index < WXSIZEOF(gs_metricsMap), 0,
 418                  wxT("invalid metric") );
 419
 420     if ( index == wxSYS_DCLICK_MSEC )
 421     {
 422         // This one is not a Win32 system metric
 423         return ::GetDoubleClickTime();
 424     }
 425
 426     int indexMSW = gs_metricsMap[index];
 427     if ( indexMSW == -1 )
 428     {
 429         // not supported under current system
 430         return -1;
 431     }
 432
 433     int rc = ::GetSystemMetrics(indexMSW);
 434     if ( index == wxSYS_NETWORK_PRESENT )
 435     {
 436         // only the last bit is significant according to the MSDN
 437         rc &= 1;
 438     }
 439
 440     return rc;
 441 #endif // __WXMICROWIN__/!__WXMICROWIN__
 442 }
 443
 444 bool wxSystemSettingsNative::HasFeature(wxSystemFeature index)
 445 {
 446     switch ( index )
 447     {
 448         case wxSYS_CAN_ICONIZE_FRAME:
 449         case wxSYS_CAN_DRAW_FRAME_DECORATIONS:
 450             return true;
 451
 452         case wxSYS_TABLET_PRESENT:
 453             return ::GetSystemMetrics(SM_TABLETPC) != 0;
 454
 455         default:
 456             wxFAIL_MSG( wxT("unknown system feature") );
 457
 458             return false;
 459     }
 460 }
 461
 462 // ----------------------------------------------------------------------------
 463 // function from wx/msw/wrapcctl.h: there is really no other place for it...
 464 // ----------------------------------------------------------------------------
 465
 466 #if wxUSE_LISTCTRL || wxUSE_TREECTRL
 467
 468 extern wxFont wxGetCCDefaultFont()
 469 {
 470 #ifndef __WXWINCE__
 471     // under the systems enumerated below (anything released after Win98), the
 472     // default font used for the common controls seems to be the desktop font
 473     // which is also used for the icon titles and not the stock default GUI
 474     // font
 475     bool useIconFont;
 476     int verMaj, verMin;
 477     switch ( wxGetOsVersion(&verMaj, &verMin) )
 478     {
 479         case wxOS_WINDOWS_9X:
 480             // 4.10 is Win98
 481             useIconFont = verMaj == 4 && verMin >= 10;
 482             break;
 483
 484         case wxOS_WINDOWS_NT:
 485             // 5.0 is Win2k
 486             useIconFont = verMaj >= 5;
 487             break;
 488
 489         default:
 490             useIconFont = false;
 491     }
 492
 493     if ( useIconFont )
 494     {
 495         LOGFONT lf;
 496         if ( ::SystemParametersInfo
 497                (
 498                     SPI_GETICONTITLELOGFONT,
 499                     sizeof(lf),
 500                     &lf,
 501                     0
 502                ) )
 503         {
 504             return wxFont(wxCreateFontFromLogFont(&lf));
 505         }
 506         else
 507         {
 508             wxLogLastError(wxT("SystemParametersInfo(SPI_GETICONTITLELOGFONT"));
 509         }
 510     }
 511 #endif // __WXWINCE__
 512
 513     // fall back to the default font for the normal controls
 514     return wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
 515 }
 516
 517 #endif // wxUSE_LISTCTRL || wxUSE_TREECTRL