Содержание | Последнее обновление: 14.02.2004 |
Как анимировать появление формы, как будто она развертывается из середины? Автор: KAV TRect r1,r2; r1 = Rect(Left+Width/2,Top+Height/2,Left+Width/2,Top+Height/2); r2 = BoundsRect; DrawAnimatedRects(Handle,IDANI_CAPTION,&r1,&r2);Форма будет как будто развертываться из середины. А чтобы она при закрытии свертывалась в свою середину, то пишем в OnClose: TRect r1,r2; r1 = Rect(Left+Width/2,Top+Height/2,Left+Width/2,Top+Height/2); r2 = BoundsRect; DrawAnimatedRects(Handle,IDANI_CAPTION,&r2,&r1); // меняется только последовательность последних параметров |