TRibbon标签禁用

当我将RibbonPage设置为false时，我需要顶部的标签也被禁用。它必须变灰，并且用户不能导航到它。我可以用PageControl，但我找不到用RibbonPage这样做的方法。TRibbon标签禁用

下面的图像显示了我的页面控件与禁用页面。我需要在功能区页面上执行相同的操作。

pagecontrol with disabled page

所以经过了很多挣扎，我终于得到了我的答案。我会发布我的代码，以防有人遇到同样的问题。我创建了一个继承自TCustomRibbon的新功能区。通过这个我能够到达TRIBbon的画布。最后，我复制了TCustomRibbon的DrawTab过程中的代码，并对其进行编辑以绘制出现禁用的选项卡。

ribboncontrol with disabled page

type 
    // Grouped by the element that they below to. 
    TSkinRibbon = (srBackground, srBackgroundDisabled, srHeader, srBody, 
    srPage, srHelp); 

    TMyRibbon = class(TCustomRibbon) 
    private 
    { Private declarations } 
    FTabDataInitialised: Boolean; 
    function GetFirstVisibleIndex():Integer; 
    function GetLastVisibleIndex():Integer; 
    procedure DrawDisabled(); 



    protected 
    { Protected declarations } 
    procedure Paint; override; 
    public 
    { Public declarations } 
    procedure DrawTabDisabled(Index: Integer); 
    published 
    { Published declarations } 
    property ActionManager; 
    property ScreenTips; 
    property Align default alTop; 
    property Anchors; 
    property ApplicationMenu; 
    property BiDiMode; 
    property Caption; 
    property DocumentName; 
    property Enabled; 
    property Font; 
    property Height default TCustomRibbon.cRibbonHeight; 
    property HideTabs; 
    property ParentBiDiMode; 
    property ParentFont; 
    property QuickAccessToolbar; 
    property ShowHelpButton; 
    property Style; 
    property Tabs; 
    // Tab Index must be streamed after the Tabs collection 
    property TabIndex; 
    property UseCustomFrame; 
    property OnHelpButtonClick; 
    property OnRecentItemClick; 
    property OnTabChange; 
    property OnTabVisibleChanged; 
    end; 



implementation 
uses 
system.Types, vcl.graphics, Vcl.RibbonActnCtrls, Vcl.RibbonStyleActnCtrls, Winapi.Windows; 


{ TMyRibbon } 


//procedure TMyRibbon.DrawTab(const Index: Integer); 
procedure TMyRibbon.DrawDisabled; 
var 
I : Integer; 
begin 
    for I := 0 to tabs.Count-1 do 
     if (Tabs[I].Page.Enabled = false) then 
     DrawTabDisabled(I); 

end; 

procedure TMyRibbon.DrawTabDisabled(Index: Integer); 
procedure AdjustRect(var Rect: TRect; const ALeft, ATop, ARight, ABottom: Integer); inline; 
begin 
    Rect := System.Types.Rect(Rect.Left + ALeft, Rect.Top + ATop, 
    Rect.Right + ARight, Rect.Bottom + ABottom); 
end; 
function CenterInRect(ACanvas: TCanvas; const ARect: TRect; const ACaption: string): TPoint; 
var 
    LTextWidth: Integer; 
begin 
    LTextWidth := ACanvas.TextWidth(ACaption); 
    if LTextWidth > ARect.Right - ARect.Left then 
    Result.X := 0 
    else 
    Result.X := (ARect.Right - ARect.Left) div 2 - (LTextWidth div 2); 
    Result.Y := (ARect.Bottom - ARect.Top) div 2 - (ACanvas.TextHeight(ACaption) div 2); 
end; 
var 
    LRect: TRect; 
    LPt: TPoint; 
    LSeparatorRect: TRect; 
    LStyle: TRibbonStyleActionBars; 
    LModifyRect: Boolean; 
    LTabWidth: Integer; 
begin 
    if not ValidTab(Index) then 
    Exit; 
    LStyle := Style; 
    LRect := GetTabRect(Index); 
    LTabWidth := LRect.Right - LRect.Left; 
    begin 
    if not Minimized then 
     AdjustRect(LRect, -2, 0, 2, -1) 
    else 
     AdjustRect(LRect, -2, 0, 2, 0); 
    LStyle.DrawElement(stNormal, Canvas, LRect); 
    if not Minimized then 
     AdjustRect(LRect, 2, 0, -2, 1) 
    else 
     AdjustRect(LRect, 2, 0, -2, 0) 
    end; 
    Canvas.Brush.Style := bsClear; 
    Canvas.Font.Assign(Font); 
    Canvas.Font.Size := GetRibbonMetric(rmFontSize); 
    if TabIndex = Index then 
    Canvas.Font.Color := TCustomRibbonColorMap(ColorMap).ActiveTabFontColor 
    else 
    Canvas.Font.Color := TCustomRibbonColorMap(ColorMap).InactiveTabFontColor; 
    LPt := CenterInRect(Canvas, LRect, Tabs[Index].Caption); 
    LRect := Rect(LRect.Left + LPt.X, LRect.Top + LPt.Y, LRect.Right, LRect.Bottom); 
    LModifyRect := LTabWidth - 6 - Tabs[Index].MinTabwidth <= 0; 
    if LModifyRect then 
    AdjustRect(LRect, 4, 0, -4, 0); 
    Canvas.Font.Color := clGray; 
    DrawText(Canvas.Handle, Tabs[Index].Caption, -1, LRect, DT_LEFT); 
    if LModifyRect then 
    AdjustRect(LRect, -4, 0, 4, 0); 
end; 

function TMyRibbon.GetFirstVisibleIndex: Integer; 
var I,ind:integer; 
begin 
    ind := 0; 
    for I := 0 to Tabs.Count -1 do 
     if (Tabs[I].Visible = true) then 
     begin 
     ind := I; 
     break; 
     end; 
    Result := ind; 
end; 

function TMyRibbon.GetLastVisibleIndex: Integer; 
var I,ind:integer; 
begin 
    ind := 0; 
    for I := 0 to Tabs.Count -1 do 
     if (Tabs[Tabs.Count - 1 - I].Visible = true) then 
     begin 
     ind := I; 
     break; 
     end; 
    Result := ind; 
end; 

procedure TMyRibbon.Paint; 
begin 
    inherited; 
    DrawDisabled(); 
end; 

end.

来源

2015-05-21 Christo

答案很简单，'TRibbon'与'TPageControl'不同，并且无法禁用功能区选项卡，只有页面本身可以被禁用。你唯一能做的就是隐藏标签页（这是比显示一个你不能点击的禁用标签更好的用户体验）。 – whosrdaddy

...或者至少不允许切换到标签页（在“TRibbon”的“OnTabChange”事件中），如果您希望显示标签。 – TLama

感谢您的意见。我已经使用TLama的组合选项来禁止切换到标签并在功能区画布上绘画。我不知道为什么他们在TCustomRibbon类中保留了很多功能和程序。 – Christo

翻录TRibbon控制分开后，我终于找到了一个办法做到这一点。这些选项卡实际上是绘制在功能区的Paint事件中，而不是Tab（Page）的Paint事件。我编辑了我的问题并添加了我的源代码。

@Whosrdaddy，它可能更好的用户体验来隐藏标签，但有时候不能与客户争论。

来源

2015-05-22 09:30:47 Christo

TRibbon标签禁用

回答

相关问题