floatfra.cpp

Go to the documentation of this file.

//----------------------------------------------------------------------------
// ObjectWindows
// Copyright (c) 1992, 1996 by Borland International, All Rights Reserved
//
/// \file
/// Implementation of class TFloatingFrame, a popup frame window that has a
/// small title bar
//----------------------------------------------------------------------------
#include <owl/pch.h>
#include <owl/floatfra.h>
#include <owl/uimetric.h>
 
using namespace std;
 
namespace owl {
 
OWL_DIAGINFO;
DIAG_DECLARE_GROUP(OwlCmd);
 
 
//
// Order is very important.  Must make sure that TTinyCaption gets 1st crack
// after us
//
DEFINE_RESPONSE_TABLE2(TFloatingFrame, TTinyCaption, TFrameWindow)
  EV_WM_SYSCOMMAND,
  EV_WM_NCCALCSIZE,
  EV_WM_NCPAINT,
  EV_WM_NCHITTEST,
  EV_WM_MOUSEACTIVATE,
  EV_WM_NCACTIVATE,
  EV_WM_ACTIVATEAPP,
END_RESPONSE_TABLE;
 
//
/// Constructs a TFloatingFrame object attached to the specified parent window. By
/// default, the floating frame window doesn't shrink to fit the client window, and
/// the floating palette style isn't enabled.
/// Set popupPalette to true if you want to enable a floating palette style for the
/// window. The floating palette is a popup window with a tiny caption, a standard
/// window border, and a close box instead of a system menu box. There are no
/// maximize or minimize buttons. A one pixel border is added around the client area
/// in case a toolbox is implemented. This style must be turned on before the window
/// is created. After the window is created, its style can't be changed.
//
TFloatingFrame::TFloatingFrame(TWindow* owner, LPCTSTR title,
                               TWindow* client,
                               bool shrinkToClient, int captionHeight,
                               bool popupPalette, TModule* module)
:
  TFrameWindow(owner, title, client, shrinkToClient, module),
  TTinyCaption(),
  Margin(2, 2),
  DragFrame(popupPalette)
{
  Init(captionHeight, popupPalette);
}
TFloatingFrame::TFloatingFrame(TWindow* owner, LPCTSTR title, {…}
 
//
/// String-aware overload
//
TFloatingFrame::TFloatingFrame(
  TWindow* owner,
  const tstring& title,
  TWindow* client,
  bool shrinkToClient,
  int captionHeight,
  bool popupPalette,
  TModule* module
  )
  : TFrameWindow(owner, title, client, shrinkToClient, module),
  TTinyCaption(),
  Margin(2, 2),
  DragFrame(popupPalette)
{
  Init(captionHeight, popupPalette);
}
TFloatingFrame::TFloatingFrame( {…}
 
void TFloatingFrame::Init(int captionHeight, bool popupPalette)
{
  if (popupPalette) {
    Attr.Style = WS_POPUP | WS_BORDER | WS_VISIBLE | WS_CLIPCHILDREN | WS_CLIPSIBLINGS;
 
    // Use close box (true) for palettes, & calc dimensions w/ new styles
    //
    EnableTinyCaption(captionHeight, true);
 
    // Windows with a popup style ignore CW_USEDEFAULT style, so we will
    // specify a default size
    //
    // Normal use will be to specify a client and allow frame to sizeToClient
    // so this size will rarely be used.
    //
    Attr.X = Attr.Y = 0;
    Attr.W = 100;
    Attr.H = 50;
  }
  else
    // No close box for this non-popupPalette style
    //
    EnableTinyCaption(captionHeight, false);
 
  // Assume we should look active since our app just created us.
  // !CQ Could be a problem if our app is not active. Would have to wait until
  // !CQ SetupWindow and then see if the Focus belonged to this app.
  //
  AppearActive = true;
 
  // The only area exposed when erasing will be the caption, so use an
  // inactive-caption color so that full-drag over paints the right color
  //
  SetBkgndColor(TColor::SysInactiveCaption);
}
void TFloatingFrame::Init(int captionHeight, bool popupPalette) {…}
 
//
// Floating frames never route commands down to their children--just bubble it
// up to the parent.
//
HWND
TFloatingFrame::GetCommandTarget()
{
  TRACEX(OwlCmd, 1, "TFloatingFrame::GetCommandTarget - returns "
    << (GetParentO() ? static_cast<void*>(GetParentO()->GetHandle()) : 0));
  return GetParentO() ? HWND(*GetParentO()) : HWND(nullptr);
}
TFloatingFrame::GetCommandTarget() {…}
 
//
// Change the receiver to be the framewindow not the floating frame window.
//
void
TFloatingFrame::EvCommandEnable(TCommandEnabler& commandEnabler)
{
  if (GetParentO()) {
    // Already being processed?
    //
    if (!commandEnabler.IsReceiver(GetParentO()->GetHandle())) {
      // No, so forward it up to our parent
      //
      commandEnabler.SetReceiver(GetParentO()->GetHandle());
      GetParentO()->EvCommandEnable(commandEnabler);
    }
  }
}
TFloatingFrame::EvCommandEnable(TCommandEnabler& commandEnabler) {…}
 
//
/// Resolves ambiguous mixin reference by passing EvCommand first to the tiny
/// caption and then to the frame bases.
//
TResult
TFloatingFrame::EvCommand(uint id, THandle hWndCtl, uint notifyCode)
{
  TResult er;
  if (TTinyCaption::DoCommand(id, hWndCtl, notifyCode, er) == esComplete)
    return er;
  if (GetParentO())
    return GetParentO()->EvCommand(id, hWndCtl, notifyCode);
  return TFrameWindow::EvCommand(id, hWndCtl, notifyCode);
}
TFloatingFrame::EvCommand(uint id, THandle hWndCtl, uint notifyCode) {…}
 
//
/// This is an example of a mix-in that does partial event handling.  This function
/// calls the 'do' function for the mixin instead of the 'Ev' function, to avoid
/// duplicate default processing.
//
void
TFloatingFrame::EvSysCommand(uint cmdType, const TPoint& p)
{
  if (TTinyCaption::DoSysCommand(cmdType, p) == esComplete)
    return;
  TFrameWindow::EvSysCommand(cmdType,p);
 
  // Now we need to undo the activation that SysCommand/Size or Move has done
  // to us. This does result in some flicker since we've already painted, but
  // it would require more work to simulate the size/move to avoid the
  // activation.
  //
  if ((cmdType & 0xFFF0) == SC_SIZE || (cmdType & 0xFFF0) == SC_MOVE)
    GetApplication()->GetMainWindow()->SetActiveWindow();
}
TFloatingFrame::EvSysCommand(uint cmdType, const TPoint& p) {…}
 
//
/// Handles WM_NCCALCSIZE to possibly add in the drag frame margins.
//
uint
TFloatingFrame::EvNCCalcSize(bool calcValidRects, NCCALCSIZE_PARAMS & calcSize)
{
  uint er = TFrameWindow::EvNCCalcSize(calcValidRects, calcSize);
 
  // Adjust margins for extra edge around palette
  //
  if (DragFrame && !IsIconic()) {
    calcSize.rgrc[0].left +=   Margin.cx * TUIMetric::CxBorder;
    calcSize.rgrc[0].top +=    Margin.cy * TUIMetric::CyBorder;
    calcSize.rgrc[0].right -=  Margin.cx * TUIMetric::CxBorder;
    calcSize.rgrc[0].bottom -= Margin.cy * TUIMetric::CyBorder;
  }
 
  // Now invoke the TTinyCaption worker method to do the rest of the
  // calculations
  //
  DoNCCalcSize(calcValidRects, calcSize, er);
 
  return er;
}
TFloatingFrame::EvNCCalcSize(bool calcValidRects, NCCALCSIZE_PARAMS & calcSize) {…}
 
//
/// Handles WM_NCPAINT to paint the non-client areas of this window.
/// Implementation: This function only needs to paint the drag frame margins.
/// TWindow (via DefWindowProc) automatically paints the borders, and TTinyCaption
/// automatically paints the caption.
//
void TFloatingFrame::EvNCPaint(HRGN)
{
  DefaultProcessing();       // Default border painting--no caption
 
  // Paint our caption below with possible fake active look. arg is ignored.
  //
  EvNCActivate(true);
 
  // If enabled, paint drag frame margins in 3d face color
  //
  if (DragFrame) {
    TWindowDC dc(*static_cast<TWindow*>(this));  // Cast is an MSVC bug workaround  Jogy: Is the workaround still needed?
    TRect     wr = GetWindowRect().InflatedBy(-Frame);
    wr -= wr.TopLeft();
    wr += Border;
    wr.top = GetCaptionRect().bottom;
    int mx = Margin.cx * Border.cx;
    int my = Margin.cy * Border.cy;
 
    dc.SetBkColor(TColor::Sys3dFace);
    dc.TextRect(wr.left, wr.top, wr.left+mx, wr.bottom);           // left
    dc.TextRect(wr.left+mx, wr.top, wr.right-mx, wr.top+my);       // top
    dc.TextRect(wr.right-mx, wr.top, wr.right, wr.bottom);         // right
    dc.TextRect(wr.left+mx, wr.bottom-my, wr.right-mx, wr.bottom); // bottom
  }
}
void TFloatingFrame::EvNCPaint(HRGN) {…}
 
//
/// Returns where in the non-client area the mouse is.  Delegates to tiny caption
/// for the caption bar area, and when in DragFrame mode, makes the frame act like a
/// caption for dragging.
//
uint
TFloatingFrame::EvNCHitTest(const TPoint& screenPt)
{
  uint er;
  if (TTinyCaption::DoNCHitTest(screenPt, er) == esComplete ||
      DoNCHitTest(screenPt, er) == esComplete)
    return er;
  return TWindow::EvNCHitTest(screenPt);
}
TFloatingFrame::EvNCHitTest(const TPoint& screenPt) {…}
 
//
/// If the floating palette is not enabled, returns esPartial. Otherwise, sends a
/// message to the floating palette that the mouse or the cursor has moved, and
/// returns esComplete.
//
TEventStatus
TFloatingFrame::DoNCHitTest(const TPoint& screenPt, uint& evRes)
{
  if (DragFrame && TCEnabled) {
    TPoint clientOffs(0,0);
    ClientToScreen(clientOffs);
    if (!GetClientRect().Contains(screenPt-clientOffs)) {
      evRes = HTCAPTION;
      return esComplete;
    }
  }
  return esPartial;
}
TFloatingFrame::DoNCHitTest(const TPoint& screenPt, uint& evRes) {…}
 
//
// Handle WM_NCMOUSEACTIVATE in order to decline activation. Also, in order to'
// take care of the user trying to activate this app, we activate the main
// window.
//
uint
TFloatingFrame::EvMouseActivate(HWND /*hWndTopLevel*/, uint /*hitTestCode*/, TMsgId)
{
  // Make our main window active if the current active is not in this
  // process
  // !CQ could call SetForegroundWindow(), where is it ?
  //
  if (!GetActiveWindow())
    SetForegroundWindow(GetHandle());
    //GetApplication()->GetMainWindow()->SetActiveWindow();//??????????????????
 
  EvNCActivate(true);   // Make sure we look active
  return MA_NOACTIVATE;
}
TFloatingFrame::EvMouseActivate(HWND /*hWndTopLevel*/, uint /*hitTestCode*/, TMsgId) {…}
 
//
// Handle WM_NCACTIVATE to paint the caption with our notion of active
// appearance--either with our own caption paint routine, or with underlying
// classes routine.
//
// The caption will apear active as long as this app is active.
//
bool
TFloatingFrame::EvNCActivate(bool /*active*/)
{
  if (!IsIconic()) {
    if (TCEnabled)
      PaintCaption(AppearActive);
    else
      DefWindowProc(WM_NCACTIVATE, AppearActive, 0);
  }
  return true;
}
TFloatingFrame::EvNCActivate(bool /*active*/) {…}
 
//
// Handle WM_ACTIVATEAPP to know & track when to appear active--that is
// whenever this app is activated
//
void
TFloatingFrame::EvActivateApp(bool active, DWORD /*threadId*/)
{
  AppearActive = active;
 
  EvNCActivate(AppearActive);
  DefaultProcessing();
}
TFloatingFrame::EvActivateApp(bool active, DWORD /*threadId*/) {…}
 
 
IMPLEMENT_STREAMABLE2(TFloatingFrame, TTinyCaption, TFrameWindow);
 
#if OWL_PERSISTENT_STREAMS
 
//
//
//
void*
TFloatingFrame::Streamer::Read(ipstream& is, uint32 /*version*/) const
{
  TFloatingFrame* o = GetObject();
  ReadBaseObject((TFrameWindow*)o, is);
  ReadBaseObject((TTinyCaption*)o, is);
  is >> o->Margin;
  return o;
}
 
//
//
//
void
TFloatingFrame::Streamer::Write(opstream& os) const
{
  TFloatingFrame* o = GetObject();
  WriteBaseObject((TFrameWindow*)o, os);
  WriteBaseObject((TTinyCaption*)o, os);
  os << o->Margin;
}
 
#endif
 
} // OWL namespace