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標籤禁用

回答

相關問題