Çalışmamda nesneler kod ile oluşacak. Rahatlıkla Tab ve Group ları butonları kod ile oluşturabiliyorum.
Aşağıda küçük bir örnekle dxRibbon 'a bir adet tab oluşturdum. Birde önceden tasarım anında Tab oluşturdum.
Ribbon üzerinde sağ tuş "Customize the Ribbon..." dediğimde gelen formun sol kısmında tasarım anında eklenen tab gelirken
kod ile oluşturulmuş olan Tab gelmiyor. Bunun sol listeye gelmesini sağlamak için ne yapabilirim.
Kod: Tümünü seç
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
dxBar, dxRibbon, dxRibbonForm, dxRibbonSkins, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, cxClasses, dxRibbonBackstageView, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, dxSkinsdxRibbonPainter, dxRibbonCustomizationForm,
dxSkinsdxBarPainter, cxContainer, cxEdit, dxSkinsForm, dxStatusBar,
dxRibbonStatusBar, cxLabel, dxGallery, dxGalleryControl,
dxRibbonBackstageViewGalleryControl;
type
TForm2 = class(TdxRibbonForm)
dxBarManager1: TdxBarManager;
dxBarManager1Bar1: TdxBar;
dxRibbon1: TdxRibbon;
dxRibbon1Tab1: TdxRibbonTab;
dxRibbonBackstageView1: TdxRibbonBackstageView;
dxRibbonBackstageViewTabSheet1: TdxRibbonBackstageViewTabSheet;
dxRibbonStatusBar1: TdxRibbonStatusBar;
dxRibbonBackstageViewGalleryControl1: TdxRibbonBackstageViewGalleryControl;
cxLabel1: TcxLabel;
dxRibbonBackstageViewGalleryControl1Group1: TdxRibbonBackstageViewGalleryGroup;
dxSkinController1: TdxSkinController;
dxRibbonBackstageViewGalleryControl1Group1Item1: TdxRibbonBackstageViewGalleryItem;
dxBarManager1Bar2: TdxBar;
dxBarLargeButton1: TdxBarLargeButton;
dxBarLargeButton2: TdxBarLargeButton;
procedure FormCreate(Sender: TObject);
function AddTab: TdxRibbonTab;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
{ TForm2 }
function TForm2.AddTab: TdxRibbonTab;
begin
Result := dxRibbon1.Tabs.Add;
Result.Caption := 'DenemeTab';
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
DisableAero := True;
with AddTab do
begin
//...
end;
end;
end.