david
8a45a23220
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@7 05c56307-c608-d34a-929d-697000501d7a
1855 lines
66 KiB
ObjectPascal
1855 lines
66 KiB
ObjectPascal
{*******************************************************************}
|
|
{ }
|
|
{ Developer Express Visual Component Library }
|
|
{ ExpressNavBar }
|
|
{ }
|
|
{ Copyright (c) 2002-2006 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 dxNavBarOffice11Views;
|
|
|
|
{$I cxVer.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Classes, Graphics, Controls, Menus, ImgList, {$IFNDEF DELPHI5}StdCtrls,{$ENDIF}
|
|
dxNavBar, dxNavBarBase, dxNavBarStyles, dxNavBarBaseViews,
|
|
dxNavBarOfficeViews, dxNavBarExplorerViews, dxNavBarCollns;
|
|
|
|
type
|
|
TdxNavBarOffice11LinkViewInfo = class(TdxNavBarLinkViewInfo)
|
|
public
|
|
function FontColor: TColor; override;
|
|
end;
|
|
|
|
TdxNavBarOffice11GroupViewInfo = class(TdxNavBarGroupViewInfo)
|
|
private
|
|
function IsDefaultBgColor: Boolean;
|
|
function IsDefaultCaptionColor: Boolean;
|
|
public
|
|
function BorderColor: TColor; override;
|
|
function BgBackColor: TColor; override;
|
|
function BgBackColor2: TColor; override;
|
|
function BgAlphaBlend: Byte; override;
|
|
function BgAlphaBlend2: Byte; override;
|
|
function BgGradientMode: TdxBarStyleGradientMode; override;
|
|
function CaptionBackColor: TColor; override;
|
|
function CaptionBackColor2: TColor; override;
|
|
function CaptionAlphaBlend: Byte; override;
|
|
function CaptionAlphaBlend2: Byte; override;
|
|
function CaptionGradientMode: TdxBarStyleGradientMode; override;
|
|
function CaptionFontColor: TColor; override;
|
|
end;
|
|
|
|
TdxNavBarOffice11ViewInfo = class(TdxNavBarExplorerBarViewInfo)
|
|
private
|
|
function IsDefaultBgColor: Boolean;
|
|
protected
|
|
procedure CreateColors; override;
|
|
procedure RefreshColors; override;
|
|
procedure ReleaseColors; override;
|
|
public
|
|
function BgBackColor: TColor; override;
|
|
function BgBackColor2: TColor; override;
|
|
function BgAlphaBlend: Byte; override;
|
|
function BgAlphaBlend2: Byte; override;
|
|
function BgGradientMode: TdxBarStyleGradientMode; override;
|
|
|
|
procedure AssignDefaultBackgroundStyle; override;
|
|
procedure AssignDefaultGroupBackgroundStyle; override;
|
|
procedure AssignDefaultGroupHeaderStyle; override;
|
|
procedure AssignDefaultGroupHeaderActiveStyle; override;
|
|
procedure AssignDefaultItemStyle; override;
|
|
end;
|
|
|
|
TdxNavBarOffice11Painter = class(TdxNavBarExplorerBarPainter)
|
|
protected
|
|
function CreateViewInfo: TdxNavBarViewInfo; override;
|
|
function CreateGroupViewInfo(AViewInfo: TdxNavBarViewInfo; AGroup: TdxNavBarGroup;
|
|
ACaptionVisible, AItemsVisible: Boolean): TdxNavBarGroupViewInfo; override;
|
|
function CreateLinkViewInfo(AViewInfo: TdxNavBarGroupViewInfo; ALink: TdxNavBarItemLink;
|
|
ACaptionVisible, AImageVisisble: Boolean): TdxNavBarLinkViewInfo; override;
|
|
|
|
class function ButtonPainterClass: TdxBaseButtonPainterClass; override;
|
|
class function SignPainterClass: TdxBaseSignPainterClass; override;
|
|
end;
|
|
|
|
|
|
TdxNavBarOffice11NavPaneGroupViewInfo = class(TdxNavBarGroupViewInfo)
|
|
private
|
|
function IsDefaultCaptionColor: Boolean;
|
|
public
|
|
function CaptionBorderColor: TColor; override;
|
|
function CaptionBackColor: TColor; override;
|
|
function CaptionBackColor2: TColor; override;
|
|
function CaptionAlphaBlend: Byte; override;
|
|
function CaptionAlphaBlend2: Byte; override;
|
|
function CaptionGradientMode: TdxBarStyleGradientMode; override;
|
|
end;
|
|
|
|
PdxNavBarOverflowPanelViewInfoItem = ^TdxNavBarOverflowPanelViewInfoItem;
|
|
TdxNavBarOverflowPanelViewInfoItem = record
|
|
Group: TdxNavBarGroup;
|
|
Rect: TRect;
|
|
SelectionRect: TRect;
|
|
end;
|
|
|
|
TdxNavBarOffice11NavPaneViewInfo = class(TdxNavBarOffice3ViewInfo)
|
|
private
|
|
FHeaderRect: TRect;
|
|
FOverflowPanelItems: TList;
|
|
FOverflowPanelRect: TRect;
|
|
FOverflowPanelSignRect: TRect;
|
|
FOverflowPanelVisibleItemCount: Integer;
|
|
FSplitterRect: TRect;
|
|
FPopupMenu: TPopupMenu;
|
|
FImageList: TImageList;
|
|
|
|
procedure ClearOverflowPanelItems;
|
|
function GetOverflowPanelItemCount: Integer;
|
|
function GetOverflowPanelItems(Index: Integer): PdxNavBarOverflowPanelViewInfoItem;
|
|
function IsDefaultHeaderColor: Boolean;
|
|
function IsDefaultOverflowPanelColor: Boolean;
|
|
function IsDefaultBottomScrollButtonColor: Boolean;
|
|
function IsDefaultTopScrollButtonColor: Boolean;
|
|
procedure RecreateImageList;
|
|
// Menu items
|
|
procedure DoMoreButtonsClick(Sender: TObject);
|
|
procedure DoFewerButtonsClick(Sender: TObject);
|
|
procedure DoAddRemoveButtonsClick(Sender: TObject);
|
|
procedure DoHiddenGroupClick(Sender: TObject);
|
|
procedure DoMeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer);
|
|
procedure DoDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
|
|
Selected: Boolean);
|
|
protected
|
|
procedure CreateColors; override;
|
|
procedure RefreshColors; override;
|
|
procedure ReleaseColors; override;
|
|
|
|
class function GetGroupHorizontalEdge: Integer; override;
|
|
class function GetGroupSeparatorWidth: Integer; override;
|
|
class function GetGroupCaptionImageIndent: Integer; override;
|
|
class function GetGroupCaptionHeightAddon: Integer; override;
|
|
class function GetOverflowPanelHeightAddon: Integer; virtual;
|
|
class function GetOverflowPanelSignWidth: Integer; virtual;
|
|
class function GetOverflowPanelSeparator: Integer; virtual;
|
|
class function GetOverflowPanelImageWidthAddon: Integer; virtual;
|
|
class function GetOverflowPanelPopupMenuImageIndent: Integer; virtual;
|
|
class function GetOverflowPanelPopupMenuTextIndent: Integer; virtual;
|
|
|
|
function CanHasGroupViewAsIconView: Boolean; override;
|
|
function CanHasImageInGroupCaption: Boolean; override;
|
|
function CanGroupCaptionBoundsByImage: Boolean; override;
|
|
|
|
function GetHintRect: TRect; override;
|
|
function GetHintText: string; override;
|
|
function GetOverflowPanelHintRect: TRect; virtual;
|
|
function GetOverflowPanelHintText: string; virtual;
|
|
|
|
function GetBoundsUpdateType: TdxNavBarChangeType; override;
|
|
public
|
|
constructor Create(APainter: TdxNavBarPainter); override;
|
|
destructor Destroy; override;
|
|
|
|
procedure CreateInfo; override;
|
|
procedure CreateGroupsInfo; virtual;
|
|
procedure CreateOverflowPanelInfo(AItemCount: Integer; AClearOld: Boolean); virtual;
|
|
procedure CalculateBounds; override;
|
|
procedure CalculateHeaderBounds(X, Y: Integer); virtual;
|
|
procedure CalculateOverflowPanelBounds(X, Y: Integer); virtual;
|
|
procedure CalculateSplitterBounds(X, Y: Integer); virtual;
|
|
procedure ClearRects; override;
|
|
procedure CorrectBounds; override;
|
|
procedure CorrectBoundsWithNoGroups;
|
|
|
|
function GetHeaderHeight: Integer; virtual;
|
|
function GetOverflowPanelHeight: Integer; virtual;
|
|
function GetOverflowPanelImageHeight: Integer; virtual;
|
|
function GetOverflowPanelImageWidth: Integer; virtual;
|
|
function GetOverflowPanelImageList: TImageList; virtual;
|
|
function GetOverflowPanelImageIndex(AGroup: TdxNavBarGroup): Integer; virtual;
|
|
function GetSplitterHeight: Integer; virtual;
|
|
|
|
function GetGroupViewInfoAtItemsPos(pt: TPoint): TdxNavBarGroupViewInfo; override;
|
|
function GetViewInfoAtDragPosition(pt: TPoint; var ItemGroup: TdxNavBarGroupViewInfo;
|
|
var Item1, Item2: TdxNavBarLinkViewInfo): Integer; override;
|
|
function IsPtNavigationPaneHeader(pt: TPoint): Boolean; override;
|
|
function IsPtNavigationPaneSplitter(pt: TPoint): Boolean; override;
|
|
function IsPtNavigationPaneOverflowPanel(pt: TPoint): Boolean; override;
|
|
function IsPtIncNavigationPaneOverflowPanelItemCount(pt: TPoint): Boolean; override;
|
|
function IsPtDecNavigationPaneOverflowPanelItemCount(pt: TPoint): Boolean; override;
|
|
function IsPtNavigationPaneOverflowPanelSign(pt: TPoint): Boolean; override;
|
|
function GetNavigationPaneOverflowPanelItemIndexAtPos(pt: TPoint): Integer; override;
|
|
function GetNavigationPaneOverflowPanelGroupAtPos(pt: TPoint): TdxNavBarGroup; override;
|
|
|
|
function BorderColor: TColor; override;
|
|
function BottomScrollButtonBackColor: TColor; override;
|
|
function BottomScrollButtonBackColor2: TColor; override;
|
|
function BottomScrollButtonAlphaBlend: Byte; override;
|
|
function BottomScrollButtonAlphaBlend2: Byte; override;
|
|
function BottomScrollButtonGradientMode: TdxBarStyleGradientMode; override;
|
|
function TopScrollButtonBackColor: TColor; override;
|
|
function TopScrollButtonBackColor2: TColor; override;
|
|
function TopScrollButtonAlphaBlend: Byte; override;
|
|
function TopScrollButtonAlphaBlend2: Byte; override;
|
|
function TopScrollButtonGradientMode: TdxBarStyleGradientMode; override;
|
|
function HeaderBackColor: TColor; override;
|
|
function HeaderBackColor2: TColor; override;
|
|
function HeaderAlphaBlend: Byte; override;
|
|
function HeaderAlphaBlend2: Byte; override;
|
|
function HeaderGradientMode: TdxBarStyleGradientMode; override;
|
|
function HeaderFontColor: TColor; override;
|
|
function OverflowPanelBackColor: TColor; override;
|
|
function OverflowPanelBackColor2: TColor; override;
|
|
function OverflowPanelAlphaBlend: Byte; override;
|
|
function OverflowPanelAlphaBlend2: Byte; override;
|
|
function OverflowPanelGradientMode: TdxBarStyleGradientMode; override;
|
|
function SplitterBackColor: TColor; override;
|
|
function SplitterBackColor2: TColor; override;
|
|
function SplitterGradientMode: TdxBarStyleGradientMode; override;
|
|
|
|
procedure AssignDefaultBackgroundStyle; override;
|
|
procedure AssignDefaultButtonStyle; override;
|
|
procedure AssignDefaultGroupBackgroundStyle; override;
|
|
procedure AssignDefaultGroupHeaderStyle; override;
|
|
procedure AssignDefaultItemStyle; override;
|
|
procedure AssignDefaultItemDisabledStyle; override;
|
|
procedure AssignDefaultNavigationPaneHeaderStyle; override;
|
|
|
|
procedure DoShowPopupMenu(X, Y: Integer); override;
|
|
procedure DoUpdatePopupMenu; virtual;
|
|
|
|
property HeaderRect: TRect read FHeaderRect;
|
|
property OverflowPanelItemCount: Integer read GetOverflowPanelItemCount;
|
|
property OverflowPanelItems[Index: Integer]: PdxNavBarOverflowPanelViewInfoItem read GetOverflowPanelItems;
|
|
property OverflowPanelRect: TRect read FOverflowPanelRect;
|
|
property OverflowPanelSignRect: TRect read FOverflowPanelSignRect;
|
|
|
|
property SplitterRect: TRect read FSplitterRect;
|
|
|
|
property ImageList: TImageList read FImageList;
|
|
property PopupMenu: TPopupMenu read FPopupMenu;
|
|
end;
|
|
|
|
TdxNavBarOffice11NavPanePainter = class(TdxNavBarOffice3Painter)
|
|
private
|
|
function GetViewInfo: TdxNavBarOffice11NavPaneViewInfo;
|
|
protected
|
|
function CreateViewInfo: TdxNavBarViewInfo; override;
|
|
function CreateGroupViewInfo(AViewInfo: TdxNavBarViewInfo; AGroup: TdxNavBarGroup;
|
|
ACaptionVisible, AItemsVisible: Boolean): TdxNavBarGroupViewInfo; override;
|
|
|
|
class function ButtonPainterClass: TdxBaseButtonPainterClass; override;
|
|
public
|
|
procedure DrawNavBarControl; override;
|
|
procedure DrawGroupCaptionButton(AGroupViewInfo: TdxNavBarGroupViewInfo); override;
|
|
procedure DrawHintWindow; override;
|
|
procedure DrawBorder; virtual;
|
|
procedure DrawHeader; virtual;
|
|
procedure DrawHeaderText; virtual;
|
|
procedure DrawOverflowPanel; virtual;
|
|
procedure DrawOverflowPanelSign; virtual;
|
|
procedure DrawOverflowPanelItems; virtual;
|
|
procedure DrawOverflowPanelHintWindow; virtual;
|
|
procedure DrawSplitter; virtual;
|
|
procedure DrawSplitterSign; virtual;
|
|
procedure DrawPopupMenuItem(ACanvas: TCanvas; ARect: TRect; AImageList: TCustomImageList;
|
|
AImageIndex: Integer; AText: string; State: TdxNavBarObjectStates); virtual;
|
|
|
|
property ViewInfo: TdxNavBarOffice11NavPaneViewInfo read GetViewInfo;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$IFDEF DELPHI6}
|
|
Types,
|
|
{$ENDIF}
|
|
SysUtils, CommCtrl, Math, cxClasses, cxGeometry, cxLookAndFeels, dxNavBarConsts,
|
|
dxOffice11, dxNavBarGraphics, dxNavBarViewsFact, dxThemeManager, dxUxTheme;
|
|
|
|
{ TdxNavBarOffice11LinkViewInfo }
|
|
|
|
function TdxNavBarOffice11LinkViewInfo.FontColor: TColor;
|
|
begin
|
|
Result := Font.Color;
|
|
if Result = clNone then Result := dxOffice11LinkFontColor;
|
|
end;
|
|
|
|
{ TdxNavBarOffice11GroupViewInfo }
|
|
|
|
function TdxNavBarOffice11GroupViewInfo.BorderColor: TColor;
|
|
begin
|
|
if IsDefaultCaptionColor then
|
|
Result := dxOffice11GroupBorderColor
|
|
else Result := inherited BorderColor;
|
|
end;
|
|
|
|
function TdxNavBarOffice11GroupViewInfo.BgAlphaBlend: Byte;
|
|
begin
|
|
if IsDefaultBgColor then
|
|
Result := 255
|
|
else Result := inherited BgAlphaBlend;
|
|
end;
|
|
|
|
function TdxNavBarOffice11GroupViewInfo.BgAlphaBlend2: Byte;
|
|
begin
|
|
if IsDefaultBgColor then
|
|
Result := 255
|
|
else Result := inherited BgAlphaBlend2;
|
|
end;
|
|
|
|
function TdxNavBarOffice11GroupViewInfo.BgBackColor: TColor;
|
|
begin
|
|
if IsDefaultBgColor then
|
|
Result := dxOffice11GroupBackgroundColor1
|
|
else Result := inherited BgBackColor;
|
|
end;
|
|
|
|
function TdxNavBarOffice11GroupViewInfo.BgBackColor2: TColor;
|
|
begin
|
|
if IsDefaultBgColor then
|
|
Result := dxOffice11GroupBackgroundColor2
|
|
else Result := inherited BgBackColor2;
|
|
end;
|
|
|
|
function TdxNavBarOffice11GroupViewInfo.BgGradientMode: TdxBarStyleGradientMode;
|
|
begin
|
|
if IsDefaultBgColor then
|
|
Result := gmVertical
|
|
else Result := inherited BgGradientMode;
|
|
end;
|
|
|
|
function TdxNavBarOffice11GroupViewInfo.CaptionAlphaBlend: Byte;
|
|
begin
|
|
if IsDefaultCaptionColor then
|
|
Result := 255
|
|
else Result := inherited CaptionAlphaBlend;
|
|
end;
|
|
|
|
function TdxNavBarOffice11GroupViewInfo.CaptionAlphaBlend2: Byte;
|
|
begin
|
|
if IsDefaultCaptionColor then
|
|
Result := 255
|
|
else Result := inherited CaptionAlphaBlend2;
|
|
end;
|
|
|
|
function TdxNavBarOffice11GroupViewInfo.CaptionBackColor: TColor;
|
|
begin
|
|
if IsDefaultCaptionColor then
|
|
Result := dxOffice11GroupCaptionColor1
|
|
else Result := inherited CaptionBackColor;
|
|
end;
|
|
|
|
function TdxNavBarOffice11GroupViewInfo.CaptionBackColor2: TColor;
|
|
begin
|
|
if IsDefaultCaptionColor then
|
|
Result := dxOffice11GroupCaptionColor2
|
|
else Result := inherited CaptionBackColor2;
|
|
end;
|
|
|
|
function TdxNavBarOffice11GroupViewInfo.CaptionGradientMode: TdxBarStyleGradientMode;
|
|
begin
|
|
if IsDefaultCaptionColor then
|
|
Result := gmHorizontal
|
|
else Result := inherited CaptionGradientMode;
|
|
end;
|
|
|
|
function TdxNavBarOffice11GroupViewInfo.CaptionFontColor: TColor;
|
|
begin
|
|
Result := CaptionFont.Color;
|
|
if Result = clNone then Result := dxOffice11GroupFontColor;
|
|
end;
|
|
|
|
function TdxNavBarOffice11GroupViewInfo.IsDefaultBgColor: Boolean;
|
|
begin
|
|
Result := (inherited BgBackColor = clNone) or (inherited BgBackColor2 = clNone);
|
|
end;
|
|
|
|
function TdxNavBarOffice11GroupViewInfo.IsDefaultCaptionColor: Boolean;
|
|
begin
|
|
Result := (inherited CaptionBackColor = clNone) or (inherited CaptionBackColor2 = clNone);
|
|
end;
|
|
|
|
{ TdxNavBarOffice11ViewInfo }
|
|
|
|
function TdxNavBarOffice11ViewInfo.BgAlphaBlend: Byte;
|
|
begin
|
|
if IsDefaultBgColor then
|
|
Result := 255
|
|
else Result := inherited BgAlphaBlend;
|
|
end;
|
|
|
|
function TdxNavBarOffice11ViewInfo.BgAlphaBlend2: Byte;
|
|
begin
|
|
if IsDefaultBgColor then
|
|
Result := 255
|
|
else Result := inherited BgAlphaBlend2;
|
|
end;
|
|
|
|
function TdxNavBarOffice11ViewInfo.BgBackColor: TColor;
|
|
begin
|
|
if IsDefaultBgColor then
|
|
Result := dxOffice11BackgroundColor1
|
|
else Result := inherited BgBackColor;
|
|
end;
|
|
|
|
function TdxNavBarOffice11ViewInfo.BgBackColor2: TColor;
|
|
begin
|
|
if IsDefaultBgColor then
|
|
Result := dxOffice11BackgroundColor2
|
|
else Result := inherited BgBackColor2;
|
|
end;
|
|
|
|
function TdxNavBarOffice11ViewInfo.BgGradientMode: TdxBarStyleGradientMode;
|
|
begin
|
|
if IsDefaultBgColor then
|
|
Result := gmVertical
|
|
else Result := inherited BgGradientMode;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11ViewInfo.AssignDefaultBackgroundStyle;
|
|
begin
|
|
NavBar.DefaultStyles.Background.ResetValues;
|
|
NavBar.DefaultStyles.Background.BackColor := clNone;
|
|
NavBar.DefaultStyles.Background.BackColor2 := clNone;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11ViewInfo.AssignDefaultGroupBackgroundStyle;
|
|
begin
|
|
NavBar.DefaultStyles.GroupBackground.ResetValues;
|
|
NavBar.DefaultStyles.GroupBackground.BackColor := clNone;
|
|
NavBar.DefaultStyles.GroupBackground.BackColor2 := clNone;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11ViewInfo.AssignDefaultGroupHeaderStyle;
|
|
begin
|
|
NavBar.DefaultStyles.GroupHeader.ResetValues;
|
|
NavBar.DefaultStyles.GroupHeader.BackColor := clNone;
|
|
NavBar.DefaultStyles.GroupHeader.BackColor2 := clNone;
|
|
NavBar.DefaultStyles.GroupHeader.Font.Color := clNone;
|
|
NavBar.DefaultStyles.GroupHeader.Font.Size := 10;
|
|
NavBar.DefaultStyles.GroupHeader.Font.Style := [fsBold];
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11ViewInfo.AssignDefaultGroupHeaderActiveStyle;
|
|
begin
|
|
NavBar.DefaultStyles.GroupHeaderActive.Assign(NavBar.DefaultStyles.GroupHeader);
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11ViewInfo.AssignDefaultItemStyle;
|
|
begin
|
|
NavBar.DefaultStyles.Item.ResetValues;
|
|
NavBar.DefaultStyles.Item.Font.Color := clNone;
|
|
NavBar.DefaultStyles.Item.HAlignment := haCenter;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11ViewInfo.CreateColors;
|
|
begin
|
|
dxNavBarGraphics.CreateOffice11Colors;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11ViewInfo.RefreshColors;
|
|
begin
|
|
dxNavBarGraphics.RefreshOffice11Colors;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11ViewInfo.ReleaseColors;
|
|
begin
|
|
dxNavBarGraphics.ReleaseOffice11Colors;
|
|
end;
|
|
|
|
function TdxNavBarOffice11ViewInfo.IsDefaultBgColor: Boolean;
|
|
begin
|
|
Result := (inherited BgBackColor = clNone) or (inherited BgBackColor2 = clNone)
|
|
end;
|
|
|
|
{ TdxNavBarOffice11Painter }
|
|
|
|
class function TdxNavBarOffice11Painter.SignPainterClass: TdxBaseSignPainterClass;
|
|
begin
|
|
Result := TdxNavBarOffice11SignPainter;
|
|
end;
|
|
|
|
function TdxNavBarOffice11Painter.CreateGroupViewInfo(AViewInfo: TdxNavBarViewInfo; AGroup: TdxNavBarGroup;
|
|
ACaptionVisible, AItemsVisible: Boolean): TdxNavBarGroupViewInfo;
|
|
begin
|
|
Result := TdxNavBarOffice11GroupViewInfo.Create(AViewInfo, AGroup, ACaptionVisible, AItemsVisible);
|
|
end;
|
|
|
|
function TdxNavBarOffice11Painter.CreateLinkViewInfo(AViewInfo: TdxNavBarGroupViewInfo; ALink: TdxNavBarItemLink;
|
|
ACaptionVisible, AImageVisisble: Boolean): TdxNavBarLinkViewInfo;
|
|
begin
|
|
Result := TdxNavBarOffice11LinkViewInfo.Create(AViewInfo, ALink, ACaptionVisible, AImageVisisble);
|
|
end;
|
|
|
|
function TdxNavBarOffice11Painter.CreateViewInfo: TdxNavBarViewInfo;
|
|
begin
|
|
Result := TdxNavBarOffice11ViewInfo.Create(Self);
|
|
end;
|
|
|
|
class function TdxNavBarOffice11Painter.ButtonPainterClass: TdxBaseButtonPainterClass;
|
|
begin
|
|
Result := TdxNavBarOffice11ButtonPainter;
|
|
end;
|
|
|
|
{ TdxNavBarOffice11NavPaneGroupViewInfo }
|
|
|
|
function TdxNavBarOffice11NavPaneGroupViewInfo.CaptionBorderColor: TColor;
|
|
begin
|
|
Result := dxOffice11NavPaneBorder;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneGroupViewInfo.CaptionBackColor: TColor;
|
|
begin
|
|
if not IsDefaultCaptionColor then
|
|
Result := inherited CaptionBackColor
|
|
else
|
|
if sActive in State then
|
|
begin
|
|
if sHotTracked in State then
|
|
Result := dxOffice11NavPaneGroupCaptionPressedHotColor1
|
|
else
|
|
Result := dxOffice11NavPaneGroupCaptionPressedColor1;
|
|
end
|
|
else
|
|
if sHotTracked in State then
|
|
Result := dxOffice11NavPaneGroupCaptionHotColor1
|
|
else
|
|
Result := dxOffice11NavPaneGroupCaptionColor1;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneGroupViewInfo.CaptionBackColor2: TColor;
|
|
begin
|
|
if not IsDefaultCaptionColor then
|
|
Result := inherited CaptionBackColor2
|
|
else
|
|
if sActive in State then
|
|
begin
|
|
if sHotTracked in State then
|
|
Result := dxOffice11NavPaneGroupCaptionPressedHotColor2
|
|
else
|
|
Result := dxOffice11NavPaneGroupCaptionPressedColor2;
|
|
end
|
|
else
|
|
if sHotTracked in State then
|
|
Result := dxOffice11NavPaneGroupCaptionHotColor2
|
|
else
|
|
Result := dxOffice11NavPaneGroupCaptionColor2;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneGroupViewInfo.CaptionAlphaBlend: Byte;
|
|
begin
|
|
if not IsDefaultCaptionColor then
|
|
Result := inherited CaptionAlphaBlend
|
|
else Result := 255;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneGroupViewInfo.CaptionAlphaBlend2: Byte;
|
|
begin
|
|
if not IsDefaultCaptionColor then
|
|
Result := inherited CaptionAlphaBlend2
|
|
else Result := 255;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneGroupViewInfo.CaptionGradientMode: TdxBarStyleGradientMode;
|
|
begin
|
|
if not IsDefaultCaptionColor then
|
|
Result := inherited CaptionGradientMode
|
|
else Result := gmVertical;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneGroupViewInfo.IsDefaultCaptionColor: Boolean;
|
|
begin
|
|
Result := (inherited CaptionBackColor = clNone) or (inherited CaptionBackColor2 = clNone);
|
|
end;
|
|
|
|
{ TdxNavBarOffice11NavPanelViewInfo }
|
|
|
|
constructor TdxNavBarOffice11NavPaneViewInfo.Create(APainter: TdxNavBarPainter);
|
|
begin
|
|
inherited;
|
|
FOverflowPanelItems := TList.Create;
|
|
FImageList := TImageList.Create(NavBar);
|
|
FPopupMenu := TPopupMenu.Create(NavBar);
|
|
end;
|
|
|
|
destructor TdxNavBarOffice11NavPaneViewInfo.Destroy;
|
|
begin
|
|
FPopupMenu.Free;
|
|
FImageList.Free;
|
|
ClearOverflowPanelItems;
|
|
FOverflowPanelItems.Free;
|
|
inherited;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.BorderColor: TColor;
|
|
begin
|
|
Result := dxOffice11NavPaneBorder;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.BottomScrollButtonBackColor: TColor;
|
|
begin
|
|
if not IsDefaultBottomScrollButtonColor then
|
|
Result := inherited BottomScrollButtonBackColor
|
|
else if sPressed in BottomScrollButtonState then
|
|
Result := dxOffice11NavPaneGroupCaptionPressedColor1
|
|
else if sActive in BottomScrollButtonState then
|
|
Result := dxOffice11NavPaneGroupCaptionPressedColor2
|
|
else if sHotTracked in BottomScrollButtonState then
|
|
Result := dxOffice11NavPaneGroupCaptionHotColor1
|
|
else Result := dxOffice11NavPaneGroupCaptionColor1;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.BottomScrollButtonBackColor2: TColor;
|
|
begin
|
|
if not IsDefaultBottomScrollButtonColor then
|
|
Result := inherited BottomScrollButtonBackColor2
|
|
else if sPressed in BottomScrollButtonState then
|
|
Result := dxOffice11NavPaneGroupCaptionPressedColor2
|
|
else if sActive in BottomScrollButtonState then
|
|
Result := dxOffice11NavPaneGroupCaptionPressedColor1
|
|
else if sHotTracked in BottomScrollButtonState then
|
|
Result := dxOffice11NavPaneGroupCaptionHotColor2
|
|
else Result := dxOffice11NavPaneGroupCaptionColor2;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.BottomScrollButtonAlphaBlend: Byte;
|
|
begin
|
|
if not IsDefaultBottomScrollButtonColor then
|
|
Result := inherited BottomScrollButtonAlphaBlend
|
|
else Result := 255;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.BottomScrollButtonAlphaBlend2: Byte;
|
|
begin
|
|
if not IsDefaultBottomScrollButtonColor then
|
|
Result := inherited BottomScrollButtonAlphaBlend2
|
|
else Result := 255;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.BottomScrollButtonGradientMode: TdxBarStyleGradientMode;
|
|
begin
|
|
if not IsDefaultBottomScrollButtonColor then
|
|
Result := inherited BottomScrollButtonGradientMode
|
|
else Result := gmVertical;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.TopScrollButtonBackColor: TColor;
|
|
begin
|
|
if not IsDefaultTopScrollButtonColor then
|
|
Result := inherited TopScrollButtonBackColor
|
|
else if sPressed in TopScrollButtonState then
|
|
Result := dxOffice11NavPaneGroupCaptionPressedColor1
|
|
else if sActive in TopScrollButtonState then
|
|
Result := dxOffice11NavPaneGroupCaptionPressedColor2
|
|
else if sHotTracked in TopScrollButtonState then
|
|
Result := dxOffice11NavPaneGroupCaptionHotColor1
|
|
else Result := dxOffice11NavPaneGroupCaptionColor1;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.TopScrollButtonBackColor2: TColor;
|
|
begin
|
|
if not IsDefaultTopScrollButtonColor then
|
|
Result := inherited TopScrollButtonBackColor2
|
|
else if sPressed in TopScrollButtonState then
|
|
Result := dxOffice11NavPaneGroupCaptionPressedColor2
|
|
else if sActive in TopScrollButtonState then
|
|
Result := dxOffice11NavPaneGroupCaptionPressedColor1
|
|
else if sHotTracked in TopScrollButtonState then
|
|
Result := dxOffice11NavPaneGroupCaptionHotColor2
|
|
else Result := dxOffice11NavPaneGroupCaptionColor2;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.TopScrollButtonAlphaBlend: Byte;
|
|
begin
|
|
if not IsDefaultTopScrollButtonColor then
|
|
Result := inherited TopScrollButtonAlphaBlend
|
|
else Result := 255;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.TopScrollButtonAlphaBlend2: Byte;
|
|
begin
|
|
if not IsDefaultTopScrollButtonColor then
|
|
Result := inherited TopScrollButtonAlphaBlend2
|
|
else Result := 255;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.TopScrollButtonGradientMode: TdxBarStyleGradientMode;
|
|
begin
|
|
if not IsDefaultTopScrollButtonColor then
|
|
Result := inherited TopScrollButtonGradientMode
|
|
else Result := gmVertical;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.HeaderBackColor: TColor;
|
|
begin
|
|
if not IsDefaultHeaderColor then
|
|
Result := inherited HeaderBackColor
|
|
else Result := dxOffice11NavPaneHeaderColor1;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.HeaderBackColor2: TColor;
|
|
begin
|
|
if not IsDefaultHeaderColor then
|
|
Result := inherited HeaderBackColor2
|
|
else Result := dxOffice11NavPaneHeaderColor2;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.HeaderAlphaBlend: Byte;
|
|
begin
|
|
if not IsDefaultHeaderColor then
|
|
Result := inherited HeaderAlphaBlend
|
|
else Result := 255;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.HeaderAlphaBlend2: Byte;
|
|
begin
|
|
if not IsDefaultHeaderColor then
|
|
Result := inherited HeaderAlphaBlend2
|
|
else Result := 255;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.HeaderGradientMode: TdxBarStyleGradientMode;
|
|
begin
|
|
if not IsDefaultHeaderColor then
|
|
Result := inherited HeaderGradientMode
|
|
else Result := gmVertical;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.HeaderFontColor: TColor;
|
|
begin
|
|
Result := inherited HeaderFontColor;
|
|
if Result = clNone then
|
|
Result := dxOffice11NavPaneHeaderFontColor;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.OverflowPanelBackColor: TColor;
|
|
begin
|
|
if not IsDefaultOverflowPanelColor then
|
|
Result := inherited OverflowPanelBackColor
|
|
else Result := dxOffice11NavPaneGroupCaptionColor1;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.OverflowPanelBackColor2: TColor;
|
|
begin
|
|
if not IsDefaultOverflowPanelColor then
|
|
Result := inherited OverflowPanelBackColor2
|
|
else Result := dxOffice11NavPaneGroupCaptionColor2;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.OverflowPanelAlphaBlend: Byte;
|
|
begin
|
|
if not IsDefaultOverflowPanelColor then
|
|
Result := inherited OverflowPanelAlphaBlend
|
|
else Result := 255;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.OverflowPanelAlphaBlend2: Byte;
|
|
begin
|
|
if not IsDefaultOverflowPanelColor then
|
|
Result := inherited OverflowPanelAlphaBlend2
|
|
else Result := 255;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.OverflowPanelGradientMode: TdxBarStyleGradientMode;
|
|
begin
|
|
if not IsDefaultOverflowPanelColor then
|
|
Result := inherited OverflowPanelGradientMode
|
|
else Result := gmVertical;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.SplitterBackColor: TColor;
|
|
begin
|
|
if XPScheme = schUnknown then
|
|
Result := dxOffice11NavPaneSplitterColor1
|
|
else
|
|
Result := inherited SplitterBackColor;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.SplitterBackColor2: TColor;
|
|
begin
|
|
if XPScheme = schUnknown then
|
|
Result := dxOffice11NavPaneSplitterColor2
|
|
else
|
|
Result := inherited SplitterBackColor2;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.SplitterGradientMode: TdxBarStyleGradientMode;
|
|
begin
|
|
if XPScheme = schUnknown then
|
|
Result := gmVertical
|
|
else
|
|
Result := inherited SplitterGradientMode;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.AssignDefaultBackgroundStyle;
|
|
begin
|
|
NavBar.DefaultStyles.Background.ResetValues;
|
|
NavBar.DefaultStyles.Background.BackColor := clWindow;
|
|
NavBar.DefaultStyles.Background.BackColor2 := clWindow;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.AssignDefaultButtonStyle;
|
|
begin
|
|
NavBar.DefaultStyles.Button.ResetValues;
|
|
NavBar.DefaultStyles.Button.BackColor := clNone;
|
|
NavBar.DefaultStyles.Button.BackColor2 := clNone;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.AssignDefaultGroupBackgroundStyle;
|
|
begin
|
|
NavBar.DefaultStyles.GroupBackground.ResetValues;
|
|
NavBar.DefaultStyles.GroupBackground.BackColor := clWindow;
|
|
NavBar.DefaultStyles.GroupBackground.BackColor2 := clWindow;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.AssignDefaultGroupHeaderStyle;
|
|
begin
|
|
NavBar.DefaultStyles.GroupHeader.ResetValues;
|
|
NavBar.DefaultStyles.GroupHeader.BackColor := clNone;
|
|
NavBar.DefaultStyles.GroupHeader.BackColor2 := clNone;
|
|
NavBar.DefaultStyles.GroupHeader.Font.Style := [fsBold];
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.AssignDefaultItemStyle;
|
|
begin
|
|
NavBar.DefaultStyles.Item.ResetValues;
|
|
NavBar.DefaultStyles.Item.Font.Color := clWindowText;
|
|
NavBar.DefaultStyles.Item.HAlignment := haCenter;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.AssignDefaultItemDisabledStyle;
|
|
begin
|
|
NavBar.DefaultStyles.ItemDisabled.Assign(NavBar.DefaultStyles.Item);
|
|
NavBar.DefaultStyles.ItemDisabled.Font.Color := clGrayText;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.AssignDefaultNavigationPaneHeaderStyle;
|
|
begin
|
|
NavBar.DefaultStyles.NavigationPaneHeader.ResetValues;
|
|
NavBar.DefaultStyles.NavigationPaneHeader.BackColor := clNone;
|
|
NavBar.DefaultStyles.NavigationPaneHeader.BackColor2 := clNone;
|
|
NavBar.DefaultStyles.NavigationPaneHeader.Font.Color := clNone;
|
|
NavBar.DefaultStyles.NavigationPaneHeader.Font.Name := 'Arial';
|
|
NavBar.DefaultStyles.NavigationPaneHeader.Font.Size := 11;
|
|
NavBar.DefaultStyles.NavigationPaneHeader.Font.Style := [fsBold];
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.DoShowPopupMenu(X, Y: Integer);
|
|
begin
|
|
DoUpdatePopupMenu;
|
|
PopupMenu.Popup(X, Y);
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.DoUpdatePopupMenu;
|
|
|
|
function AddItem(AParentItem: TMenuItem; ACaption: string;
|
|
AEnabled: Boolean = True; AOnClick: TNotifyEvent = nil;
|
|
AImageIndex: Integer = -1; AChecked: Boolean = False): TMenuItem;
|
|
begin
|
|
Result := TMenuItem.Create(PopupMenu);
|
|
Result.Caption := ACaption;
|
|
Result.OnDrawItem := DoDrawItem;
|
|
if ACaption <> '-' then
|
|
begin
|
|
Result.OnMeasureItem := DoMeasureItem;
|
|
Result.OnClick := AOnClick;
|
|
Result.Checked := AChecked;
|
|
Result.Enabled := AEnabled;
|
|
Result.ImageIndex := AImageIndex;
|
|
end;
|
|
AParentItem.Add(Result);
|
|
end;
|
|
|
|
procedure AssignImage(AImageList: TImageList; ASourceBitmap: TBitmap);
|
|
var
|
|
ABitmap: TBitmap;
|
|
ASideSize: Integer;
|
|
AStretchRect: TRect;
|
|
AMaskColor: TColor;
|
|
begin
|
|
if AImageList.BkColor = clNone then
|
|
AMaskColor := clFuchsia
|
|
else
|
|
AMaskColor := AImageList.BkColor;
|
|
ABitmap := TBitmap.Create;
|
|
try
|
|
ABitmap.Width := AImageList.Width;
|
|
ABitmap.Height := AImageList.Height;
|
|
ASideSize := Min(ABitmap.Width, ABitmap.Height);
|
|
AStretchRect.Left := (ABitmap.Width - ASideSize) div 2;
|
|
AStretchRect.Right := AStretchRect.Left + ASideSize;
|
|
AStretchRect.Top := (ABitmap.Height - ASideSize) div 2;
|
|
AStretchRect.Bottom := AStretchRect.Top + ASideSize;
|
|
ABitmap.Canvas.Brush.Color := AMaskColor;
|
|
ABitmap.Canvas.FillRect(Rect(0, 0, ABitmap.Width, ABitmap.Height));
|
|
ABitmap.Canvas.StretchDraw(AStretchRect, ASourceBitmap);
|
|
AImageList.AddMasked(ABitmap, AMaskColor);
|
|
finally
|
|
ABitmap.Free;
|
|
end;
|
|
end;
|
|
|
|
function GetImageIndex(AGroup: TdxNavBarGroup; ADefaultImageIndex: Integer): Integer;
|
|
begin
|
|
if (NavBar.SmallImages <> nil) and (0 <= AGroup.SmallImageIndex) and (AGroup.SmallImageIndex < NavBar.SmallImages.Count) then
|
|
Result := AGroup.SmallImageIndex
|
|
else
|
|
Result := ADefaultImageIndex;
|
|
end;
|
|
|
|
procedure CreateGroupList(AParentMenuItem: TMenuItem; ADefaultImageIndex: Integer);
|
|
var
|
|
I: Integer;
|
|
begin
|
|
for I := 0 to NavBar.Groups.Count - 1 do
|
|
begin
|
|
AddItem(AParentMenuItem, NavBar.Groups[I].Caption, True, DoAddRemoveButtonsClick,
|
|
GetImageIndex(NavBar.Groups[I], ADefaultImageIndex), NavBar.Groups[I].Visible){$IFDEF DELPHI6}.AutoCheck := True{$ENDIF};
|
|
end;
|
|
end;
|
|
|
|
procedure CreateHiddenGroupList(AParentMenuItem: TMenuItem; ADefaultImageIndex: Integer);
|
|
var
|
|
I: Integer;
|
|
begin
|
|
AddItem(AParentMenuItem, '-');
|
|
for I := FOverflowPanelVisibleItemCount to OverflowPanelItemCount - 1 do
|
|
AddItem(AParentMenuItem, OverflowPanelItems[I].Group.Caption, True, DoHiddenGroupClick,
|
|
GetImageIndex(OverflowPanelItems[I].Group, ADefaultImageIndex),
|
|
NavBar.ActiveGroup = OverflowPanelItems[I].Group).Tag := Integer(OverflowPanelItems[I].Group);
|
|
end;
|
|
|
|
var
|
|
AImageCount: Integer;
|
|
AParentMenuItem: TMenuItem;
|
|
begin
|
|
ImageList.Clear;
|
|
|
|
if NavBar.SmallImages <> nil then
|
|
ImageList.Assign(NavBar.SmallImages)
|
|
else
|
|
RecreateImageList;
|
|
|
|
AImageCount := ImageList.Count;
|
|
AssignImage(ImageList, dxOffice11NavPaneArrowUpBitmap);
|
|
AssignImage(ImageList, dxOffice11NavPaneArrowDownBitmap);
|
|
AssignImage(ImageList, dxOffice11NavPaneDefaultSmallBitmap);
|
|
|
|
PopupMenu.Items.Clear;
|
|
PopupMenu.Images := ImageList;
|
|
|
|
AddItem(PopupMenu.Items, cxGetResourceStringNet(sdxNavBarOffice11ShowMoreButtons),
|
|
CanDecNavigationPaneOverflowPanelItemCount, DoMoreButtonsClick, AImageCount);
|
|
AddItem(PopupMenu.Items, cxGetResourceStringNet(sdxNavBarOffice11ShowFewerButtons),
|
|
CanIncNavigationPaneOverflowPanelItemCount, DoFewerButtonsClick, AImageCount + 1);
|
|
AParentMenuItem := AddItem(PopupMenu.Items,
|
|
cxGetResourceStringNet(sdxNavBarOffice11AddRemoveButtons), NavBar.Groups.Count > 0);
|
|
CreateGroupList(AParentMenuItem, AImageCount + 2);
|
|
CreateHiddenGroupList(PopupMenu.Items, AImageCount + 2);
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.CreateColors;
|
|
begin
|
|
CreateOffice11NavPaneColors;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.RefreshColors;
|
|
begin
|
|
RefreshOffice11NavPaneColors;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.ReleaseColors;
|
|
begin
|
|
ReleaseOffice11NavPaneColors;
|
|
end;
|
|
|
|
class function TdxNavBarOffice11NavPaneViewInfo.GetGroupHorizontalEdge: Integer;
|
|
begin
|
|
Result := 1;
|
|
end;
|
|
|
|
class function TdxNavBarOffice11NavPaneViewInfo.GetGroupSeparatorWidth: Integer;
|
|
begin
|
|
Result := 0;
|
|
end;
|
|
|
|
class function TdxNavBarOffice11NavPaneViewInfo.GetGroupCaptionImageIndent: Integer;
|
|
begin
|
|
Result := 4;
|
|
end;
|
|
|
|
class function TdxNavBarOffice11NavPaneViewInfo.GetGroupCaptionHeightAddon: Integer;
|
|
begin
|
|
Result := 4;
|
|
end;
|
|
|
|
class function TdxNavBarOffice11NavPaneViewInfo.GetOverflowPanelHeightAddon: Integer;
|
|
begin
|
|
Result := 8;
|
|
end;
|
|
|
|
class function TdxNavBarOffice11NavPaneViewInfo.GetOverflowPanelSignWidth: Integer;
|
|
begin
|
|
Result := 20;
|
|
end;
|
|
|
|
class function TdxNavBarOffice11NavPaneViewInfo.GetOverflowPanelSeparator: Integer;
|
|
begin
|
|
Result := 0;
|
|
end;
|
|
|
|
class function TdxNavBarOffice11NavPaneViewInfo.GetOverflowPanelImageWidthAddon: Integer;
|
|
begin
|
|
Result := 2;
|
|
end;
|
|
|
|
class function TdxNavBarOffice11NavPaneViewInfo.GetOverflowPanelPopupMenuImageIndent: Integer;
|
|
begin
|
|
Result := 3;
|
|
end;
|
|
|
|
class function TdxNavBarOffice11NavPaneViewInfo.GetOverflowPanelPopupMenuTextIndent: Integer;
|
|
begin
|
|
Result := 4;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetHeaderHeight: Integer;
|
|
begin
|
|
Result := GetHeaderHeightAddon;
|
|
Inc(Result, GetFontHeight(HeaderFont));
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetOverflowPanelHeight: Integer;
|
|
begin
|
|
Result := GetOverflowPanelImageHeight + GetOverflowPanelHeightAddon;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetOverflowPanelImageHeight: Integer;
|
|
begin
|
|
if NavBar.NavigationPaneOverflowPanelUseSmallImages then
|
|
Result := GetSmallImageHeight
|
|
else Result := GetLargeImageHeight;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetOverflowPanelImageWidth: Integer;
|
|
begin
|
|
if NavBar.NavigationPaneOverflowPanelUseSmallImages then
|
|
Result := GetSmallImageWidth
|
|
else Result := GetLargeImageWidth;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetOverflowPanelImageList: TImageList;
|
|
begin
|
|
if NavBar.NavigationPaneOverflowPanelUseSmallImages then
|
|
Result := NavBar.SmallImages
|
|
else Result := NavBar.LargeImages;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetOverflowPanelImageIndex(AGroup: TdxNavBarGroup): Integer;
|
|
begin
|
|
if NavBar.NavigationPaneOverflowPanelUseSmallImages then
|
|
Result := AGroup.SmallImageIndex
|
|
else Result := AGroup.LargeImageIndex;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetSplitterHeight: Integer;
|
|
begin
|
|
Result := 7;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.CanHasGroupViewAsIconView: Boolean;
|
|
begin
|
|
Result := False;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.CanHasImageInGroupCaption: Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.CanGroupCaptionBoundsByImage: Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetOverflowPanelHintRect: TRect;
|
|
var
|
|
pt: TPoint;
|
|
AGroup: TdxNavBarGroup;
|
|
begin
|
|
if NavBar.NavigationPaneOverflowPanelHotTrackedIndex > -1 then
|
|
AGroup := OverflowPanelItems[NavBar.NavigationPaneOverflowPanelHotTrackedIndex].Group
|
|
else AGroup := nil;
|
|
Painter.HintWindowCanvas.Font := HintFont;
|
|
Result := Rect(0, 0, ClientWidth, 0);
|
|
DrawText(Painter.HintWindowDC, {$IFNDEF CLR}PChar{$ENDIF}(HintText), -1, Result, DT_CALCRECT or DT_LEFT or
|
|
DT_WORDBREAK or DT_NOPREFIX);
|
|
Inc(Result.Right, dxNavBarHintWindowSizeCorrection);
|
|
Inc(Result.Bottom, dxNavBarHintWindowSizeCorrection);
|
|
if Assigned(NavBar.OnCalcNavigationPaneOverflowPanelHintRect) then
|
|
NavBar.OnCalcNavigationPaneOverflowPanelHintRect(NavBar, AGroup, Self, Result);
|
|
pt := NavBar.ClientToScreen(NavBar.TargetPoint);
|
|
OffsetRect(Result, pt.X + 20, pt.Y);
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetOverflowPanelHintText: string;
|
|
var
|
|
AIndex: Integer;
|
|
begin
|
|
Result := '';
|
|
if IsPtNavigationPaneOverflowPanelSign(NavBar.TargetPoint) then
|
|
Result := cxGetResourceStringNet(sdxNavigationPaneOverflowPanelCustomizeHint)
|
|
else
|
|
begin
|
|
AIndex := GetNavigationPaneOverflowPanelItemIndexAtPos(NavBar.TargetPoint);
|
|
if AIndex > -1 then
|
|
Result := OverflowPanelItems[AIndex].Group.Caption;
|
|
end;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetHintRect: TRect;
|
|
begin
|
|
if IsPtNavigationPaneOverflowPanel(NavBar.TargetPoint) then
|
|
Result := GetOverflowPanelHintRect
|
|
else Result := inherited GetHintRect;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetHintText: string;
|
|
begin
|
|
if IsPtNavigationPaneOverflowPanel(NavBar.TargetPoint) then
|
|
Result := GetOverflowPanelHintText
|
|
else Result := inherited GetHintText;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetBoundsUpdateType: TdxNavBarChangeType;
|
|
begin
|
|
Result := doRecreate;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.CreateInfo;
|
|
var
|
|
AOverflowPanelItemCount: Integer;
|
|
begin
|
|
CreateGroupsInfo;
|
|
if NavBar.ShowGroupCaptions then
|
|
AOverflowPanelItemCount := NavBar.NavigationPaneOverflowPanelItemCount
|
|
else AOverflowPanelItemCount := 0;
|
|
CreateOverflowPanelInfo(AOverflowPanelItemCount, True);
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.CreateGroupsInfo;
|
|
var
|
|
I: Integer;
|
|
begin
|
|
ClearGroups;
|
|
if (NavBar.ActiveGroup <> nil) and NavBar.ActiveGroup.Visible then
|
|
AddGroup(Self, NavBar.ActiveGroup, False, True);
|
|
for I := 0 to NavBar.Groups.Count - 1 do
|
|
if NavBar.Groups[I].Visible then
|
|
AddGroup(Self, NavBar.Groups[I], True, False);
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.CreateOverflowPanelInfo(AItemCount: Integer; AClearOld: Boolean);
|
|
var
|
|
I: Integer;
|
|
AItem: PdxNavBarOverflowPanelViewInfoItem;
|
|
begin
|
|
if AClearOld then ClearOverflowPanelItems;
|
|
for I := GroupCount - 1 downto 0 do
|
|
begin
|
|
if OverflowPanelItemCount >= AItemCount then break;
|
|
New(AItem);
|
|
FOverflowPanelItems.Insert(0, AItem);
|
|
AItem.Group := Groups[I].Group;
|
|
if Groups[I] <> ActiveGroupViewInfo then
|
|
begin
|
|
Groups[I].Free;
|
|
RemoveGroup(Groups[I]);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.CalculateBounds;
|
|
var
|
|
I, Y: Integer;
|
|
begin
|
|
ClearRects;
|
|
Y := GetSpaceBetweenGroups;
|
|
CalculateHeaderBounds(GetGroupHorizontalEdge, Y);
|
|
Y := HeaderRect.Bottom + GetSpaceBetweenGroups;
|
|
if GroupCount = 0 then
|
|
begin
|
|
CalculateSplitterBounds(GetGroupHorizontalEdge, Y);
|
|
Y := SplitterRect.Bottom + GetSpaceBetweenGroups;
|
|
end
|
|
else for I := 0 to GroupCount - 1 do
|
|
begin
|
|
Groups[I].CalculateBounds(GetGroupHorizontalEdge, Y);
|
|
Y := Groups[I].Rect.Bottom + GetSpaceBetweenGroups;
|
|
if I = 0 then
|
|
begin
|
|
CalculateSplitterBounds(GetGroupHorizontalEdge, Y);
|
|
Y := SplitterRect.Bottom + GetSpaceBetweenGroups;
|
|
end;
|
|
end;
|
|
CalculateOverflowPanelBounds(GetGroupHorizontalEdge, Y);
|
|
CalculateScrollButtonsBounds;
|
|
|
|
CorrectBounds;
|
|
AdjustControlsBounds;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.CalculateHeaderBounds(X, Y: Integer);
|
|
begin
|
|
FHeaderRect.Left := X;
|
|
FHeaderRect.Right := ClientWidth - X;
|
|
FHeaderRect.Top := Y;
|
|
FHeaderRect.Bottom := Y + GetHeaderHeight;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.CalculateOverflowPanelBounds(X, Y: Integer);
|
|
|
|
procedure CalculateOverflowPanelItemRects(const AItemsRect: TRect);
|
|
var
|
|
I, AStartPos, AEndPos, ASelectionWidth: Integer;
|
|
APlaceCount: Integer;
|
|
ASelectionRect, AItemRect: TRect;
|
|
begin
|
|
ASelectionWidth := GetOverflowPanelImageWidth + 2 * GetOverflowPanelImageWidthAddon;
|
|
APlaceCount := cxRectWidth(AItemsRect) div ASelectionWidth;
|
|
FOverflowPanelVisibleItemCount := Min(APlaceCount, OverflowPanelItemCount);
|
|
|
|
AEndPos := AItemsRect.Right;
|
|
AStartPos := AEndPos - FOverflowPanelVisibleItemCount * ASelectionWidth;
|
|
|
|
ASelectionRect := Rect(0, 0, ASelectionWidth, cxRectHeight(FOverflowPanelRect));
|
|
OffsetRect(ASelectionRect, AStartPos, FOverflowPanelRect.Top);
|
|
InflateRect(ASelectionRect, 0, -1);
|
|
|
|
AItemRect := Rect(0, 0, ASelectionWidth, GetOverflowPanelImageHeight);
|
|
OffsetRect(AItemRect, AStartPos, FOverflowPanelRect.Top + (cxRectHeight(FOverflowPanelRect) - GetOverflowPanelImageHeight) div 2);
|
|
InflateRect(AItemRect, -GetOverflowPanelImageWidthAddon, 0);
|
|
|
|
for I := 0 to FOverflowPanelVisibleItemCount - 1 do
|
|
begin
|
|
OverflowPanelItems[I].SelectionRect := ASelectionRect;
|
|
OffsetRect(OverflowPanelItems[I].SelectionRect, ASelectionWidth * I, 0);
|
|
OverflowPanelItems[I].Rect := AItemRect;
|
|
OffsetRect(OverflowPanelItems[I].Rect, ASelectionWidth * I, 0);
|
|
end;
|
|
end;
|
|
|
|
var
|
|
AItemsRect: TRect;
|
|
begin
|
|
FOverflowPanelRect.Left := X;
|
|
FOverflowPanelRect.Right := ClientWidth - X;
|
|
FOverflowPanelRect.Top := Y;
|
|
FOverflowPanelRect.Bottom := FOverflowPanelRect.Top + GetOverflowPanelHeight;
|
|
|
|
FOverflowPanelSignRect := FOverflowPanelRect;
|
|
FOverflowPanelSignRect.Left := FOverflowPanelSignRect.Right - GetOverflowPanelSignWidth;
|
|
InflateRect(FOverflowPanelSignRect, 0, -1);
|
|
|
|
AItemsRect := FOverflowPanelRect;
|
|
AItemsRect.Right := FOverflowPanelSignRect.Left - GetOverflowPanelSeparator;
|
|
CalculateOverflowPanelItemRects(AItemsRect);
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.CalculateSplitterBounds(X, Y: Integer);
|
|
begin
|
|
FSplitterRect.Left := X;
|
|
FSplitterRect.Right := ClientWidth - X;
|
|
FSplitterRect.Top := Y;
|
|
FSplitterRect.Bottom := Y + GetSplitterHeight;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.ClearRects;
|
|
begin
|
|
inherited;
|
|
SetRectEmpty(FHeaderRect);
|
|
SetRectEmpty(FSplitterRect);
|
|
SetRectEmpty(FOverflowPanelRect);
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.CorrectBounds;
|
|
var
|
|
I, ACount: Integer;
|
|
X, Y, OffsetY, MinHeight: Integer;
|
|
begin
|
|
if (GroupCount > 0) and (ActiveGroupViewInfo <> nil) then
|
|
begin
|
|
OffsetY := ClientHeight - Groups[GroupCount - 1].Rect.Bottom;
|
|
Dec(OffsetY, GetOverflowPanelHeight);
|
|
if GroupCount = 1 then
|
|
Dec(OffsetY, GetSplitterHeight);
|
|
if not NavBar.ShowGroupCaptions then
|
|
begin
|
|
CreateOverflowPanelInfo(GroupCount - 1, False);
|
|
X := Groups[GroupCount - 1].Rect.Left;
|
|
Y := SplitterRect.Bottom;
|
|
CalculateOverflowPanelBounds(X, Y);
|
|
end
|
|
else if OffsetY < 0 then
|
|
begin
|
|
ACount := 0;
|
|
for I := GroupCount - 1 downto 1 do
|
|
begin
|
|
if OffsetY > 0 then break;
|
|
Inc(OffsetY, Groups[I].Rect.Bottom - Groups[I].Rect.Top);
|
|
Inc(ACount);
|
|
end;
|
|
CreateOverflowPanelInfo(NavBar.NavigationPaneOverflowPanelItemCount + ACount, False);
|
|
X := Groups[GroupCount - 1].Rect.Left;
|
|
if GroupCount = 1 then
|
|
Y := SplitterRect.Bottom
|
|
else Y := Groups[GroupCount - 1].Rect.Bottom;
|
|
CalculateOverflowPanelBounds(X, Y);
|
|
end;
|
|
if ActiveGroupViewInfo.ItemCount > 0 then
|
|
begin
|
|
MinHeight := GetActiveGroupMinHeight;
|
|
if (ActiveGroupViewInfo.ItemsRect.Bottom + OffsetY < ActiveGroupViewInfo.ItemsRect.Top + MinHeight) then
|
|
OffsetY := ActiveGroupViewInfo.ItemsRect.Top + MinHeight - ActiveGroupViewInfo.ItemsRect.Bottom;
|
|
end
|
|
else if (ActiveGroupViewInfo.Rect.Bottom + OffsetY < ActiveGroupViewInfo.ItemsRect.Top) then
|
|
OffsetY := ActiveGroupViewInfo.ItemsRect.Top - ActiveGroupViewInfo.Rect.Bottom;
|
|
ActiveGroupViewInfo.CorrectActiveGroupBounds(0, OffsetY);
|
|
OffsetRect(FSplitterRect, 0, OffsetY);
|
|
for I := 1 to GroupCount - 1 do
|
|
Groups[I].CorrectBounds(0, OffsetY);
|
|
OffsetRect(FOverflowPanelRect, 0, OffsetY);
|
|
OffsetRect(FOverflowPanelSignRect, 0, OffsetY);
|
|
for I := 0 to FOverflowPanelVisibleItemCount - 1 do
|
|
begin
|
|
OffsetRect(OverflowPanelItems[I].Rect, 0, OffsetY);
|
|
OffsetRect(OverflowPanelItems[I].SelectionRect, 0, OffsetY);
|
|
end;
|
|
end
|
|
else
|
|
CorrectBoundsWithNoGroups;
|
|
CalculateScrollButtonsBounds;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.CorrectBoundsWithNoGroups;
|
|
var
|
|
OffsetY: Integer;
|
|
begin
|
|
OffsetY := ClientHeight - HeaderRect.Bottom;
|
|
Dec(OffsetY, GetOverflowPanelHeight);
|
|
Dec(OffsetY, GetSplitterHeight);
|
|
if (SplitterRect.Top + OffsetY < HeaderRect.Bottom) then
|
|
OffsetY := HeaderRect.Bottom - SplitterRect.Top;
|
|
OffsetRect(FSplitterRect, 0, OffsetY);
|
|
OffsetRect(FOverflowPanelRect, 0, OffsetY);
|
|
OffsetRect(FOverflowPanelSignRect, 0, OffsetY);
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetGroupViewInfoAtItemsPos(pt: TPoint): TdxNavBarGroupViewInfo;
|
|
begin
|
|
Result := inherited GetGroupViewInfoAtItemsPos(pt);
|
|
if (Result = ActiveGroupViewInfo) and (NavBar.SourceGroup <> nil) then
|
|
Result := nil;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetViewInfoAtDragPosition(pt: TPoint;
|
|
var ItemGroup: TdxNavBarGroupViewInfo; var Item1, Item2: TdxNavBarLinkViewInfo): Integer;
|
|
begin
|
|
Result := inherited GetViewInfoAtDragPosition(pt, ItemGroup, Item1, Item2);
|
|
if (ItemGroup <> nil) and (GroupCount > 0) and (ItemGroup <> Groups[0]) and
|
|
(NavBar.ActiveGroup = ItemGroup.Group) then
|
|
begin
|
|
ItemGroup := Groups[0];
|
|
Item1 := nil;
|
|
if ItemGroup.ItemCount > 0 then
|
|
Item2 := ItemGroup.Items[0]
|
|
else Item2 := nil;
|
|
Result := 0;
|
|
end;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.IsPtNavigationPaneHeader(pt: TPoint): Boolean;
|
|
begin
|
|
Result := PtInRect(FHeaderRect, pt);
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.IsPtNavigationPaneSplitter(pt: TPoint): Boolean;
|
|
begin
|
|
Result := PtInRect(FSplitterRect, pt);
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.IsPtNavigationPaneOverflowPanel(pt: TPoint): Boolean;
|
|
begin
|
|
Result := PtInRect(OverflowPanelRect, pt);
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.IsPtIncNavigationPaneOverflowPanelItemCount(pt: TPoint): Boolean;
|
|
begin
|
|
if GroupCount > 1 then
|
|
Result := pt.Y > SplitterRect.Top + (SplitterRect.Bottom - SplitterRect.Top) div 2 +
|
|
(Groups[1].Rect.Bottom - Groups[1].Rect.Top)
|
|
else Result := False;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.IsPtDecNavigationPaneOverflowPanelItemCount(pt: TPoint): Boolean;
|
|
begin
|
|
if GroupCount > 1 then
|
|
Result := pt.Y < SplitterRect.Top + (SplitterRect.Bottom - SplitterRect.Top) div 2 -
|
|
(Groups[1].Rect.Bottom - Groups[1].Rect.Top)
|
|
else Result := pt.Y < SplitterRect.Top + (SplitterRect.Bottom - SplitterRect.Top) div 2 - 20;
|
|
if (GroupCount > 0) and (Groups[0].ItemCount > 0) then
|
|
Result := Result and (pt.Y > Groups[0].Items[Groups[0].ItemCount - 1].Rect.Bottom);
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.IsPtNavigationPaneOverflowPanelSign(pt: TPoint): Boolean;
|
|
begin
|
|
Result := PtInRect(FOverflowPanelSignRect, pt);
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetNavigationPaneOverflowPanelItemIndexAtPos(pt: TPoint): Integer;
|
|
var
|
|
I: Integer;
|
|
begin
|
|
Result := -1;
|
|
for I := 0 to FOverflowPanelVisibleItemCount - 1 do
|
|
if PtInRect(OverflowPanelItems[I].Rect, pt) then
|
|
begin
|
|
Result := I;
|
|
break;
|
|
end;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetNavigationPaneOverflowPanelGroupAtPos(pt: TPoint): TdxNavBarGroup;
|
|
var
|
|
AIndex: Integer;
|
|
begin
|
|
AIndex := GetNavigationPaneOverflowPanelItemIndexAtPos(pt);
|
|
if (AIndex >= 0 ) then
|
|
begin
|
|
Result := OverflowPanelItems[AIndex].Group;
|
|
if (Result <> nil) and (csDestroying in Result.ComponentState) then
|
|
Result := nil;
|
|
end
|
|
else
|
|
Result := nil;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.IsDefaultHeaderColor: Boolean;
|
|
begin
|
|
Result := (inherited HeaderBackColor = clNone) or (inherited HeaderBackColor2 = clNone);
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.IsDefaultOverflowPanelColor: Boolean;
|
|
begin
|
|
Result := (inherited OverflowPanelBackColor = clNone) or (inherited OverflowPanelBackColor2 = clNone);
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.IsDefaultBottomScrollButtonColor: Boolean;
|
|
begin
|
|
Result := (inherited BottomScrollButtonBackColor = clNone) or (inherited BottomScrollButtonBackColor2 = clNone);
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.IsDefaultTopScrollButtonColor: Boolean;
|
|
begin
|
|
Result := (inherited TopScrollButtonBackColor = clNone) or (inherited TopScrollButtonBackColor2 = clNone);
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.RecreateImageList;
|
|
begin
|
|
FImageList.Free;
|
|
FImageList := TImageList.Create(NavBar);
|
|
end;
|
|
|
|
{ TdxNavBarOffice11NavPanelPainter }
|
|
|
|
procedure TdxNavBarOffice11NavPanePainter.DrawNavBarControl;
|
|
begin
|
|
inherited DrawNavBarControl;
|
|
DrawHeader;
|
|
DrawOverflowPanel;
|
|
DrawSplitter;
|
|
DrawBorder;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPanePainter.DrawGroupCaptionButton(AGroupViewInfo: TdxNavBarGroupViewInfo);
|
|
begin
|
|
with AGroupViewInfo do
|
|
TdxNavBarOffice11NavPaneGroupButtonPainter.DrawButton(Canvas, CaptionRect, CaptionImage,
|
|
CaptionBackColor, CaptionBackColor2, CaptionAlphaBlend, CaptionAlphaBlend2,
|
|
CaptionGradientMode, CaptionBorderColor, State);
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPanePainter.DrawHintWindow;
|
|
begin
|
|
if (NavBar.NavigationPaneOverflowPanelHotTrackedIndex > -1) or NavBar.NavigationPaneOverflowPanelSignHotTracked then
|
|
DrawOverflowPanelHintWindow
|
|
else inherited DrawHintWindow;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPanePainter.DrawBorder;
|
|
begin
|
|
Canvas.Brush.Style := bsClear;
|
|
Canvas.Pen.Color := ColorToRGB(ViewInfo.BorderColor);
|
|
Canvas.Pen.Style := psSolid;
|
|
Canvas.Pen.Width := 1;
|
|
Canvas.Rectangle(0, 0, ViewInfo.ClientWidth, ViewInfo.ClientHeight);
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPanePainter.DrawHeader;
|
|
var
|
|
AHandled: Boolean;
|
|
R: TRect;
|
|
begin
|
|
AHandled := False;
|
|
if Assigned(NavBar.OnCustomDrawNavigationPaneHeader) then
|
|
NavBar.OnCustomDrawNavigationPaneHeader(NavBar, Canvas, ViewInfo, AHandled);
|
|
if not AHandled then
|
|
begin
|
|
R := ViewInfo.HeaderRect;
|
|
Inc(R.Top);
|
|
with ViewInfo do
|
|
BackgroundPainterClass.DrawBackground(Canvas, R, HeaderImage, False, clNone,
|
|
HeaderBackColor, HeaderBackColor2, HeaderAlphaBlend, HeaderAlphaBlend2,
|
|
OverflowPanelGradientMode);
|
|
DrawHeaderText;
|
|
end;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPanePainter.DrawHeaderText;
|
|
var
|
|
R: TRect;
|
|
AText: string;
|
|
begin
|
|
with ViewInfo do
|
|
begin
|
|
R := HeaderRect;
|
|
Inc(R.Left, ViewInfo.GetGroupCaptionTextIndent);
|
|
if (NavBar.ActiveGroup <> nil) and NavBar.ActiveGroup.Visible then
|
|
AText := NavBar.ActiveGroup.Caption
|
|
else AText := '';
|
|
Canvas.Brush.Style := bsClear;
|
|
Canvas.Font := HeaderFont;
|
|
Canvas.Font.Color := HeaderFontColor;
|
|
DrawText(DC, {$IFNDEF CLR}PChar{$ENDIF}(AText), Length(AText), R, HeaderDrawEdgeFlag);
|
|
end;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPanePainter.DrawOverflowPanel;
|
|
var
|
|
AHandled: Boolean;
|
|
begin
|
|
AHandled := False;
|
|
if Assigned(NavBar.OnCustomDrawNavigationPaneOverflowPanel) then
|
|
NavBar.OnCustomDrawNavigationPaneOverflowPanel(NavBar, Canvas, ViewInfo, AHandled);
|
|
if not AHandled then
|
|
begin
|
|
with ViewInfo do
|
|
TdxNavBarOffice11NavPaneGroupButtonPainter.DrawButton(Canvas, OverflowPanelRect, OverflowPanelImage,
|
|
OverflowPanelBackColor, OverflowPanelBackColor2, OverflowPanelAlphaBlend,
|
|
OverflowPanelAlphaBlend2, OverflowPanelGradientMode, BorderColor, []);
|
|
DrawOverflowPanelSign;
|
|
DrawOverflowPanelItems;
|
|
end;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPanePainter.DrawOverflowPanelSign;
|
|
var
|
|
R: TRect;
|
|
X, Y: Integer;
|
|
begin
|
|
if dxOffice11NavPaneOverflowPanelBitmap <> nil then
|
|
begin
|
|
R := ViewInfo.OverflowPanelSignRect;
|
|
if R.Left > ViewInfo.OverflowPanelRect.Left then
|
|
begin
|
|
if NavBar.NavigationPaneOverflowPanelSignPressed then
|
|
BackgroundPainterClass.DrawBackground(Canvas, R, nil, False, clNone,
|
|
dxOffice11NavPaneGroupCaptionPressedHotColor1, dxOffice11NavPaneGroupCaptionPressedHotColor2,
|
|
255, 255, gmVertical)
|
|
else if NavBar.NavigationPaneOverflowPanelSignHotTracked then
|
|
BackgroundPainterClass.DrawBackground(Canvas, R, nil, False, clNone,
|
|
dxOffice11NavPaneGroupCaptionHotColor1, dxOffice11NavPaneGroupCaptionHotColor2,
|
|
255, 255, gmVertical);
|
|
X := ((R.Right - R.Left) - dxOffice11NavPaneOverflowPanelBitmap.Width) div 2 + R.Left;
|
|
Y := ((R.Bottom - R.Top) - dxOffice11NavPaneOverflowPanelBitmap.Height) div 2 + R.Top;
|
|
Canvas.Draw(X, Y, dxOffice11NavPaneOverflowPanelBitmap);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPanePainter.DrawOverflowPanelItems;
|
|
var
|
|
I: Integer;
|
|
AGroup: TdxNavBarGroup;
|
|
R: TRect;
|
|
begin
|
|
for I := 0 to ViewInfo.fOverflowPanelVisibleItemCount - 1 do
|
|
begin
|
|
R := ViewInfo.OverflowPanelItems[I].Rect;
|
|
AGroup := ViewInfo.OverflowPanelItems[I].Group;
|
|
if (NavBar.NavigationPaneOverflowPanelPressedIndex = I) or (AGroup = NavBar.ActiveGroup) then
|
|
begin
|
|
if NavBar.NavigationPaneOverflowPanelHotTrackedIndex = I then
|
|
BackgroundPainterClass.DrawBackground(Canvas, R, nil, False, clNone,
|
|
dxOffice11NavPaneGroupCaptionPressedHotColor1,
|
|
dxOffice11NavPaneGroupCaptionPressedHotColor2,
|
|
255, 255, gmVertical)
|
|
else
|
|
BackgroundPainterClass.DrawBackground(Canvas, R, nil, False, clNone,
|
|
dxOffice11NavPaneGroupCaptionPressedColor1, dxOffice11NavPaneGroupCaptionPressedColor2,
|
|
255, 255, gmVertical);
|
|
end
|
|
else if NavBar.NavigationPaneOverflowPanelHotTrackedIndex = I then
|
|
BackgroundPainterClass.DrawBackground(Canvas, R, nil, False, clNone,
|
|
dxOffice11NavPaneGroupCaptionHotColor1, dxOffice11NavPaneGroupCaptionHotColor2,
|
|
255, 255, gmVertical);
|
|
R := ViewInfo.OverflowPanelItems[I].Rect;
|
|
if ImagePainterClass.IsValidImage(ViewInfo.GetOverflowPanelImageList, ViewInfo.GetOverflowPanelImageIndex(AGroup)) then
|
|
ImagePainterClass.DrawImage(Canvas, ViewInfo.GetOverflowPanelImageList, ViewInfo.GetOverflowPanelImageIndex(AGroup), R)
|
|
else if NavBar.NavigationPaneOverflowPanelUseSmallImages then
|
|
Canvas.Draw(R.Left, R.Top, dxOffice11NavPaneDefaultSmallBitmap)
|
|
else Canvas.Draw(R.Left, R.Top, dxOffice11NavPaneDefaultLargeBitmap);
|
|
end;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPanePainter.DrawOverflowPanelHintWindow;
|
|
var
|
|
AHandled: Boolean;
|
|
AGroup: TdxNavBarGroup;
|
|
begin
|
|
if NavBar.NavigationPaneOverflowPanelHotTrackedIndex > -1 then
|
|
AGroup := ViewInfo.OverflowPanelItems[NavBar.NavigationPaneOverflowPanelHotTrackedIndex].Group
|
|
else AGroup := nil;
|
|
AHandled := False;
|
|
if Assigned(NavBar.OnCustomDrawNavigationPaneOverflowPanelHint) then
|
|
NavBar.OnCustomDrawNavigationPaneOverflowPanelHint(NavBar, HintWindowCanvas, AGroup,
|
|
NavBar.ViewInfo.HintText, NavBar.HintWindow.ClientRect, AHandled);
|
|
if not AHandled then
|
|
with ViewInfo do
|
|
TdxNavBarHintPainter.DrawHint(HintWindowCanvas, NavBar.HintWindow.ClientRect,
|
|
ViewInfo.HintText, HintImage, HintBackColor, HintBackColor2,
|
|
HintAlphaBlend, HintAlphaBlend2, HintGradientMode, HintFont);
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPanePainter.DrawSplitter;
|
|
var
|
|
AHandled: Boolean;
|
|
R: TRect;
|
|
begin
|
|
AHandled := False;
|
|
if Assigned(NavBar.OnCustomDrawNavigationPaneSplitter) then
|
|
NavBar.OnCustomDrawNavigationPaneSplitter(NavBar, Canvas, ViewInfo, AHandled);
|
|
if not AHandled then
|
|
begin
|
|
with ViewInfo do
|
|
begin
|
|
Canvas.Brush.Color := clWhite;
|
|
R := SplitterRect;
|
|
Canvas.FillRect(Rect(R.Left, R.Top, R.Right, R.Top + 1));
|
|
Inc(R.Top);
|
|
BackgroundPainterClass.DrawBackground(Canvas, R, nil, False, clNone,
|
|
SplitterBackColor, SplitterBackColor2, SplitterAlphaBlend, SplitterAlphaBlend2,
|
|
SplitterGradientMode);
|
|
end;
|
|
DrawSplitterSign;
|
|
end;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPanePainter.DrawSplitterSign;
|
|
var
|
|
X, Y: Integer;
|
|
begin
|
|
if dxOffice11NavPaneSplitterBitmap <> nil then
|
|
begin
|
|
X := ((ViewInfo.SplitterRect.Right - ViewInfo.SplitterRect.Left) - dxOffice11NavPaneSplitterBitmap.Width) div 2 +
|
|
ViewInfo.SplitterRect.Left;
|
|
if X > ViewInfo.OverflowPanelRect.Left then
|
|
begin
|
|
Y := ((ViewInfo.SplitterRect.Bottom - ViewInfo.SplitterRect.Top) - dxOffice11NavPaneSplitterBitmap.Height) div 2 +
|
|
ViewInfo.SplitterRect.Top;
|
|
Canvas.Draw(X, Y, dxOffice11NavPaneSplitterBitmap);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPanePainter.DrawPopupMenuItem(ACanvas: TCanvas; ARect: TRect; AImageList: TCustomImageList;
|
|
AImageIndex: Integer; AText: string; State: TdxNavBarObjectStates);
|
|
var
|
|
R: TRect;
|
|
begin
|
|
BackgroundPainterClass.DrawBackground(ACanvas, ARect, nil, False, clNone,
|
|
clMenu, clMenu, 255, 255, gmVertical);
|
|
R := ARect;
|
|
R.Right := R.Left + 2 * ViewInfo.GetOverflowPanelPopupMenuImageIndent + ViewInfo.GetSmallImageWidth;
|
|
BackgroundPainterClass.DrawBackground(ACanvas, R, nil, False, clNone, dxOffice11NavPaneGroupCaptionColor1,
|
|
dxOffice11NavPaneGroupCaptionColor2, 255, 255, gmHorizontal);
|
|
|
|
if AText <> '-' then
|
|
begin
|
|
InflateRect(R, -1, -1);
|
|
if sSelected in State then
|
|
begin
|
|
ButtonPainterClass.DrawButton(ACanvas, ARect, nil, dxOffice11NavPaneGroupCaptionHotColor1,
|
|
dxOffice11NavPaneGroupCaptionHotColor2, 255, 255, gmVertical, dxOffice11NavPaneBorder, []);
|
|
if sActive in State then
|
|
ButtonPainterClass.DrawButton(ACanvas, R, nil, dxOffice11NavPaneGroupCaptionPressedColor1,
|
|
dxOffice11NavPaneGroupCaptionPressedColor2, 255, 255, gmVertical, dxOffice11NavPaneBorder, []);
|
|
end
|
|
else if sActive in State then
|
|
ButtonPainterClass.DrawButton(ACanvas, R, nil, dxOffice11NavPaneGroupCaptionHotColor1,
|
|
dxOffice11NavPaneGroupCaptionHotColor1, 255, 255, gmVertical, dxOffice11NavPaneBorder, []);
|
|
|
|
InflateRect(R, 1 - ViewInfo.GetOverflowPanelPopupMenuImageIndent, 1 - ViewInfo.GetOverflowPanelPopupMenuImageIndent);
|
|
AImageList.Draw(ACanvas, R.Left, R.Top, AImageIndex,
|
|
not (sDisabled in State));
|
|
|
|
R := ARect;
|
|
R.Left := R.Left + 2 * ViewInfo.GetOverflowPanelPopupMenuImageIndent + ViewInfo.GetSmallImageWidth + ViewInfo.GetOverflowPanelPopupMenuTextIndent;
|
|
if sDisabled in State then
|
|
ACanvas.Font.Color := clGrayText
|
|
else ACanvas.Font.Color := clMenuText;
|
|
ACanvas.Brush.Style := bsClear;
|
|
DrawText(ACanvas.Handle, {$IFNDEF CLR}PChar{$ENDIF}(AText), Length(AText),
|
|
R, DT_LEFT or DT_VCENTER or DT_SINGLELINE);
|
|
end
|
|
else
|
|
begin
|
|
ACanvas.Pen.Color := Dark(dxOffice11NavPaneGroupCaptionColor2, 80);
|
|
ACanvas.MoveTo(R.Right + cxRectWidth(R) div 2, R.Top + cxRectHeight(ARect) div 2);
|
|
ACanvas.LineTo(ARect.Right, R.Top + cxRectHeight(ARect) div 2);
|
|
end;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPanePainter.CreateViewInfo: TdxNavBarViewInfo;
|
|
begin
|
|
Result := TdxNavBarOffice11NavPaneViewInfo.Create(Self);
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPanePainter.CreateGroupViewInfo(AViewInfo: TdxNavBarViewInfo; AGroup: TdxNavBarGroup;
|
|
ACaptionVisible, AItemsVisible: Boolean): TdxNavBarGroupViewInfo;
|
|
begin
|
|
Result := TdxNavBarOffice11NavPaneGroupViewInfo.Create(AViewInfo, AGroup, ACaptionVisible, AItemsVisible);
|
|
end;
|
|
|
|
class function TdxNavBarOffice11NavPanePainter.ButtonPainterClass: TdxBaseButtonPainterClass;
|
|
begin
|
|
Result := TdxNavBarOffice11NavPaneButtonPainter;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPanePainter.GetViewInfo: TdxNavBarOffice11NavPaneViewInfo;
|
|
begin
|
|
if inherited ViewInfo is TdxNavBarOffice11NavPaneViewInfo then
|
|
Result := inherited ViewInfo as TdxNavBarOffice11NavPaneViewInfo
|
|
else Result := nil;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.ClearOverflowPanelItems;
|
|
var
|
|
I: Integer;
|
|
begin
|
|
for I := 0 to OverflowPanelItemCount - 1 do
|
|
Dispose(OverflowPanelItems[I]);
|
|
FOverflowPanelItems.Clear;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.DoMoreButtonsClick(Sender: TObject);
|
|
begin
|
|
DoDecNavigationPaneOverflowPanelItemCount;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.DoFewerButtonsClick(Sender: TObject);
|
|
begin
|
|
DoIncNavigationPaneOverflowPanelItemCount;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.DoAddRemoveButtonsClick(Sender: TObject);
|
|
var
|
|
AMenuItem: TMenuItem;
|
|
AGroup: TdxNavBarGroup;
|
|
begin
|
|
AMenuItem := Sender as TMenuItem;
|
|
{$IFNDEF DELPHI6}
|
|
AMenuItem.Checked := not AMenuItem.Checked;
|
|
{$ENDIF}
|
|
AGroup := NavBar.Groups[AMenuItem.MenuIndex];
|
|
AGroup.Visible := AMenuItem.Checked;
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.DoHiddenGroupClick(Sender: TObject);
|
|
begin
|
|
NavBar.ActiveGroup := TdxNavBarGroup(TMenuItem(Sender).Tag);
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.DoDrawItem(Sender: TObject;
|
|
ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
|
|
var
|
|
AMenuItem: TMenuItem;
|
|
AState: TdxNavBarObjectStates;
|
|
begin
|
|
AMenuItem := Sender as TMenuItem;
|
|
AState := [];
|
|
if Selected then
|
|
Include(AState, sSelected);
|
|
if AMenuItem.Checked then
|
|
Include(AState, sActive);
|
|
if not AMenuItem.Enabled then
|
|
Include(AState, sDisabled);
|
|
|
|
(Painter as TdxNavBarOffice11NavPanePainter).DrawPopupMenuItem(ACanvas, ARect,
|
|
ImageList, AMenuItem.ImageIndex, AMenuItem.Caption, AState);
|
|
end;
|
|
|
|
procedure TdxNavBarOffice11NavPaneViewInfo.DoMeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer);
|
|
begin
|
|
Height := 2 * GetOverflowPanelPopupMenuImageIndent + GetSmallImageHeight;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetOverflowPanelItemCount: Integer;
|
|
begin
|
|
Result := FOverflowPanelItems.Count;
|
|
end;
|
|
|
|
function TdxNavBarOffice11NavPaneViewInfo.GetOverflowPanelItems(Index: Integer): PdxNavBarOverflowPanelViewInfoItem;
|
|
begin
|
|
Result := FOverflowPanelItems[Index];
|
|
end;
|
|
|
|
initialization
|
|
dxNavBarViewsFactory.RegisterView(dxNavBarOffice11TaskPaneView, 'Office11TaskPaneView', TdxNavBarOffice11Painter);
|
|
dxNavBarViewsFactory.RegisterView(dxNavBarOffice11NavigatorPaneView, 'Office11NavigatorPaneView', TdxNavBarOffice11NavPanePainter);
|
|
|
|
finalization
|
|
dxNavBarViewsFactory.UnRegisterView(dxNavBarOffice11TaskPaneView);
|
|
dxNavBarViewsFactory.UnRegisterView(dxNavBarOffice11NavigatorPaneView);
|
|
|
|
end.
|