TAnimate - Melhoria na Classe

[MGA]

CLASS TAnimate FROM TControl

...

METHOD FileVerif() BLOCK { | Self, h | h := LoadLibrary( "shell32.dll" ),;
::OpenEx( h, 165 ), FreeLibrary( h ) }

...

METHOD Seek( nFrame ) INLINE AnimPlay( ::hWnd, nFrame, nFrame, 1 )

METHOD Stop() INLINE SendMessage( ::hWnd, ACM_STOP, 0, 0 )

ENDCLASS

[Antonio Linares]

Gracias!