Archivado/Componentes.Terceros.DevExpressVCL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
b2e7942eef
Componentes.Terceros.DevExp.../internal/x.36/1/ExpressBars 6/Demos/CBuilder/DockingMegaDemo/DockingMegaDemoMain.cpp

541 lines
20 KiB
C++
Raw Normal View History

Versión x.36 oficial sin skins. git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
2008-09-04 11:31:51 +00:00
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DockingMegaDemoMain.h"
#include "DockingMegaDemoAbout.h"
#include "EBarsDemoRating.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "dxBar"
#pragma link "dxDockControl"
#pragma link "dxDockPanel"
#pragma link "dxBarExtItems"
#pragma link "dxsbar"
#pragma resource "*.dfm"
TDockingMegaDemoMainForm *DockingMegaDemoMainForm;
//---------------------------------------------------------------------------
__fastcall TDockingMegaDemoMainForm::TDockingMegaDemoMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::FormShow(TObject *Sender)
{
DockControl = dsHost;
UpdateSolutionTV();
UpdateClassViewTV();
ComboBox1->Align = alClient;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::CheckSite(TdxCustomDockControl* AControl, TTreeNode* ANode)
{
String ANodeName;
if (AControl->Name != "")
ANodeName = AControl->Name;
else ANodeName = AControl->ClassName();
TTreeNode* AChild = tvSolutionExplorer->Items->AddChildObject(ANode, ANodeName, AControl);
AChild->StateIndex = AControl->ImageIndex;
for (int i=0; i < AControl->ChildCount; i++)
CheckSite(AControl->Children[i], AChild);
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::UpdateSolutionTV()
{
if (!tvSolutionExplorer->HandleAllocated()) return;
tvSolutionExplorer->Items->BeginUpdate();
try {
tvSolutionExplorer->Items->Clear();
CheckSite(dsHost, NULL);
tvSolutionExplorer->FullExpand();
}
__finally {
tvSolutionExplorer->Items->EndUpdate();
}
tvSolutionExplorer->Selected = NULL;
for (int i=0; i < tvSolutionExplorer->Items->Count; i++)
if (((TdxCustomDockControl*)tvSolutionExplorer->Items->Item[i]->Data) == DockControl)
tvSolutionExplorer->Selected = tvSolutionExplorer->Items->Item[i];
UpdateProperties();
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::UpdateClassViewTV()
{
if (!tvClassView->HandleAllocated()) return;
TTreeNode* ANode;
tvClassView->Items->BeginUpdate();
try {
tvClassView->Items->Clear();
ANode = tvClassView->Items->AddChild(NULL, "TdxCustomDockControl");
ANode = tvClassView->Items->AddChild(ANode, "TdxCustomDockSite");
tvClassView->Items->AddChild(ANode, "TdxLayoutDockSite");
ANode = tvClassView->Items->AddChild(ANode, "TdxContainerDockSite");
tvClassView->Items->AddChild(ANode, "TdxTabContainerDockSite");
ANode = tvClassView->Items->AddChild(ANode, "TdxSideContainerDockSite");
tvClassView->Items->AddChild(ANode, "TdxHorizContainerDockSite");
tvClassView->Items->AddChild(ANode, "TdxVertContainerDockSite");
tvClassView->Items->AddChild(tvClassView->Items->Item[1], "TdxFloatDockSite");
tvClassView->Items->AddChild(tvClassView->Items->Item[1], "TdxDockSite");
tvClassView->Items->AddChild(tvClassView->Items->Item[0], "TdxDockPanel");
tvClassView->FullExpand();
}
__finally {
tvClassView->Items->EndUpdate();
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::MakeVisible(TdxDockPanel* AControl)
{
if (AControl == NULL) return;
if (!AControl->Visible)
AControl->Visible = true;
dxDockingController()->ActiveDockControl = AControl;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonPageClick(TObject *Sender)
{
switch (((TComponent*)Sender)->Tag) {
case 0: MakeVisible(dpStartPage); break;
case 1: MakeVisible(dpSolutionExplorer); break;
case 2: MakeVisible(dpClassView); break;
case 3: MakeVisible(dpProperties); break;
case 4: MakeVisible(dpToolbox); break;
case 5: MakeVisible(dpCallStack); break;
case 6: MakeVisible(dpOutput); break;
case 7: MakeVisible(dpWatch); break;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonLoadClick(TObject *Sender)
{
if (OpenDialog1->Execute())
dxDockingManager1->LoadLayoutFromIniFile(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonSaveClick(TObject *Sender)
{
if (SaveDialog1->Execute())
dxDockingManager1->SaveLayoutToIniFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonColorClick(TObject *Sender)
{
ColorDialog1->Color = dxDockingManager1->Color;
if (ColorDialog1->Execute())
dxDockingManager1->Color = ColorDialog1->Color;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonFontClick(TObject *Sender)
{
FontDialog1->Font = dxDockingManager1->Font;
if (FontDialog1->Execute())
dxDockingManager1->Font = FontDialog1->Font;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonStandardViewClick(TObject *Sender)
{
dxDockingManager1->ViewStyle = vsStandard;
BarManager->Style = bmsStandard;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonNETViewClick(TObject *Sender)
{
dxDockingManager1->ViewStyle = vsNET;
BarManager->Style = bmsFlat;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonOffice11ViewClick(TObject *Sender)
{
dxDockingManager1->ViewStyle = vsOffice11;
BarManager->Style = bmsOffice11;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonXPViewClick(TObject *Sender)
{
dxDockingManager1->ViewStyle = vsXP;
BarManager->Style = bmsXP;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::frStartPage1Label1Click(TObject *Sender)
{
dxBarButtonLoadClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::frStartPage1Label2Click(TObject *Sender)
{
dxBarButtonSaveClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonDockableClick(TObject *Sender)
{
if (FPopupMenuDockControl != NULL) {
FPopupMenuDockControl->Dockable = ((TdxBarButton*)Sender)->Down;
FPopupMenuDockControl = NULL;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonHideClick(TObject *Sender)
{
if (FPopupMenuDockControl != NULL) {
FPopupMenuDockControl->Visible = false;
FPopupMenuDockControl = NULL;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonFloatingClick(TObject *Sender)
{
TPoint pt;
if ((FPopupMenuDockControl != NULL) && (FPopupMenuDockControl->DockState != dsFloating)) {
GetCursorPos(&pt);
FPopupMenuDockControl->MakeFloating(pt.x, pt. y);
FPopupMenuDockControl = NULL;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonAutoHideClick(TObject *Sender)
{
if (FPopupMenuDockControl != NULL) {
FPopupMenuDockControl->AutoHide = ((TdxBarButton*)Sender)->Down;
FPopupMenuDockControl = NULL;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dpContextPopup(TObject *Sender, const TPoint &MousePos, bool &Handled)
{
TPoint pt;
GetCursorPos(&pt);
TdxCustomDockControl* AControl = dxDockingController()->GetDockControlAtPos(pt);
if (AControl != NULL) {
FPopupMenuDockControl = AControl;
dxBarButtonDockable->Down = FPopupMenuDockControl->Dockable;
dxBarButtonFloating->Down = FPopupMenuDockControl->FloatDockSite != NULL;
dxBarButtonAutoHide->Enabled = FPopupMenuDockControl->CanAutoHide();
dxBarButtonAutoHide->Down = FPopupMenuDockControl->AutoHide;
dxBarPopupMenu1->PopupFromCursorPos();
Handled = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::UpdateProperties()
{
if ((FDockControl != NULL) && !FDockControl->ComponentState.Contains(csDestroying)) {
cbManagerColor->Enabled = true;
cbManagerColor->Checked = FDockControl->ManagerColor;
cbManagerFont->Enabled = true;
cbManagerFont->Checked = FDockControl->ManagerFont;
eCaption->Enabled = true;
eCaption->Text = FDockControl->Caption;
cbShowCaption->Enabled = true;
cbShowCaption->Checked = FDockControl->ShowCaption;
cbShowCloseButton->Enabled = true;
cbShowCloseButton->Checked = FDockControl->CaptionButtons.Contains(cbClose);
cbShowMaxButton->Enabled = true;
cbShowMaxButton->Checked = FDockControl->CaptionButtons.Contains(cbMaximize);
cbShowHideButton->Enabled = true;
cbShowHideButton->Checked = FDockControl->CaptionButtons.Contains(cbHide);
cbAllowDockLeft->Enabled = true;
cbAllowDockLeft->Checked = FDockControl->AllowDock.Contains(dtLeft);
cbAllowDockTop->Enabled = true;
cbAllowDockTop->Checked = FDockControl->AllowDock.Contains(dtTop);
cbAllowDockRight->Enabled = true;
cbAllowDockRight->Checked = FDockControl->AllowDock.Contains(dtRight);
cbAllowDockBottom->Enabled = true;
cbAllowDockBottom->Checked = FDockControl->AllowDock.Contains(dtBottom);
cbAllowDockClient->Enabled = true;
cbAllowDockClient->Checked = FDockControl->AllowDock.Contains(dtClient);
cbAllowFloating->Enabled = true;
cbAllowFloating->Checked = FDockControl->AllowFloating;
cbAllowDockClientsLeft->Enabled = true;
cbAllowDockClientsLeft->Checked = FDockControl->AllowDockClients.Contains(dtLeft);
cbAllowDockClientsTop->Enabled = true;
cbAllowDockClientsTop->Checked = FDockControl->AllowDockClients.Contains(dtTop);
cbAllowDockClientsRight->Enabled = true;
cbAllowDockClientsRight->Checked = FDockControl->AllowDockClients.Contains(dtRight);
cbAllowDockClientsBottom->Enabled = true;
cbAllowDockClientsBottom->Checked = FDockControl->AllowDockClients.Contains(dtBottom);
cbAllowDockClientsClient->Enabled = true;
cbAllowDockClientsClient->Checked = FDockControl->AllowDockClients.Contains(dtClient);
if (dynamic_cast<TdxTabContainerDockSite*>(FDockControl)) {
cbTabsOnTop->Enabled = true;
cbTabsOnTop->Checked = ((TdxTabContainerDockSite*)FDockControl)->TabsPosition == Dxdockcontrol::tctpTop;
cbTabsScrollable->Enabled = true;
cbTabsScrollable->Checked = ((TdxTabContainerDockSite*)FDockControl)->TabsScroll;}
else {
cbTabsOnTop->Enabled = false;
cbTabsScrollable->Enabled = false;
};
btnApply->Enabled = true;
btnCancel->Enabled = true;
}
else DisableProperties();
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::ApplyProperties()
{
TdxDockingTypes ADockTypes;
if ((FDockControl == NULL) || (FDockControl->ComponentState.Contains(csDestroying))) return;
FDockControl->ManagerColor = cbManagerColor->Checked;
FDockControl->ManagerFont = cbManagerFont->Checked;
FDockControl->Caption = eCaption->Text;
FDockControl->ShowCaption = cbShowCaption->Checked;
FDockControl->CaptionButtons.Clear();
if (cbShowCloseButton->Checked)
FDockControl->CaptionButtons = FDockControl->CaptionButtons + (TdxCaptionButtons() << cbClose);
if (cbShowMaxButton->Checked)
FDockControl->CaptionButtons = FDockControl->CaptionButtons + (TdxCaptionButtons() << cbMaximize);
if (cbShowHideButton->Checked)
FDockControl->CaptionButtons = FDockControl->CaptionButtons + (TdxCaptionButtons() << cbHide);
ADockTypes.Clear();
if (cbAllowDockLeft->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtLeft);
if (cbAllowDockTop->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtTop);
if (cbAllowDockRight->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtRight);
if (cbAllowDockBottom->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtBottom);
if (cbAllowDockClient->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtClient);
FDockControl->AllowDock = ADockTypes;
FDockControl->AllowFloating = cbAllowFloating->Checked;
ADockTypes.Clear();
if (cbAllowDockClientsLeft->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtLeft);
if (cbAllowDockClientsTop->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtTop);
if (cbAllowDockClientsRight->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtRight);
if (cbAllowDockClientsBottom->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtBottom);
if (cbAllowDockClientsClient->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtClient);
FDockControl->AllowDockClients = ADockTypes;
if(dynamic_cast<TdxTabContainerDockSite*>(FDockControl)) {
if( cbTabsOnTop->Checked)
((TdxTabContainerDockSite*)FDockControl)->TabsPosition = Dxdockcontrol::tctpTop;
else ((TdxTabContainerDockSite*)FDockControl)->TabsPosition = Dxdockcontrol::tctpBottom;
((TdxTabContainerDockSite*)FDockControl)->TabsScroll = cbTabsScrollable->Checked;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::DisableProperties()
{
cbManagerColor->Checked = false;
cbManagerColor->Enabled = false;
cbManagerFont->Checked = false;
cbManagerFont->Enabled = false;
eCaption->Text = "";
eCaption->Enabled = false;
cbShowCaption->Checked = false;
cbShowCaption->Enabled = false;
cbShowCloseButton->Checked = false;
cbShowCloseButton->Enabled = false;
cbShowMaxButton->Checked = false;
cbShowMaxButton->Enabled = false;
cbShowHideButton->Checked = false;
cbShowHideButton->Enabled = false;
cbAllowDockLeft->Checked = false;
cbAllowDockLeft->Enabled = false;
cbAllowDockTop->Checked = false;
cbAllowDockTop->Enabled = false;
cbAllowDockRight->Checked = false;
cbAllowDockRight->Enabled = false;
cbAllowDockBottom->Checked = false;
cbAllowDockBottom->Enabled = false;
cbAllowDockClient->Checked = false;
cbAllowDockClient->Enabled = false;
cbAllowFloating->Checked = false;
cbAllowFloating->Enabled = false;
cbAllowDockClientsLeft->Checked = false;
cbAllowDockClientsLeft->Enabled = false;
cbAllowDockClientsTop->Checked = false;
cbAllowDockClientsTop->Enabled = false;
cbAllowDockClientsRight->Checked = false;
cbAllowDockClientsRight->Enabled = false;
cbAllowDockClientsBottom->Checked = false;
cbAllowDockClientsBottom->Enabled = false;
cbAllowDockClientsClient->Checked = false;
cbAllowDockClientsClient->Enabled = false;
cbTabsOnTop->Checked = false;
cbTabsOnTop->Enabled = false;
cbTabsScrollable->Checked = false;
cbTabsScrollable->Enabled = false;
btnApply->Enabled = false;
btnCancel->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::SetDockControl(TdxCustomDockControl* Value)
{
if (FDockControl != Value) {
FDockControl = Value;
UpdateProperties();
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::btnApplyClick(TObject *Sender)
{
ApplyProperties();
UpdateProperties();
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::btnCancelClick(TObject *Sender)
{
UpdateProperties();
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::tvSolutionExplorerChange(
TObject *Sender, TTreeNode *Node)
{
TTreeNode* ANode = tvSolutionExplorer->Selected;
if (ANode != NULL)
DockControl = ((TdxCustomDockControl*)ANode->Data);
else DockControl = dsHost;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxDockingManager1LayoutChanged(
TdxCustomDockControl *Sender)
{
UpdateSolutionTV();
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonStartPageClick(
TObject *Sender)
{
if (dpStartPage != NULL) {
if (!dpStartPage->Visible)
dpStartPage->Visible = true;
dxDockingController()->ActiveDockControl = dpStartPage;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonSolutionExplorerClick(
TObject *Sender)
{
if (dpSolutionExplorer != NULL) {
if (!dpSolutionExplorer->Visible)
dpSolutionExplorer->Visible = true;
dxDockingController()->ActiveDockControl = dpSolutionExplorer;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonClassViewClick(
TObject *Sender)
{
if (dpClassView != NULL) {
if (!dpClassView->Visible)
dpClassView->Visible = true;
dxDockingController()->ActiveDockControl = dpClassView;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonPropertiesClick(
TObject *Sender)
{
if (dpProperties != NULL) {
if (!dpProperties->Visible)
dpProperties->Visible = true;
dxDockingController()->ActiveDockControl = dpProperties;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonToolBoxClick(
TObject *Sender)
{
if (dpToolbox != NULL) {
if (!dpToolbox->Visible)
dpToolbox->Visible = true;
dxDockingController()->ActiveDockControl = dpToolbox;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonCallStackClick(
TObject *Sender)
{
if (dpCallStack != NULL) {
if (!dpCallStack->Visible)
dpCallStack->Visible = true;
dxDockingController()->ActiveDockControl = dpCallStack;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonOutputClick(
TObject *Sender)
{
if (dpOutput != NULL) {
if (!dpOutput->Visible)
dpOutput->Visible = true;
dxDockingController()->ActiveDockControl = dpOutput;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonWatchClick(
TObject *Sender)
{
if (dpWatch != NULL) {
if (!dpWatch->Visible)
dpWatch->Visible = true;
dxDockingController()->ActiveDockControl = dpWatch;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::FormCreate(TObject *Sender)
{
dmCommonData->AboutFormClass = __classid(TDockingMegaDemoAboutForm);
#if __BORLANDC__ >= 0x550 // BCB version >= 5
dpStartPage->OnContextPopup = dpContextPopup;
dpProperties->OnContextPopup = dpContextPopup;
dpSolutionExplorer->OnContextPopup = dpContextPopup;
dpClassView->OnContextPopup = dpContextPopup;
dpOutput->OnContextPopup = dpContextPopup;
dpCallStack->OnContextPopup = dpContextPopup;
dpWatch->OnContextPopup = dpContextPopup;
dpToolbox->OnContextPopup = dpContextPopup;
#endif
}
//---------------------------------------------------------------------------
Reference in New Issue Copy Permalink