david
8a45a23220
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@7 05c56307-c608-d34a-929d-697000501d7a
391 lines
15 KiB
C++
391 lines
15 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#include <shellapi.hpp>
|
|
#pragma hdrstop
|
|
|
|
#include "EditorsStylesDemoMain.h"
|
|
#include "EditorsStylesDemoUtils.h"
|
|
#include "AboutDemoForm.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma link "cxContainer"
|
|
#pragma link "cxControls"
|
|
#pragma link "cxDropDownEdit"
|
|
#pragma link "cxEdit"
|
|
#pragma link "cxFontNameComboBox"
|
|
#pragma link "cxGroupBox"
|
|
#pragma link "cxHint"
|
|
#pragma link "cxLookAndFeels"
|
|
#pragma link "cxMaskEdit"
|
|
#pragma link "cxMemo"
|
|
#pragma link "cxSpinEdit"
|
|
#pragma link "cxSplitter"
|
|
#pragma link "cxTextEdit"
|
|
#pragma link "cxTreeView"
|
|
#pragma link "cxPC"
|
|
#pragma resource "*.dfm"
|
|
TEditorsStylesDemoDemoMainForm *EditorsStylesDemoDemoMainForm;
|
|
TEditorsStylesDemoBaseFrame* ActiveFrame;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TEditorsStylesDemoDemoMainForm::TEditorsStylesDemoDemoMainForm(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::FormCreate(TObject *Sender)
|
|
{
|
|
RegisterFrames();
|
|
AdjustDescriptionsPageControl();
|
|
FillTreeViewItems();
|
|
cxTreeView->Items->GetFirstNode()->Expand(true);
|
|
cxTreeView->Items->GetFirstNode()->Selected = true;
|
|
cxTreeViewChange(Sender, cxTreeView->Items->GetFirstNode());
|
|
FDefaultHintStyle = false;
|
|
FDefaultDisplayStyle = false;
|
|
FCurrentDisplayStyle = shtLightBlue;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::RegisterFrames()
|
|
{
|
|
EditorsStylesDemoFrameManager()->AddFrame(CreateFrameByID(TextProcessingFrameID));
|
|
EditorsStylesDemoFrameManager()->AddFrame(CreateFrameByID(ImageProcessingFrameID));
|
|
EditorsStylesDemoFrameManager()->AddFrame(CreateFrameByID(SolarSystemFrameID));
|
|
EditorsStylesDemoFrameManager()->AddFrame(CreateFrameByID(NoteBookFrameID));
|
|
EditorsStylesDemoFrameManager()->AddFrame(CreateFrameByID(IssuesFrameID ));
|
|
EditorsStylesDemoFrameManager()->AddFrame(CreateFrameByID(StylesPaletteFrameID));
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::AddChildNodes(TcxExtEditorTypes AExtEditorTypes, TStrings* AStrings, TTreeNode* ANode)
|
|
{
|
|
cxGetEditorsNamesListByTypes(AStrings, AExtEditorTypes);
|
|
for (int i=0; i < AStrings->Count; i++)
|
|
cxTreeView->Items->AddChild(ANode, AStrings->Strings[i]);
|
|
ANode->AlphaSort();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::AdjustDescriptionsPageControl()
|
|
{
|
|
for (int I = 0; I < EditorsStylesDemoFrameManager()->FramesCount; I++){
|
|
TcxTabSheet *APage = new TcxTabSheet(PageControl);
|
|
APage->PageControl = PageControl;
|
|
TEditorsStylesDemoBaseFrame *AFrame = EditorsStylesDemoFrameManager()->Frames[I];
|
|
APage->Caption = AFrame->BriefName();
|
|
AFrame->pnlDescription->Parent = APage;
|
|
AFrame->pnlDescription->Visible = true;
|
|
AFrame->pnlDescription->Align = alClient;
|
|
AFrame->memDescrip->Properties->WordWrap = true;
|
|
APage->ImageIndex = APage->TabIndex;
|
|
}
|
|
}
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::FillTreeViewItems()
|
|
{
|
|
cxTreeView->Items->Clear();
|
|
TStringList* AStrings = new TStringList();
|
|
TTreeNode* ANode;
|
|
for (int i=0; i < EditorsStylesDemoFrameManager()->FramesCount; i++) {
|
|
EditorsStylesDemoFrameManager()->Frames[i]->OnFileNameChanged = UpdateFileNameStatusPanel;
|
|
ANode = cxTreeView->Items->AddChildObject(NULL,
|
|
EditorsStylesDemoFrameManager()->Frames[i]->Name(), EditorsStylesDemoFrameManager()->Frames[i]);
|
|
AddChildNodes(EditorsStylesDemoFrameManager()->Frames[i]->
|
|
GetExtEditorTypes(EditorsStylesDemoFrameManager()->Frames[i]), AStrings, ANode);
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::FormDestroy(TObject *Sender)
|
|
{
|
|
delete EditorsStylesDemoFrameManager();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::ClickCorrespondingHintMenuItem(TcxHintType AHintType, bool ADefaultHintStyle)
|
|
{
|
|
TMenuItem* AMenuItem;
|
|
if (!ADefaultHintStyle) {
|
|
if (AHintType == hcstNoHint)
|
|
AMenuItem = miCurHintStyle->Items[(int)AHintType + 1];
|
|
else
|
|
AMenuItem = miCurHintStyle->Items[(int)AHintType];
|
|
AMenuItem->OnClick(AMenuItem);
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::AdjustFrameDisplayStyle(TEditorsStylesDemoBaseFrame* AFrame,
|
|
bool ADefaultDisplayStyle)
|
|
{
|
|
if (ADefaultDisplayStyle)
|
|
ActiveFrame->ChangeDisplayStyle(FCurrentDisplayStyle);
|
|
else {
|
|
miCurDisplayStyle->Items[(int)AFrame->DisplayStyle]->Checked = true;
|
|
AFrame->DisplayStyle = AFrame->DisplayStyle;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::AdjustFileNameStatusPanel()
|
|
{
|
|
sbMain->Panels->Items[1]->Text = ExtractFileName(ActiveFrame->FileName);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::AdjustNotePane(TEditorsStylesDemoBaseFrame* AFrame)
|
|
{
|
|
gbDescription->Color = AFrame->GetStyleBackgroundColor();
|
|
gbDescription->CaptionBkColor = AFrame->GetStyleBackgroundColor();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::AdjustFileMenu()
|
|
{
|
|
miFileOpen->Visible = ActiveFrame->MenuOpenFileVisible();
|
|
miFileSave->Visible = ActiveFrame->MenuSaveFileVisible();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::cxTreeViewChange(
|
|
TObject *Sender, TTreeNode *Node)
|
|
{
|
|
String AControlClassName;
|
|
if (Node) {
|
|
if (Node->Parent) {
|
|
AControlClassName = Node->Text;
|
|
Node = Node->Parent;
|
|
}
|
|
TEditorsStylesDemoBaseFrame* AFrame = (TEditorsStylesDemoBaseFrame*)Node->Data;
|
|
if (ActiveFrame)
|
|
ActiveFrame->Flickering = false;
|
|
if ((AFrame) && (AControlClassName != NULL))
|
|
AFrame->FlickerControls(AControlClassName);
|
|
if (ActiveFrame != AFrame) {
|
|
if ((ActiveFrame) && (AFrame)){
|
|
ActiveFrame->Visible = false;
|
|
ActiveFrame->Parent = NULL;
|
|
}
|
|
ActiveFrame = AFrame;
|
|
ActiveFrame->Parent = cxGroupBox;
|
|
ActiveFrame->Visible = true;
|
|
ClickCorrespondingHintMenuItem(ActiveFrame->HintStyle, DefaultHintStyle);
|
|
AdjustFrameDisplayStyle(ActiveFrame, DefaultDisplayStyle);
|
|
AdjustFileMenu();
|
|
AdjustNotePane(AFrame);
|
|
PageControl->ActivePage = PageControl->Pages[Node->Index];
|
|
AdjustFileNameStatusPanel();
|
|
miStyle->Visible = AFrame->StyleMenuVisible();
|
|
}
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::UncheckMenuItems(TMenuItem* AItems)
|
|
{
|
|
for (int i=0; i < AItems->Count; i++)
|
|
AItems->Items[i]->Checked = false;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::SetLightInfoHintStyle()
|
|
{
|
|
if (!ShowHint) ShowHint = true;
|
|
cxHintStyleController->HintStyle->Standard = false;
|
|
cxHintStyleController->HintStyle->Animate = cxhaFadeIn;
|
|
cxHintStyleController->HintStyle->Color = clInfoBk;
|
|
cxHintStyleController->HintStyle->Font->Color = clBlack;
|
|
cxHintStyleController->HintStyle->Font->Height = -11;
|
|
cxHintStyleController->HintStyle->Font->Style.Clear();
|
|
cxHintStyleController->HintStyle->IconType = cxhiInformation;
|
|
cxHintStyleController->HintStyle->IconSize = cxisDefault;
|
|
cxHintStyleController->HintStyle->Rounded = false;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::SetLightSlideLeftHintStyle()
|
|
{
|
|
if (!ShowHint) ShowHint = true;
|
|
cxHintStyleController->HintStyle->Standard = false;
|
|
cxHintStyleController->HintStyle->Animate = cxhaSlideFromLeft;
|
|
cxHintStyleController->HintStyle->Color = TColor(0x00EDCBB6);
|
|
cxHintStyleController->HintStyle->Font->Color = clBlack;
|
|
cxHintStyleController->HintStyle->Font->Height = -13;
|
|
cxHintStyleController->HintStyle->Font->Style.Clear();
|
|
cxHintStyleController->HintStyle->IconType = cxhiCurrentApplication;
|
|
cxHintStyleController->HintStyle->IconSize = cxisSmall;
|
|
cxHintStyleController->HintStyle->Rounded = false;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::SetBlueSlideUpHintStyle()
|
|
{
|
|
if (!ShowHint) ShowHint = true;
|
|
cxHintStyleController->HintStyle->Standard = false;
|
|
cxHintStyleController->HintStyle->Animate = cxhaSlideUpward;
|
|
|
|
cxHintStyleController->HintStyle->Color = TColor(0x00EDBB87);
|
|
cxHintStyleController->HintStyle->Font->Color = TColor(0x00AD3F29);
|
|
cxHintStyleController->HintStyle->Font->Height = -13;
|
|
cxHintStyleController->HintStyle->Font->Style.Clear();
|
|
cxHintStyleController->HintStyle->IconType = cxhiCustom;
|
|
cxHintStyleController->HintStyle->IconSize = cxisDefault;
|
|
cxHintStyleController->HintStyle->Rounded = false;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::SetRoundedInfoHintStyle()
|
|
{
|
|
if (!ShowHint) ShowHint = true;
|
|
cxHintStyleController->HintStyle->Standard = false;
|
|
cxHintStyleController->HintStyle->Animate = cxhaFadeIn;
|
|
cxHintStyleController->HintStyle->Color = clInfoBk;
|
|
cxHintStyleController->HintStyle->Font->Color = clBlack;
|
|
cxHintStyleController->HintStyle->Font->Height = -11;
|
|
cxHintStyleController->HintStyle->Font->Style.Clear();
|
|
cxHintStyleController->HintStyle->IconType = cxhiInformation;
|
|
cxHintStyleController->HintStyle->IconSize = cxisDefault;
|
|
cxHintStyleController->HintStyle->Rounded = true;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::SetStandardHintStyle()
|
|
{
|
|
if (!ShowHint) ShowHint = true;
|
|
cxHintStyleController->HintStyle->Color = clInfoBk;
|
|
cxHintStyleController->HintStyle->Standard = true;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::SetNoHintStyle()
|
|
{
|
|
ShowHint = false;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::SetHintStyle(TcxHintType AHintType)
|
|
{
|
|
switch (AHintType) {
|
|
case hcstLightInfo: {
|
|
SetLightInfoHintStyle(); break; }
|
|
case hcstLightSlideLeft: {
|
|
SetLightSlideLeftHintStyle(); break; }
|
|
case hcstBlueSlideUp: {
|
|
SetBlueSlideUpHintStyle(); break; }
|
|
case hcstRoundedInfo: {
|
|
SetRoundedInfoHintStyle(); break; }
|
|
case hcstStandard: {
|
|
SetStandardHintStyle(); break; }
|
|
case hcstNoHint: {
|
|
SetNoHintStyle(); break; }
|
|
default: SetLightInfoHintStyle();
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::miCurDisplayStyleClick(
|
|
TObject *Sender)
|
|
{
|
|
((TMenuItem*)Sender)->Checked = true;
|
|
UncheckMenuItems(miDefDisplayStyle);
|
|
DefaultDisplayStyle = false;
|
|
ActiveFrame->DisplayStyle = (TcxStyleSheetType)((TMenuItem*)Sender)->Tag;
|
|
gbDescription->Color = ActiveFrame->GetStyleBackgroundColor();
|
|
gbDescription->CaptionBkColor = ActiveFrame->GetStyleBackgroundColor();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::miDefaultDisplayStyleClick(
|
|
TObject *Sender)
|
|
{
|
|
((TMenuItem*)Sender)->Checked = true;
|
|
UncheckMenuItems(miCurDisplayStyle);
|
|
DefaultDisplayStyle = true;
|
|
FCurrentDisplayStyle = (TcxStyleSheetType)((TMenuItem*)Sender)->Tag;
|
|
ActiveFrame->ChangeDisplayStyle((TcxStyleSheetType)((TMenuItem*)Sender)->Tag);
|
|
gbDescription->Color = ActiveFrame->GetStyleBackgroundColor();
|
|
gbDescription->CaptionBkColor = ActiveFrame->GetStyleBackgroundColor();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::miCurHintStyleClick(
|
|
TObject *Sender)
|
|
{
|
|
DefaultHintStyle = false;
|
|
UncheckMenuItems(miDefHintStyle);
|
|
((TMenuItem*)Sender)->Checked = true;
|
|
ActiveFrame->HintStyle = (TcxHintType)((TMenuItem*)Sender)->Tag;
|
|
SetHintStyle((TcxHintType)((TMenuItem*)Sender)->Tag);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::miHintStyleClick(
|
|
TObject *Sender)
|
|
{
|
|
DefaultHintStyle = true;
|
|
UncheckMenuItems(miCurHintStyle);
|
|
((TMenuItem*)Sender)->Checked = true;
|
|
SetHintStyle((TcxHintType)((TMenuItem*)Sender)->Tag);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::miLookAndFeelKindClick(TObject *Sender)
|
|
{
|
|
LookAndFeelController->Kind = (TcxLookAndFeelKind)((TMenuItem*)Sender)->MenuIndex;
|
|
((TMenuItem*)Sender)->Checked = true;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::miNativeStyleClick(
|
|
TObject *Sender)
|
|
{
|
|
LookAndFeelController->NativeStyle = !LookAndFeelController->NativeStyle;
|
|
((TMenuItem*)Sender)->Checked = LookAndFeelController->NativeStyle;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::miAboutClick(TObject *Sender)
|
|
{
|
|
ShowAboutDemoForm();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::miExitClick(TObject *Sender)
|
|
{
|
|
Close();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::UpdateFileNameStatusPanel(String AFileName)
|
|
{
|
|
sbMain->Panels->Items[1]->Text = ExtractFileName(AFileName);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::miFileOpenClick(TObject *Sender)
|
|
{
|
|
ActiveFrame->OpenFile(this);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::miFileSaveClick(TObject *Sender)
|
|
{
|
|
ActiveFrame->SaveFile(this);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TEditorsStylesDemoDemoMainForm::PageControlChange(
|
|
TObject *Sender)
|
|
{
|
|
int APageIndex = PageControl->ActivePage->TabIndex;
|
|
if (APageIndex != -1) {
|
|
gbDescription->Caption = EditorsStylesDemoFrameManager()->Frames[APageIndex]->Description();
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|