Insertar un Gif Animado

Uhm... un GIF animado lo procesa sin ningún tipo de
inconvenientes VFP8 pues este incorpora características
de GDI+. No conozco un ActiveX para hacer lo que quieres
(pero debe exisitir alguno no..) ... Sin embargo puedes
insertar el webbrowser control y solicitarle que abra una
página (esta estará en tu equipo y en ella harás
referencia al GIF) y darle la vuelta así...

Saludos

Necesito de su ayuda...

quiero insertar en mi aplicacion un gif animado... uso
foxpro 6.0 baje de la pagina de portalfox el ativex de
marchoso pero no se como usuarlo...

si alguien me pudirea ayudar se lo agradeceria mucho...


*******************************
***Futuro TSU en Informatica***
*** Maracay-Venezuela ***
*******************************
.

Angel !!
en donde consigo el control Webbrowser, puedes ayudarme ???

Slds.

"Angel J. Hernández M." escribió en el mensaje
news:6a3401c42ee2$d321a2a0$
Uhm... un GIF animado lo procesa sin ningún tipo de
inconvenientes VFP8 pues este incorpora características
de GDI+. No conozco un ActiveX para hacer lo que quieres
(pero debe exisitir alguno no..) ... Sin embargo puedes
insertar el webbrowser control y solicitarle que abra una
página (esta estará en tu equipo y en ella harás
referencia al GIF) y darle la vuelta así...

Saludos

Necesito de su ayuda...

quiero insertar en mi aplicacion un gif animado... uso
foxpro 6.0 baje de la pagina de portalfox el ativex de
marchoso pero no se como usuarlo...

si alguien me pudirea ayudar se lo agradeceria mucho...


*******************************
***Futuro TSU en Informatica***
*** Maracay-Venezuela ***
*******************************
.

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.701 / Virus Database: 458 - Release Date: 07/06/2004

Angel J. Hernández M. wrote:

Uhm... un GIF animado lo procesa sin ningún tipo de
inconvenientes VFP8 pues este incorpora características
de GDI+. No conozco un ActiveX para hacer lo que quieres
(pero debe exisitir alguno no..) ... Sin embargo puedes
insertar el webbrowser control y solicitarle que abra una
página (esta estará en tu equipo y en ella harás
referencia al GIF) y darle la vuelta así...

Saludos

"un GIF animado lo procesa sin ningún tipo de inconvenientes VFP8"

No estoy de acuerdo contigo :) de hecho si existe un "inconveniente"
(aunque menor) con los GIFs animado y foxpro, esto es que no respeta la
propiedad "Visible" del mismo, fijate este ejemplo (si cambias el GIF
asegurate que sea por otro animado, ya que funciona correctamente con
GIFs estáticos) y de hecho el problema persiste en la versión 9 :( :

oForm = Createobject('Form1')
oForm.Show(1)
return

oForm = Createobject('Form1')
oForm.Show(1)
return

DEFINE CLASS form1 AS form


Top = 57
Left = 130
Height = 116
Width = 355
DoCreate = .T.
BorderStyle = 3
Caption = "Form1"
WindowState = 0
Name = "Form1"


ADD OBJECT shpgif2 AS shape WITH ;
Top = -2, ;
Left = 90, ;
Height = 97, ;
Width = 88, ;
BorderStyle = 0, ;
Visible = .F., ;
Name = "shpGif2"


ADD OBJECT cmdexit AS commandbutton WITH ;
Top = 82, ;
Left = 295, ;
Height = 32, ;
Width = 60, ;
Caption = "Exit", ;
TabIndex = 5, ;
Name = "cmdExit"


ADD OBJECT imggif1 AS image WITH ;
Picture = Home(4) + "gifs\morphfox.gif", ;
Stretch = 1, ;
Height = 97, ;
Left = 2, ;
Top = -2, ;
Width = 88, ;
Name = "imgGif1"


ADD OBJECT cmdhideshow AS commandbutton WITH ;
Top = 0, ;
Left = 295, ;
Height = 32, ;
Width = 60, ;
Caption = "Hide", ;
Name = "cmdHideShow"


ADD OBJECT cmdrefresh AS commandbutton WITH ;
Top = 41, ;
Left = 295, ;
Height = 32, ;
Width = 60, ;
Caption = "Refresh", ;
Name = "cmdRefresh"


ADD OBJECT chkvisiblegif AS checkbox WITH ;
Top = 95, ;
Left = 2, ;
Height = 17, ;
Width = 93, ;
Caption = "Visible Gif?", ;
ControlSource = "thisform.imggif1.visible", ;
ReadOnly = .T., ;
Name = "chkVisibleGif"


ADD OBJECT imggif2 AS image WITH ;
Picture = Home(4) + "gifs\morphfox.gif", ;
Stretch = 1, ;
Height = 97, ;
Left = 90, ;
Top = -2, ;
Width = 88, ;
Name = "imgGif2"


ADD OBJECT chkvisibleshp AS checkbox WITH ;
Top = 95, ;
Left = 92, ;
Height = 17, ;
Width = 114, ;
Caption = "Visible Shp?", ;
ControlSource = "thisform.shpGif2.visible", ;
ReadOnly = .T., ;
Name = "chkVisibleShp"


ADD OBJECT ctrgif3 AS container WITH ;
Top = -2, ;
Left = 178, ;
Width = 88, ;
Height = 97, ;
BorderWidth = 0, ;
Name = "ctrGif3"


*!* ADD OBJECT form1.ctrgif3.imggif3 AS image WITH ;
*!* Picture = Home(4) + "gifs\morphfox.gif", ;
*!* Stretch = 1, ;
*!* Height = 97, ;
*!* Left = 0, ;
*!* Top = 0, ;
*!* Width = 88, ;
*!* Name = "imgGif3"


ADD OBJECT chkvisiblectr AS checkbox WITH ;
Top = 96, ;
Left = 179, ;
Height = 17, ;
Width = 81, ;
Caption = "Visible Ctr?", ;
ControlSource = "thisform.ctrGif3.visible", ;
ReadOnly = .T., ;
Name = "chkVisibleCtr"


PROCEDURE cmdexit.Click
thisform.Release()
ENDPROC


PROCEDURE cmdhideshow.Click
if this.Caption = 'Hide'
this.Caption = 'Show'
thisform.imgGif1.Visible = .f.
thisform.shpGif2.Visible = .t.
thisform.ctrGif3.Visible = .f.
else
this.Caption = 'Hide'
thisform.imgGif1.Visible = .t.
thisform.shpGif2.Visible = .f.
thisform.ctrGif3.Visible = .t.
endif
thisform.chkVisibleGif.Refresh()
thisform.chkVisibleShp.Refresh()
thisform.chkVisibleCtr.Refresh()
ENDPROC


PROCEDURE cmdrefresh.Click
thisform.Refresh
ENDPROC

procedure init

thisform.ctrGif3.addobject('imgGif3', 'Image')
with thisform.ctrGif3.imgGif3
.Picture = Home(4) + "gifs\morphfox.gif"
.Stretch = 1
.Height = 97
.Left = 0
.Top = 0
.Width = 88
.Visible = .t.
endwith
thisform.shpGif2.zorder(0)
endproc

ENDDEFINE