david
5678df5538
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
747 lines
26 KiB
ObjectPascal
747 lines
26 KiB
ObjectPascal
unit EBar2000DemoMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
dxBar, dxBarExtItems, stdctrls, Buttons, ExtCtrls, ImgList, ActnList,
|
|
ComCtrls, EBarsUtils;
|
|
|
|
type
|
|
TEBar2000DemoMainForm = class(TForm)
|
|
dxBarManager: TdxBarManager;
|
|
siFile: TdxBarSubItem;
|
|
siEdit: TdxBarSubItem;
|
|
siView: TdxBarSubItem;
|
|
siInsert: TdxBarSubItem;
|
|
siFormat: TdxBarSubItem;
|
|
siTools: TdxBarSubItem;
|
|
siTable: TdxBarSubItem;
|
|
siWindow: TdxBarSubItem;
|
|
siHelp: TdxBarSubItem;
|
|
btnNew: TdxBarLargeButton;
|
|
btnNewWebPage: TdxBarLargeButton;
|
|
btnNewEmailMessage: TdxBarLargeButton;
|
|
btnNewBlankDocument: TdxBarLargeButton;
|
|
btnOpen: TdxBarLargeButton;
|
|
btnClose: TdxBarLargeButton;
|
|
btnCloseAll: TdxBarLargeButton;
|
|
btnSave: TdxBarLargeButton;
|
|
btnSaveAs: TdxBarLargeButton;
|
|
btnSaveAsWebPage: TdxBarLargeButton;
|
|
btnSaveAll: TdxBarLargeButton;
|
|
btnSaveVersion: TdxBarLargeButton;
|
|
btnWebPagePreview: TdxBarLargeButton;
|
|
btnPageSetup: TdxBarLargeButton;
|
|
btnPrintPreview: TdxBarLargeButton;
|
|
btnPrint: TdxBarLargeButton;
|
|
btnPrintSetup: TdxBarLargeButton;
|
|
btnMailRecipient: TdxBarLargeButton;
|
|
btnSendNow: TdxBarLargeButton;
|
|
btnRoundRecipient: TdxBarLargeButton;
|
|
btnExchengeFolder: TdxBarLargeButton;
|
|
btnFaxRecipient: TdxBarLargeButton;
|
|
btnSendToMicrosoftPowerPoint: TdxBarLargeButton;
|
|
btnVersion: TdxBarLargeButton;
|
|
btnProperties: TdxBarLargeButton;
|
|
btnExit: TdxBarLargeButton;
|
|
btnUndo: TdxBarLargeButton;
|
|
btnRedo: TdxBarLargeButton;
|
|
btnRepeat: TdxBarLargeButton;
|
|
btnCut: TdxBarLargeButton;
|
|
btnCopy: TdxBarLargeButton;
|
|
btnPaste: TdxBarLargeButton;
|
|
btnPasteTable: TdxBarLargeButton;
|
|
btnPasteSpecial: TdxBarLargeButton;
|
|
btnPasetAsHyperlink: TdxBarLargeButton;
|
|
btnClear: TdxBarLargeButton;
|
|
dxBarButton1: TdxBarLargeButton;
|
|
btnFind: TdxBarLargeButton;
|
|
btnFindNext: TdxBarLargeButton;
|
|
btnReplace: TdxBarLargeButton;
|
|
btnGoTo: TdxBarLargeButton;
|
|
btnLinks: TdxBarLargeButton;
|
|
btnObject: TdxBarLargeButton;
|
|
btnPicture: TdxBarLargeButton;
|
|
btnCreateTextBoxLink: TdxBarLargeButton;
|
|
btnBreakForwardLink: TdxBarLargeButton;
|
|
btnNextTextBox: TdxBarLargeButton;
|
|
btnPreviousTextBox: TdxBarLargeButton;
|
|
btnNextComment: TdxBarLargeButton;
|
|
btnPreviousComment: TdxBarLargeButton;
|
|
cbZoom: TdxBarCombo;
|
|
btnRuler: TdxBarLargeButton;
|
|
btnShowAll: TdxBarLargeButton;
|
|
btnDocumentMap: TdxBarLargeButton;
|
|
btnViewFieldCodes: TdxBarLargeButton;
|
|
btnShowFieldShading: TdxBarLargeButton;
|
|
btnFullScreen: TdxBarLargeButton;
|
|
btnMagnifier: TdxBarLargeButton;
|
|
btnZoom100: TdxBarLargeButton;
|
|
btnFitToWindow: TdxBarLargeButton;
|
|
btnOnePage: TdxBarLargeButton;
|
|
btnNormal: TdxBarLargeButton;
|
|
btnWebLayout: TdxBarLargeButton;
|
|
btnPrintLayout: TdxBarLargeButton;
|
|
btnOutLine: TdxBarLargeButton;
|
|
siToolBars: TdxBarSubItem;
|
|
btnComments: TdxBarLargeButton;
|
|
btnHTMLSource: TdxBarLargeButton;
|
|
dxBarButton2: TdxBarLargeButton;
|
|
dxBarButton3: TdxBarLargeButton;
|
|
btnPromote: TdxBarLargeButton;
|
|
btnDemote: TdxBarLargeButton;
|
|
btnDemoteToBodyText: TdxBarLargeButton;
|
|
btnMoveUp: TdxBarLargeButton;
|
|
btnMoveDown: TdxBarLargeButton;
|
|
btnExpand: TdxBarLargeButton;
|
|
btnCollapse: TdxBarLargeButton;
|
|
btnAll: TdxBarLargeButton;
|
|
btnShowHeading1: TdxBarLargeButton;
|
|
btnShowHeading2: TdxBarLargeButton;
|
|
btnShowHeading3: TdxBarLargeButton;
|
|
btnShowHeading4: TdxBarLargeButton;
|
|
btnShowHeading5: TdxBarLargeButton;
|
|
btnFirstLineOnlyView: TdxBarLargeButton;
|
|
btnShowFormatting: TdxBarLargeButton;
|
|
btnMasterDocumentView: TdxBarLargeButton;
|
|
btnNextHeader: TdxBarLargeButton;
|
|
btnPreviousHeader1: TdxBarLargeButton;
|
|
btnHideBodyText: TdxBarLargeButton;
|
|
btnPageBreak: TdxBarLargeButton;
|
|
btnInsertColumnBreak: TdxBarLargeButton;
|
|
btnInsertSectionBreak: TdxBarLargeButton;
|
|
btnPageNumber: TdxBarLargeButton;
|
|
btnNumberOfPages: TdxBarLargeButton;
|
|
btnDate: TdxBarLargeButton;
|
|
btnTime: TdxBarLargeButton;
|
|
btnPageNumbers: TdxBarLargeButton;
|
|
btnDateAndTime: TdxBarLargeButton;
|
|
btnAutoText: TdxBarLargeButton;
|
|
btnSumbol: TdxBarLargeButton;
|
|
btnComment: TdxBarLargeButton;
|
|
btnDeleteComment: TdxBarLargeButton;
|
|
btnFootnote: TdxBarLargeButton;
|
|
InsertListNumField: TdxBarLargeButton;
|
|
btnHyperlink: TdxBarLargeButton;
|
|
btnFromFile: TdxBarLargeButton;
|
|
btnTextBox: TdxBarLargeButton;
|
|
btnHorizontal: TdxBarLargeButton;
|
|
btnFile: TdxBarLargeButton;
|
|
btnInsertExcelSpreadsheet: TdxBarLargeButton;
|
|
btnChart: TdxBarLargeButton;
|
|
btnWordArt: TdxBarLargeButton;
|
|
btnEquationEditor: TdxBarLargeButton;
|
|
btnVoiceComment: TdxBarLargeButton;
|
|
btnPenComment: TdxBarLargeButton;
|
|
btnFromScannerOrCamear: TdxBarLargeButton;
|
|
btnClipArt: TdxBarLargeButton;
|
|
btnDataBase: TdxBarLargeButton;
|
|
btnAddressBook: TdxBarLargeButton;
|
|
btnObject1: TdxBarLargeButton;
|
|
cbFontName: TdxBarFontNameCombo;
|
|
cnFontSize: TdxBarCombo;
|
|
cbStyle: TdxBarCombo;
|
|
btnBold: TdxBarLargeButton;
|
|
btnItalic: TdxBarLargeButton;
|
|
btnUnderline: TdxBarLargeButton;
|
|
btnFormatPainter: TdxBarLargeButton;
|
|
btnGrowFont: TdxBarLargeButton;
|
|
btnShrinkFont: TdxBarLargeButton;
|
|
btnGrowFont1Pt: TdxBarLargeButton;
|
|
btnShinkFont1Pt: TdxBarLargeButton;
|
|
btnSmallCaps: TdxBarLargeButton;
|
|
btnAllCaps: TdxBarLargeButton;
|
|
btnSuperscript: TdxBarLargeButton;
|
|
btnsubscript: TdxBarLargeButton;
|
|
btnDecreaseIndent: TdxBarLargeButton;
|
|
btnIncreaseIndent: TdxBarLargeButton;
|
|
btnNumbering: TdxBarLargeButton;
|
|
btnBullets: TdxBarLargeButton;
|
|
btnAlignLeft: TdxBarLargeButton;
|
|
btnCenter: TdxBarLargeButton;
|
|
btnAlignRight: TdxBarLargeButton;
|
|
btnJustify: TdxBarLargeButton;
|
|
btnColumns: TdxBarLargeButton;
|
|
btnAutoFormat: TdxBarLargeButton;
|
|
btnInsertListNumField: TdxBarLargeButton;
|
|
btnChangeTextDirection: TdxBarLargeButton;
|
|
btnFont: TdxBarLargeButton;
|
|
btnParagraph: TdxBarLargeButton;
|
|
btnBulletsAndNumbering1: TdxBarLargeButton;
|
|
btnGropCap: TdxBarLargeButton;
|
|
btnStyle: TdxBarLargeButton;
|
|
btnTextDirection: TdxBarLargeButton;
|
|
btnChangeCase: TdxBarLargeButton;
|
|
btnTheme: TdxBarLargeButton;
|
|
btnCOMAddIns: TdxBarLargeButton;
|
|
btnSpellingandGrammar: TdxBarLargeButton;
|
|
btnNextMisspelling: TdxBarLargeButton;
|
|
btnHideSpellingErrors: TdxBarLargeButton;
|
|
btnHideGrammarErrors: TdxBarLargeButton;
|
|
btnSpelling: TdxBarLargeButton;
|
|
btnDictionary: TdxBarLargeButton;
|
|
btnGrammar: TdxBarLargeButton;
|
|
btnSetLanguage: TdxBarLargeButton;
|
|
btnThesaurus: TdxBarLargeButton;
|
|
btnWordCount: TdxBarLargeButton;
|
|
btnAutoSummarize: TdxBarLargeButton;
|
|
btnResumarize: TdxBarLargeButton;
|
|
btnHighlightShowOnlySummary: TdxBarLargeButton;
|
|
btnAutoCorrect: TdxBarLargeButton;
|
|
btnToolsAutoCorrectExceptions: TdxBarLargeButton;
|
|
btnHighlightChanges: TdxBarLargeButton;
|
|
btnTrackChanges: TdxBarLargeButton;
|
|
btnAcceptOrRejectChanges: TdxBarLargeButton;
|
|
btnAcceptChange: TdxBarLargeButton;
|
|
btnRejectChange: TdxBarLargeButton;
|
|
btnNextChange: TdxBarLargeButton;
|
|
btnPreviousChange: TdxBarLargeButton;
|
|
btnCompareDocuments: TdxBarLargeButton;
|
|
btnMergeDocuments: TdxBarLargeButton;
|
|
btnProtectDocument: TdxBarLargeButton;
|
|
btnEnvelopesAndLabels: TdxBarLargeButton;
|
|
btnLetterWizard: TdxBarLargeButton;
|
|
btnMacros: TdxBarLargeButton;
|
|
btnRecordMacroStopRecorder: TdxBarLargeButton;
|
|
btnSecurity: TdxBarLargeButton;
|
|
btnVisualBasicEditor: TdxBarLargeButton;
|
|
btnMicrosoftScriptEditor: TdxBarLargeButton;
|
|
btnInsertScript: TdxBarLargeButton;
|
|
btnRemoveAllScripts: TdxBarLargeButton;
|
|
btnShowAllScripts: TdxBarLargeButton;
|
|
btnStopRecordind: TdxBarLargeButton;
|
|
btnPauseRecording: TdxBarLargeButton;
|
|
btnUpdateField: TdxBarLargeButton;
|
|
btnRepaginate: TdxBarLargeButton;
|
|
btnShrinkOnePage: TdxBarLargeButton;
|
|
btnInsertTable: TdxBarLargeButton;
|
|
dxBarButton4: TdxBarLargeButton;
|
|
btnCells: TdxBarLargeButton;
|
|
btnRows: TdxBarLargeButton;
|
|
btnColumnsToTheLeft: TdxBarLargeButton;
|
|
btnDeleteCells: TdxBarLargeButton;
|
|
btnDeleteRows: TdxBarLargeButton;
|
|
btnDeleteColumns: TdxBarLargeButton;
|
|
btnGridLines: TdxBarLargeButton;
|
|
btnTableAutoFormat: TdxBarLargeButton;
|
|
btnAutoSum: TdxBarLargeButton;
|
|
btnSortAscepring: TdxBarLargeButton;
|
|
btnSortDescending: TdxBarLargeButton;
|
|
btnFindInField: TdxBarLargeButton;
|
|
btnTableInsert: TdxBarSubItem;
|
|
btnTablesandBordersToolbar: TdxBarLargeButton;
|
|
btnDrawTable: TdxBarLargeButton;
|
|
btnEraser: TdxBarLargeButton;
|
|
btnMergeCells: TdxBarLargeButton;
|
|
btnAplitCells: TdxBarLargeButton;
|
|
btnAlignTop: TdxBarLargeButton;
|
|
btnCenterVerticaly: TdxBarLargeButton;
|
|
btnAlignBottom: TdxBarLargeButton;
|
|
siCellAlignment: TdxBarSubItem;
|
|
btnDistributeRowsEvenly: TdxBarLargeButton;
|
|
btnDistributeColumnsEvenly: TdxBarLargeButton;
|
|
btnNewWindow: TdxBarLargeButton;
|
|
btnArrangeAll: TdxBarLargeButton;
|
|
btnSplit: TdxBarLargeButton;
|
|
btnNextWindow: TdxBarLargeButton;
|
|
btnPreviousWindow: TdxBarLargeButton;
|
|
dxBarButton7: TdxBarLargeButton;
|
|
dxBarButton8: TdxBarLargeButton;
|
|
dxBarButton9: TdxBarLargeButton;
|
|
dxBarButton10: TdxBarLargeButton;
|
|
dxBarButton11: TdxBarLargeButton;
|
|
dxBarButton12: TdxBarLargeButton;
|
|
dxBarButton13: TdxBarLargeButton;
|
|
dxBarButton14: TdxBarLargeButton;
|
|
Images: TImageList;
|
|
siSendTo: TdxBarSubItem;
|
|
siPicture: TdxBarSubItem;
|
|
siLanguage: TdxBarSubItem;
|
|
btnCustomize: TdxBarLargeButton;
|
|
siMacro: TdxBarSubItem;
|
|
siInsertTable: TdxBarSubItem;
|
|
siDeleteTable: TdxBarSubItem;
|
|
siAutoFit: TdxBarSubItem;
|
|
btnTableProperties: TdxBarLargeButton;
|
|
StyleImages: TImageList;
|
|
btnFontColor: TdxBarLargeButton;
|
|
btnHighlight: TdxBarLargeButton;
|
|
FontColorPopupMenu: TdxBarPopupMenu;
|
|
HightlightColorPopupMenu: TdxBarPopupMenu;
|
|
btnFontColorItem: TdxBarLargeButton;
|
|
btnDownFontColorItem: TdxBarLargeButton;
|
|
btnCustomFontColor: TdxBarLargeButton;
|
|
ColorDialog: TColorDialog;
|
|
btnColorItem: TdxBarLargeButton;
|
|
btnDownColorItem: TdxBarLargeButton;
|
|
btnCustomColor: TdxBarLargeButton;
|
|
btnStandard: TdxBarLargeButton;
|
|
btnFormatting: TdxBarLargeButton;
|
|
FontDialog: TFontDialog;
|
|
btnInternet: TdxBarLargeButton;
|
|
cbAddress: TdxBarCombo;
|
|
btnBack: TdxBarLargeButton;
|
|
btnForward: TdxBarLargeButton;
|
|
btnStop: TdxBarLargeButton;
|
|
btnRefresh: TdxBarLargeButton;
|
|
btnHome: TdxBarLargeButton;
|
|
ilHotImages: TImageList;
|
|
ilDisabledImages: TImageList;
|
|
btnAttach: TdxBarLargeButton;
|
|
dxBarButton5: TdxBarLargeButton;
|
|
dxBarButton6: TdxBarLargeButton;
|
|
dxBarButton15: TdxBarLargeButton;
|
|
dxBarButton16: TdxBarLargeButton;
|
|
dxBarButton17: TdxBarLargeButton;
|
|
dxBarButton18: TdxBarLargeButton;
|
|
dxBarButton19: TdxBarLargeButton;
|
|
Panel1: TPanel;
|
|
ScrollBox1: TScrollBox;
|
|
gbOptions: TGroupBox;
|
|
rgMenuAnimations: TRadioGroup;
|
|
bgBar1: TGroupBox;
|
|
SpeedButton1: TSpeedButton;
|
|
cbAllowCustomizingBar1: TCheckBox;
|
|
cbAllowQuickCustomizingBar1: TCheckBox;
|
|
cbAllowResetBar1: TCheckBox;
|
|
CheckBox1: TCheckBox;
|
|
gbBar2: TGroupBox;
|
|
SpeedButton2: TSpeedButton;
|
|
cbAllowCustomizingBar2: TCheckBox;
|
|
cbAllowQuickCustomizingBar2: TCheckBox;
|
|
cbAllowResetBar2: TCheckBox;
|
|
CheckBox2: TCheckBox;
|
|
rgBar3: TGroupBox;
|
|
cbRotateWhenVertical: TCheckBox;
|
|
rgStyle: TRadioGroup;
|
|
gbImages: TGroupBox;
|
|
cbHotImages: TCheckBox;
|
|
cbDisabledImages: TCheckBox;
|
|
CheckBox4: TCheckBox;
|
|
gbMiscellaneous: TGroupBox;
|
|
sbFont: TSpeedButton;
|
|
sbDockColor: TSpeedButton;
|
|
cbCanCustomize: TCheckBox;
|
|
cbAllowReset: TCheckBox;
|
|
cbShowHelpButton: TCheckBox;
|
|
cbSunkenBorder: TCheckBox;
|
|
cbMenusShowRecentItemsFirst: TCheckBox;
|
|
cbShowFullMenusAfterDelay: TCheckBox;
|
|
cbStretchGlyphs: TCheckBox;
|
|
cbShowCaptions: TCheckBox;
|
|
gbAlphaBlending: TGroupBox;
|
|
tbStandard: TTrackBar;
|
|
dxBarLargeButton1: TdxBarLargeButton;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
dxBarLargeButton2: TdxBarLargeButton;
|
|
GroupBox1: TGroupBox;
|
|
Label5: TLabel;
|
|
Label1: TLabel;
|
|
Label4: TLabel;
|
|
tbFormatting: TTrackBar;
|
|
Label6: TLabel;
|
|
procedure cbStyleMeasureItem(Sender: TdxBarCustomCombo;
|
|
AIndex: Integer; var AHeight: Integer);
|
|
procedure cbStyleDrawItem(Sender: TdxBarCustomCombo; AIndex: Integer;
|
|
ARect: TRect; AState: TOwnerDrawState);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure btnFontColorItemClick(Sender: TObject);
|
|
procedure btnCustomFontColorClick(Sender: TObject);
|
|
procedure btnColorItemClick(Sender: TObject);
|
|
procedure btnCustomColorClick(Sender: TObject);
|
|
procedure btnStandardClick(Sender: TObject);
|
|
procedure sbFontClick(Sender: TObject);
|
|
procedure cbCanCustomizeClick(Sender: TObject);
|
|
procedure sbDockColorClick(Sender: TObject);
|
|
procedure cbAllowResetClick(Sender: TObject);
|
|
procedure cbShowHelpButtonClick(Sender: TObject);
|
|
procedure cbSunkenBorderClick(Sender: TObject);
|
|
procedure cbMenusShowRecentItemsFirstClick(Sender: TObject);
|
|
procedure rgMenuAnimationsClick(Sender: TObject);
|
|
procedure SpeedButton1Click(Sender: TObject);
|
|
procedure SpeedButton2Click(Sender: TObject);
|
|
procedure cbAllowCustomizingBar1Click(Sender: TObject);
|
|
procedure cbAllowQuickCustomizingBar1Click(Sender: TObject);
|
|
procedure cbAllowResetBar1Click(Sender: TObject);
|
|
procedure cbAllowCustomizingBar2Click(Sender: TObject);
|
|
procedure cbAllowQuickCustomizingBar2Click(Sender: TObject);
|
|
procedure cbAllowResetBar2Click(Sender: TObject);
|
|
procedure cbShowFullMenusAfterDelayClick(Sender: TObject);
|
|
procedure dxBarManagerHelpButtonClick(Sender: TObject);
|
|
procedure cbRotateWhenVerticalClick(Sender: TObject);
|
|
procedure btnCustomizeClick(Sender: TObject);
|
|
procedure dxBarManagerBarVisibleChange(Sender: TdxBarManager;
|
|
ABar: TdxBar);
|
|
procedure cbStretchGlyphsClick(Sender: TObject);
|
|
procedure rgStyleClick(Sender: TObject);
|
|
procedure CheckBox1Click(Sender: TObject);
|
|
procedure CheckBox2Click(Sender: TObject);
|
|
procedure cbShowCaptionsClick(Sender: TObject);
|
|
procedure cbHotImagesClick(Sender: TObject);
|
|
procedure cbDisabledImagesClick(Sender: TObject);
|
|
procedure CheckBox4Click(Sender: TObject);
|
|
procedure TrackBarChange(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
procedure UpdateColorItems(AButton, ADownButton, ACustomButton,
|
|
AItemButton: TdxBarLargeButton; APopupMenu: TdxBarPopupMenu);
|
|
procedure UpdateColorButtonGlyph(AButton: TdxBarLargeButton);
|
|
public
|
|
{ Public declarations }
|
|
FUpdateVisible : Boolean;
|
|
end;
|
|
|
|
var
|
|
EBar2000DemoMainForm: TEBar2000DemoMainForm;
|
|
|
|
implementation
|
|
|
|
uses EBar2000DemoAbout;
|
|
|
|
{$R *.DFM}
|
|
{$R windowsxp.res}
|
|
|
|
procedure TEBar2000DemoMainForm.cbStyleMeasureItem(Sender: TdxBarCustomCombo;
|
|
AIndex: Integer; var AHeight: Integer);
|
|
begin
|
|
AHeight := 35;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbStyleDrawItem(Sender: TdxBarCustomCombo;
|
|
AIndex: Integer; ARect: TRect; AState: TOwnerDrawState);
|
|
begin
|
|
if Sender.DroppedDown then
|
|
with Sender.Canvas do
|
|
begin
|
|
StyleImages.Draw(Sender.Canvas, ARect.Left, ARect.Top, AIndex);
|
|
FrameRect(ARect);
|
|
InflateRect(ARect, -1, -1);
|
|
FrameRect(ARect);
|
|
end
|
|
else
|
|
Sender.Canvas.TextRect(ARect, ARect.Left + 1, ARect.Top, TdxBarCombo(Sender).Text);
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.FormCreate(Sender: TObject);
|
|
begin
|
|
dmCommonData.AboutFormClass := TEBar2000DemoAboutForm;
|
|
|
|
cbAddress.Items.Add(dxStartURL);
|
|
cbAddress.Items.Add(dxSupportURL);
|
|
|
|
TrackBarChange(tbStandard);
|
|
TrackBarChange(tbFormatting);
|
|
btnFontColor.Tag := clBlue;
|
|
UpdateColorItems(btnFontColor, btnDownFontColorItem, btnCustomFontColor, btnFontColorItem, FontColorPopupMenu);
|
|
btnHighlight.Tag := clYellow;
|
|
UpdateColorItems(btnHighlight, btnDownColorItem, btnCustomColor, btnColorItem, HightlightColorPopupMenu);
|
|
FUpdateVisible := True;
|
|
rgStyleClick(nil);
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.UpdateColorItems(AButton, ADownButton, ACustomButton, AItemButton: TdxBarLargeButton;
|
|
APopupMenu: TdxBarPopupMenu);
|
|
const
|
|
Colors: array [0..15] of TColor = (clBlack, clMaroon, clGreen, clOlive, clNavy, clPurple, clTeal, clGray, clSilver,
|
|
clRed, clLime, clYellow, clBlue, clFuchsia, clAqua, clWhite);
|
|
ColorNames: array [0..15] of string = ('Black', 'Maroon', 'Green', 'Olive', 'Navy', 'Purple', 'Teal', 'Gray', 'Silver',
|
|
'Red', 'Lime', 'Yellow', 'Blue', 'Fuchsia', 'Aqua', 'White');
|
|
var
|
|
I: Integer;
|
|
B: TBitmap;
|
|
begin
|
|
B := TBitmap.Create;
|
|
B.Width := Images.Width + 1;
|
|
B.Height := Images.Height;
|
|
APopupMenu.ItemLinks.Clear;
|
|
for I := 0 to 15 do
|
|
begin
|
|
if Colors[I] <> clBlack then
|
|
B.Canvas.Brush.Color := clBlack
|
|
else
|
|
B.Canvas.Brush.Color := clWhite;
|
|
B.Canvas.FillRect(Rect(0, 0, B.Width, B.Height));
|
|
B.Canvas.Brush.Color := Colors[I];
|
|
B.Canvas.Pen.Color := clGray;
|
|
if AButton.Tag = Colors[I] then
|
|
B.Canvas.Rectangle(1, 1, B.Width - 3, B.Height - 2)
|
|
else
|
|
B.Canvas.Rectangle(2, 2, B.Width - 2, B.Height - 1);
|
|
with APopupMenu.ItemLinks.Add do
|
|
begin
|
|
if AButton.Tag = Colors[I] then
|
|
begin
|
|
Item := ADownButton;
|
|
ADownButton.Down := True;
|
|
end
|
|
else
|
|
Item := AItemButton;
|
|
Data := Colors[I];
|
|
UserCaption := ColorNames[I];
|
|
UserGlyph := B;
|
|
end;
|
|
end;
|
|
with APopupMenu.ItemLinks.Add do
|
|
begin
|
|
Item := ACustomButton;
|
|
UserCaption := 'Custom ...';
|
|
BeginGroup := True;
|
|
end;
|
|
B.Free;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.btnFontColorItemClick(Sender: TObject);
|
|
begin
|
|
btnFontColor.Tag := TdxBarLargeButton(Sender).ClickItemLink.Data;
|
|
UpdateColorItems(btnFontColor, btnDownFontColorItem, btnCustomFontColor, btnFontColorItem, FontColorPopupMenu);
|
|
UpdateColorButtonGlyph(btnFontColor);
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.UpdateColorButtonGlyph(AButton: TdxBarLargeButton);
|
|
var B : TBitmap;
|
|
R : TRect;
|
|
begin
|
|
B := TBitmap.Create;
|
|
with B, Canvas do
|
|
begin
|
|
Width := AButton.Glyph.Width;
|
|
Height := AButton.Glyph.Height;
|
|
if AButton.Tag = clFuchsia then
|
|
Brush.Color := clSilver
|
|
else
|
|
Brush.Color := clFuchsia;
|
|
R := Rect(0, 0, Width, Height);
|
|
FillRect(R);
|
|
BrushCopy(R, AButton.Glyph, R, AButton.Glyph.TransparentColor);
|
|
Brush.Color := AButton.Tag;
|
|
if ColorToRGB(AButton.Tag) <> ColorToRGB(clBtnFace) then
|
|
Pen.Color := AButton.Tag
|
|
else
|
|
Pen.Color := clBlack;
|
|
Rectangle(0, Height - 4, Width, Height - 1)
|
|
end;
|
|
AButton.Glyph.Assign(B);
|
|
B.Free;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.btnCustomFontColorClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := btnFontColor.Tag;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
btnFontColor.Tag := ColorDialog.Color;
|
|
UpdateColorButtonGlyph(btnFontColor);
|
|
UpdateColorItems(btnFontColor, btnDownFontColorItem, btnCustomFontColor, btnFontColorItem, FontColorPopupMenu);
|
|
end;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.btnColorItemClick(Sender: TObject);
|
|
begin
|
|
btnHighlight.Tag := TdxBarLargeButton(Sender).ClickItemLink.Data;
|
|
UpdateColorItems(btnHighlight, btnDownColorItem, btnCustomColor, btnColorItem, HightlightColorPopupMenu);
|
|
UpdateColorButtonGlyph(btnHighlight);
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.btnCustomColorClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := btnHighlight.Tag;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
btnHighlight.Tag := ColorDialog.Color;
|
|
UpdateColorButtonGlyph(btnHighlight);
|
|
UpdateColorItems(btnHighlight, btnDownColorItem, btnCustomColor, btnColorItem, HightlightColorPopupMenu);
|
|
end;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.btnStandardClick(Sender: TObject);
|
|
begin
|
|
FUpdateVisible := False;
|
|
dxBarManager.Bars[TdxBarLargeButton(Sender).Tag].Visible := TdxBarLargeButton(Sender).Down;
|
|
FUpdateVisible := True;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.sbFontClick(Sender: TObject);
|
|
begin
|
|
FontDialog.Font.Assign(dxBarManager.Font);
|
|
if FontDialog.Execute then
|
|
dxBarManager.Font.Assign(FontDialog.Font);
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbCanCustomizeClick(Sender: TObject);
|
|
begin
|
|
dxBarManager.CanCustomize := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.sbDockColorClick(Sender: TObject);
|
|
begin
|
|
if ColorDialog.Execute then
|
|
dxBarManager.DockColor := ColorDialog.Color;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbAllowResetClick(Sender: TObject);
|
|
begin
|
|
dxBarManager.AllowReset := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbShowHelpButtonClick(Sender: TObject);
|
|
begin
|
|
dxBarManager.ShowHelpButton := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbSunkenBorderClick(Sender: TObject);
|
|
begin
|
|
dxBarManager.SunkenBorder := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbMenusShowRecentItemsFirstClick(Sender: TObject);
|
|
begin
|
|
dxBarManager.MenusShowRecentItemsFirst := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.rgMenuAnimationsClick(Sender: TObject);
|
|
begin
|
|
dxBarManager.MenuAnimations := TdxBarMenuAnimations(rgMenuAnimations.ItemIndex);
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.SpeedButton1Click(Sender: TObject);
|
|
begin
|
|
FontDialog.Font.Assign(dxBarManager.Bars[1].Font);
|
|
if FontDialog.Execute then
|
|
dxBarManager.bars[1].Font.Assign(FontDialog.Font);
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.SpeedButton2Click(Sender: TObject);
|
|
begin
|
|
FontDialog.Font.Assign(dxBarManager.Bars[2].Font);
|
|
if FontDialog.Execute then
|
|
dxBarManager.bars[2].Font.Assign(FontDialog.Font);
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbAllowCustomizingBar1Click(Sender: TObject);
|
|
begin
|
|
dxBarManager.Bars[1].AllowCustomizing := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbAllowQuickCustomizingBar1Click(Sender: TObject);
|
|
begin
|
|
dxBarManager.Bars[1].AllowQuickCustomizing := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbAllowResetBar1Click(Sender: TObject);
|
|
begin
|
|
dxBarManager.Bars[1].AllowReset := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbAllowCustomizingBar2Click(Sender: TObject);
|
|
begin
|
|
dxBarManager.Bars[2].AllowCustomizing := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbAllowQuickCustomizingBar2Click(Sender: TObject);
|
|
begin
|
|
dxBarManager.Bars[2].AllowQuickCustomizing := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbAllowResetBar2Click(Sender: TObject);
|
|
begin
|
|
dxBarManager.Bars[2].AllowReset := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbShowFullMenusAfterDelayClick(Sender: TObject);
|
|
begin
|
|
dxBarManager.ShowFullMenusAfterDelay := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.dxBarManagerHelpButtonClick(Sender: TObject);
|
|
begin
|
|
MessageDlg('You click on Help Button .', mtInformation, [mbOK],0);
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbRotateWhenVerticalClick(Sender: TObject);
|
|
begin
|
|
dxBarManager.Bars[3].RotateWhenVertical := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.btnCustomizeClick(Sender: TObject);
|
|
begin
|
|
dxBarManager.Customizing(True);
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.dxBarManagerBarVisibleChange(Sender: TdxBarManager;
|
|
ABar: TdxBar);
|
|
begin
|
|
if FUpdateVisible and HandleAllocated then
|
|
case ABar.Index of
|
|
1: btnStandard.Down := ABar.Visible;
|
|
2: btnFormatting.Down := ABar.Visible;
|
|
3: btnInternet.Down := ABar.Visible;
|
|
end;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbStretchGlyphsClick(Sender: TObject);
|
|
begin
|
|
dxBarManager.StretchGlyphs := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.rgStyleClick(Sender: TObject);
|
|
begin
|
|
dxBarManager.Style := TdxBarManagerStyle(rgStyle.ItemIndex);
|
|
Caption := Format('ExpressBars (%s Style)',[rgStyle.Items[rgStyle.ItemIndex]]);
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.CheckBox1Click(Sender: TObject);
|
|
begin
|
|
dxBarManager.Bars[1].MultiLine := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.CheckBox2Click(Sender: TObject);
|
|
begin
|
|
dxBarManager.Bars[2].MultiLine := TCheckBox(Sender).Checked;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbShowCaptionsClick(Sender: TObject);
|
|
var
|
|
i: Integer;
|
|
AChecked: Boolean;
|
|
begin
|
|
dxBarManager.LockUpdate := True;
|
|
AChecked := TCheckBox(Sender).Checked;
|
|
for i:=0 to ComponentCount - 1 do
|
|
if Components[i] is TdxBarLargeButton then
|
|
TdxBarLargeButton(Components[i]).ShowCaption := AChecked;
|
|
dxBarManager.LockUpdate := False;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbHotImagesClick(Sender: TObject);
|
|
begin
|
|
if TCheckBox(Sender).Checked then
|
|
dxBarManager.HotImages := ilHotImages
|
|
else
|
|
dxBarManager.HotImages := nil;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.cbDisabledImagesClick(Sender: TObject);
|
|
begin
|
|
if TCheckBox(Sender).Checked then
|
|
dxBarManager.DisabledImages := ilDisabledImages
|
|
else
|
|
dxBarManager.DisabledImages := nil;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.CheckBox4Click(Sender: TObject);
|
|
begin
|
|
if TCheckBox(Sender).Checked then
|
|
dxBarManager.LargeImages := Images
|
|
else
|
|
dxBarManager.LargeImages := nil;
|
|
end;
|
|
|
|
procedure TEBar2000DemoMainForm.TrackBarChange(Sender: TObject);
|
|
begin
|
|
dxBarManager.Bars[TTrackBar(Sender).Tag].AlphaBlendValue := TTrackBar(Sender).Position * 15;
|
|
end;
|
|
|
|
end.
|