开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Email服务器 > 查看源码
RibbonNotepadDemoMain.pas
资源名称：EMailMasterbysuperroyor.rar　[点击查看]
上传用户：yjb1804
上传日期：2021-01-30
资源大小：3105k
文件大小：16k
源码类别：

Email服务器

开发平台：

Delphi

RibbonNotepadDemoMain.pas：源码内容
  1. unit RibbonNotepadDemoMain;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, ComCtrls, dxBar, StdCtrls, dxBarExtItems, cxControls,
  8.   ImgList, ActnList, cxLookAndFeels, dxStatusBar, cxGraphics, EBarsUtils,
  9.   dxRibbonForm, dxRibbon, cxClasses, Menus, dxRibbonStatusBar, cxStyles,
  10.   OleCtrls, SHDocVw, uHtmlEdit, ExtDlgs;
  12. type
  13.   TRibbonDemoMainForm = class(TdxRibbonForm)
  14.     BarManager: TdxBarManager;
  16.     dxBarButtonNew: TdxBarLargeButton;
  17.     dxBarButtonOpen: TdxBarLargeButton;
  18.     dxBarButtonSave: TdxBarLargeButton;
  19.     dxBarSubItemSaveAs: TdxBarSubItem;
  20.     dxBarButtonSaveAsRTF: TdxBarButton;
  21.     dxBarButtonSaveAsText: TdxBarButton;
  22.     dxBarButtonPrint: TdxBarLargeButton;
  23.     dxBarButtonExit: TdxBarLargeButton;
  24.     dxBarButtonUndo: TdxBarLargeButton;
  25.     dxBarButtonCut: TdxBarLargeButton;
  26.     dxBarButtonCopy: TdxBarLargeButton;
  27.     dxBarButtonPaste: TdxBarLargeButton;
  28.     dxBarButtonClear: TdxBarLargeButton;
  29.     dxBarButtonSelectAll: TdxBarLargeButton;
  30.     dxBarButtonFind: TdxBarLargeButton;
  31.     dxBarButtonReplace: TdxBarLargeButton;
  32.     dxBarComboFontSize: TdxBarCombo;
  33.     dxBarButtonBold: TdxBarLargeButton;
  34.     dxBarButtonItalic: TdxBarLargeButton;
  35.     dxBarButtonUnderline: TdxBarLargeButton;
  36.     dxBarButtonBullets: TdxBarLargeButton;
  37.     dxBarButtonProtected: TdxBarLargeButton;
  38.     dxBarButtonAlignLeft: TdxBarLargeButton;
  39.     dxBarButtonCenter: TdxBarLargeButton;
  40.     dxBarButtonAlignRight: TdxBarLargeButton;
  41.     dxBarButtonFont: TdxBarLargeButton;
  42.     dxBarSeparator: TdxBarSeparator;
  44.     OpenDialog: TOpenDialog;
  45.     SaveDialog: TSaveDialog;
  46.     PrintDialog: TPrintDialog;
  47.     FontDialog: TFontDialog;
  48.     dxBarPopupMenu: TdxRibbonPopupMenu;
  49.     dxBarComboFontColor: TdxBarColorCombo;
  50.     dxBarGroup1: TdxBarGroup;
  51.     dxBarButton1: TdxBarLargeButton;
  52.     dxBarComboFontName: TdxBarFontNameCombo;
  53.     ilStatusBarImages: TImageList;
  54.     dxStatusBar: TdxRibbonStatusBar;
  55.     FindDialog: TFindDialog;
  56.     ReplaceDialog: TReplaceDialog;
  57.     tabHome: TdxRibbonTab;
  58.     Ribbon: TdxRibbon;
  59.     tabAppearance: TdxRibbonTab;
  60.     BarManagerBar5: TdxBar;
  61.     BarManagerBar7: TdxBar;
  62.     ApplicationMenu: TdxBarApplicationMenu;
  63.     BarManagerBar8: TdxBar;
  64.     BarManagerBar1: TdxBar;
  65.     dxBarLargeButton3: TdxBarLargeButton;
  66.     dxBarLargeButton4: TdxBarLargeButton;
  67.     dxBarLargeButton5: TdxBarLargeButton;
  68.     dxBarLargeButton6: TdxBarLargeButton;
  69.     dxBarLargeButton7: TdxBarLargeButton;
  70.     BarManagerBar10: TdxBar;
  71.     dxBarLargeButton8: TdxBarLargeButton;
  72.     dxBarLargeButton9: TdxBarLargeButton;
  73.     dxBarLargeButton10: TdxBarLargeButton;
  74.     BarManagerBar12: TdxBar;
  75.     dxBarScreenTipRepository1: TdxBarScreenTipRepository;
  76.     cxLargeImages: TcxImageList;
  77.     cxSmallImages: TcxImageList;
  78.     BarManagerBar6: TdxBar;
  79.     BarManagerBar13: TdxBar;
  80.     btnLineNumber: TdxBarButton;
  81.     btnColumnNumber: TdxBarButton;
  82.     btnLocked: TdxBarButton;
  83.     stModified: TdxBarStatic;
  84.     stFontDialog: TdxBarScreenTip;
  85.     stHelpButton: TdxBarScreenTip;
  86.     HtmlEdit: THtmlEdit;
  87.     ActionListButton: TActionList;
  88.     Act_New: TAction;
  89.     Act_Open: TAction;
  90.     Act_Save: TAction;
  91.     Act_SaveAs: TAction;
  92.     Act_SaveTo: TAction;
  93.     Act_Clear: TAction;
  94.     Act_Redo: TAction;
  95.     Act_Undo: TAction;
  96.     Act_SelectAll: TAction;
  97.     Act_Print: TAction;
  98.     Act_PageSetup: TAction;
  99.     Act_PrintPreview: TAction;
  100.     Act_Write: TAction;
  101.     Act_Copy: TAction;
  102.     Act_Cut: TAction;
  103.     Act_Paste: TAction;
  104.     Act_Insert: TAction;
  105.     Act_Append: TAction;
  106.     Act_ViewSource: TAction;
  107.     Act_ViewText: TAction;
  108.     Act_Edit_BackColoer: TAction;
  109.     Act_Edit_Bold: TAction;
  110.     Act_Edit_CreateLink: TAction;
  111.     Act_Edit_ForeColor: TAction;
  112.     Act_Edit_HorizontalRule: TAction;
  113.     Act_Edit_InsertImage: TAction;
  114.     Act_Edit_InsertLineBreak: TAction;
  115.     Act_Edit_InsertOrderedlist: TAction;
  116.     Act_Edit_InsertTable: TAction;
  117.     Act_Edit_InsertUnOrderedList: TAction;
  118.     Act_Edit_JustifyCenter: TAction;
  119.     Act_Edit_JustifyFull: TAction;
  120.     Act_Edit_JustifyLeft: TAction;
  121.     Act_Edit_JustifyRight: TAction;
  122.     Act_Edit_Italic: TAction;
  123.     Act_Edit_RemoveFormat: TAction;
  124.     Act_Edit_ScrollToBottom: TAction;
  125.     Act_Edit_ScrollToTop: TAction;
  126.     Act_Edit_OutDent: TAction;
  127.     Act_Edit_InDent: TAction;
  128.     Act_Edit_SuperScript: TAction;
  129.     Act_Edit_SubScript: TAction;
  130.     Act_Edit_UnderLine: TAction;
  131.     Act_Edit_StrikeThrough: TAction;
  132.     Act_Exit: TAction;
  133.     Act_Help: TAction;
  134.     Act_About: TAction;
  135.     Act_M_ExampleWindow: TAction;
  136.     Act_M_ExampleButton: TAction;
  137.     dlgOpenPic: TOpenPictureDialog;
  138.     tabInsert: TdxRibbonTab;
  139.     tabTable: TdxRibbonTab;
  140.     dxBarButton2: TdxBarButton;
  142.     procedure FormCreate(Sender: TObject);
  143.     procedure dxBarLargeButton8Click(Sender: TObject);
  144.     procedure dxBarLargeButton9Click(Sender: TObject);
  145.     procedure dxBarLargeButton7Click(Sender: TObject);
  146.     procedure RibbonResize(Sender: TObject);
  147.     procedure RibbonHelpButtonClick(Sender: TdxCustomRibbon);
  148.     procedure Act_NewExecute(Sender: TObject);
  149.     procedure Act_OpenExecute(Sender: TObject);
  150.     procedure Act_SaveExecute(Sender: TObject);
  151.     procedure Act_SaveAsExecute(Sender: TObject);
  152.     procedure Act_SaveToExecute(Sender: TObject);
  153.     procedure Act_ClearExecute(Sender: TObject);
  154.     procedure Act_RedoExecute(Sender: TObject);
  155.     procedure Act_UndoExecute(Sender: TObject);
  156.     procedure Act_SelectAllExecute(Sender: TObject);
  157.     procedure Act_PrintExecute(Sender: TObject);
  158.     procedure Act_PageSetupExecute(Sender: TObject);
  159.     procedure Act_PrintPreviewExecute(Sender: TObject);
  160.     procedure Act_WriteExecute(Sender: TObject);
  161.     procedure Act_CopyExecute(Sender: TObject);
  162.     procedure Act_CutExecute(Sender: TObject);
  163.     procedure Act_PasteExecute(Sender: TObject);
  164.     procedure Act_Edit_BoldExecute(Sender: TObject);
  165.     procedure Act_Edit_CreateLinkExecute(Sender: TObject);
  166.     procedure Act_Edit_ForeColorExecute(Sender: TObject);
  167.     procedure Act_Edit_HorizontalRuleExecute(Sender: TObject);
  168.     procedure Act_Edit_InsertImageExecute(Sender: TObject);
  169.     procedure Act_Edit_InsertLineBreakExecute(Sender: TObject);
  170.     procedure Act_Edit_InsertOrderedlistExecute(Sender: TObject);
  171.     procedure Act_Edit_InsertTableExecute(Sender: TObject);
  172.     procedure Act_Edit_InsertUnOrderedListExecute(Sender: TObject);
  173.     procedure Act_Edit_JustifyCenterExecute(Sender: TObject);
  174.     procedure Act_Edit_JustifyFullExecute(Sender: TObject);
  175.     procedure Act_Edit_JustifyLeftExecute(Sender: TObject);
  176.     procedure Act_Edit_JustifyRightExecute(Sender: TObject);
  177.     procedure Act_Edit_ItalicExecute(Sender: TObject);
  178.     procedure Act_Edit_RemoveFormatExecute(Sender: TObject);
  179.     procedure Act_Edit_ScrollToBottomExecute(Sender: TObject);
  180.     procedure Act_Edit_ScrollToTopExecute(Sender: TObject);
  181.     procedure Act_Edit_OutDentExecute(Sender: TObject);
  182.     procedure Act_Edit_InDentExecute(Sender: TObject);
  183.     procedure Act_Edit_SuperScriptExecute(Sender: TObject);
  184.     procedure Act_Edit_SubScriptExecute(Sender: TObject);
  185.     procedure Act_Edit_UnderLineExecute(Sender: TObject);
  186.     procedure Act_Edit_StrikeThroughExecute(Sender: TObject);
  187.     procedure Act_ExitExecute(Sender: TObject);
  188.     procedure Act_FontNameExecute(Sender: TObject);
  189.     procedure Act_FontSizeExecute(Sender: TObject);
  190.     procedure dxBarLargeButton3Click(Sender: TObject);
  191.     procedure dxBarLargeButton4Click(Sender: TObject);
  192.     procedure dxBarLargeButton5Click(Sender: TObject);
  194.   private
  195.     FFileName: string;
  196.     procedure SetFileName(Value: string);
  198.   public
  200.     procedure SetColorScheme(const AName: string);
  202.     procedure ShowItems(AShow: Boolean);
  204.     property FileName: string read FFileName write SetFileName;
  205.   end;
  207. var
  208.   RibbonDemoMainForm: TRibbonDemoMainForm;
  210. implementation
  212. {$R *.DFM}
  213. {$R windowsxp.res}
  215. uses
  216.   RichEdit, RibbonDemoAbout;
  218. const
  219.   sRichEditFoundResultCaption = 'Information';
  220.   sRichEditTextNotFound = 'The search text is not found.';
  221.   sRichEditReplaceAllResult = 'Replaced %d occurances.';
  222.   sDefaultDocName = 'Document1.rtf';
  224.   RTFFilter = 'Rich Text Files (*.RTF)|*.RTF';
  225.   TXTFilter = 'Plain text (*.TXT)|*.TXT';
  227. function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
  228.   FontType: Integer; Data: Pointer): Integer; stdcall;
  229. begin
  230.   TStrings(Data).Add(LogFont.lfFaceName);
  231.   Result := 1;
  232. end;
  234. procedure TRibbonDemoMainForm.SetFileName(Value: string);
  235. var
  236.   AIndex: Integer;
  237. begin
  238.   Ribbon.DocumentName := ExtractFileName(Value);
  239.   FFileName := Value;
  241.   if FileExists(FFileName) then
  242.   begin
  243.     AIndex := ApplicationMenu.ExtraPaneItems.IndexOf(FFileName);
  244.     if AIndex > -1 then
  245.       ApplicationMenu.ExtraPaneItems.Delete(AIndex);
  246.     ApplicationMenu.ExtraPaneItems.Insert(0).Text := FFileName;
  247.   end;
  248. end;
  250. procedure TRibbonDemoMainForm.RibbonResize(Sender: TObject);
  251. const
  252.   Space = 8;
  253. begin
  254.   if Ribbon.QuickAccessToolbar.Position = qtpAboveRibbon then
  255.     dxBarLargeButton8.Down := True
  256.   else
  257.     dxBarLargeButton9.Down := True;
  258. end;
  260. procedure TRibbonDemoMainForm.SetColorScheme(const AName: string);
  261. begin
  262.   Ribbon.ColorSchemeName := AName;
  263.   dxStatusBar.Invalidate;
  264. end;
  266. procedure TRibbonDemoMainForm.ShowItems(AShow: Boolean);
  267. begin
  268.   BarManager.LockUpdate := True;
  269.   try
  270.     if not AShow then
  271.     begin
  272.       btnLineNumber.Caption := '';
  273.       btnColumnNumber.Caption := '';
  274.       stModified.Caption := '';
  275.     end;
  276.     BarManager.Groups[0].Enabled := AShow;
  277.   finally
  278.     BarManager.LockUpdate := False;
  279.   end;
  280. end;
  282. procedure TRibbonDemoMainForm.FormCreate(Sender: TObject);
  283. begin
  284.   dmCommonData.AboutFormClass := TRibbonDemoAboutForm;
  286.   HtmlEdit.Align := alClient;
  287.   //  OpenDialog.Filter := RTFFilter;
  288.   OpenDialog.InitialDir := ExtractFilePath(ParamStr(0));
  289.   SaveDialog.InitialDir := OpenDialog.InitialDir;
  290.   HtmlEdit.ImageFolder := ExtractFilePath(ParamStr(0)) + 'Images';
  291.   ShowItems(True);
  292. end;
  294. procedure TRibbonDemoMainForm.dxBarLargeButton7Click(Sender: TObject);
  295. begin
  296.   Ribbon.ApplicationButton.Visible := not Ribbon.ApplicationButton.Visible;
  297. end;
  299. procedure TRibbonDemoMainForm.dxBarLargeButton8Click(Sender: TObject);
  300. begin
  301.   Ribbon.QuickAccessToolbar.Position := qtpAboveRibbon;
  302. end;
  304. procedure TRibbonDemoMainForm.dxBarLargeButton9Click(Sender: TObject);
  305. begin
  306.   Ribbon.QuickAccessToolbar.Position := qtpBelowRibbon;
  307. end;
  309. procedure TRibbonDemoMainForm.RibbonHelpButtonClick(
  310.   Sender: TdxCustomRibbon);
  311. begin
  312.   ShowMessage('Clicked!');
  313. end;
  315. procedure TRibbonDemoMainForm.Act_NewExecute(Sender: TObject);
  316. begin
  317.   HtmlEdit.New;
  318. end;
  320. procedure TRibbonDemoMainForm.Act_ExitExecute(Sender: TObject);
  321. begin
  322.   Close;
  323. end;
  325. procedure TRibbonDemoMainForm.Act_FontNameExecute(Sender: TObject);
  326. begin
  327.   if dxBarComboFontName.Text <> '' then
  328.     HtmlEdit.Edit.FontName(dxBarComboFontName.Text);
  330. end;
  332. procedure TRibbonDemoMainForm.Act_FontSizeExecute(Sender: TObject);
  333. begin
  334.   HtmlEdit.Edit.FontSize(dxBarComboFontSize.ItemIndex + 1);
  335. end;
  337. procedure TRibbonDemoMainForm.Act_OpenExecute(Sender: TObject);
  338. begin
  339.   if OpenDialog.Execute then
  340.     HtmlEdit.Open(OpenDialog.FileName);
  341. end;
  343. procedure TRibbonDemoMainForm.Act_PasteExecute(Sender: TObject);
  344. begin
  345.   HtmlEdit.Paste;
  346. end;
  348. procedure TRibbonDemoMainForm.Act_PrintExecute(Sender: TObject);
  349. begin
  350.   HtmlEdit.Print;
  351. end;
  353. procedure TRibbonDemoMainForm.Act_PrintPreviewExecute(Sender: TObject);
  354. begin
  355.   HtmlEdit.PrintPreview;
  356. end;
  358. procedure TRibbonDemoMainForm.Act_RedoExecute(Sender: TObject);
  359. begin
  360.   HtmlEdit.Redo;
  361. end;
  363. procedure TRibbonDemoMainForm.Act_SaveExecute(Sender: TObject);
  364. begin
  365.   HtmlEdit.Save;
  366. end;
  368. procedure TRibbonDemoMainForm.Act_SelectAllExecute(Sender: TObject);
  369. begin
  370.   HtmlEdit.SelectAll;
  371. end;
  373. procedure TRibbonDemoMainForm.Act_UndoExecute(Sender: TObject);
  374. begin
  375.   HtmlEdit.Undo;
  376. end;
  378. procedure TRibbonDemoMainForm.Act_SaveAsExecute(Sender: TObject);
  379. begin
  380.   HtmlEdit.SaveAs;
  381. end;
  383. procedure TRibbonDemoMainForm.Act_SaveToExecute(Sender: TObject);
  384. begin
  385.   if SaveDialog.Execute then
  386.     HtmlEdit.SaveToFile(SaveDialog.FileName);
  387. end;
  389. procedure TRibbonDemoMainForm.Act_PageSetupExecute(Sender: TObject);
  390. begin
  391.   HtmlEdit.PrintPageSetup;
  392. end;
  394. procedure TRibbonDemoMainForm.Act_ClearExecute(Sender: TObject);
  395. begin
  396.   HtmlEdit.Clear;
  397. end;
  399. procedure TRibbonDemoMainForm.Act_WriteExecute(Sender: TObject);
  400. var
  401.   strTable: string;
  402.   RowCnt, ColCnt: integer;
  403. begin
  404.   strTable := '<TABLE border=1 >';
  405.   for RowCnt := 1 to 3 do
  406.   begin
  407.     strTable := strTable + '<TR>';
  408.     for ColCnt := 1 to 5 do
  409.       strTable := strTable + '<TD>&nbsp;</TD>';
  410.     strTable := strTable + '</TR>';
  411.   end;
  412.   strTable := strTable + '</TABLE>';
  414.   HtmlEdit.Write(strTable);
  416. end;
  418. procedure TRibbonDemoMainForm.Act_CopyExecute(Sender: TObject);
  419. begin
  420.   HtmlEdit.Copy;
  421. end;
  423. procedure TRibbonDemoMainForm.Act_CutExecute(Sender: TObject);
  424. begin
  425.   HtmlEdit.Cut;
  426. end;
  428. procedure TRibbonDemoMainForm.Act_Edit_BoldExecute(Sender: TObject);
  429. begin
  430.   HtmlEdit.Edit.Bold;
  431. end;
  433. procedure TRibbonDemoMainForm.Act_Edit_CreateLinkExecute(Sender: TObject);
  434. begin
  435.   HtmlEdit.Edit.CreateLink;
  436. end;
  438. procedure TRibbonDemoMainForm.Act_Edit_HorizontalRuleExecute(Sender: TObject);
  439. begin
  440.   HtmlEdit.Edit.InsertHorizontalRule;
  441. end;
  443. procedure TRibbonDemoMainForm.Act_Edit_ForeColorExecute(Sender: TObject);
  444. begin
  445.   HtmlEdit.Edit.ForeColor(dxBarComboFontColor.Color);
  446. end;
  448. procedure TRibbonDemoMainForm.Act_Edit_InsertImageExecute(Sender: TObject);
  449. begin
  450.   if dlgOpenPic.Execute then
  451.     HtmlEdit.Edit.InsertImage(dlgOpenPic.FileName);
  452. end;
  454. procedure TRibbonDemoMainForm.Act_Edit_InsertLineBreakExecute(Sender: TObject);
  455. begin
  456.   HtmlEdit.Edit.InsertLineBreak;
  457. end;
  459. procedure TRibbonDemoMainForm.Act_Edit_InsertOrderedlistExecute(Sender:
  460.   TObject);
  461. begin
  462.   HtmlEdit.Edit.InsertOrderedList;
  463. end;
  465. procedure TRibbonDemoMainForm.Act_Edit_InsertTableExecute(Sender: TObject);
  466. begin
  467.   //HtmlEdit.Edit.InsertTable(StrToInt(edt2.Text), StrToInt(edt3.Text));
  468. end;
  470. procedure TRibbonDemoMainForm.Act_Edit_InsertUnOrderedListExecute(
  471.   Sender: TObject);
  472. begin
  473.   HtmlEdit.Edit.InsertUnOrderedList;
  474. end;
  476. procedure TRibbonDemoMainForm.Act_Edit_JustifyCenterExecute(Sender: TObject);
  477. begin
  478.   HtmlEdit.Edit.JustifyCenter;
  479. end;
  481. procedure TRibbonDemoMainForm.Act_Edit_JustifyFullExecute(Sender: TObject);
  482. begin
  483.   HtmlEdit.Edit.JustifyFull;
  484. end;
  486. procedure TRibbonDemoMainForm.Act_Edit_JustifyLeftExecute(Sender: TObject);
  487. begin
  488.   HtmlEdit.Edit.JustifyLeft;
  489. end;
  491. procedure TRibbonDemoMainForm.Act_Edit_JustifyRightExecute(Sender: TObject);
  492. begin
  493.   HtmlEdit.Edit.JustifyRight;
  494. end;
  496. procedure TRibbonDemoMainForm.Act_Edit_ItalicExecute(Sender: TObject);
  497. begin
  498.   HtmlEdit.Edit.Italic;
  499. end;
  501. procedure TRibbonDemoMainForm.Act_Edit_RemoveFormatExecute(Sender: TObject);
  502. begin
  503.   HtmlEdit.Edit.RemoveFormat;
  504. end;
  506. procedure TRibbonDemoMainForm.Act_Edit_ScrollToBottomExecute(Sender: TObject);
  507. begin
  508.   HtmlEdit.Edit.ScrollToBottom;
  509. end;
  511. procedure TRibbonDemoMainForm.Act_Edit_ScrollToTopExecute(Sender: TObject);
  512. begin
  513.   HtmlEdit.Edit.ScrollToTop;
  514. end;
  516. procedure TRibbonDemoMainForm.Act_Edit_OutDentExecute(Sender: TObject);
  517. begin
  518.   HtmlEdit.Edit.OutDent;
  519. end;
  521. procedure TRibbonDemoMainForm.Act_Edit_InDentExecute(Sender: TObject);
  522. begin
  523.   HtmlEdit.Edit.InDent;
  524. end;
  526. procedure TRibbonDemoMainForm.Act_Edit_SuperScriptExecute(Sender: TObject);
  527. begin
  528.   HtmlEdit.Edit.SuperScript;
  529. end;
  531. procedure TRibbonDemoMainForm.Act_Edit_SubScriptExecute(Sender: TObject);
  532. begin
  533.   HtmlEdit.Edit.SubScript;
  534. end;
  536. procedure TRibbonDemoMainForm.Act_Edit_UnderLineExecute(Sender: TObject);
  537. begin
  538.   HtmlEdit.Edit.UnderLine;
  539. end;
  541. procedure TRibbonDemoMainForm.Act_Edit_StrikeThroughExecute(Sender: TObject);
  542. begin
  543.   HtmlEdit.Edit.StrikeThrough;
  544. end;
  546. procedure TRibbonDemoMainForm.dxBarLargeButton3Click(Sender: TObject);
  547. begin
  548.   SetColorScheme('Blue');
  549. end;
  551. procedure TRibbonDemoMainForm.dxBarLargeButton4Click(Sender: TObject);
  552. begin
  553.   SetColorScheme('Black');
  554. end;
  556. procedure TRibbonDemoMainForm.dxBarLargeButton5Click(Sender: TObject);
  557. begin
  558.   SetColorScheme('Silver');
  559. end;
  561. end.