[Kujo]

Hello,

TsSkinManagerAnimEffects.PageChange manages the animation during the change of a TsPageControl page but it work only if the page is changed clicking on the relative tab; if the page is changed by the code (using ActivePage, ActivePageIndex, SelectNextPage) the effect doesn't work.

AC 10.05 BETA, Delphi XE2, Windows 7 64 bits.

Regards.

[Support]

Hello

This animation is not needed in most cases when developer changes ActivePage by code.

But you can make this animation manualy, look this code:

Code:

uses sConst, sVCLUtils;

procedure TForm3.sButton1Click(Sender: TObject);
begin
sVCLUtils.PrepareForAnimation(sPageControl1, atcFade);
sPageControl1.ActivePageIndex := 1;
sVCLUtils.AnimShowControl(sPageControl1, 300, 255, atcFade);
end;

[Author]

Posts