david
5678df5538
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
1076 lines
44 KiB
ObjectPascal
1076 lines
44 KiB
ObjectPascal
{*******************************************************************}
|
|
{ }
|
|
{ Developer Express Visual Component Library }
|
|
{ ExpressBars components }
|
|
{ }
|
|
{ Copyright (c) 1998-2008 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 EXPRESSBARS 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 dxRibbonGroupLayoutCalculator;
|
|
|
|
{$I cxVer.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IFDEF DELPHI6}
|
|
Types,
|
|
{$ENDIF}
|
|
Windows, Classes, dxBar, dxRibbon;
|
|
|
|
type
|
|
{ TdxRibbonGroupLayoutCalculator }
|
|
|
|
TSequenceForWholeGroupHeightReducingItem = record
|
|
ItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
OneRowHeightItemControlsBefore: Integer;
|
|
OneRowHeightItemControlsAfter: Integer;
|
|
end;
|
|
TSequenceForWholeGroupHeightReducing = array of TSequenceForWholeGroupHeightReducingItem;
|
|
TSequencesForWholeGroupHeightReducing = array of TSequenceForWholeGroupHeightReducing;
|
|
|
|
TdxRibbonGroupLayoutCalculator = class(TInterfacedObject,
|
|
IdxRibbonGroupLayoutCalculator)
|
|
private
|
|
FColumnCount: Integer;
|
|
FGroupRowCount: Integer;
|
|
FGroupRowHeight: Integer;
|
|
FItemControlColumns: array of Integer;
|
|
FItemControlIndexForOneRowHeightReducing: Integer;
|
|
FItemControlSeparators: array of Integer;
|
|
FLastSequenceForWholeGroupHeightReducing: Integer;
|
|
FSequencesForWholeGroupHeightReducing: TSequencesForWholeGroupHeightReducing;
|
|
X: Integer;
|
|
procedure AlignOneRowHeightItemControl(
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo; AColumnWidth: Integer);
|
|
procedure AlignOneRowHeightItemControls(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; AFirstIndex, AColumnWidth: Integer);
|
|
procedure CheckDistanceBetweenTwoLastColumns(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; ALastItemControlIndex: Integer);
|
|
procedure DistributeOneRowHeightItemControlsOnGroupHeight(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; AFirstIndex, ALastIndex: Integer);
|
|
function GetGroupHeight: Integer;
|
|
procedure IncrementColumnCount(AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
ALastItemControlIndex: Integer);
|
|
procedure OffsetContent(AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
AFirstItemControlIndex, ALastItemControlIndex, AOffset: Integer);
|
|
procedure PlaceOneRowHeightItemControls(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; AFirstIndex, ALastIndex: Integer;
|
|
ADistributeOnGroupHeight: Boolean);
|
|
procedure PlaceSeparator(AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
AItemControlIndex: Integer);
|
|
procedure PlaceWholeGroupHeightItemControl(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; AIndex: Integer);
|
|
function ReduceOneRowHeightItemControlsWithText(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
AUpToViewLevel: TdxBarItemRealViewLevel): Boolean;
|
|
function ReduceSequenceForWholeGroupHeightReducing(
|
|
ASequenceIndex: Integer): Boolean;
|
|
function ReduceWholeGroupHeightItemControls(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo): Boolean;
|
|
protected
|
|
property GroupRowCount: Integer read FGroupRowCount;
|
|
property GroupRowHeight: Integer read FGroupRowHeight;
|
|
public
|
|
constructor Create(AGroupRowHeight, AGroupRowCount: Integer);
|
|
// IdxRibbonGroupLayoutCalculator
|
|
procedure CalcInit(AGroupViewInfo: IdxRibbonGroupViewInfo);
|
|
procedure CalcLayout(AGroupViewInfo: IdxRibbonGroupViewInfo);
|
|
function CollapseMultiColumnItemControls(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo): Boolean;
|
|
function DecreaseMultiColumnItemControlsColumnCount(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo): Boolean;
|
|
function Reduce(AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
AUpToViewLevel: TdxBarItemRealViewLevel): Boolean;
|
|
procedure ReduceInit(AGroupViewInfo: IdxRibbonGroupViewInfo);
|
|
end;
|
|
|
|
procedure CalcItemControlsRealPositionInButtonGroup(AItemControlViewInfos: TList);
|
|
|
|
implementation
|
|
|
|
uses
|
|
SysUtils, cxClasses, cxGeometry, cxGraphics, Math;
|
|
|
|
const
|
|
dxRibbonGroupMinContentWidth = 30;
|
|
|
|
dxRibbonItemSeparatorTopOffset = 5;
|
|
dxRibbonItemSeparatorBottomOffset = 6;
|
|
dxRibbonItemSeparatorAreaWidth = 8;
|
|
|
|
procedure FindFirstElementOfSequenceForWholeGroupHeightReducing(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; var AFirstIndex: Integer;
|
|
out AOneRowHeightItemControlCount: Integer); forward;
|
|
procedure FindSequenceForWholeGroupHeightReducing(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; var AFirstIndex: Integer;
|
|
out ASequence: TSequenceForWholeGroupHeightReducing); forward;
|
|
function GetItemControlCurrentWidth(
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo): Integer; forward;
|
|
function IsNewColumnItemControl(
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo): Boolean; overload; forward;
|
|
function IsNewColumnItemControl(AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
AItemControlIndex: Integer): Boolean; overload; forward;
|
|
function IsPartOfHorizontalBox(AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
AItemControlIndex: Integer; ACanBeginHorizontalBox: Boolean): Boolean; forward;
|
|
function IsWholeGroupHeightItemControl(
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo): Boolean; overload; forward;
|
|
function IsWholeGroupHeightItemControl(AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
AItemControlIndex: Integer): Boolean; overload; forward;
|
|
function IsWholeGroupHeightOnlyItemControl(
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo): Boolean; overload; forward;
|
|
function IsWholeGroupHeightOnlyItemControl(AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
AItemControlIndex: Integer): Boolean; overload; forward;
|
|
function SkipHorizontalBox(AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
var AFirstIndex: Integer; out AIsWholeGroupHeightBox: Boolean): Boolean; forward;
|
|
|
|
procedure CalcItemControlsRealPositionInButtonGroup(AItemControlViewInfos: TList);
|
|
|
|
function GetItemControlViewInfo(AItemControlIndex: Integer): IdxBarItemControlViewInfo;
|
|
begin
|
|
Result := IdxBarItemControlViewInfo(AItemControlViewInfos[AItemControlIndex]);
|
|
end;
|
|
|
|
function GetItemControlPositionInButtonGroup(
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo): TdxBarButtonGroupPosition;
|
|
begin
|
|
Result := AItemControlViewInfo.GetPositionInButtonGroup;
|
|
if IsWholeGroupHeightOnlyItemControl(AItemControlViewInfo) then
|
|
Result := bgpNone;
|
|
end;
|
|
|
|
function NextItemControlIsMemberOfButtonGroup(AItemControlIndex: Integer): Boolean;
|
|
var
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
begin
|
|
Result := AItemControlIndex + 1 < AItemControlViewInfos.Count;
|
|
if Result then
|
|
begin
|
|
AItemControlViewInfo := GetItemControlViewInfo(AItemControlIndex + 1);
|
|
Result := (GetItemControlPositionInButtonGroup(AItemControlViewInfo) = bgpMember) and
|
|
not AItemControlViewInfo.HasSeparator;
|
|
end;
|
|
end;
|
|
|
|
function GetItemControlRealPositionInButtonGroup(
|
|
AItemControlIndex: Integer): TdxBarButtonGroupRealPosition;
|
|
var
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
begin
|
|
case GetItemControlPositionInButtonGroup(GetItemControlViewInfo(AItemControlIndex)) of
|
|
bgpStart:
|
|
if NextItemControlIsMemberOfButtonGroup(AItemControlIndex) then
|
|
Result := bgrpStart
|
|
else
|
|
Result := bgrpSingle;
|
|
bgpMember:
|
|
begin
|
|
Result := bgrpNone;
|
|
if not (GetItemControlViewInfo(AItemControlIndex).HasSeparator) and
|
|
(AItemControlIndex > 0) then
|
|
begin
|
|
AItemControlViewInfo := GetItemControlViewInfo(AItemControlIndex - 1);
|
|
if AItemControlViewInfo.GetRealPositionInButtonGroup in [bgrpStart, bgrpMember] then
|
|
begin
|
|
if NextItemControlIsMemberOfButtonGroup(AItemControlIndex) then
|
|
Result := bgrpMember
|
|
else
|
|
Result := bgrpFinish;
|
|
end;
|
|
end;
|
|
end;
|
|
else
|
|
Result := bgrpNone;
|
|
end;
|
|
end;
|
|
|
|
var
|
|
I: Integer;
|
|
begin
|
|
for I := 0 to AItemControlViewInfos.Count - 1 do
|
|
GetItemControlViewInfo(I).SetRealPositionInButtonGroup(
|
|
GetItemControlRealPositionInButtonGroup(I));
|
|
end;
|
|
|
|
procedure FindFirstElementOfSequenceForWholeGroupHeightReducing(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; var AFirstIndex: Integer;
|
|
out AOneRowHeightItemControlCount: Integer);
|
|
var
|
|
AIsWholeGroupHeightHorizontalBox: Boolean;
|
|
begin
|
|
AOneRowHeightItemControlCount := 0;
|
|
repeat
|
|
if IsWholeGroupHeightOnlyItemControl(AGroupViewInfo, AFirstIndex) then
|
|
begin
|
|
Inc(AFirstIndex);
|
|
Continue;
|
|
end;
|
|
if not SkipHorizontalBox(AGroupViewInfo, AFirstIndex, AIsWholeGroupHeightHorizontalBox) then
|
|
begin
|
|
if not IsWholeGroupHeightItemControl(AGroupViewInfo, AFirstIndex) then
|
|
begin
|
|
Inc(AOneRowHeightItemControlCount);
|
|
Inc(AFirstIndex);
|
|
end;
|
|
Break;
|
|
end;
|
|
if not AIsWholeGroupHeightHorizontalBox then
|
|
begin
|
|
Inc(AOneRowHeightItemControlCount);
|
|
Break;
|
|
end;
|
|
until AFirstIndex >= AGroupViewInfo.GetItemControlCount;
|
|
end;
|
|
|
|
procedure FindSequenceForWholeGroupHeightReducing(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; var AFirstIndex: Integer;
|
|
out ASequence: TSequenceForWholeGroupHeightReducing);
|
|
|
|
var
|
|
AIsHorizontalBox, AIsWholeGroupHeightHorizontalBox: Boolean;
|
|
AOneRowHeightItemControlCount: Integer;
|
|
begin
|
|
SetLength(ASequence, 0);
|
|
if AFirstIndex >= AGroupViewInfo.GetItemControlCount then
|
|
Exit;
|
|
FindFirstElementOfSequenceForWholeGroupHeightReducing(AGroupViewInfo,
|
|
AFirstIndex, AOneRowHeightItemControlCount);
|
|
if AFirstIndex >= AGroupViewInfo.GetItemControlCount then
|
|
Exit;
|
|
if IsWholeGroupHeightItemControl(AGroupViewInfo, AFirstIndex) then
|
|
begin
|
|
SetLength(ASequence, Length(ASequence) + 1);
|
|
with ASequence[Length(ASequence) - 1] do
|
|
begin
|
|
ItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(AFirstIndex);
|
|
OneRowHeightItemControlsBefore := AOneRowHeightItemControlCount;
|
|
OneRowHeightItemControlsAfter := 0;
|
|
end;
|
|
AOneRowHeightItemControlCount := 0;
|
|
Inc(AFirstIndex);
|
|
end;
|
|
while AFirstIndex < AGroupViewInfo.GetItemControlCount do
|
|
begin
|
|
if IsWholeGroupHeightOnlyItemControl(AGroupViewInfo, AFirstIndex) or
|
|
IsNewColumnItemControl(AGroupViewInfo, AFirstIndex) then
|
|
Break;
|
|
AIsHorizontalBox := SkipHorizontalBox(AGroupViewInfo, AFirstIndex,
|
|
AIsWholeGroupHeightHorizontalBox);
|
|
if AIsHorizontalBox and AIsWholeGroupHeightHorizontalBox then
|
|
Break;
|
|
if AIsHorizontalBox or not IsWholeGroupHeightItemControl(AGroupViewInfo, AFirstIndex) then
|
|
begin
|
|
if not AIsHorizontalBox then
|
|
Inc(AFirstIndex);
|
|
Inc(AOneRowHeightItemControlCount);
|
|
Continue;
|
|
end
|
|
else
|
|
begin
|
|
if Length(ASequence) > 0 then
|
|
ASequence[Length(ASequence) - 1].OneRowHeightItemControlsAfter := AOneRowHeightItemControlCount;
|
|
SetLength(ASequence, Length(ASequence) + 1);
|
|
with ASequence[Length(ASequence) - 1] do
|
|
begin
|
|
ItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(AFirstIndex);
|
|
OneRowHeightItemControlsBefore := AOneRowHeightItemControlCount;
|
|
OneRowHeightItemControlsAfter := 0;
|
|
end;
|
|
AOneRowHeightItemControlCount := 0;
|
|
Inc(AFirstIndex);
|
|
end;
|
|
end;
|
|
if (Length(ASequence) > 0) and (AOneRowHeightItemControlCount > 0) then
|
|
ASequence[Length(ASequence) - 1].OneRowHeightItemControlsAfter := AOneRowHeightItemControlCount;
|
|
if (Length(ASequence) = 0) and (AFirstIndex < AGroupViewInfo.GetItemControlCount) then
|
|
FindSequenceForWholeGroupHeightReducing(AGroupViewInfo, AFirstIndex, ASequence);
|
|
end;
|
|
|
|
function GetItemControlCurrentWidth(
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo): Integer;
|
|
begin
|
|
Result := AItemControlViewInfo.GetWidth(AItemControlViewInfo.GetViewLevel);
|
|
end;
|
|
|
|
function IsNewColumnItemControl(
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo): Boolean; overload;
|
|
begin
|
|
Result := AItemControlViewInfo.HasSeparator or
|
|
(AItemControlViewInfo.GetPosition = ipBeginsNewColumn) and
|
|
(AItemControlViewInfo.GetRealPositionInButtonGroup in [bgrpNone, bgrpStart, bgrpSingle]);
|
|
end;
|
|
|
|
function IsNewColumnItemControl(AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
AItemControlIndex: Integer): Boolean; overload;
|
|
begin
|
|
Result := IsNewColumnItemControl(
|
|
AGroupViewInfo.GetItemControlViewInfo(AItemControlIndex));
|
|
end;
|
|
|
|
function IsPartOfHorizontalBox(AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
AItemControlIndex: Integer; ACanBeginHorizontalBox: Boolean): Boolean;
|
|
var
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
ARealPositionInButtonGroup: TdxBarButtonGroupRealPosition;
|
|
begin
|
|
ARealPositionInButtonGroup := AGroupViewInfo.GetItemControlViewInfo(AItemControlIndex).GetRealPositionInButtonGroup;
|
|
if (ARealPositionInButtonGroup in [bgrpMember, bgrpFinish]) or
|
|
ACanBeginHorizontalBox and (ARealPositionInButtonGroup = bgrpStart) then
|
|
begin
|
|
Result := True;
|
|
Exit;
|
|
end;
|
|
Result := False;
|
|
if ACanBeginHorizontalBox and (AItemControlIndex + 1 < AGroupViewInfo.GetItemControlCount) then
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(AItemControlIndex + 1);
|
|
Result := not IsNewColumnItemControl(AItemControlViewInfo) and
|
|
(AItemControlViewInfo.GetPosition = ipContinuesRow);
|
|
end;
|
|
if not Result then
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(AItemControlIndex);
|
|
Result := (AItemControlViewInfo.GetPosition = ipContinuesRow) and
|
|
(AItemControlIndex > 0) and not IsNewColumnItemControl(AItemControlViewInfo);
|
|
end;
|
|
end;
|
|
|
|
function IsWholeGroupHeightItemControl(
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo): Boolean; overload;
|
|
var
|
|
AMultiColumnItemControlViewInfo: IdxBarMultiColumnItemControlViewInfo;
|
|
begin
|
|
Result := AItemControlViewInfo.IsMultiColumnItemControl(True, AMultiColumnItemControlViewInfo) or
|
|
(AItemControlViewInfo.GetViewLevel = ivlLargeIconWithText);
|
|
end;
|
|
|
|
function IsWholeGroupHeightItemControl(AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
AItemControlIndex: Integer): Boolean; overload;
|
|
begin
|
|
Result := IsWholeGroupHeightItemControl(
|
|
AGroupViewInfo.GetItemControlViewInfo(AItemControlIndex));
|
|
end;
|
|
|
|
function IsWholeGroupHeightOnlyItemControl(
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo): Boolean; overload;
|
|
var
|
|
AMultiColumnItemControlViewInfo: IdxBarMultiColumnItemControlViewInfo;
|
|
begin
|
|
Result := AItemControlViewInfo.IsMultiColumnItemControl(True, AMultiColumnItemControlViewInfo) or
|
|
(AItemControlViewInfo.GetAllowedViewLevels = [ivlLargeIconWithText]);
|
|
end;
|
|
|
|
function IsWholeGroupHeightOnlyItemControl(AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
AItemControlIndex: Integer): Boolean; overload;
|
|
begin
|
|
Result := IsWholeGroupHeightOnlyItemControl(AGroupViewInfo.GetItemControlViewInfo(AItemControlIndex));
|
|
end;
|
|
|
|
function SkipHorizontalBox(AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
var AFirstIndex: Integer; out AIsWholeGroupHeightBox: Boolean): Boolean;
|
|
begin
|
|
Result := IsPartOfHorizontalBox(AGroupViewInfo, AFirstIndex, True);
|
|
if Result then
|
|
begin
|
|
AIsWholeGroupHeightBox := False;
|
|
repeat
|
|
AIsWholeGroupHeightBox := AIsWholeGroupHeightBox or
|
|
IsWholeGroupHeightItemControl(AGroupViewInfo, AFirstIndex);
|
|
Inc(AFirstIndex);
|
|
until (AFirstIndex >= AGroupViewInfo.GetItemControlCount) or
|
|
not IsPartOfHorizontalBox(AGroupViewInfo, AFirstIndex, False);
|
|
end;
|
|
end;
|
|
|
|
{ TdxRibbonGroupLayoutCalculator }
|
|
|
|
constructor TdxRibbonGroupLayoutCalculator.Create(
|
|
AGroupRowHeight, AGroupRowCount: Integer);
|
|
begin
|
|
inherited Create;
|
|
FGroupRowCount := AGroupRowCount;
|
|
FGroupRowHeight := AGroupRowHeight;
|
|
end;
|
|
|
|
// IdxRibbonGroupLayoutCalculator
|
|
procedure TdxRibbonGroupLayoutCalculator.CalcInit(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo);
|
|
var
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
AItemControlViewInfos: TList;
|
|
AMultiColumnItemControlViewInfo: IdxBarMultiColumnItemControlViewInfo;
|
|
I: Integer;
|
|
begin
|
|
AItemControlViewInfos := TList.Create;
|
|
try
|
|
for I := 0 to AGroupViewInfo.GetItemControlCount - 1 do
|
|
AItemControlViewInfos.Add(Pointer(AGroupViewInfo.GetItemControlViewInfo(I)));
|
|
CalcItemControlsRealPositionInButtonGroup(AItemControlViewInfos);
|
|
finally
|
|
AItemControlViewInfos.Free;
|
|
end;
|
|
|
|
for I := 0 to AGroupViewInfo.GetItemControlCount - 1 do
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(I);
|
|
AItemControlViewInfo.SetBounds(cxEmptyRect);
|
|
if AItemControlViewInfo.GetRealPositionInButtonGroup = bgrpNone then
|
|
AItemControlViewInfo.SetViewLevel(GetMaxViewLevel(AItemControlViewInfo.GetAllowedViewLevels))
|
|
else
|
|
AItemControlViewInfo.SetViewLevel(AItemControlViewInfo.GetViewLevelForButtonGroup);
|
|
if AItemControlViewInfo.IsMultiColumnItemControl(False, AMultiColumnItemControlViewInfo) then
|
|
begin
|
|
AMultiColumnItemControlViewInfo.SetCollapsed(False);
|
|
AMultiColumnItemControlViewInfo.SetColumnCount(AMultiColumnItemControlViewInfo.GetMaxColumnCount);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TdxRibbonGroupLayoutCalculator.CalcLayout(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo);
|
|
|
|
procedure CheckGroupMinContentWidth;
|
|
var
|
|
AMinContentWidth: Integer;
|
|
begin
|
|
AMinContentWidth := AGroupViewInfo.GetMinContentWidth;
|
|
if AMinContentWidth < dxRibbonGroupMinContentWidth then
|
|
AMinContentWidth := dxRibbonGroupMinContentWidth;
|
|
if X < AMinContentWidth then
|
|
begin
|
|
if X <> 0 then
|
|
OffsetContent(AGroupViewInfo, 0, AGroupViewInfo.GetItemControlCount - 1,
|
|
(AMinContentWidth - X) div 2);
|
|
X := AMinContentWidth;
|
|
end;
|
|
end;
|
|
|
|
procedure CalcLayoutFinalize;
|
|
var
|
|
I: Integer;
|
|
begin
|
|
for I := 0 to AGroupViewInfo.GetItemControlCount - 1 do
|
|
AGroupViewInfo.GetItemControlViewInfo(I).CalculateFinalize;
|
|
end;
|
|
|
|
var
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
I, J: Integer;
|
|
begin
|
|
AGroupViewInfo.DeleteSeparators;
|
|
FColumnCount := -1;
|
|
X := 0;
|
|
SetLength(FItemControlColumns, AGroupViewInfo.GetItemControlCount);
|
|
SetLength(FItemControlSeparators, AGroupViewInfo.GetItemControlCount);
|
|
for I := 0 to High(FItemControlSeparators) do
|
|
FItemControlSeparators[I] := -1;
|
|
I := 0;
|
|
while I < AGroupViewInfo.GetItemControlCount do
|
|
begin
|
|
J := I;
|
|
while J < AGroupViewInfo.GetItemControlCount do
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(J);
|
|
if IsWholeGroupHeightItemControl(AItemControlViewInfo) or
|
|
(J > I) and IsNewColumnItemControl(AItemControlViewInfo) then
|
|
Break;
|
|
Inc(J);
|
|
end;
|
|
if I < J then
|
|
begin
|
|
IncrementColumnCount(AGroupViewInfo, I - 1);
|
|
PlaceOneRowHeightItemControls(AGroupViewInfo, I, J - 1, True);
|
|
end;
|
|
I := J;
|
|
while (I < AGroupViewInfo.GetItemControlCount) and
|
|
IsWholeGroupHeightItemControl(AGroupViewInfo.GetItemControlViewInfo(I)) do
|
|
begin
|
|
IncrementColumnCount(AGroupViewInfo, I - 1);
|
|
PlaceWholeGroupHeightItemControl(AGroupViewInfo, I);
|
|
Inc(I);
|
|
end;
|
|
end;
|
|
CheckDistanceBetweenTwoLastColumns(AGroupViewInfo, AGroupViewInfo.GetItemControlCount - 1);
|
|
with AGroupViewInfo.GetOffsetsInfo do
|
|
begin
|
|
OffsetContent(AGroupViewInfo, 0, AGroupViewInfo.GetItemControlCount - 1, ContentLeftOffset);
|
|
Inc(X, ContentLeftOffset + ContentRightOffset);
|
|
end;
|
|
CheckGroupMinContentWidth;
|
|
AGroupViewInfo.SetContentSize(Size(X, GetGroupHeight));
|
|
CalcLayoutFinalize;
|
|
end;
|
|
|
|
function TdxRibbonGroupLayoutCalculator.CollapseMultiColumnItemControls(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo): Boolean;
|
|
var
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
AMultiColumnItemControlViewInfo: IdxBarMultiColumnItemControlViewInfo;
|
|
I: Integer;
|
|
begin
|
|
Result := False;
|
|
if AGroupViewInfo.GetItemControlCount = 0 then
|
|
Exit;
|
|
for I := AGroupViewInfo.GetItemControlCount - 1 downto 0 do
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(I);
|
|
if AItemControlViewInfo.IsMultiColumnItemControl(True, AMultiColumnItemControlViewInfo) and
|
|
AMultiColumnItemControlViewInfo.CanCollapse then
|
|
begin
|
|
Result := True;
|
|
AMultiColumnItemControlViewInfo.SetCollapsed(True);
|
|
Break;
|
|
end;
|
|
end;
|
|
if Result then
|
|
CalcLayout(AGroupViewInfo);
|
|
end;
|
|
|
|
function TdxRibbonGroupLayoutCalculator.DecreaseMultiColumnItemControlsColumnCount(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo): Boolean;
|
|
var
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
AMultiColumnItemControlViewInfo: IdxBarMultiColumnItemControlViewInfo;
|
|
I: Integer;
|
|
begin
|
|
Result := False;
|
|
if AGroupViewInfo.GetItemControlCount = 0 then
|
|
Exit;
|
|
for I := AGroupViewInfo.GetItemControlCount - 1 downto 0 do
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(I);
|
|
if AItemControlViewInfo.IsMultiColumnItemControl(True, AMultiColumnItemControlViewInfo) and
|
|
(AMultiColumnItemControlViewInfo.GetColumnCount > AMultiColumnItemControlViewInfo.GetMinColumnCount) then
|
|
begin
|
|
Result := True;
|
|
AMultiColumnItemControlViewInfo.SetColumnCount(AMultiColumnItemControlViewInfo.GetColumnCount - 1);
|
|
Break;
|
|
end;
|
|
end;
|
|
if Result then
|
|
CalcLayout(AGroupViewInfo);
|
|
end;
|
|
|
|
function TdxRibbonGroupLayoutCalculator.Reduce(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; AUpToViewLevel: TdxBarItemRealViewLevel): Boolean;
|
|
begin
|
|
if AGroupViewInfo.GetItemControlCount = 0 then
|
|
Result := False
|
|
else
|
|
if Pred(AUpToViewLevel) = ivlLargeIconWithText then
|
|
Result := ReduceWholeGroupHeightItemControls(AGroupViewInfo)
|
|
else
|
|
begin
|
|
Result := ReduceOneRowHeightItemControlsWithText(AGroupViewInfo, AUpToViewLevel);
|
|
if not Result then
|
|
FItemControlIndexForOneRowHeightReducing := AGroupViewInfo.GetItemControlCount - 1;
|
|
end;
|
|
end;
|
|
|
|
procedure TdxRibbonGroupLayoutCalculator.ReduceInit(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo);
|
|
var
|
|
AIndex, ASequenceCount: Integer;
|
|
begin
|
|
ASequenceCount := 0;
|
|
AIndex := 0;
|
|
repeat
|
|
SetLength(FSequencesForWholeGroupHeightReducing, ASequenceCount + 1);
|
|
FindSequenceForWholeGroupHeightReducing(AGroupViewInfo, AIndex,
|
|
FSequencesForWholeGroupHeightReducing[ASequenceCount]);
|
|
if Length(FSequencesForWholeGroupHeightReducing[ASequenceCount]) = 0 then
|
|
begin
|
|
SetLength(FSequencesForWholeGroupHeightReducing, ASequenceCount);
|
|
Break;
|
|
end;
|
|
Inc(ASequenceCount);
|
|
until False;
|
|
FLastSequenceForWholeGroupHeightReducing := ASequenceCount - 1;
|
|
FItemControlIndexForOneRowHeightReducing := AGroupViewInfo.GetItemControlCount - 1;
|
|
end;
|
|
|
|
procedure TdxRibbonGroupLayoutCalculator.AlignOneRowHeightItemControl(
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo; AColumnWidth: Integer);
|
|
var
|
|
R: TRect;
|
|
begin
|
|
R := AItemControlViewInfo.GetBounds;
|
|
case AItemControlViewInfo.GetAlign of
|
|
iaCenter:
|
|
OffsetRect(R, (AColumnWidth - cxRectWidth(R)) div 2, 0);
|
|
iaRight:
|
|
OffsetRect(R, AColumnWidth - cxRectWidth(R), 0);
|
|
iaClient:
|
|
R.Right := R.Left + AColumnWidth;
|
|
end;
|
|
AItemControlViewInfo.SetBounds(R);
|
|
end;
|
|
|
|
procedure TdxRibbonGroupLayoutCalculator.AlignOneRowHeightItemControls(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; AFirstIndex, AColumnWidth: Integer);
|
|
|
|
function SkipRowWithSeveralItemControls: Boolean;
|
|
var
|
|
AColumn, ARow: Integer;
|
|
begin
|
|
Result := False;
|
|
AColumn := FItemControlColumns[AFirstIndex];
|
|
ARow := AGroupViewInfo.GetItemControlViewInfo(AFirstIndex).GetRow;
|
|
while (AFirstIndex + 1 < AGroupViewInfo.GetItemControlCount) and
|
|
(FItemControlColumns[AFirstIndex + 1] = AColumn) and
|
|
(AGroupViewInfo.GetItemControlViewInfo(AFirstIndex + 1).GetRow = ARow) do
|
|
begin
|
|
Result := True;
|
|
Inc(AFirstIndex);
|
|
end;
|
|
if Result then
|
|
Inc(AFirstIndex);
|
|
end;
|
|
|
|
var
|
|
AColumn: Integer;
|
|
begin
|
|
AColumn := FItemControlColumns[AFirstIndex];
|
|
while (AFirstIndex < AGroupViewInfo.GetItemControlCount) and
|
|
(FItemControlColumns[AFirstIndex] = AColumn) do
|
|
begin
|
|
if SkipRowWithSeveralItemControls then // TODO by first ItemControl
|
|
Continue;
|
|
AlignOneRowHeightItemControl(AGroupViewInfo.GetItemControlViewInfo(AFirstIndex), AColumnWidth);
|
|
Inc(AFirstIndex);
|
|
end;
|
|
end;
|
|
|
|
procedure TdxRibbonGroupLayoutCalculator.CheckDistanceBetweenTwoLastColumns(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; ALastItemControlIndex: Integer);
|
|
|
|
function GetColumnFirstItemControlIndex(AColumnLastItemControlIndex: Integer): Integer;
|
|
var
|
|
AColumn: Integer;
|
|
begin
|
|
AColumn := FItemControlColumns[AColumnLastItemControlIndex];
|
|
Result := AColumnLastItemControlIndex;
|
|
while (Result > 0) and (FItemControlColumns[Result - 1] = AColumn) do
|
|
Dec(Result);
|
|
end;
|
|
|
|
procedure GetMaxBoundInfoForItemControls(
|
|
AFirstItemControlIndex, ALastItemControlIndex: Integer;
|
|
out AMaxRightBound, AMaxButtonGroupRightBound: Integer);
|
|
var
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
I: Integer;
|
|
R: TRect;
|
|
begin
|
|
AMaxRightBound := -1;
|
|
AMaxButtonGroupRightBound := -1;
|
|
for I := AFirstItemControlIndex to ALastItemControlIndex do
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(I);
|
|
R := AItemControlViewInfo.GetBounds;
|
|
AMaxRightBound := Max(AMaxRightBound, R.Right);
|
|
if AItemControlViewInfo.GetRealPositionInButtonGroup in [bgrpFinish, bgrpSingle] then
|
|
AMaxButtonGroupRightBound := Max(AMaxButtonGroupRightBound, R.Right);
|
|
end;
|
|
end;
|
|
|
|
procedure GetMinBoundInfoForItemControls(
|
|
AFirstItemControlIndex, ALastItemControlIndex: Integer;
|
|
out AMinLeftBound, AMinButtonGroupLeftBound: Integer);
|
|
var
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
I: Integer;
|
|
begin
|
|
AMinLeftBound := AGroupViewInfo.GetItemControlViewInfo(AFirstItemControlIndex).GetBounds.Left;
|
|
AMinButtonGroupLeftBound := MaxInt;
|
|
for I := AFirstItemControlIndex to ALastItemControlIndex do
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(I);
|
|
if AItemControlViewInfo.GetRealPositionInButtonGroup in [bgrpStart, bgrpSingle] then
|
|
AMinButtonGroupLeftBound := Min(AMinButtonGroupLeftBound,
|
|
AItemControlViewInfo.GetBounds.Left);
|
|
end;
|
|
end;
|
|
|
|
var
|
|
AFirstColumnFirstItemControlIndex, AFirstColumnLastItemControlIndex: Integer;
|
|
ASecondColumnFirstItemControlIndex, ASecondColumnLastItemControlIndex: Integer;
|
|
AFirstColumnMaxItemControlRightBound, AFirstColumnMaxButtonGroupRightBound: Integer;
|
|
ASecondColumnMinItemControlLeftBound, ASecondColumnMinButtonGroupLeftBound: Integer;
|
|
AButtonGroupOffset, AOffset, AOffset1, AOffset2: Integer;
|
|
begin
|
|
if FColumnCount < 1 then
|
|
Exit;
|
|
ASecondColumnLastItemControlIndex := ALastItemControlIndex;
|
|
ASecondColumnFirstItemControlIndex := GetColumnFirstItemControlIndex(
|
|
ASecondColumnLastItemControlIndex);
|
|
if AGroupViewInfo.GetItemControlViewInfo(ASecondColumnFirstItemControlIndex).HasSeparator then
|
|
Exit;
|
|
AFirstColumnLastItemControlIndex := ASecondColumnFirstItemControlIndex - 1;
|
|
AFirstColumnFirstItemControlIndex := GetColumnFirstItemControlIndex(
|
|
AFirstColumnLastItemControlIndex);
|
|
GetMaxBoundInfoForItemControls(AFirstColumnFirstItemControlIndex, AFirstColumnLastItemControlIndex,
|
|
AFirstColumnMaxItemControlRightBound, AFirstColumnMaxButtonGroupRightBound);
|
|
GetMinBoundInfoForItemControls(ASecondColumnFirstItemControlIndex, ASecondColumnLastItemControlIndex,
|
|
ASecondColumnMinItemControlLeftBound, ASecondColumnMinButtonGroupLeftBound);
|
|
|
|
AButtonGroupOffset := AGroupViewInfo.GetOffsetsInfo.ButtonGroupOffset;
|
|
AOffset1 := 0;
|
|
if (AFirstColumnMaxButtonGroupRightBound <> -1) and
|
|
(ASecondColumnMinItemControlLeftBound - AFirstColumnMaxButtonGroupRightBound < AButtonGroupOffset) then
|
|
AOffset1 := AButtonGroupOffset - (ASecondColumnMinItemControlLeftBound - AFirstColumnMaxButtonGroupRightBound);
|
|
AOffset2 := 0;
|
|
if (ASecondColumnMinButtonGroupLeftBound <> MaxInt) and
|
|
(ASecondColumnMinButtonGroupLeftBound - AFirstColumnMaxItemControlRightBound < AButtonGroupOffset) then
|
|
AOffset2 := AButtonGroupOffset - (ASecondColumnMinButtonGroupLeftBound - AFirstColumnMaxItemControlRightBound);
|
|
AOffset := Max(AOffset1, AOffset2);
|
|
if AOffset <> 0 then
|
|
begin
|
|
OffsetContent(AGroupViewInfo, ASecondColumnFirstItemControlIndex, ASecondColumnLastItemControlIndex, AOffset);
|
|
Inc(X, AOffset);
|
|
end;
|
|
end;
|
|
|
|
procedure TdxRibbonGroupLayoutCalculator.DistributeOneRowHeightItemControlsOnGroupHeight(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; AFirstIndex, ALastIndex: Integer);
|
|
var
|
|
AColumn, AIndex, ARowCount, I: Integer;
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
R: TRect;
|
|
begin
|
|
AColumn := FItemControlColumns[AFirstIndex];
|
|
AIndex := AFirstIndex + 1;
|
|
while (AIndex <= ALastIndex) and (FItemControlColumns[AIndex] = AColumn) do
|
|
Inc(AIndex);
|
|
Dec(AIndex);
|
|
ARowCount := AGroupViewInfo.GetItemControlViewInfo(AIndex).GetRow + 1;
|
|
if ARowCount < GroupRowCount then
|
|
for I := AFirstIndex to AIndex do
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(I);
|
|
R := AItemControlViewInfo.GetBounds;
|
|
R.Top := GetGroupHeight - ((GetGroupHeight - GroupRowHeight * ARowCount) div (ARowCount + 1) + GroupRowHeight) * (ARowCount - AGroupViewInfo.GetItemControlViewInfo(I).GetRow);
|
|
R.Bottom := R.Top + GroupRowHeight;
|
|
AItemControlViewInfo.SetBounds(R);
|
|
end;
|
|
for I := AFirstIndex to AIndex do
|
|
AGroupViewInfo.GetItemControlViewInfo(I).SetColumnRowCount(ARowCount);
|
|
Inc(AIndex);
|
|
if AIndex <= ALastIndex then
|
|
DistributeOneRowHeightItemControlsOnGroupHeight(AGroupViewInfo, AIndex, ALastIndex);
|
|
end;
|
|
|
|
function TdxRibbonGroupLayoutCalculator.GetGroupHeight: Integer;
|
|
begin
|
|
Result := GroupRowHeight * GroupRowCount;
|
|
end;
|
|
|
|
procedure TdxRibbonGroupLayoutCalculator.IncrementColumnCount(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; ALastItemControlIndex: Integer);
|
|
begin
|
|
CheckDistanceBetweenTwoLastColumns(AGroupViewInfo, ALastItemControlIndex);
|
|
Inc(FColumnCount);
|
|
end;
|
|
|
|
procedure TdxRibbonGroupLayoutCalculator.OffsetContent(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo;
|
|
AFirstItemControlIndex, ALastItemControlIndex, AOffset: Integer);
|
|
var
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
ASeparatorInfo: TdxBarItemSeparatorInfo;
|
|
I: Integer;
|
|
R: TRect;
|
|
begin
|
|
for I := AFirstItemControlIndex to ALastItemControlIndex do
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(I);
|
|
R := AItemControlViewInfo.GetBounds;
|
|
OffsetRect(R, AOffset, 0);
|
|
AItemControlViewInfo.SetBounds(R);
|
|
if FItemControlSeparators[I] <> -1 then
|
|
begin
|
|
ASeparatorInfo := AGroupViewInfo.GetSeparatorInfo(FItemControlSeparators[I]);
|
|
OffsetRect(ASeparatorInfo.Bounds, AOffset, 0);
|
|
AGroupViewInfo.SetSeparatorInfo(FItemControlSeparators[I], ASeparatorInfo);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TdxRibbonGroupLayoutCalculator.PlaceOneRowHeightItemControls(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; AFirstIndex, ALastIndex: Integer;
|
|
ADistributeOnGroupHeight: Boolean);
|
|
var
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
AColumnFirstItemControlIntex, AItemControlWidth, AMaxRowX, ARow, ARowX, I: Integer;
|
|
begin
|
|
if AGroupViewInfo.GetItemControlViewInfo(AFirstIndex).HasSeparator then
|
|
PlaceSeparator(AGroupViewInfo, AFirstIndex);
|
|
ARow := 0;
|
|
AMaxRowX := X;
|
|
ARowX := X;
|
|
AColumnFirstItemControlIntex := AFirstIndex;
|
|
for I := AFirstIndex to ALastIndex do
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(I);
|
|
if I > AFirstIndex then
|
|
if (AItemControlViewInfo.GetPosition = ipBeginsNewRow) and
|
|
(AItemControlViewInfo.GetRealPositionInButtonGroup in [bgrpNone, bgrpStart, bgrpSingle]) then
|
|
begin
|
|
Inc(ARow);
|
|
if ARow < GroupRowCount then
|
|
ARowX := X
|
|
else
|
|
begin
|
|
AlignOneRowHeightItemControls(AGroupViewInfo, AColumnFirstItemControlIntex, AMaxRowX - X);
|
|
AColumnFirstItemControlIntex := I;
|
|
ARow := 0;
|
|
X := AMaxRowX;
|
|
IncrementColumnCount(AGroupViewInfo, I - 1);
|
|
ARowX := X;
|
|
AMaxRowX := X;
|
|
end;
|
|
end;
|
|
AItemControlWidth := GetItemControlCurrentWidth(AItemControlViewInfo);
|
|
FItemControlColumns[I] := FColumnCount;
|
|
AItemControlViewInfo.SetRow(ARow);
|
|
if not (AItemControlViewInfo.GetRealPositionInButtonGroup in [bgrpMember, bgrpFinish]) and
|
|
(I > AFirstIndex) and (FItemControlColumns[I - 1] = FItemControlColumns[I]) and (AGroupViewInfo.GetItemControlViewInfo(I - 1).GetRow = ARow) then
|
|
begin
|
|
if (AItemControlViewInfo.GetRealPositionInButtonGroup in [bgrpStart, bgrpSingle]) or
|
|
(AItemControlViewInfo.GetRealPositionInButtonGroup = bgrpNone) and (AGroupViewInfo.GetItemControlViewInfo(I - 1).GetRealPositionInButtonGroup in [bgrpFinish, bgrpSingle]) then
|
|
Inc(ARowX, AGroupViewInfo.GetOffsetsInfo.ButtonGroupOffset);
|
|
end;
|
|
AItemControlViewInfo.SetBounds(Rect(ARowX, ARow * GroupRowHeight, ARowX + AItemControlWidth, (ARow + 1) * GroupRowHeight));
|
|
Inc(ARowX, AItemControlWidth);
|
|
if ARowX > AMaxRowX then
|
|
AMaxRowX := ARowX;
|
|
end;
|
|
AlignOneRowHeightItemControls(AGroupViewInfo, AColumnFirstItemControlIntex, AMaxRowX - X);
|
|
X := AMaxRowX;
|
|
if ADistributeOnGroupHeight then
|
|
DistributeOneRowHeightItemControlsOnGroupHeight(AGroupViewInfo, AFirstIndex, ALastIndex);
|
|
end;
|
|
|
|
procedure TdxRibbonGroupLayoutCalculator.PlaceSeparator(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; AItemControlIndex: Integer);
|
|
var
|
|
ASeparatorInfo: TdxBarItemSeparatorInfo;
|
|
begin
|
|
ASeparatorInfo.Bounds := Rect(X, dxRibbonItemSeparatorTopOffset,
|
|
X + dxRibbonItemSeparatorAreaWidth,
|
|
GetGroupHeight - dxRibbonItemSeparatorBottomOffset);
|
|
ASeparatorInfo.Kind := skVertical;
|
|
AGroupViewInfo.AddSeparator(ASeparatorInfo);
|
|
Inc(X, dxRibbonItemSeparatorAreaWidth);
|
|
FItemControlSeparators[AItemControlIndex] := AGroupViewInfo.GetSeparatorCount - 1;
|
|
end;
|
|
|
|
procedure TdxRibbonGroupLayoutCalculator.PlaceWholeGroupHeightItemControl(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; AIndex: Integer);
|
|
var
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
AItemControlWidth: Integer;
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(AIndex);
|
|
if AItemControlViewInfo.HasSeparator then
|
|
PlaceSeparator(AGroupViewInfo, AIndex);
|
|
AItemControlWidth := GetItemControlCurrentWidth(AItemControlViewInfo);
|
|
AItemControlViewInfo.SetBounds(Rect(X, 0, X + AItemControlWidth, GetGroupHeight));
|
|
FItemControlColumns[AIndex] := FColumnCount;
|
|
AItemControlViewInfo.SetRow(0); // ???
|
|
Inc(X, AItemControlWidth);
|
|
end;
|
|
|
|
function TdxRibbonGroupLayoutCalculator.ReduceOneRowHeightItemControlsWithText(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo; AUpToViewLevel: TdxBarItemRealViewLevel): Boolean;
|
|
|
|
function CanReduce(AItemControlIndex: Integer): Boolean;
|
|
var
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(AItemControlIndex);
|
|
Result := (AItemControlViewInfo.GetViewLevel < AUpToViewLevel) and
|
|
(AUpToViewLevel in AItemControlViewInfo.GetAllowedViewLevels);
|
|
end;
|
|
|
|
var
|
|
AColumn, AIndex, ARow, I: Integer;
|
|
AColumnWidthAfterReducing, AColumnWidthBeforeReducing, ARowWidthAfterReducing, ARowWidthBeforeReducing: Integer;
|
|
AItemControlsToBeReduced: TInterfaceList;
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
begin
|
|
Result := False;
|
|
AIndex := FItemControlIndexForOneRowHeightReducing;
|
|
while (AIndex >= 0) and IsWholeGroupHeightItemControl(AGroupViewInfo, AIndex) do
|
|
Dec(AIndex);
|
|
FItemControlIndexForOneRowHeightReducing := AIndex;
|
|
if AIndex = -1 then
|
|
Exit;
|
|
AColumn := FItemControlColumns[AIndex];
|
|
AColumnWidthBeforeReducing := 0;
|
|
AColumnWidthAfterReducing := 0;
|
|
AItemControlsToBeReduced := TInterfaceList.Create;
|
|
try
|
|
while (AIndex >= 0) and (FItemControlColumns[AIndex] = AColumn) do
|
|
begin
|
|
if IsPartOfHorizontalBox(AGroupViewInfo, AIndex, True) then
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(AIndex);
|
|
ARowWidthBeforeReducing := GetItemControlCurrentWidth(AItemControlViewInfo);
|
|
ARow := AItemControlViewInfo.GetRow;
|
|
Dec(AIndex);
|
|
while (AIndex >= 0) and (FItemControlColumns[AIndex] = AColumn) and
|
|
(AGroupViewInfo.GetItemControlViewInfo(AIndex).GetRow = ARow) do
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(AIndex);
|
|
Inc(ARowWidthBeforeReducing, GetItemControlCurrentWidth(AItemControlViewInfo));
|
|
Dec(AIndex);
|
|
end;
|
|
ARowWidthAfterReducing := ARowWidthBeforeReducing;
|
|
end
|
|
else
|
|
begin
|
|
AItemControlViewInfo := AGroupViewInfo.GetItemControlViewInfo(AIndex);
|
|
ARowWidthBeforeReducing := GetItemControlCurrentWidth(AItemControlViewInfo);
|
|
if CanReduce(AIndex) then
|
|
begin
|
|
ARowWidthAfterReducing := AItemControlViewInfo.GetWidth(AUpToViewLevel);
|
|
AItemControlsToBeReduced.Add(AItemControlViewInfo);
|
|
end
|
|
else
|
|
ARowWidthAfterReducing := ARowWidthBeforeReducing;
|
|
Dec(AIndex);
|
|
end;
|
|
if ARowWidthBeforeReducing > AColumnWidthBeforeReducing then
|
|
AColumnWidthBeforeReducing := ARowWidthBeforeReducing;
|
|
if ARowWidthAfterReducing > AColumnWidthAfterReducing then
|
|
AColumnWidthAfterReducing := ARowWidthAfterReducing;
|
|
end;
|
|
for I := 0 to AItemControlsToBeReduced.Count - 1 do
|
|
begin
|
|
AItemControlViewInfo := IdxBarItemControlViewInfo(AItemControlsToBeReduced[I]);
|
|
if (AItemControlViewInfo.GetWidth(AUpToViewLevel) < AColumnWidthBeforeReducing) and
|
|
(GetItemControlCurrentWidth(AItemControlViewInfo) > AColumnWidthAfterReducing) then
|
|
begin
|
|
AItemControlViewInfo.SetViewLevel(AUpToViewLevel);
|
|
Result := True;
|
|
end;
|
|
end;
|
|
FItemControlIndexForOneRowHeightReducing := AIndex;
|
|
if not Result then
|
|
Result := ReduceOneRowHeightItemControlsWithText(AGroupViewInfo, AUpToViewLevel)
|
|
else
|
|
CalcLayout(AGroupViewInfo);
|
|
finally
|
|
AItemControlsToBeReduced.Free;
|
|
end;
|
|
end;
|
|
|
|
function TdxRibbonGroupLayoutCalculator.ReduceSequenceForWholeGroupHeightReducing(
|
|
ASequenceIndex: Integer): Boolean;
|
|
|
|
function GetFreeCellCount(AOneRowHeightItemControlCount: Integer): Integer;
|
|
begin
|
|
Result := (GroupRowCount - AOneRowHeightItemControlCount mod GroupRowCount) mod GroupRowCount;
|
|
end;
|
|
|
|
function IsItemGoodForReducing(const AItem: TSequenceForWholeGroupHeightReducingItem): Boolean;
|
|
var
|
|
AFreeCellCountAfterReducing, AFreeCellCountBeforeReducing: Integer;
|
|
begin
|
|
AFreeCellCountBeforeReducing := GetFreeCellCount(AItem.OneRowHeightItemControlsBefore) +
|
|
GetFreeCellCount(AItem.OneRowHeightItemControlsAfter);
|
|
AFreeCellCountAfterReducing := GetFreeCellCount(AItem.OneRowHeightItemControlsBefore + 1 + AItem.OneRowHeightItemControlsAfter);
|
|
Result := AFreeCellCountAfterReducing <= AFreeCellCountBeforeReducing;
|
|
end;
|
|
|
|
var
|
|
AItemControlViewInfo: IdxBarItemControlViewInfo;
|
|
APrevOneRowHeightItemControlsAfter: Integer;
|
|
ASequence: TSequenceForWholeGroupHeightReducing;
|
|
begin
|
|
Result := False;
|
|
ASequence := FSequencesForWholeGroupHeightReducing[ASequenceIndex];
|
|
if Length(ASequence) = 0 then
|
|
Exit;
|
|
if Length(ASequence) = 1 then
|
|
begin
|
|
if IsItemGoodForReducing(ASequence[0]) then
|
|
begin
|
|
AItemControlViewInfo := ASequence[0].ItemControlViewInfo;
|
|
AItemControlViewInfo.SetViewLevel(GetNextViewLevel(AItemControlViewInfo.GetAllowedViewLevels, ivlLargeIconWithText));
|
|
SetLength(FSequencesForWholeGroupHeightReducing[ASequenceIndex], 0);
|
|
Result := True;
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
AItemControlViewInfo := ASequence[Length(ASequence) - 1].ItemControlViewInfo;
|
|
AItemControlViewInfo.SetViewLevel(GetNextViewLevel(AItemControlViewInfo.GetAllowedViewLevels, ivlLargeIconWithText));
|
|
APrevOneRowHeightItemControlsAfter := ASequence[Length(ASequence) - 2].OneRowHeightItemControlsAfter;
|
|
Inc(ASequence[Length(ASequence) - 2].OneRowHeightItemControlsAfter, ASequence[Length(ASequence) - 1].OneRowHeightItemControlsAfter + 1);
|
|
SetLength(FSequencesForWholeGroupHeightReducing[ASequenceIndex], Length(ASequence) - 1);
|
|
Result := True;
|
|
repeat
|
|
ASequence := FSequencesForWholeGroupHeightReducing[ASequenceIndex];
|
|
if APrevOneRowHeightItemControlsAfter <> 0 then
|
|
Break;
|
|
if not IsItemGoodForReducing(ASequence[Length(ASequence) - 1]) then
|
|
Break;
|
|
AItemControlViewInfo := ASequence[Length(ASequence) - 1].ItemControlViewInfo;
|
|
AItemControlViewInfo.SetViewLevel(GetNextViewLevel(AItemControlViewInfo.GetAllowedViewLevels, ivlLargeIconWithText));
|
|
if Length(ASequence) > 1 then
|
|
begin
|
|
APrevOneRowHeightItemControlsAfter := ASequence[Length(ASequence) - 2].OneRowHeightItemControlsAfter;
|
|
Inc(ASequence[Length(ASequence) - 2].OneRowHeightItemControlsAfter, ASequence[Length(ASequence) - 1].OneRowHeightItemControlsAfter + 1);
|
|
end;
|
|
SetLength(FSequencesForWholeGroupHeightReducing[ASequenceIndex], Length(ASequence) - 1);
|
|
until Length(FSequencesForWholeGroupHeightReducing[ASequenceIndex]) = 0;
|
|
end;
|
|
end;
|
|
|
|
function TdxRibbonGroupLayoutCalculator.ReduceWholeGroupHeightItemControls(
|
|
AGroupViewInfo: IdxRibbonGroupViewInfo): Boolean;
|
|
begin
|
|
Result := False;
|
|
while not Result and (FLastSequenceForWholeGroupHeightReducing >= 0) do
|
|
begin
|
|
Result := ReduceSequenceForWholeGroupHeightReducing(FLastSequenceForWholeGroupHeightReducing);
|
|
if not Result then
|
|
begin
|
|
SetLength(FSequencesForWholeGroupHeightReducing, FLastSequenceForWholeGroupHeightReducing);
|
|
Dec(FLastSequenceForWholeGroupHeightReducing);
|
|
end
|
|
else
|
|
CalcLayout(AGroupViewInfo);
|
|
end;
|
|
end;
|
|
|
|
end.
|