TsPageControl Effects by Code

This topic has 3 replies, 2 voices, and was last updated 12 years, 3 months ago by Support.

Viewing 3 posts - 1 through 3 (of 3 total)

Author

Posts
March 9, 2013 at 8:41 am #50297

Support
Keymaster

Hello. Try this code :

Code:

const
AnimTime = 400;
. . .
sVCLUtils.PrepareForAnimation(sPageControl1);
sPageControl1.Perform(WM_SETREDRAW, 0, 0);
sPageControl1.ActivePageIndex := NewPageindex;
sPageControl1.Perform(WM_SETREDRAW, 1, 0);
sVCLUtils.AnimShowControl(sPageControl1, AnimTime);
RedrawWindow(sPageControl1.Handle, nil, 0, RDW_ERASE or RDW_INTERNALPAINT or RDW_INVALIDATE or RDW_UPDATENOW or RDW_ALLCHILDREN);

March 9, 2013 at 2:17 pm #50291

wesley bobato
Participant

it is possible to implement this so automatically in next version?

March 9, 2013 at 3:17 pm #50285

Support
Keymaster

No, because this effect is not required in most cases, as I know.
Author

Posts

Viewing 3 posts - 1 through 3 (of 3 total)

You must be logged in to reply to this topic.