david
47aaf11578
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@38 05c56307-c608-d34a-929d-697000501d7a
133 lines
5.8 KiB
ObjectPascal
133 lines
5.8 KiB
ObjectPascal
{*******************************************************************}
|
|
{ }
|
|
{ Developer Express Visual Component Library }
|
|
{ ExpressNavBar }
|
|
{ }
|
|
{ Copyright (c) 2002-2009 Developer Express Inc. }
|
|
{ ALL RIGHTS RESERVED }
|
|
{ }
|
|
{ The entire contents of this file is protected by U.S. and }
|
|
{ International Copyright Laws. Unauthorized reproduction, }
|
|
{ reverse-engineering, and distribution of all or any portion of }
|
|
{ the code contained in this file is strictly prohibited and may }
|
|
{ result in severe civil and criminal penalties and will be }
|
|
{ prosecuted to the maximum extent possible under the law. }
|
|
{ }
|
|
{ RESTRICTIONS }
|
|
{ }
|
|
{ THIS SOURCE CODE AND ALL RESULTING INTERMEDIATE FILES }
|
|
{ (DCU, OBJ, DLL, ETC.) ARE CONFIDENTIAL AND PROPRIETARY TRADE }
|
|
{ SECRETS OF DEVELOPER EXPRESS INC. THE REGISTERED DEVELOPER IS }
|
|
{ LICENSED TO DISTRIBUTE THE EXPRESSNAVBAR AND ALL ACCOMPANYING }
|
|
{ VCL CONTROLS AS PART OF AN EXECUTABLE PROGRAM ONLY. }
|
|
{ }
|
|
{ THE SOURCE CODE CONTAINED WITHIN THIS FILE AND ALL RELATED }
|
|
{ FILES OR ANY PORTION OF ITS CONTENTS SHALL AT NO TIME BE }
|
|
{ COPIED, TRANSFERRED, SOLD, DISTRIBUTED, OR OTHERWISE MADE }
|
|
{ AVAILABLE TO OTHER INDIVIDUALS WITHOUT EXPRESS WRITTEN CONSENT }
|
|
{ AND PERMISSION FROM DEVELOPER EXPRESS INC. }
|
|
{ }
|
|
{ CONSULT THE END USER LICENSE AGREEMENT FOR INFORMATION ON }
|
|
{ ADDITIONAL RESTRICTIONS. }
|
|
{ }
|
|
{*******************************************************************}
|
|
|
|
unit dxNavBarConsts;
|
|
|
|
{$I cxVer.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, cxLibraryConsts;
|
|
|
|
const
|
|
dxNavBarDefaultLargeImageHeight = 32;
|
|
dxNavBarDefaultLargeImageWidth = 32;
|
|
dxNavBarDefaultSmallImageHeight = 16;
|
|
dxNavBarDefaultSmallImageWidth = 16;
|
|
|
|
dxNavBarActivateGroupInterval = 300;
|
|
dxNavBarScrollInterval = 300;
|
|
|
|
dxNavBarCursors: array[0..2] of TIdentMapEntry = (
|
|
(Value: dxNavBarDragCursor; Name: 'dxcrDrag'),
|
|
(Value: dxNavBarDragCopyCursor; Name: 'dxcrDragCopy'),
|
|
(Value: dxNavBarLinksCursor; Name: 'dxcrLinks'));
|
|
|
|
//Views
|
|
dxNavBarBaseView = 0;
|
|
dxNavBarFlatView = 1;
|
|
dxNavBarOffice1View = 2;
|
|
dxNavBarOffice2View = 3;
|
|
dxNavBarOffice3View = 4;
|
|
dxNavBarVSToolBoxView = 5;
|
|
dxNavBarXP1View = 6;
|
|
dxNavBarXP2View = 7;
|
|
dxNavBarExplorerBarView = 8;
|
|
dxNavBarUltraFlatExplorerView = 9;
|
|
dxNavBarAdvExplorerBarView = 10;
|
|
dxNavBarXPExplorerBarView = 11;
|
|
dxNavBarOffice11TaskPaneView = 12;
|
|
dxNavBarOffice11NavigatorPaneView = 13;
|
|
dxNavBarOffice11ExplorerBarView = 16;
|
|
dxNavBarOffice12NavigatorPaneView = 17;
|
|
dxNavBarOffice12ExplorerBarView = 18;
|
|
dxNavBarVistaExplorerBarView = 19;
|
|
dxNavBarSkinExplorerBarView = 14;
|
|
dxNavBarSkinNavigatorPaneView = 15;
|
|
|
|
resourcestring
|
|
sdxNavigationPaneOverflowPanelCustomizeHint = 'Configure buttons';
|
|
sdxNavigationPaneMinimizeNavPaneSignHint = 'Minimize Navigation Pane';
|
|
sdxNavigationPaneExpandNavPaneSignHint = 'Expand Navigation Pane';
|
|
sdxNavigationPaneCollapseBarHint = 'Click to expand Navigation Pane';
|
|
sdxNavigationPaneCollapseBar = 'Navigation Pane';
|
|
|
|
//Exception messages
|
|
|
|
sdxInvalideGroupControl = 'Invalid the TdxNavBarGroupControl parent or group.';
|
|
sdxInvalidLink = 'You cannot create a link to the ''%s'' item within the ''%s'' group because they belong to different NavBar controls';
|
|
sdxCannotFindView = 'Cannot find view with ID = %d.';
|
|
sdxViewAlreadyExists = 'ID of view = %d is already exists.';
|
|
|
|
//Office11Views popup menu captions
|
|
|
|
sdxNavBarOffice11ShowMoreButtons = 'Show &More Buttons';
|
|
sdxNavBarOffice11ShowFewerButtons = 'Show &Fewer Buttons';
|
|
sdxNavBarOffice11AddRemoveButtons = '&Add or Remove Buttons';
|
|
|
|
implementation
|
|
|
|
uses
|
|
dxCore;
|
|
|
|
procedure AddNavBarResourceStringNames(AProduct: TdxProductResourceStrings);
|
|
|
|
procedure InternalAdd(const AResourceStringName: string; AAdress: Pointer);
|
|
begin
|
|
AProduct.Add(AResourceStringName, AAdress);
|
|
end;
|
|
|
|
begin
|
|
InternalAdd('sdxNavigationPaneOverflowPanelCustomizeHint', @sdxNavigationPaneOverflowPanelCustomizeHint);
|
|
InternalAdd('sdxNavigationPaneMinimizeNavPaneSignHint', @sdxNavigationPaneMinimizeNavPaneSignHint);
|
|
InternalAdd('sdxNavigationPaneExpandNavPaneSignHint', @sdxNavigationPaneExpandNavPaneSignHint);
|
|
InternalAdd('sdxNavigationPaneCollapseBarHint', @sdxNavigationPaneCollapseBarHint);
|
|
InternalAdd('sdxNavigationPaneCollapseBar', @sdxNavigationPaneCollapseBar);
|
|
InternalAdd('sdxInvalideGroupControl', @sdxInvalideGroupControl);
|
|
InternalAdd('sdxCannotFindView', @sdxCannotFindView);
|
|
InternalAdd('sdxViewAlreadyExists', @sdxViewAlreadyExists);
|
|
InternalAdd('sdxNavBarOffice11ShowMoreButtons', @sdxNavBarOffice11ShowMoreButtons);
|
|
InternalAdd('sdxNavBarOffice11ShowFewerButtons', @sdxNavBarOffice11ShowFewerButtons);
|
|
InternalAdd('sdxNavBarOffice11AddRemoveButtons', @sdxNavBarOffice11AddRemoveButtons);
|
|
end;
|
|
|
|
initialization
|
|
dxResourceStringsRepository.RegisterProduct('ExpressNavBar', @AddNavBarResourceStringNames);
|
|
|
|
finalization
|
|
dxResourceStringsRepository.UnRegisterProduct('ExpressNavBar');
|
|
|
|
end.
|