x2cl/Test/MenuBar/MainForm.pas

unit MainForm;

interface
uses
  Classes,
  Controls,
  ExtCtrls,
  Forms,
  ImgList,
  Mask,
  StdCtrls,
  XPMan,

  JvExMask,
  JvSpin,
  PNGImage,
  X2CLGraphicList,
  X2CLMenuBar,
  X2CLmusikCubeMenuBarPainter,
  X2CLunaMenuBarPainter;

type
  TfrmMain = class(TForm)
    mbTest:               TX2MenuBar;
    mcPainter: TX2MenuBarmusikCubePainter;
    gcMenu: TX2GraphicContainer;
    glMenu: TX2GraphicList;
    bvlMenu: TBevel;
    rbmusikCube: TRadioButton;
    rbSliding: TRadioButton;
    lblAnimationTime: TLabel;
    seAnimationTime: TJvSpinEdit;
    Panel1: TPanel;
    Panel2: TPanel;
    rbNoAnimation: TRadioButton;
    rbFade: TRadioButton;
    rbUnameIT: TRadioButton;
    unaPainter: TX2MenuBarunaPainter;
    rbDissolve: TRadioButton;
    chkAutoCollapse: TCheckBox;
    chkAllowCollapseAll: TCheckBox;
    chkAutoSelectItem: TCheckBox;
    chkBlurShadow: TCheckBox;
    chkScrollbar: TCheckBox;
    chkHideScrollbar: TCheckBox;
    rbSlideFade: TRadioButton;
    procedure chkHideScrollbarClick(Sender: TObject);
    procedure chkScrollbarClick(Sender: TObject);
    procedure chkBlurShadowClick(Sender: TObject);
    procedure chkAutoSelectItemClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure chkAllowCollapseAllClick(Sender: TObject);
    procedure chkAutoCollapseClick(Sender: TObject);
    procedure PainterClick(Sender: TObject);
    procedure AnimationClick(Sender: TObject);
    procedure seAnimationTimeChange(Sender: TObject);
  end;

implementation

{$R *.dfm}

procedure TfrmMain.AnimationClick(Sender: TObject);
var
  style: TX2MenuBarAnimationStyle;

begin
  if rbSliding.Checked then
    style := asSlide
  else if rbDissolve.Checked then
    style := asDissolve
  else if rbSlideFade.Checked then
    style := asSlideFade
  else if rbFade.Checked then
    style := asFade
  else
    style := asNone;

  mbTest.AnimationStyle := style;
end;

procedure TfrmMain.chkAllowCollapseAllClick(Sender: TObject);
begin
  mbTest.AllowCollapseAll := chkAllowCollapseAll.Checked;
end;

procedure TfrmMain.chkAutoCollapseClick(Sender: TObject);
begin
  mbTest.AutoCollapse := chkAutoCollapse.Checked;
end;

procedure TfrmMain.chkAutoSelectItemClick(Sender: TObject);
begin
  mbTest.AutoSelectItem := chkAutoSelectItem.Checked;
end;

procedure TfrmMain.chkBlurShadowClick(Sender: TObject);
begin
  unaPainter.BlurShadow := chkBlurShadow.Checked;
end;

procedure TfrmMain.chkHideScrollbarClick(Sender: TObject);
begin
  mbTest.HideScrollbar := chkHideScrollbar.Checked;
end;

procedure TfrmMain.chkScrollbarClick(Sender: TObject);
begin
  mbTest.Scrollbar := chkScrollbar.Checked;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  chkAutoCollapse.Checked := mbTest.AutoCollapse;
  chkAutoSelectItem.Checked := mbTest.AutoSelectItem;
  chkAllowCollapseAll.Checked := mbTest.AllowCollapseAll;
  chkScrollbar.Checked := mbTest.Scrollbar;
  chkHideScrollbar.Checked := mbTest.HideScrollbar;
end;

procedure TfrmMain.PainterClick(Sender: TObject);
begin
  if rbmusikCube.Checked then
  begin
    mbTest.Painter := mcPainter;
    chkAutoCollapse.Checked := False;
    chkAutoSelectItem.Checked := False;
    chkAllowCollapseAll.Checked := True;
  end else
  begin
    mbTest.Painter := unaPainter;
    chkAutoCollapse.Checked := True;
    chkAutoSelectItem.Checked := True;
    chkAllowCollapseAll.Checked := False;
  end;
end;

procedure TfrmMain.seAnimationTimeChange(Sender: TObject);
begin
  mbTest.AnimationTime := seAnimationTime.AsInteger;
end;

end.