ebar2000demomain.pas

胜天进销存源码,国产优秀的进销存

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);