53 lines
1.1 KiB
ObjectPascal
53 lines
1.1 KiB
ObjectPascal
unit MainForm;
|
|
|
|
interface
|
|
uses
|
|
Classes,
|
|
Controls,
|
|
Forms,
|
|
ImgList,
|
|
|
|
PNGImage,
|
|
X2CLGraphicList,
|
|
X2CLMenuBar,
|
|
X2CLmusikCubePainter, StdCtrls, ExtCtrls, Mask, JvExMask, JvSpin;
|
|
|
|
type
|
|
TfrmMain = class(TForm)
|
|
mbTest: TX2MenuBar;
|
|
mbPainter: 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;
|
|
procedure AnimationClick(Sender: TObject);
|
|
procedure seAnimationTimeChange(Sender: TObject);
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrmMain.AnimationClick(Sender: TObject);
|
|
begin
|
|
if rbSliding.Checked then
|
|
mbPainter.AnimationStyle := asSlide
|
|
else
|
|
mbPainter.AnimationStyle := asNone;
|
|
end;
|
|
|
|
procedure TfrmMain.seAnimationTimeChange(Sender: TObject);
|
|
begin
|
|
mbPainter.AnimationTime := seAnimationTime.AsInteger;
|
|
end;
|
|
|
|
end.
|