tabhost.cpp

嵌入式IDE

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "TabHost.h"
#include "DockForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TTabDockHost *TabDockHost;
//---------------------------------------------------------------------------
__fastcall TTabDockHost::TTabDockHost(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TTabDockHost::PageControlDockOver(TObject *Sender,
      TDragDockObject *Source, int X, int Y, TDragState State,
      bool &Accept)
{
    Accept = dynamic_cast<TDockableForm*>(Source->Control) != NULL;
}
//---------------------------------------------------------------------------

void __fastcall TTabDockHost::PageControlGetSiteInfo(TObject *Sender,
      TControl *DockClient, TRect &InfluenceRect, TPoint &MousePos,
      bool &CanDock)
{
    CanDock = dynamic_cast<TDockableForm*>(DockClient) != NULL;
}
//---------------------------------------------------------------------------

void __fastcall TTabDockHost::PageControlUnDock(TObject *Sender,
      TControl *Client, TWinControl *NewTarget, bool &Allow)
{
    if((PageControl->DockClientCount == 2) && (NewTarget != this))
    {
        if(NewTarget != PageControl)
            PostMessage(this->Handle, WM_CLOSE, 0, 0);
        else
            Allow = False;
    }
}
//---------------------------------------------------------------------------

void __fastcall TTabDockHost::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    if(PageControl->DockClientCount == 1)
    {
        TControl* DockClient = PageControl->DockClients[0];

        Types::TPoint TopLeft = DockClient->ClientToScreen(Point(0, 0));
        Types::TPoint BottomRight = DockClient->ClientToScreen(Point(UndockWidth, UndockHeight));

        DockClient->ManualFloat(Types::TRect(TopLeft, BottomRight));

        Action = caFree;
  }
  else
        Action = caHide;
}
//---------------------------------------------------------------------------