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/RibbonNotepadDemo/RibbonNotepadDemoMain.cpp

1346 lines
44 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
#define HDC unsigned int
#include "RibbonNotepadDemoMain.h"
#include "RibbonNotepadDemoOptions.h"
#include "RibbonNotepadDemoGallerySetup.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxClasses"
#pragma link "cxGraphics"
#pragma link "dxBar"
#pragma resource "*.dfm"
const
AnAccentCount = 5;
TColor AStandardColorMap[] =
{(TColor)0x0000C0, (TColor)0x0000FF, (TColor)0x00C0FF, (TColor)0x00FFFF, (TColor)0x50D092, (TColor)0x50B000, (TColor)0xF0B000, (TColor)0xC07000, (TColor)0x602000, (TColor)0xA03070};
TColorMapInfo AColorMaps[] =
{
{"Default", {clWindow, clWindowText, (TColor)0xD2B48C, (TColor)0x00008B, (TColor)0x0000FF, (TColor)0xFF0000, (TColor)0x556B2F, (TColor)0x800080, clAqua, (TColor)0xFFA500}},
{"Theme1", {clWindow, clWindowText, (TColor)0x7D491F, (TColor)0xE1ECEE, (TColor)0xBD814F, (TColor)0x4D50C0, (TColor)0x59BB9B, (TColor)0xA26480, (TColor)0xC6AC4B, (TColor)0x4696F7}},
{"Theme2", {clWindow, clWindowText, (TColor)0x6D6769, (TColor)0xD1C2C9, (TColor)0x66B9CE, (TColor)0x84B09C, (TColor)0xC9B16B, (TColor)0xCF8565, (TColor)0xC96B7E, (TColor)0xBB79A3}},
{"Theme3", {clWindow, clWindowText, (TColor)0x323232, (TColor)0xD1DEE3, (TColor)0x097FF0, (TColor)0x36299F, (TColor)0x7C581B, (TColor)0x42854E, (TColor)0x784860, (TColor)0x5998C1}},
{"Theme4", {clWindow, clWindowText, (TColor)0x866B64, (TColor)0xD7D1C5, (TColor)0x4963D1, (TColor)0x00B4CC, (TColor)0xAEAD8C, (TColor)0x707B8C, (TColor)0x8CB08F, (TColor)0x4990D1}},
{"Theme5", {clWindow, clWindowText, (TColor)0x464646, (TColor)0xFAF5DE, (TColor)0xBFA22D, (TColor)0x281FDA, (TColor)0x1B64EB, (TColor)0x9D6339, (TColor)0x784B47, (TColor)0x4A3C7D}}
};
__fastcall TColorPickerController::TColorPickerController(TdxRibbonGalleryItem *AColorItem, TdxRibbonGalleryItem *AColorMapItem, TdxRibbonDropDownGallery *AColorDropDownGallery) : TObject()
{
FColorItem = AColorItem;
FColorMapItem = AColorMapItem;
FColorDropDownGallery = AColorDropDownGallery;
FColorGlyphSize = cxTextHeight(Ribbon->Fonts->Group, "Wg", 0);
FColorDialog = new TColorDialog(NULL);
InitColorMapItem();
InitColorItem();
InitDropDownGallery();
PopulateGalleries();
SelectDefaultColor();
}
//---------------------------------------------------------------------------
__fastcall TColorPickerController::~TColorPickerController()
{
delete FColorDialog;
}
//---------------------------------------------------------------------------
void TColorPickerController::InitColorItem()
{
FColorItem->GalleryOptions->EqualItemSizeInAllGroups = False;
FColorItem->GalleryOptions->ColumnCount = SchemeColorCount;
FColorItem->GalleryOptions->SpaceBetweenGroups = 4;
FColorItem->OnGroupItemClick = ColorItemClick;
FColorItem->GalleryOptions->ItemTextKind = itkNone;
FThemeColorsGroup = FColorItem->GalleryGroups->Add();
FThemeColorsGroup->Header->Caption = "Theme Colors";
FThemeColorsGroup->Header->Visible = true;
FAccentColorsGroup = FColorItem->GalleryGroups->Add();
FStandardColorsGroup = FColorItem->GalleryGroups->Add();
FStandardColorsGroup->Header->Caption = "Standard Colors";
FStandardColorsGroup->Header->Visible = true;
FCustomColorsGroup = FColorItem->GalleryGroups->Add();
FCustomColorsGroup->Header->Caption = "Custom Colors";
FColorItem->GalleryGroups->Items[1]->Options->SpaceBetweenItemsVertically = -1;
}
//---------------------------------------------------------------------------
void TColorPickerController::InitColorMapItem()
{
FColorMapItem->GalleryOptions->ColumnCount = 1;
FColorMapItem->GalleryOptions->SpaceBetweenItemsAndBorder = 0;
FColorMapItem->GalleryOptions->ItemTextKind = itkCaption;
FColorMapItem->GalleryGroups->Add();
FColorMapItem->OnGroupItemClick = ColorMapItemClick;
}
//---------------------------------------------------------------------------
void TColorPickerController::InitDropDownGallery()
{
TcxBitmap *ANoColorGlyph;
FNoColorButton = (TdxBarButton*)FColorDropDownGallery->ItemLinks->AddButton()->Item;
FNoColorButton->ButtonStyle = bsChecked;
FNoColorButton->Caption = "&No Color";
FNoColorButton->OnClick = NoColorButtonClick;
ANoColorGlyph = CreateColorBitmap(clNone, 16);
FNoColorButton->Glyph = ANoColorGlyph;
delete ANoColorGlyph;
FMoreColorsButton = (TdxBarButton*)FColorDropDownGallery->ItemLinks->AddButton()->Item;
FMoreColorsButton->Caption = "&More Colors...";
FMoreColorsButton->OnClick = MoreColorsClick;
FColorDialogSetup = (TdxBarButton*)FColorDropDownGallery->ItemLinks->AddButton()->Item;
FColorDialogSetup->Caption = "&Setup...";
FColorDialogSetup->OnClick = ColorDialogSetupButtonClick;
}
//---------------------------------------------------------------------------
void TColorPickerController::PopulateGalleries()
{
BuildColorSchemeGallery();
BuildStandardColorGallery();
}
//---------------------------------------------------------------------------
void TColorPickerController::SelectDefaultColor()
{
FNoColorButton->Click();
}
//---------------------------------------------------------------------------
TdxBarManager* TColorPickerController::GetBarManager()
{
return FColorItem->BarManager;
}
//---------------------------------------------------------------------------
TdxCustomRibbon* TColorPickerController::GetRibbon()
{
return FColorDropDownGallery->Ribbon;
}
//---------------------------------------------------------------------------
void TColorPickerController::SetColor(TColor Value)
{
if (FColor != Value)
{
FColor = Value;
ColorChanged();
}
}
//---------------------------------------------------------------------------
void __fastcall TColorPickerController::ColorItemClick(TdxRibbonGalleryItem *Sender, TdxRibbonGalleryGroupItem *AItem)
{
FNoColorButton->Down = false;
if (FColorItem->SelectedGroupItem != NULL)
SetColor((TColor)FColorItem->SelectedGroupItem->Tag);
}
//---------------------------------------------------------------------------
void __fastcall TColorPickerController::ColorMapItemClick(TdxRibbonGalleryItem *Sender, TdxRibbonGalleryGroupItem *AItem)
{
BuildThemeColorGallery();
ColorMapChanged();
}
//---------------------------------------------------------------------------
void __fastcall TColorPickerController::NoColorButtonClick(TObject *Sender)
{
if (FColorItem->SelectedGroupItem != NULL)
FColorItem->SelectedGroupItem->Selected = false;
SetColor(clNone);
}
//---------------------------------------------------------------------------
void __fastcall TColorPickerController::ColorDialogSetupButtonClick(TObject *Sender)
{
bool RemoveHorizontalPadding, RemoveVerticalPadding;
RemoveHorizontalPadding = FColorItem->GalleryOptions->SpaceBetweenItemsHorizontally == -1;
RemoveVerticalPadding = FColorItem->GalleryGroups->Items[1]->Options->SpaceBetweenItemsVertically == -1;
if (ColorDialogSetupForm->GetSettings(RemoveHorizontalPadding, RemoveVerticalPadding))
{
FColorItem->GalleryOptions->SpaceBetweenItemsHorizontally =
-RemoveHorizontalPadding;
FColorItem->GalleryGroups->Items[1]->Options->SpaceBetweenItemsVertically =
-RemoveVerticalPadding;
}
}
//---------------------------------------------------------------------------
void __fastcall TColorPickerController::MoreColorsClick(TObject *Sender)
{
FColorDialog->Color = Color;
if (FColorDialog->Execute())
{
FCustomColorsGroup->Header->Visible = true;
AddColorItem(FCustomColorsGroup, FColorDialog->Color)->Selected = true;
};
}
//---------------------------------------------------------------------------
TdxRibbonGalleryGroupItem* TColorPickerController::AddColorItem(TdxRibbonGalleryGroup *AGalleryGroup, TColor AColor)
{
TcxBitmap *ABitmap;
String AColorName;
TdxRibbonGalleryGroupItem *Result;
Result = AGalleryGroup->Items->Add();
ABitmap = CreateColorBitmap(AColor, 0);
try
{
Result->Glyph = ABitmap;
if (cxNameByColor(AColor, AColorName))
Result->Caption = AColorName;
else
Result->Caption = "$" + IntToHex(AColor, 6);
Result->Tag = AColor;
}
__finally
{
ABitmap->Free();
};
return Result;
}
//---------------------------------------------------------------------------
TcxBitmap* TColorPickerController::CreateColorBitmap(TColor AColor, int AGlyphSize)
{
TcxBitmap *Result;
if (AGlyphSize == 0)
AGlyphSize = FColorGlyphSize;
Result = new TcxBitmap(AGlyphSize, AGlyphSize, pf32bit);
FillRectByColor((HDC)Result->Canvas->Handle, Result->ClientRect, AColor);
FrameRectByColor((HDC)Result->Canvas->Handle, Result->ClientRect, clGray);
if (AColor == clNone)
Result->RecoverAlphaChannel(clBlack);
else
Result->TransformBitmap(btmSetOpaque);
return Result;
}
//---------------------------------------------------------------------------
void TColorPickerController::CreateColorRow(TdxRibbonGalleryGroup *AGalleryGroup, const TColor *AColorMap)
{
int I;
for (I = 0; I < SchemeColorCount; I++)
AddColorItem(AGalleryGroup, AColorMap[I]);
}
//---------------------------------------------------------------------------
int GetBrightness (int ARGBColor)
{
return (GetBValue(ARGBColor) + GetGValue(ARGBColor) + GetRValue(ARGBColor)) / 3;
}
void CreateAccent(TAccent *AnAccents, int AMapIndex, TColor *AColorMap, TColor **AnAccentColorScheme)
{
int I;
TColor AColor;
for (I = 0; I < AnAccentCount; I++)
{
switch (AnAccents[I])
{
case aLight80: AColor = Light(AColorMap[AMapIndex], 80); break;
case aLight60: AColor = Light(AColorMap[AMapIndex], 60); break;
case aLight50: AColor = Light(AColorMap[AMapIndex], 50); break;
case aLight40: AColor = Light(AColorMap[AMapIndex], 40); break;
case aLight35: AColor = Light(AColorMap[AMapIndex], 35); break;
case aLight25: AColor = Light(AColorMap[AMapIndex], 25); break;
case aLight15: AColor = Light(AColorMap[AMapIndex], 15); break;
case aLight5: AColor = Light(AColorMap[AMapIndex], 5); break;
case aDark10: AColor = Dark(AColorMap[AMapIndex], 90); break;
case aDark25: AColor = Dark(AColorMap[AMapIndex], 75); break;
case aDark50: AColor = Dark(AColorMap[AMapIndex], 50); break;
case aDark75: AColor = Dark(AColorMap[AMapIndex], 25); break;
default /*aDark90*/: AColor = Dark(AColorMap[I], 10);
}
AnAccentColorScheme[I][AMapIndex] = AColor;
}
}
void GetAccentColorScheme(TColor *AColorMap, TColor **AnAccentColorScheme)
{
int I;
TAccent AccentMap1[] = {aLight50, aLight35, aLight25, aLight15, aLight5};
TAccent AccentMap2[] = {aLight80, aLight60, aLight60, aDark25, aDark50};
TAccent AccentMap3[] = {aDark10, aDark25, aDark50, aDark75, aDark90};
for (I = 0; I < SchemeColorCount; I++)
{
if (GetBrightness(ColorToRGB(AColorMap[I])) < 20)
CreateAccent(AccentMap1, I, AColorMap, AnAccentColorScheme);
else
if (GetBrightness(ColorToRGB(AColorMap[I])) < 230)
CreateAccent(AccentMap2, I, AColorMap, AnAccentColorScheme);
else
CreateAccent(AccentMap3, I, AColorMap, AnAccentColorScheme);
}
};
void TColorPickerController::BuildThemeColorGallery()
{
int I;
TColor *AColorMap;
TColor *AnAccentColorScheme[AnAccentCount];
for (I = 0; I < AnAccentCount; I++)
AnAccentColorScheme[I] = new TColor[SchemeColorCount];
BarManager->BeginUpdate();
try
{
FThemeColorsGroup->Items->Clear();
AColorMap = AColorMaps[FColorMapItem->SelectedGroupItem->Index].Map;
CreateColorRow(FThemeColorsGroup, AColorMap);
FAccentColorsGroup->Items->Clear();
GetAccentColorScheme(AColorMap, AnAccentColorScheme);
for (I = 0; I < AnAccentCount; I++)
CreateColorRow(FAccentColorsGroup, AnAccentColorScheme[I]);
}
__finally
{
BarManager->EndUpdate(true);
};
for (I = 0; I < AnAccentCount; I++)
delete AnAccentColorScheme[I];
}
//---------------------------------------------------------------------------
void TColorPickerController::BuildStandardColorGallery()
{
BarManager->BeginUpdate();
try
{
FStandardColorsGroup->Items->Clear();
CreateColorRow(FStandardColorsGroup, AStandardColorMap);
}
__finally
{
BarManager->EndUpdate(true);
};
}
//---------------------------------------------------------------------------
void TColorPickerController::BuildColorSchemeGallery()
{
int ASystemColorCount = 2;
int AGlyphOffset = 1;
int I, J;
TcxBitmap *ABitmap;
TcxBitmap *AColorBitmap;
TRect ARect;
TdxRibbonGalleryGroupItem *AGroupItem;
int AThemeColorCount;
BarManager->BeginUpdate();
try
{
AThemeColorCount = SchemeColorCount - ASystemColorCount;
ABitmap = new TcxBitmap(FColorGlyphSize * AThemeColorCount + (AThemeColorCount - 1) * AGlyphOffset, FColorGlyphSize, pf32bit);
try
{
for (I = 5; I>=0; I--)
{
AGroupItem = FColorMapItem->GalleryGroups->Items[0]->Items->Insert(0);
for (J = 0 + ASystemColorCount; J < SchemeColorCount; J++)
{
AColorBitmap = CreateColorBitmap(AColorMaps[I].Map[J], 0);
try
{
ARect = cxRectOffset(AColorBitmap->ClientRect, (AColorBitmap->Width + AGlyphOffset) * (J - ASystemColorCount), 0);
ABitmap->CopyBitmap(AColorBitmap, ARect, cxNullPoint, SRCCOPY);
}
__finally
{
delete AColorBitmap;
}
}
AGroupItem->Glyph = ABitmap;
AGroupItem->Caption = AColorMaps[I].Name;
};
AGroupItem->Selected = true;
}
__finally
{
delete ABitmap;
}
}
__finally
{
BarManager->EndUpdate(true);
}
}
//---------------------------------------------------------------------------
void TColorPickerController::ColorChanged()
{
TcxBitmap *AGlyph;
AGlyph = CreateColorBitmap(Color, 16 * Screen->PixelsPerInch / 96);
try
{
FColorItem->Glyph = AGlyph;
}
__finally
{
delete AGlyph;
};
if (FOnColorChanged)
FOnColorChanged(this);
}
//---------------------------------------------------------------------------
void TColorPickerController::FillGlyph(TcxBitmap *AGlyph)
{
TRect ARect;
HDC ADC;
ARect = Rect(0, 0, AGlyph->Width / 2, AGlyph->Height / 2);
ADC = (HDC)AGlyph->Canvas->Handle;
FillRectByColor(ADC, ARect, AColorMaps[FColorMapItem->SelectedGroupItem->Index].Map[2]);
FillRectByColor(ADC, cxRectOffset(ARect, cxRectWidth(ARect), 0), AColorMaps[FColorMapItem->SelectedGroupItem->Index].Map[3]);
FillRectByColor(ADC, cxRectOffset(ARect, 0, cxRectHeight(ARect)), AColorMaps[FColorMapItem->SelectedGroupItem->Index].Map[4]);
FillRectByColor(ADC, cxRectOffset(ARect, cxRectWidth(ARect), cxRectHeight(ARect)), AColorMaps[FColorMapItem->SelectedGroupItem->Index].Map[5]);
FrameRectByColor(ADC, AGlyph->ClientRect, clGray);
AGlyph->TransformBitmap(btmSetOpaque);
}
//---------------------------------------------------------------------------
void TColorPickerController::ColorMapChanged()
{
TcxBitmap *AGlyph;
FColorMapItem->BarManager->BeginUpdate();
try
{
AGlyph = new TcxBitmap(16, 16, pf32bit);
FillGlyph(AGlyph);
FColorMapItem->Glyph = AGlyph;
AGlyph->SetSize(32, 32);
FillGlyph(AGlyph);
FColorMapItem->LargeGlyph = AGlyph;
delete AGlyph;
}
__finally
{
FColorMapItem->BarManager->EndUpdate(False);
}
}
//---------------------------------------------------------------------------
TRibbonDemoMainForm *RibbonDemoMainForm;
char
*sRichEditFoundResultCaption = "Information",
*sRichEditTextNotFound = "The search text is not found.",
*sRichEditReplaceAllResult = "Replaced %d occurances.",
*sDefaultDocName = "Document1.rtf";
char
*RTFFilter = "Rich Text Files (*.RTF)|*.RTF",
*TXTFilter = "Plain text (*.TXT)|*.TXT";
//---------------------------------------------------------------------------
__fastcall TRibbonDemoMainForm::TRibbonDemoMainForm(TComponent* Owner)
: TdxCustomRibbonForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::ApplicationMenuRecentDocumentsClick(TObject *Sender, int AIndex)
{
OpenFile(ApplicationMenu->ExtraPaneItems->Items[AIndex]->Text);
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonNewClick(TObject *Sender)
{
if (Editor->Modified)
switch (QuerySaveFile()) {
case ID_YES: {
if (SaveFile(false)) {
MakeNewDocument();
}
break;
}
case ID_NO: {
MakeNewDocument();
}
}
else {
MakeNewDocument();
}
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonOpenClick(TObject *Sender)
{
OpenFile("");
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonCloseClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonSaveClick(TObject *Sender)
{
SaveFile(false);
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonSaveAsRTFClick(TObject *Sender)
{
SaveFile(true);
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonSaveAsTextClick(TObject *Sender)
{
SaveFile(true, true);
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonPrintClick(TObject *Sender)
{
if (PrintDialog->Execute()) Editor->Print(FileName);
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonUndoClick(TObject *Sender)
{
Undo(1);
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonCutClick(TObject *Sender)
{
Editor->CutToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonCopyClick(TObject *Sender)
{
Editor->CopyToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonPasteClick(TObject *Sender)
{
Editor->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonClearClick(TObject *Sender)
{
Editor->ClearSelection();
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonSelectAllClick(TObject *Sender)
{
Editor->SelectAll();
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonFindClick(TObject *Sender)
{
Editor->SelLength = 0;
FindDialog->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonReplaceClick(TObject *Sender)
{
Editor->SelLength = 0;
ReplaceDialog->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarComboFontNameChange(TObject *Sender)
{
if (!FUpdating)
Editor->SelAttributes->Name = dxBarComboFontName->Text;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarComboFontSizeChange(TObject *Sender)
{
if (!FUpdating)
Editor->SelAttributes->Size = StrToInt(dxBarComboFontSize->Text);
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonBoldClick(TObject *Sender)
{
if (dxBarButtonBold->Down)
Editor->SelAttributes->Style = Editor->SelAttributes->Style << fsBold;
else
Editor->SelAttributes->Style = Editor->SelAttributes->Style >> fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonItalicClick(TObject *Sender)
{
if (dxBarButtonItalic->Down)
Editor->SelAttributes->Style = Editor->SelAttributes->Style << fsItalic;
else
Editor->SelAttributes->Style = Editor->SelAttributes->Style >> fsItalic;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonUnderlineClick(TObject *Sender)
{
if (dxBarButtonUnderline->Down)
Editor->SelAttributes->Style = Editor->SelAttributes->Style << fsUnderline;
else
Editor->SelAttributes->Style = Editor->SelAttributes->Style >> fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonBulletsClick(TObject *Sender)
{
Editor->Paragraph->Numbering = TNumberingStyle(dxBarButtonBullets->Down);
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::btnLockedClick(TObject *Sender)
{
AnsiString AHint;
Editor->ReadOnly = ((TdxBarButton*)Sender)->Down;
if (Editor->ReadOnly) {
AHint = "Editing protection: Read only. Click for editing.";
cxStyle1->TextColor = clMaroon;
}
else
{
AHint = "Editing protection: Writable. Click for read-only mode.";
cxStyle1->TextColor = clGray;
}
((TdxBarButton*)Sender)->Hint = AHint;
EditorSelectionChange(0);
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonAlignClick(TObject *Sender)
{
if (((TdxBarLargeButton*)Sender)->Down)
Editor->Paragraph->Alignment = ((TAlignment)((TdxBarLargeButton*)Sender)->Tag);
else
Editor->Paragraph->Alignment = taLeftJustify;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonProtectedClick(TObject *Sender)
{
Editor->SelAttributes->Protected = !Editor->SelAttributes->Protected;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarLargeButtonBlueSchemeClick(TObject *Sender)
{
SetColorScheme("Blue");
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarLargeButtonBlackSchemeClick(TObject *Sender)
{
SetColorScheme("Black");
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarLargeButtonSilverSchemeClick(TObject *Sender)
{
SetColorScheme("Silver");
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarLargeButton6Click(TObject *Sender)
{
Ribbon->SupportNonClientDrawing = !Ribbon->SupportNonClientDrawing;
dxBarLargeButton7->Enabled = Ribbon->SupportNonClientDrawing;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarLargeButton7Click(TObject *Sender)
{
Ribbon->ApplicationButton->Visible = !Ribbon->ApplicationButton->Visible;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarLargeButton8Click(TObject *Sender)
{
Ribbon->QuickAccessToolbar->Position = qtpAboveRibbon;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarLargeButton9Click(TObject *Sender)
{
Ribbon->QuickAccessToolbar->Position = qtpBelowRibbon;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarLargeButton10Click(TObject *Sender)
{
Ribbon->QuickAccessToolbar->Visible = !Ribbon->QuickAccessToolbar->Visible;
dxBarLargeButton8->Enabled = Ribbon->QuickAccessToolbar->Visible;
dxBarLargeButton9->Enabled = Ribbon->QuickAccessToolbar->Visible;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::EditorChange(TObject *Sender)
{
if (Editor == NULL) return;
Editor->OnSelectionChange(Editor);
SetModified(Editor->Modified);
dxBarButtonUndo->Enabled = SendMessage(Editor->Handle, EM_CANUNDO, 0, 0) != 0;
RibbonDemoMainForm->FEditorUndoController->AnalyseMessage();
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::EditorSelectionChange(TObject *Sender)
{
FUpdating = true;
dxBarComboFontSize->OnChange = 0;
dxBarComboFontName->OnChange = 0;
try
{
btnLineNumber->Caption = Format(" Line: %3d ", ARRAYOFCONST((1 + EditorRow)));
btnColumnNumber->Caption = Format(" Row: %3d ", ARRAYOFCONST((1 + EditorCol)));
dxBarButtonCopy->Enabled = Editor->SelLength > 0;
dxBarButtonCut->Enabled = dxBarButtonCopy->Enabled;
dxBarButtonPaste->Enabled = SendMessage(Editor->Handle, EM_CANPASTE, 0, 0) != 0;
dxBarButtonClear->Enabled = dxBarButtonCopy->Enabled;
dxBarComboFontSize->Text = IntToStr(Editor->SelAttributes->Size);
dxBarComboFontName->Text = Editor->SelAttributes->Name;
dxBarButtonBold->Down = Editor->SelAttributes->Style.Contains(fsBold);
dxBarButtonItalic->Down = Editor->SelAttributes->Style.Contains(fsItalic);
dxBarButtonUnderline->Down = Editor->SelAttributes->Style.Contains(fsUnderline);
dxBarButtonBullets->Down = ((bool)Editor->Paragraph->Numbering);
switch (Editor->Paragraph->Alignment) {
case taLeftJustify: dxBarButtonAlignLeft->Down = true; break;
case taRightJustify: dxBarButtonAlignRight->Down = true; break;
case taCenter: dxBarButtonCenter->Down = true;
}
dxBarButtonProtected->Down = Editor->SelAttributes->Protected;
FUpdating = false;
}
__finally
{
dxBarComboFontSize->OnChange = dxBarComboFontSizeChange;
dxBarComboFontName->OnChange = dxBarComboFontNameChange;
}
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::EditorMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Button == mbRight)
dxBarPopupMenu->PopupFromCursorPos();
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::FindOne(TObject *Sender)
{
int StartPos, FindLength, FoundAt;
TSearchTypes Flags;
TPoint P;
TRect CaretR, R, IntersectR;
TFindDialog *ADialog = ((TFindDialog*) Sender);
if (ADialog->Options.Contains(frDown))
{
if (Editor->SelLength == 0) StartPos = Editor->SelStart;
else StartPos = Editor->SelStart + Editor->SelLength;
FindLength = Editor->Text.Length() - StartPos;
}
else
{
StartPos = Editor->SelStart;
FindLength = -StartPos;
}
Flags.Clear();
if (ADialog->Options.Contains(frMatchCase)) Flags << stMatchCase;
if (ADialog->Options.Contains(frWholeWord)) Flags << stWholeWord;
Screen->Cursor = crHourGlass;
FoundAt = Editor->FindText(ADialog->FindText, StartPos, FindLength, Flags);
if (!(ADialog->Options.Contains(frReplaceAll))) Screen->Cursor = crDefault;
if (FoundAt > -1)
if (ADialog->Options.Contains(frReplaceAll))
{
Editor->SelStart = FoundAt;
Editor->SelLength = ADialog->FindText.Length();
}
else
{
Editor->SetFocus();
Editor->SelStart = FoundAt;
Editor->SelLength = ADialog->FindText.Length();
GetCaretPos(&P);
P = Editor->ClientToScreen(P);
CaretR = Rect(P.x, P.y, P.x + 2, P.y + 20);
GetWindowRect(Editor->Handle, &R);
if (IntersectRect(&IntersectR, &CaretR, &R))
if (P.y < Screen->Height / 2)
ADialog->Top = P.y + 40;
else
ADialog->Top = P.y - (R.bottom - R.top + 20);
if (ADialog->Top < 0) ADialog->Top = 0;
}
else
if (!(ADialog->Options.Contains(frReplaceAll)))
Application->MessageBox(sRichEditTextNotFound,
sRichEditFoundResultCaption, MB_ICONINFORMATION);
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::FontClick(TObject *Sender)
{
FontDialog->Font->Assign(Editor->SelAttributes);
if (FontDialog->Execute())
Editor->SelAttributes->Assign(FontDialog->Font);
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::FormCreate(TObject *Sender)
{
dmCommonData->AboutFormClass = __classid(TRibbonDemoAboutForm);
if (FileExists(sDefaultDocName))
OpenFile(ExpandFileName(sDefaultDocName));
else
FileName = sDefaultDocName;
OpenDialog->Filter = RTFFilter;
OpenDialog->InitialDir = ExtractFilePath(ParamStr(0));
SaveDialog->InitialDir = OpenDialog->InitialDir;
ShowItems(true);
dxBarButton7->LargeImageIndex = 18;
dxBarButton7->ImageIndex = 18;
dxBarLargeButton1->LargeImageIndex = 18;
dxBarLargeButton1->ImageIndex = 18;
dxBarButton1->LargeImageIndex = 19;
dxBarButton1->ImageIndex = 19;
dxBarButton3->LargeImageIndex = 20;
dxBarButton3->ImageIndex = 20;
dxBarButton4->LargeImageIndex = 21;
dxBarButton4->ImageIndex = 21;
dxBarButton5->LargeImageIndex = 22;
dxBarButton5->ImageIndex = 22;
FColorPickerController = new TColorPickerController(rgiFontColor, rgiColorTheme, dxRibbonDropDownGallery);
FColorPickerController->OnColorChanged = FontColorChanged;
AssignFontColorGlyph();
InitSymbolGallery();
SetColorScheme("Blue");
FEditorUndoController = new TRichEditUndoController(rgiUndo, Editor);
int ATextWidth = cxTextWidth(BarManager->Font, "Undo 9999 Actions");
rgiUndo->GalleryOptions->ItemPullHighlighting->Active = True;
rgiUndo->GalleryOptions->ColumnCount = 1;
rgiUndo->GalleryOptions->SubMenuResizing = gsrNone;
rgiUndo->GalleryOptions->ItemSize->Width = ATextWidth;
rgiUndo->GalleryOptions->ItemSize->Height = 21 * Screen->PixelsPerInch / 96;
rgiUndo->GalleryGroups->Add();
bstSelectionInfo->Width = ATextWidth;
bstSelectionInfo->Caption = "Cancel";
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::FormDestroy(TObject *Sender)
{
delete FEditorUndoController;
delete FColorPickerController;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::FormActivate(TObject *Sender)
{
if (FCanOnChange) {
Editor->OnChange(Editor);
}
else {
FCanOnChange = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if (Editor->Modified)
switch (QuerySaveFile()) {
case ID_YES: CanClose = SaveFile(false); return;
case ID_NO: CanClose = true; return;
case ID_CANCEL: CanClose = false;
}
}
//---------------------------------------------------------------------------
int __fastcall TRibbonDemoMainForm::GetEditorCol()
{
return (Editor->SelStart - SendMessage(Handle, EM_LINEINDEX, EditorRow, 0));
}
//---------------------------------------------------------------------------
int __fastcall TRibbonDemoMainForm::GetEditorRow()
{
return (SendMessage(Handle, EM_LINEFROMCHAR, Editor->SelStart, 0));
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::MakeNewDocument()
{
Editor->Clear();
SetModified(False);
FileName = sDefaultDocName;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::OpenFile(AnsiString AFileName)
{
if (Editor->Modified)
{
switch (QuerySaveFile()) {
case mrYes : if (! SaveFile(false)) return; break;
case mrCancel : return;
}
}
OpenDialog->FileName = AFileName;
if ((AFileName != "") || OpenDialog->Execute()) {
FileName = OpenDialog->FileName;
Editor->Lines->LoadFromFile(FileName);
SetModified(false);
}
}
//---------------------------------------------------------------------------
int __fastcall TRibbonDemoMainForm::QuerySaveFile()
{
String S = "Do you want to save the changes you made to " + Ribbon->DocumentName + "?";
String Title = Application->Title;
return (Application->MessageBox(S.c_str(), Title.c_str(), /*MB_ICONQUESTION ||*/ MB_YESNOCANCEL));
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::ReplaceOne(TObject *Sender)
{
TReplaceDialog *ADialog = ((TReplaceDialog*) Sender);
int ReplacedCount, OldSelStart, PrevSelStart;
AnsiString S;
ReplacedCount = 0;
OldSelStart = Editor->SelStart;
if (ADialog->Options.Contains(frReplaceAll)) Screen->Cursor = crHourGlass;
do
{
if ((Editor->SelLength > 0) && ((Editor->SelText == ADialog->FindText) ||
(!(ADialog->Options.Contains(frMatchCase)) &&
(AnsiUpperCase(Editor->SelText) == AnsiUpperCase(ADialog->FindText)))))
{
Editor->SelText = ADialog->ReplaceText;
ReplacedCount++;
}
PrevSelStart = Editor->SelStart;
FindOne(Sender);
}
while (ADialog->Options.Contains(frReplaceAll) && (Editor->SelStart != PrevSelStart));
if (ADialog->Options.Contains(frReplaceAll))
{
Screen->Cursor = crDefault;
if (ReplacedCount == 0)
S = sRichEditTextNotFound;
else
{
Editor->SelStart = OldSelStart;
S = Format(sRichEditReplaceAllResult, ARRAYOFCONST((ReplacedCount)));
}
Application->MessageBox(S.c_str(), sRichEditFoundResultCaption,
MB_ICONINFORMATION);
}
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::RibbonResize(TObject *Sender)
{
const Space = 8;
Editor->SetBounds(Space, Ribbon->Height + Space, ClientWidth - Space * 2,
ClientHeight - (Ribbon->Height + dxStatusBar->Height + Space * 2));
if (Ribbon->QuickAccessToolbar->Position == qtpAboveRibbon)
dxBarLargeButton8->Down = true;
else
dxBarLargeButton9->Down = true;
}
//---------------------------------------------------------------------------
bool __fastcall TRibbonDemoMainForm::SaveFile(bool ASaveAs, bool APlainText)
{
bool Result;
SaveDialog->FileName = ChangeFileExt(ExtractFileName(FileName), "");
if (APlainText)
SaveDialog->Filter = TXTFilter;
else
SaveDialog->Filter = RTFFilter;
ASaveAs = ASaveAs || (FileName == "") || (FileName == sDefaultDocName);
Result = !ASaveAs || SaveDialog->Execute();
if (Result)
{
Editor->PlainText = APlainText;
Editor->Lines->SaveToFile(SaveDialog->FileName);
if (!APlainText)
{
SetModified(false);
if (ASaveAs)
FileName = SaveDialog->FileName;
};
}
return Result;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::SetColorScheme(AnsiString AName)
{
Ribbon->ColorSchemeName = AName;
dxBarLargeButtonBlueScheme->Down = (AName == "Blue");
dxBarLargeButtonBlackScheme->Down = (AName == "Black");
dxBarLargeButtonSilverScheme->Down = (AName == "Silver");
dxStatusBar->Invalidate();
Panel1->Color = Ribbon->ColorScheme->GetPartColor(rfspRibbonForm);
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::SetFileName(AnsiString Value)
{
int AIndex;
Ribbon->DocumentName = ExtractFileName(Value);
FFileName = Value;
if (FileExists(FFileName))
{
AIndex = ApplicationMenu->ExtraPaneItems->IndexOf(FFileName);
if (AIndex > -1)
ApplicationMenu->ExtraPaneItems->Delete(AIndex);
ApplicationMenu->ExtraPaneItems->Insert(0)->Text = FFileName;
}
}
//---------------------------------------------------------------------------
void TRibbonDemoMainForm::AssignFontColorGlyph()
{
dxBarButtonFontColor->Glyph = rgiFontColor->Glyph;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::FontColorChanged(TObject *Sender)
{
AssignFontColorGlyph();
dxBarButtonFontColorClick(NULL);
}
//---------------------------------------------------------------------------
void TRibbonDemoMainForm::SetFontColor()
{
Editor->SelAttributes->Color = FColorPickerController->Color;
FEditorUndoController->AddAction(6);
}
//---------------------------------------------------------------------------
void TRibbonDemoMainForm::Undo(int Count)
{
FEditorUndoController->Lock();
try
{
while (Count > 0)
{
SendMessage(Editor->Handle, EM_UNDO, 0, 0);
FEditorUndoController->PopUndo();
Count--;
}
}
__finally
{
FEditorUndoController->UnLock();
}
}
//---------------------------------------------------------------------------
void TRibbonDemoMainForm::AddSymbolItem(TdxRibbonGalleryGroup *AGroup, int ACode)
{
TdxRibbonGalleryGroupItem *AItem;
String AFont;
TcxBitmap *ABitmap;
WideChar AChar;
AItem = AGroup->Items->Add();
AFont = "Times New Roman";
AItem->Caption = AFont + " #" + IntToStr(ACode);
AItem->Description = AFont;
AItem->Tag = ACode;
// CreateBitmap
try
{
int AGlyphSize;
TRect R;
AGlyphSize = 32 * Screen->PixelsPerInch / 96;
R = Rect(0, 0, AGlyphSize, AGlyphSize);
ABitmap = new TcxBitmap(AGlyphSize, AGlyphSize, pf32bit);
ABitmap->Canvas->Brush->Color = (TColor)0xFAFAFA;
ABitmap->Canvas->FillRect(R);
ABitmap->Canvas->Font->Name = AFont;
ABitmap->Canvas->Font->Color = (TColor)0x5C534C;
ABitmap->Canvas->Font->Size = 16 * Screen->PixelsPerInch / 96;
AChar = (WideChar)ACode;
DrawTextW(ABitmap->Canvas->Handle, &AChar, 1, &R, DT_CENTER || DT_VCENTER || DT_SINGLELINE);
ABitmap->TransformBitmap(btmSetOpaque);
AItem->Glyph = ABitmap;
}
__finally
{
ABitmap->Free();
}
}
//---------------------------------------------------------------------------
void TRibbonDemoMainForm::InitSymbolGallery()
{
const
int AMathMap[] = {0xB1, 0x2260, 0x2264, 0x2265, 0xF7, 0xD7, 0x221E, 0x2211};
int AGreekMap[] = {0x03B1, 0x03B2, 0x03B3, 0x03B4, 0x03B5, 0x03B6, 0x03B7, 0x03B8, 0x03B9, 0x03BA};
int ASymbolMap[] = {0xA9, 0xAE, 0x2122};
int ACurrencyMap[] = {0x20AC, 0x24, 0xA3, 0xA5, 0x20A3};
int I;
for (I = 0; I < 8; I++)
AddSymbolItem(rgiItemSymbol->GalleryGroups->Items[0], AMathMap[I]);
for (I = 0; I < 10; I++)
AddSymbolItem(rgiItemSymbol->GalleryGroups->Items[1], AGreekMap[I]);
for (I = 0; I < 3; I++)
AddSymbolItem(rgiItemSymbol->GalleryGroups->Items[2], ASymbolMap[I]);
for (I = 0; I < 5; I++)
AddSymbolItem(rgiItemSymbol->GalleryGroups->Items[3], ACurrencyMap[I]);
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::SetModified(bool Value)
{
Editor->Modified = Value;
if (Value)
{
stModified->ImageIndex = 2;
stModified->Caption = "Modified";
}
else
{
stModified->ImageIndex = -1;
stModified->Caption = "";
}
dxBarButtonSave->Enabled = Value;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::ShowItems(bool AShow)
{
BarManager->LockUpdate = true;
try
{
if (!AShow)
{
btnLineNumber->Caption = "";
btnColumnNumber->Caption = "";
stModified->Caption = "";
}
BarManager->Groups[0]->Enabled = AShow;
}
__finally
{
BarManager->LockUpdate = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::RibbonHelpButtonClick(TdxCustomRibbon *Sender)
{
ShowMessage("Clicked!");
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::RibbonHideMinimizedByClick(
TdxCustomRibbon *Sender, DWORD AWnd, TShiftState AShift,
const TPoint &APos, bool &AAllowProcessing)
{
AAllowProcessing = ((HWND *)AWnd != Editor->Handle);
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonOptionsClick(
TObject *Sender)
{
String AColorSchemeName;
TScreenTipOptions AScreenTipOptions;
AColorSchemeName = Ribbon->ColorSchemeName;
AScreenTipOptions.ShowScreenTips = BarManager->ShowHint;
AScreenTipOptions.ShowDescripitons = dxBarScreenTipRepository1->ShowDescription;
if (RibbonDemoOptionsForm->GetOptions(AColorSchemeName, AScreenTipOptions))
{
SetColorScheme(AColorSchemeName);
BarManager->ShowHint = AScreenTipOptions.ShowScreenTips;
dxBarScreenTipRepository1->ShowDescription = AScreenTipOptions.ShowDescripitons;
}
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::dxBarButtonFontColorClick(TObject *Sender)
{
SetFontColor();
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::rgiItemSymbolGroupItemClick(
TdxRibbonGalleryItem *Sender, TdxRibbonGalleryGroupItem *AItem)
{
//
}
//---------------------------------------------------------------------------
__fastcall TRichEditUndoController::TRichEditUndoController(TdxRibbonGalleryItem *AGalleryItem,
TRichEdit *AEditor)
{
FGalleryItem = AGalleryItem;
FEditor = AEditor;
}
//---------------------------------------------------------------------------
void TRichEditUndoController::AnalyseMessage()
{
int AMessageID;
if (!FIsLocked)
{
AMessageID = SendMessage(FEditor->Handle, EM_GETUNDONAME, 0, 0);
if ((AMessageID > 1) || (AMessageID == 1) && (AMessageID != FLastMessageID))
AddAction(AMessageID);
}
}
//---------------------------------------------------------------------------
void TRichEditUndoController::Lock()
{
FIsLocked = True;
FLastMessageID = 0;
}
//---------------------------------------------------------------------------
void TRichEditUndoController::UnLock()
{
FIsLocked = False;
}
//---------------------------------------------------------------------------
void TRichEditUndoController::AddAction(int AnActionID)
{
String RichEditAction[7] = {"Unknown", "Typing", "Delete",
"Drug And Drop", "Cut", "Paste", "Color Change"};
//if (AnActionID != 6 /*|| (FEditor->GetSelLength() != 0)*/)
PushUndo(RichEditAction[AnActionID]);
FLastMessageID = AnActionID;
}
//---------------------------------------------------------------------------
void TRichEditUndoController::PopUndo()
{
TdxRibbonGalleryGroup *AGroup;
AGroup = FGalleryItem->GalleryGroups->Items[0];
if (AGroup->Items->Count > 0)
AGroup->Items->Delete(0);
}
//---------------------------------------------------------------------------
void TRichEditUndoController::PushUndo(String AnAction)
{
TdxRibbonGalleryGroup *AGroup;
AGroup = RibbonDemoMainForm->rgiUndo->GalleryGroups->Items[0];
AGroup->Items->Insert(0);
AGroup->Items->Items[0]->Caption = AnAction;
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::rgiUndoHotTrackedItemChanged(
TdxRibbonGalleryGroupItem *APrevHotTrackedGroupItem,
TdxRibbonGalleryGroupItem *ANewHotTrackedGroupItem)
{
int ACount;
String AString;
if (ANewHotTrackedGroupItem != NULL)
{
ACount = ANewHotTrackedGroupItem->Index + 1;
bstSelectionInfo->Caption = "Undo " + IntToStr(ACount);
if (ACount == 1)
{
AString = " Action";
}
else
{
AString = " Actions";
}
bstSelectionInfo->Caption = bstSelectionInfo->Caption + AString;
}
else
bstSelectionInfo->Caption = "Cancel";
}
//---------------------------------------------------------------------------
void __fastcall TRibbonDemoMainForm::rgiUndoGroupItemClick(
TdxRibbonGalleryItem *Sender, TdxRibbonGalleryGroupItem *AItem)
{
Undo(AItem->Index + 1);
}
//---------------------------------------------------------------------------
#undef HDC
Reference in New Issue Copy Permalink