conjoinhost.cpp

嵌入式IDE

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

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

//---------------------------------------------------------------------------

void TConJoinDockHost::DoFloat(TControl* AControl)
{
    Types::TPoint TopLeft = AControl->ClientToScreen(Point(0, 0));
    Types::TPoint BottomRight = AControl->ClientToScreen(Point(AControl->UndockWidth,AControl->UndockHeight));
    AControl->ManualFloat(Types::TRect(TopLeft, BottomRight));
}
//---------------------------------------------------------------------------

void TConJoinDockHost::UpdateCaption(TControl* Exclude)
{
    int i;
    Caption = "";
    for(i = 0; i < DockClientCount; i++)
    if(DockClients[i]->Visible && (DockClients[i] != Exclude))
        Caption = Caption + static_cast<TDockableForm*>(DockClients[i])->Caption + " ";
}
//---------------------------------------------------------------------------

void __fastcall TConJoinDockHost::FormClose(TObject *Sender, TCloseAction &Action)
{
    if(DockClientCount == 1)
    {
        DoFloat(DockClients[0]);
        Action = caFree;
    }
    else
        Action = caHide;
}
//---------------------------------------------------------------------------

void __fastcall TConJoinDockHost::FormDockDrop(TObject *Sender,
      TDragDockObject *Source, int X, int Y)
{
    UpdateCaption(NULL);
    DockManager->ResetBounds(true);
}
//---------------------------------------------------------------------------

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

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

void __fastcall TConJoinDockHost::FormUnDock(TObject *Sender, TControl *Client,
      TWinControl *NewTarget, bool &Allow)
{
    if(dynamic_cast<TDockableForm*>(Client) != NULL)
        (static_cast<TDockableForm*>(Client))->DockSite = true;
    if((DockClientCount == 2) && (NewTarget != this))
        PostMessage(this->Handle, WM_CLOSE, 0, 0);
    UpdateCaption(Client);
}
//---------------------------------------------------------------------------