vcl/source/window/tabpage.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include <vcl/event.hxx>
  21 #include <vcl/layout.hxx>
  22 #include <vcl/tabpage.hxx>
  23 #include <vcl/bitmapex.hxx>
  24 #include <vcl/settings.hxx>
  25 #include <vcl/toolkit/scrbar.hxx>
  26 #include <svdata.hxx>
  27
  28 void TabPage::ImplInit( vcl::Window* pParent, WinBits nStyle )
  29 {
  30     if ( !(nStyle & WB_NODIALOGCONTROL) )
  31         nStyle |= WB_DIALOGCONTROL;
  32
  33     Window::ImplInit( pParent, nStyle, nullptr );
  34
  35     mbHasHoriBar = false;
  36     mbHasVertBar = false;
  37
  38     Link<ScrollBar*,void> aLink( LINK( this, TabPage, ScrollBarHdl ) );
  39
  40     if ( nStyle & ( WB_AUTOHSCROLL | WB_AUTOVSCROLL ) )
  41     {
  42         if ( nStyle & WB_AUTOHSCROLL )
  43         {
  44             mbHasHoriBar = true;
  45             m_pHScroll.set(VclPtr<ScrollBar>::Create(this, (WB_HSCROLL | WB_DRAG)));
  46             m_pHScroll->Show();
  47             m_pHScroll->SetScrollHdl(aLink);
  48         }
  49         if ( nStyle &  WB_AUTOVSCROLL )
  50         {
  51             mbHasVertBar = true;
  52             m_pVScroll.set(VclPtr<ScrollBar>::Create(this, (WB_VSCROLL | WB_DRAG)));
  53             m_pVScroll->Show();
  54             m_pVScroll->SetScrollHdl(aLink);
  55         }
  56     }
  57
  58     if ( mbHasHoriBar || mbHasVertBar )
  59     {
  60         SetStyle( GetStyle() | WB_CLIPCHILDREN );
  61     }
  62
  63     mnScrWidth = Application::GetSettings().GetStyleSettings().GetScrollBarSize();
  64
  65     ImplInitSettings();
  66
  67     // if the tabpage is drawn (ie filled) by a native widget, make sure all controls will have transparent background
  68     // otherwise they will paint with a wrong background
  69     if( IsNativeControlSupported(ControlType::TabBody, ControlPart::Entire) && GetParent() && (GetParent()->GetType() == WindowType::TABCONTROL) )
  70         EnableChildTransparentMode();
  71 }
  72
  73 void TabPage::ImplInitSettings()
  74 {
  75     vcl::Window* pParent = GetParent();
  76     if (pParent && pParent->IsChildTransparentModeEnabled() && !IsControlBackground())
  77     {
  78         EnableChildTransparentMode();
  79         SetParentClipMode( ParentClipMode::NoClip );
  80         SetPaintTransparent( true );
  81         SetBackground();
  82     }
  83     else
  84     {
  85         EnableChildTransparentMode( false );
  86         SetParentClipMode();
  87         SetPaintTransparent( false );
  88
  89         if (IsControlBackground() || !pParent)
  90             SetBackground( GetControlBackground() );
  91         else
  92             SetBackground( pParent->GetBackground() );
  93     }
  94 }
  95
  96 TabPage::TabPage( vcl::Window* pParent, WinBits nStyle ) :
  97     Window( WindowType::TABPAGE )
  98 {
  99     ImplInit( pParent, nStyle );
 100 }
 101
 102 TabPage::~TabPage()
 103 {
 104     disposeOnce();
 105 }
 106
 107 void TabPage::dispose()
 108 {
 109     m_pVScroll.disposeAndClear();
 110     m_pHScroll.disposeAndClear();
 111     vcl::Window::dispose();
 112 }
 113
 114 void TabPage::StateChanged( StateChangedType nType )
 115 {
 116     Window::StateChanged( nType );
 117
 118     if ( nType == StateChangedType::InitShow )
 119     {
 120         if (GetSettings().GetStyleSettings().GetAutoMnemonic())
 121             GenerateAutoMnemonicsOnHierarchy(this);
 122         // FIXME: no layouting, workaround some clipping issues
 123         ImplAdjustNWFSizes();
 124     }
 125     else if ( nType == StateChangedType::ControlBackground )
 126     {
 127         ImplInitSettings();
 128         Invalidate();
 129     }
 130 }
 131
 132 void TabPage::DataChanged( const DataChangedEvent& rDCEvt )
 133 {
 134     Window::DataChanged( rDCEvt );
 135
 136     if ( (rDCEvt.GetType() == DataChangedEventType::SETTINGS) &&
 137          (rDCEvt.GetFlags() & AllSettingsFlags::STYLE) )
 138     {
 139         ImplInitSettings();
 140         Invalidate();
 141     }
 142 }
 143
 144 void TabPage::Paint( vcl::RenderContext& rRenderContext, const tools::Rectangle& )
 145 {
 146     // draw native tabpage only inside tabcontrols, standalone tabpages look ugly (due to bad dialog design)
 147     if( !(IsNativeControlSupported(ControlType::TabBody, ControlPart::Entire) && GetParent() && (GetParent()->GetType() == WindowType::TABCONTROL)) )
 148         return;
 149
 150     const ImplControlValue aControlValue;
 151
 152     ControlState nState = ControlState::ENABLED;
 153     if ( !IsEnabled() )
 154         nState &= ~ControlState::ENABLED;
 155     if ( HasFocus() )
 156         nState |= ControlState::FOCUSED;
 157     // pass the whole window region to NWF as the tab body might be a gradient or bitmap
 158     // that has to be scaled properly, clipping makes sure that we do not paint too much
 159     tools::Rectangle aCtrlRegion( Point(), GetOutputSizePixel() );
 160     rRenderContext.DrawNativeControl( ControlType::TabBody, ControlPart::Entire, aCtrlRegion, nState,
 161             aControlValue, OUString() );
 162 }
 163
 164 void TabPage::Draw( OutputDevice* pDev, const Point& rPos, SystemTextColorFlags )
 165 {
 166     Point aPos = pDev->LogicToPixel( rPos );
 167     Size aSize = GetSizePixel();
 168
 169     Wallpaper aWallpaper = GetBackground();
 170     if ( !aWallpaper.IsBitmap() )
 171         ImplInitSettings();
 172
 173     pDev->Push();
 174     pDev->SetMapMode();
 175     pDev->SetLineColor();
 176
 177     if ( aWallpaper.IsBitmap() )
 178         pDev->DrawBitmapEx( aPos, aSize, aWallpaper.GetBitmap() );
 179     else
 180     {
 181         if( aWallpaper.GetColor() == COL_AUTO )
 182             pDev->SetFillColor( GetSettings().GetStyleSettings().GetDialogColor() );
 183         else
 184             pDev->SetFillColor( aWallpaper.GetColor() );
 185         pDev->DrawRect( tools::Rectangle( aPos, aSize ) );
 186     }
 187
 188     pDev->Pop();
 189 }
 190
 191 Size TabPage::GetOptimalSize() const
 192 {
 193     if (isLayoutEnabled(this))
 194         return VclContainer::getLayoutRequisition(*GetWindow(GetWindowType::FirstChild));
 195     return getLegacyBestSizeForChildren(*this);
 196 }
 197
 198 void TabPage::SetPosSizePixel(const Point& rAllocPos, const Size& rAllocation)
 199 {
 200     Window::SetPosSizePixel(rAllocPos, rAllocation);
 201     if (isLayoutEnabled(this) && rAllocation.Width() && rAllocation.Height())
 202         VclContainer::setLayoutAllocation(*GetWindow(GetWindowType::FirstChild), Point(0, 0), rAllocation);
 203 }
 204
 205 void TabPage::SetSizePixel(const Size& rAllocation)
 206 {
 207     Window::SetSizePixel(rAllocation);
 208     if (isLayoutEnabled(this) && rAllocation.Width() && rAllocation.Height())
 209         VclContainer::setLayoutAllocation(*GetWindow(GetWindowType::FirstChild), Point(0, 0), rAllocation);
 210 }
 211
 212 void TabPage::SetPosPixel(const Point& rAllocPos)
 213 {
 214     Window::SetPosPixel(rAllocPos);
 215     Size aAllocation(GetOutputSizePixel());
 216     if (isLayoutEnabled(this) && aAllocation.Width() && aAllocation.Height())
 217     {
 218         VclContainer::setLayoutAllocation(*GetWindow(GetWindowType::FirstChild), Point(0, 0), aAllocation);
 219     }
 220 }
 221
 222 void TabPage::lcl_Scroll( tools::Long nX, tools::Long nY )
 223 {
 224     tools::Long nXScroll = mnScrollPos.X() - nX;
 225     tools::Long nYScroll = mnScrollPos.Y() - nY;
 226     mnScrollPos = Point( nX, nY );
 227
 228     tools::Rectangle aScrollableArea( 0, 0, maScrollArea.Width(), maScrollArea.Height() );
 229     Scroll(nXScroll, nYScroll, aScrollableArea );
 230     // Manually scroll all children ( except the scrollbars )
 231     for ( int index = 0; index < GetChildCount(); ++index )
 232     {
 233         vcl::Window* pChild = GetChild( index );
 234         if ( pChild && pChild != m_pVScroll.get() && pChild != m_pHScroll.get() )
 235         {
 236             Point aPos = pChild->GetPosPixel();
 237             aPos += Point( nXScroll, nYScroll );
 238             pChild->SetPosPixel( aPos );
 239         }
 240     }
 241 }
 242
 243 IMPL_LINK( TabPage, ScrollBarHdl, ScrollBar*, pSB, void )
 244 {
 245     sal_uInt16 nPos = static_cast<sal_uInt16>(pSB->GetThumbPos());
 246     if( pSB == m_pVScroll.get() )
 247         lcl_Scroll(mnScrollPos.X(), nPos );
 248     else if( pSB == m_pHScroll.get() )
 249         lcl_Scroll(nPos, mnScrollPos.Y() );
 250 }
 251
 252 void TabPage::SetScrollTop( tools::Long nTop )
 253 {
 254     Point aOld = mnScrollPos;
 255     lcl_Scroll( mnScrollPos.X() , mnScrollPos.Y() - nTop );
 256     if( m_pHScroll )
 257         m_pHScroll->SetThumbPos( 0 );
 258     // new pos is 0,0
 259     mnScrollPos = aOld;
 260 }
 261 void TabPage::SetScrollLeft( tools::Long nLeft )
 262 {
 263     Point aOld = mnScrollPos;
 264     lcl_Scroll( mnScrollPos.X() - nLeft , mnScrollPos.Y() );
 265     if( m_pVScroll )
 266         m_pVScroll->SetThumbPos( 0 );
 267     // new pos is 0,0
 268     mnScrollPos = aOld;
 269 }
 270
 271 void TabPage::SetScrollWidth( tools::Long nWidth )
 272 {
 273     maScrollArea.setWidth( nWidth );
 274     ResetScrollBars();
 275 }
 276
 277 void TabPage::SetScrollHeight( tools::Long nHeight )
 278 {
 279     maScrollArea.setHeight( nHeight );
 280     ResetScrollBars();
 281 }
 282
 283 void TabPage::Resize()
 284 {
 285     ResetScrollBars();
 286 }
 287
 288 void TabPage::ResetScrollBars()
 289 {
 290     Size aOutSz = GetOutputSizePixel();
 291
 292     Point aVPos( aOutSz.Width() - mnScrWidth, 0 );
 293     Point aHPos( 0, aOutSz.Height() - mnScrWidth );
 294
 295     if( m_pVScroll )
 296     {
 297         m_pVScroll->SetPosSizePixel( aVPos, Size( mnScrWidth,  GetSizePixel().Height() - mnScrWidth ) );
 298         m_pVScroll->SetRangeMax( maScrollArea.Height() + mnScrWidth );
 299         m_pVScroll->SetVisibleSize( GetSizePixel().Height() );
 300     }
 301
 302     if( m_pHScroll )
 303     {
 304         m_pHScroll->SetPosSizePixel( aHPos, Size(  GetSizePixel().Width() - mnScrWidth, mnScrWidth ) );
 305         m_pHScroll->SetRangeMax( maScrollArea.Width() + mnScrWidth  );
 306         m_pHScroll->SetVisibleSize( GetSizePixel().Width() );
 307     }
 308 }
 309
 310 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */