basctl/source/basicide/objdlg.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 "objdlg.hrc"
  21
  22 #include "objdlg.hxx"
  23 #include "helpid.hrc"
  24
  25 #include <svl/itemset.hxx>
  26 #include <vcl/taskpanelist.hxx>
  27
  28 namespace basctl
  29 {
  30
  31 ObjectCatalog::ObjectCatalog (vcl::Window* pParent) :
  32     DockingWindow(pParent),
  33     aTitle(VclPtr<FixedText>::Create(this)),
  34     aTree(VclPtr<TreeListBox>::Create(this, IDEResId(RID_TLB_MACROS)))
  35 {
  36     SetHelpId("basctl:FloatingWindow:RID_BASICIDE_OBJCAT");
  37     SetText(IDEResId(RID_BASICIDE_OBJCAT).toString());
  38
  39     // title
  40     aTitle->SetText(IDEResId(RID_BASICIDE_OBJCAT).toString());
  41     aTitle->SetStyle(WB_CENTER);
  42
  43     // tree list
  44     aTree->Hide();
  45     aTree->SetStyle(
  46         WB_BORDER | WB_TABSTOP | WB_HSCROLL |
  47         WB_HASLINES | WB_HASLINESATROOT |
  48         WB_HASBUTTONS | WB_HASBUTTONSATROOT
  49     );
  50     aTree->SetAccessibleName(IDEResId(RID_STR_TLB_MACROS).toString());
  51     aTree->SetHelpId(HID_BASICIDE_OBJECTCAT);
  52     aTree->ScanAllEntries();
  53     aTree->GrabFocus();
  54
  55     {
  56         // centered after AppWin:
  57         Window const& rParent = *GetParent();
  58         Point aPos = rParent.OutputToScreenPixel(Point(0, 0));
  59         Size const aParentSize = rParent.GetSizePixel();
  60         Size const aSize = GetSizePixel();
  61         aPos.X() += (aParentSize.Width() - aSize.Width()) / 2;
  62         aPos.Y() += (aParentSize.Height() - aSize.Height()) / 2;
  63         SetPosPixel(aPos);
  64     }
  65
  66     // make object catalog keyboard accessible
  67     GetParent()->GetSystemWindow()->GetTaskPaneList()->AddWindow(this);
  68 }
  69
  70 ObjectCatalog::~ObjectCatalog()
  71 {
  72     disposeOnce();
  73 }
  74
  75 void ObjectCatalog::dispose()
  76 {
  77     if (!IsDisposed())
  78         GetParent()->GetSystemWindow()->GetTaskPaneList()->RemoveWindow(this);
  79     aTitle.disposeAndClear();
  80     aTree.disposeAndClear();
  81     DockingWindow::dispose();
  82 }
  83
  84 // Resize() -- called by Window
  85 void ObjectCatalog::Resize ()
  86 {
  87     // arranging the controls
  88     ArrangeWindows();
  89 }
  90
  91 // ToggleFloatingMode() -- called by DockingWindow when IsFloatingMode() changes
  92 void ObjectCatalog::ToggleFloatingMode ()
  93 {
  94     // base class version
  95     DockingWindow::ToggleFloatingMode();
  96     // rearranging the controls (title)
  97     ArrangeWindows();
  98 }
  99
 100 // ArrangeWindows() -- arranges the controls to the size of the ObjectCatalog
 101 void ObjectCatalog::ArrangeWindows ()
 102 {
 103     Size const aSize = GetOutputSizePixel();
 104     bool const bFloating = IsFloatingMode();
 105
 106     // title
 107     // (showing only if no title bar)
 108     if (bFloating)
 109         aTitle->Hide();
 110     else
 111     {
 112         Size aTitleSize = LogicToPixel(Size(3, 10), MAP_APPFONT);
 113         aTitleSize.Width() = aSize.Width() - 2*aTitleSize.Width();
 114         aTitle->SetPosPixel(LogicToPixel(Point(3, 3), MAP_APPFONT));
 115         aTitle->SetSizePixel(aTitleSize);
 116         aTitle->Show();
 117     }
 118
 119     // tree
 120     Point const aTreePos = LogicToPixel(Point(3, bFloating ? 3 : 16), MAP_APPFONT);
 121     long const nMargin = aTreePos.X();
 122     Size const aTreeSize(
 123         aSize.Width() - 2*nMargin,
 124         aSize.Height() - aTreePos.Y() - nMargin
 125     );
 126     if (aTreeSize.Height() > 0)
 127     {
 128         aTree->SetPosSizePixel(aTreePos, aTreeSize);
 129         aTree->Show();
 130     }
 131     else
 132         aTree->Hide();
 133 }
 134
 135 void ObjectCatalog::SetCurrentEntry (BaseWindow* pCurWin)
 136 {
 137     EntryDescriptor aDescriptor;
 138     if (pCurWin)
 139         aDescriptor = pCurWin->CreateEntryDescriptor();
 140     aTree->SetCurrentEntry(aDescriptor);
 141 }
 142
 143
 144 } // namespace basctl
 145
 146 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */