Una de Gif

[Jairo Barbosa]

Buen día para todos, hace mucho tiempo no tenia la oportunidad de saludarlos.

En una aplicación y dependiendo de una condición muestro un Gif, ? Dependiendo de otra condición como lo oculto ?

Desde ya agradezco sus ayudas y sugerencias

Cordialmente

Jairo Barbosa

[Daniel Garcia-Gil]

Jairo

oGif:Hide() para ocultar
oGif:Show() para mostrar

[Jairo Barbosa]

Daniel

Gracias por tu pronta y acertada Respuesta, funciona oK.

Que el Creador siga Bendiciendo los pasos que caminan tus pies en el proyecto FW

Un Abrazo

Felices Fiestas Navideñas

[Jairo Barbosa]

Daniel

Acabo de encontrar otro problema relacionado con los Gif, la indicación que me acabas de enseñar funciona al ciento por ciento, la aplicación en si no tiene inconvenientes, cuando oprimo sobre la pestaña “Reina Valera 1960” en Gif se presenta bien y cuando oprimo “Reina Valera 1909” El Gif hace el cambio Correcto, pero cuando oprimo en ayudas deberían apagasen los Gif y no lo están haciendo, eres tan amable y me enseñas a hacerlos?

Gracias nuevamente

Jairo Barbosa


Uploaded with ImageShack.us

Adjunto el codigo de un Sample para facilitar la explicacion

Code: Select all  Expand view

#include "Fivewin.ch"
#include "dbcombo.ch"
#include "Image.ch"
#include "RichEdit.ch"
#include "Selector.ch"
#include "ORD.CH"
#INCLUDE "FileIO.CH"
#include "ribbon.ch"
#include "Gif.ch"

#define renglon chr(13) + chr(10)
#define APP_HELPFILE  "Genesis.chm" //Archivos de Ayuda Importante
#define ID_YES           6
#define ID_NO            7
#define COLOR_BTNFACE    15
#define FW_BOLD          700
*#define MB_YESNOCANCEL   3
*#define MB_ICONQUESTION  32
*------------------------------------------------------------------------
*animacion de los dialogos al abrir

*#define AW_HOR_POSITIVE 1
*#define AW_HOR_NEGATIVE 2
*#define AW_VER_POSITIVE 4
*#define AW_VER_NEGATIVE 8
#define AW_CENTER 16
#define AW_HIDE 65536
*#define AW_ACTIVATE 131072
*#define AW_SLIDE 262144
#define AW_BLEND 524288

//**************************************************************************
static oWin,oBar,cBitmap
static cContenido,cContenido1, oWndMain
static cNombrelib
static cCapitulo,cCapitulos
static cNumver, oRich
static oCombo1
static oGet1
static oFont
static cLibro,cLibroS
static cVerso,cVersoS, cVerso1
static cCiudad,cCiudadS, cCiudad1
Static cId_pais,cId_paisS
static cTitulo,cTitulos
sTatic cGenesis:="Genesis.htm"//ShellExecute
static oIco,oIco1,cTitle

static nPos1//:= 0  //Movimientos Verticales_____Versiculos todas resolucion
static nPos2//:= 0      //Movimientos Verticales
static nPos3//:= 122    //Movimientos Horizontales
static nPos4//:= 400    //Movimientos Horizontales

static lPos1//:= 0      //Movimientos Verticales____ Resolucion 1024 x 768- lib
static lPos2//:= 624    //Movimientos Horizontales
static lPos3//:= 280    //Movimientos Verticales
static lPos4//:= 1024   //Movimientos Horizontales

static cCont   := 0
static cCont1  := 0


static oBmp,oWnd12
static cColor1:=255,cColor2:=255,cColor3:=255
static cColor4:=0 , cColor5:= 0, cColor6:= 0
Static cFile
Static nColor:=RGB(250,250,253)
static oImage
static cSonido := 0
static lCamreso, nResoAncho
static cMp3File := "Genesis.mp3"

Static oTm,hWnd
static nStart:= 1000000 , nEnd:= ""
static cAlias,oBtn1,oBtn2,oBtn3
memvar nRV // by rolo
//---------------------------------------------------------------------------//


  Function Main()
*----------------------------------------------------------------------------//
 local oBru,oBtn,nRgb, oBtn1,oBtn2, cTooltip,oPopup, oMenu1 , oMenu, cOption
 Local oRbar, oGr, oGr1, oGr2, oGr3, oGr4, oGr5, oGr6, oGr7, oGr8, oGr9
 local oGr10, oGr11, oGr12, oGr13, oGr14, oGr15, oGr16, oGr17, oGr18, oGr19
 Local oGr20, oGr21, oGr22, oMenu2, oMenu3,  oBtn4, oWnd
 Local oBtn10, oBtn11, oBtn12, oBtn13, oBtn14, oBtn15, oBtn16, oBtn17, oBtn18
 local oBtn3, oBtn5, oBtn6, oBtn7, oBtn8, oBtn9, oBtn19, oBtn20,oBtn21,oBtn22
 Local oGr23, oGr24, oGr25, oGr26, oGr27
 Local oBtn23, oBtn24, oBtn25, oBtn26, oBtn27
 local oGif:= ".\1960.gif" , oGif1:= ".\1909.gif"  
 Public nRV:=1960  // by rolo

   DEFINE BRUSH oBru file  ".\Fondos\blustone.bmp"
   DEFINE FONT oFont;
   NAME "Arial"     ;
   SIZE 0,-15 //BOLD
   activate  FONT oFont

   SET DELETED ON

   DEFINE ICON oIco resource "Genesis"
   DEFINE ICON oIco1 resource "Genesis32"

   DEFINE WINDOW oWnd  MDI;
   TITLE "La Biblia --Reina Valera Revisión de 1960--" ;
   MENU oMenu  Brush oBru Icon oIco1
       oWnd:oMenu:End()
       oWnd:oMenu := Nil

   oWnd:nHelpID:="Inicio.htm"   //Archivos de Ayuda

     @ 55,805 Gif oGif1 of oRBar  FILE ".\1909.gif" SIZE 138, 18  
     @ 55,805 Gif oGif of oRBar  FILE ".\1960.gif" SIZE 138, 18

   DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "Reina Valera 1960",;
   "Reina Valera 1909", "Ayudas" HEIGHT 105 TOPMARGIN 22;   // aqui es el prompt de la ayuda a la que me refiero
    Action (CambioGif(oWnd,oGif, oGif1, oRBar))
 
     oGif1:Hide()
     oGif:Show()

   ADD GROUP oGr1  RIBBON oRBar TO OPTION 1 width 65 PROMPT "Versiculos"
   ADD GROUP oGr2  RIBBON oRBar TO OPTION 1 width 65 PROMPT "Capitulos"
   ADD GROUP oGr3  RIBBON oRBar TO OPTION 1 width 65 PROMPT "Libros"
   ADD GROUP oGr4  RIBBON oRBar TO OPTION 1 width 78 PROMPT "Concordancia"
   ADD GROUP oGr5  RIBBON oRBar TO OPTION 1 width 78 PROMPT "Diccionario"
   ADD GROUP oGr6  RIBBON oRBar TO OPTION 1 width 65 PROMPT "Editor"
   ADD GROUP oGr7  RIBBON oRBar TO OPTION 1 width 65 PROMPT "Color Fondo"
   ADD GROUP oGr8  RIBBON oRBar TO OPTION 1 width 65 PROMPT "Fuentes"
   ADD GROUP oGr9  RIBBON oRBar TO OPTION 1 width 65 PROMPT "Color Texto"
   ADD GROUP oGr10 RIBBON oRBar TO OPTION 1 width 65 PROMPT "Sonido"
   ADD GROUP oGr11 RIBBON oRBar TO OPTION 1 width 65 PROMPT "Salir"
*------------------------------------------------------
   @ 2,5 ADD BUTTON oBtn1  BITMAP "Versiculos";
  GROUP oGr1 ACTION msginfo("Esto es Versiculos RV 1960") SIZE 50,55;
  message "Puede ver versículos del libro que elija"

  @ 2,5 ADD BUTTON oBtn2   BITMAP "Capitulos"  ;
  GROUP oGr2 action  msginfo("Esto es Capitulos RV 1960") SIZE 50,55;
  Message "Puede ver Capítulos del libro que elija"

  @ 2,5 ADD BUTTON oBtn3   BITMAP "Libros"   ;
  GROUP oGr3 action msginfo("Esto es Capitulos RV 1960") SIZE 50,55;
  Message "Puede ver y ller el libro que seleccione"

  @ 2,5 ADD BUTTON oBtn4    BITMAP "Concord"   ;
  GROUP oGr4 action  msginfo("Esto es Concordancia RV 1960")   SIZE 68,55

  @ 2,5 ADD BUTTON oBtn5   BITMAP "Diccionario"   ;
  GROUP oGr5 action msginfo("Esto es diccionario RV 1960")   SIZE 65,55

  @ 2,5 ADD BUTTON oBtn6  BITMAP "Notas"   ;
  GROUP oGr6 action  msginfo("Esto es Edior de Texto RV 1960") SIZE 50,55

  menu oMenu1 popup 2007

  menuitem "Rojo"      RESOURCE"Rojo"     Action msginfo("Rojo")
  menuitem "Azul"      RESOURCE"Azul"     Action msginfo(" Azul")
  menuitem "Verde"     RESOURCE"verde"    Action msginfo("Verde")
  MENUITEM "Amarillo"  RESOURCE"Amarillo" ACTION msginfo("Amarillo")
  MENUITEM "Blanco"    RESOURCE"Blanco"   ACTION msginfo("Blanco")

 endmenu

  @ 2,5 ADD BUTTON oBtn7  GROUP oGr7  BITMAP "Fondocolor" menu oMenu1  ;
  SPLITPOPUP ROUND SIZE 50,55 top

  menu oMenu2 popup 2007

  MENUITEM "Arial 8"    ACTION  msginfo("Fuente")  RESOURCE"Fuente"
  MENUITEM "Arial 10"   ACTION  msginfo("Fuente1") RESOURCE"Fuente"
  MENUITEM "Arial 12"   ACTION  msginfo("Fuente2") RESOURCE"Fuente"
  endmenu

  @ 2,5 ADD BUTTON oBtn8  GROUP oGr8  BITMAP "Fuentes" Menu oMenu2  ;
  SPLITPOPUP ROUND SIZE 50,55 top

  MENU oMenu3 POPUP 2007
      MENUITEM "Azul"    ACTION  msginfo("Azul1")  RESOURCE"Azul"
      MENUITEM "Verde"   ACTION  msginfo("Verde1") RESOURCE"Verde"
      MENUITEM "Rojo"    ACTION  msginfo("Rojo1")  RESOURCE"Rojo"
      MENUITEM "Negro"   ACTION  msginfo("Negro1") RESOURCE"Negro"
   ENDMENU

  @ 2,5 ADD BUTTON oBtn9 GROUP oGr9 BITMAP "TextoColor" Menu oMenu3  ;
   SPLITPOPUP ROUND SIZE 50,55 top

  @ 2,5 ADD BUTTON oBtn10   BITMAP "Sonido"   ;
  GROUP oGr10 action msginfo(" Sonido")  SIZE 50,55

  @ 2,5 ADD BUTTON oBtn11   BITMAP "Salir"   ;
  GROUP oGr11 action oWnd:End() SIZE 50,55

** ToolTips

  oBtn1 :cTooltip:=   SPACE(22)+"Versículos"+ SPACE(15)+CRLF+;
  SPACE(15)+"---------------------"+CRLF+;
   "Después de oprimir, seleccione: un libro"+CRLF+ "un capítulo, un versículo"+;
    CRLF+ SPACE(30) +CRLF+ SPACE(22)+ "Biblia RV 1960 "
  oBtn2 :cTooltip:= SPACE(22)+" Capitulos"+CRLF+;
   SPACE(15)+"---------------------"+CRLF+;
   "Después de oprimir, seleccione: un libro"+CRLF+ "Un capítulo"+CRLF+;
   SPACE(22)+ "Biblia RV 1960"
  oBtn3 :cTooltip:=space(22)+ " Libros "+space(15) +CRLF+;
   SPACE(15)+"---------------------"+CRLF+;
  "Después de oprimir, seleccione: un libro"+CRLF+;
  Space(22)+ "Biblia RV 1960"
  oBtn4 :cTooltip:= " Concordancias " +CRLF+  "Biblia RV 1960 "
  oBtn5 :cTooltip:= " Diccionario"    +CRLF+  "Biblia RV 1960 "
  oBtn6 :cTooltip:= " Editor "        +CRLF+  "Biblia RV 1960 "
  oBtn7 :cTooltip:= " Color Fondo"    +CRLF+  "Biblia RV 1960 "
  oBtn8 :cTooltip:= " Tamaño Texto"   +CRLF+  "Biblia RV 1960 "
  oBtn9 :cTooltip:= " Color Texto"    +CRLF+  "Biblia RV 1960 "
  oBtn10:cTooltip:= " Control Sonido" +CRLF+  "Biblia RV 1960 "
  oBtn11:cTooltip:= " Salir"          +CRLF+  "Biblia RV 1960 "
*--------------------------------------------------------------------
* Barra para RV 1909
 
   ADD GROUP oGr12  RIBBON oRBar TO OPTION 2 width 65 PROMPT "Versiculos"
   ADD GROUP oGr13  RIBBON oRBar TO OPTION 2 width 65 PROMPT "Capitulos"
   ADD GROUP oGr14  RIBBON oRBar TO OPTION 2 width 65 PROMPT "Libros"  
   ADD GROUP oGr15  RIBBON oRBar TO OPTION 2 width 78 PROMPT "Concordancia"
   ADD GROUP oGr16  RIBBON oRBar TO OPTION 2 width 78 PROMPT "Diccionario"
   ADD GROUP oGr17  RIBBON oRBar TO OPTION 2 width 65 PROMPT "Editor"
   ADD GROUP oGr18  RIBBON oRBar TO OPTION 2 width 65 PROMPT "Color Fondo"
   ADD GROUP oGr19  RIBBON oRBar TO OPTION 2 width 65 PROMPT "Fuentes"
   ADD GROUP oGr20  RIBBON oRBar TO OPTION 2 width 65 PROMPT "Color Texto"
   ADD GROUP oGr21  RIBBON oRBar TO OPTION 2 width 65 PROMPT "Sonido"
   ADD GROUP oGr22  RIBBON oRBar TO OPTION 2 width 65 PROMPT "Salir"
*------------------------------------------------------  
 
  @ 2,5 ADD BUTTON oBtn12  BITMAP "Versiculos";
  GROUP oGr12 ACTION msginfo("Esto es Versiculos RV 1909") SIZE 50,55;
  message "Puede ver versículos del libro que elija"

  @ 2,5 ADD BUTTON oBtn13  BITMAP "Capitulos"  ;
  GROUP oGr13 action  msginfo("Esto es Capitulos RV 1909")  SIZE 50,55;
  Message  "Puede ver Capítulos del libro que elija"  
 
  @ 2,5 ADD BUTTON oBtn14     BITMAP "Libros"   ;
  GROUP oGr14 action msginfo("Esto es Capitulos RV 1909") SIZE 50,55;
  Message  "Puede ver y ller el libro que seleccione"

  @ 2,5 ADD BUTTON oBtn15   BITMAP "Concord"   ;
  GROUP oGr15 action msginfo("Esto es Concordancia RV 1909") SIZE 68,55

  @ 2,5 ADD BUTTON oBtn16  BITMAP "Diccionario"   ;
  GROUP oGr16 action msginfo("Esto es diccionario RV 1909") SIZE 65,55

  @ 2,5 ADD BUTTON oBtn17  BITMAP "Notas"   ;
  GROUP oGr17 action  msginfo("Esto es Edior de Texto RV 1909")SIZE 50,55
*-----------------------------------------------------------------------
  menu oMenu1 popup 2007

  menuitem "Rojo"      RESOURCE"Rojo"     Action   msginfo("Rojo1")
  menuitem "Azul"      RESOURCE"Azul"     Action   msginfo("Azul1")
  menuitem "Verde"     RESOURCE"verde"    Action   msginfo("Verde1")
  MENUITEM "Amarillo"  RESOURCE"Amarillo" ACTION   msginfo("Amarillo")
  MENUITEM "Blanco"    RESOURCE"Blanco"   ACTION   msginfo("Blanco")
 
 endmenu  

  @ 2,5 ADD BUTTON oBtn18  GROUP oGr18  BITMAP "Fondocolor" menu oMenu1  ;
  SPLITPOPUP ROUND SIZE 50,55 top

  menu oMenu2 popup 2007

  MENUITEM "Arial 8"    ACTION msginfo (" Esto es Fuente") RESOURCE"Fuente 8"
  MENUITEM "Arial 10"   ACTION msginfo (" Esto es Fuente") RESOURCE"Fuente 10"
  MENUITEM "Arial 12"   ACTION msginfo (" Esto es Fuente") RESOURCE"Fuente 12"
  endmenu    

  @ 2,5 ADD BUTTON oBtn19  GROUP oGr19 BITMAP "Fuentes" Menu oMenu2   ;
  SPLITPOPUP ROUND  SIZE 50,55 top

  MENU oMenu3 POPUP 2007
      MENUITEM "Azul"    ACTION  msginfo (" Azul") RESOURCE"Azul"
      MENUITEM "Verde"   ACTION  msginfo (" Verde") RESOURCE"Verde"
      MENUITEM "Rojo"    ACTION  msginfo (" Rojo") RESOURCE"Rojo"
      MENUITEM "Negro"   ACTION  msginfo (" Negro") RESOURCE"Negro"
  ENDMENU

  @ 2,5 ADD BUTTON oBtn20 GROUP oGr20 BITMAP "TextoColor" Menu oMenu3  ;
    SPLITPOPUP ROUND  SIZE 50,55 Top

  @ 2,5 ADD BUTTON oBtn21 BITMAP "Sonido"   ;
  GROUP oGr21 action  Msginfo("Esto es el sonido")  SIZE 50,55

  @ 2,5 ADD BUTTON oBtn22  BITMAP "Salir"   ;
  GROUP oGr22 action  oWnd:end()  SIZE 50,55
 
  oBtn12 :cTooltip:= " Versiculos"     +CRLF+  "Biblia RV 1907 "
  oBtn13 :cTooltip:= " Capitulos"      +CRLF+  "Biblia RV 1907"
  oBtn14 :cTooltip:= " Libros "        +CRLF+  "Biblia RV 1907"
  oBtn15 :cTooltip:= " Concordancias " //+CRLF+  "Biblia RV 1960 "
  oBtn16 :cTooltip:= " Diccionario"    //+CRLF+  "Biblia RV 1960 "
  oBtn17 :cTooltip:= " Editor "        //+CRLF+  "Biblia RV 1960 "
  oBtn18 :cTooltip:= " Color Fondo"    //+CRLF+  "Biblia RV 1960 "
  oBtn19 :cTooltip:= " Tamaño Texto"   //+CRLF+  "Biblia RV 1960 "
  oBtn20 :cTooltip:= " Color Texto"    //+CRLF+  "Biblia RV 1960 "
  oBtn21 :cTooltip:= " Control Sonido" //+CRLF+  "Biblia RV 1960 "
  oBtn22 :cTooltip:= " Salir"          //+CRLF+  "Biblia RV 1960 "


  ADD GROUP oGr23  RIBBON oRBar TO OPTION 3 width 65 PROMPT "Nueva Pista"
  ADD GROUP oGr24  RIBBON oRBar TO OPTION 3 width 95 PROMPT "Tópicos de Ayuda"
  ADD GROUP oGr25  RIBBON oRBar TO OPTION 3 width 65 PROMPT "Web Site"  
  ADD GROUP oGr26  RIBBON oRBar TO OPTION 3 width 78 PROMPT "Acerca De...."
  ADD GROUP oGr27  RIBBON oRBar TO OPTION 3 width 78 PROMPT "Información"

  @ 2,5 ADD BUTTON oBtn23 GROUP oGr23 BITMAP "Pista" ;
  ACTION OpenMP3() SIZE 50,55 ;
  Message " Permite selecionar una nueva pista de audio en formato MP3"  
 
  @ 2,5 ADD BUTTON oBtn24 GROUP oGr24 BITMAP "Ayuda";
   ACTION (CerrarAyudas(), helpTopic("Inicio.htm")) ;
  SIZE 85,55;
  message " Abre el archivo de ayudas HTML"

  @ 2,5 ADD BUTTON oBtn25  BITMAP "web"  ;
  GROUP oGr25 action Web() SIZE 50,55;
  Message  "Puedes entrar en la pagina web de Genesis Software"  
 
  @ 2,5 ADD BUTTON oBtn26     BITMAP "Acercade"   ;
  GROUP oGr26 action Informacion() SIZE 65,55;
  Message  "Que es  GenesisSoft"

  @ 2,5 ADD BUTTON oBtn27   BITMAP "INFO"   ;
  GROUP oGr27 action Acercade() SIZE 68,55

   SET MESSAGE OF oWnd 2007;
   TO  "--Biblia Reina Valera --Trabajo de Programacion"+;
   " (Generadores de Sistemas) Genesis Software" CENTERED CLOCK DATE KEYBOARD
 
  ACTIVATE WINDOW oWnd maximized
  MsgYesNo( "Desea Salir?", "Cerrar la aplicación")
     
  oFont:End()
  close databases
*  DbProtect("Sistema\Versiculo.dbf",0) // con el 0 se protege
*  DbProtect("Sistema\Dic.dbf",0)       // con el 0 se protege
  return nil
//---------------------------------------------------------------------------
//FUNCION DETIENE O REANUDA EL SONIDO CLICK AND CLICK
  function ControlSonico()
/*  
  if cSonido = 0
  Detener(oWnd)
  cSonido = 1
  Else
  cSonido = 0
  Reanudar(oWnd)
  endif
*/
  return nil

 Function openmp3()
 msginfo("Esto Abre pista mp3")
 Return nil

 Function Cerrarayudas()
 msginfo("Esto cierra las Ayudas")
 Return nil

 Function Web()
 msginfo("Esto te lleva al la Web")
 Return nil

 Function informacion()
 msginfo("Esto es informacion")
 return nil

 function acercade()
 msginfo(" Esto describe Acerca de...")
 Return nil

//--------------------------------------------------------------------------//

 Function CambioGIF(oWnd,oGif, oGif1,oRbar)  // esta es la funcion para detener elos gif
 
  if nRV=1960
  nRv:=1909
  oGif:Hide()
  oGif1:Show()
   
  Return nil
  endif
 
  if nRV=1909
  nRv:=1960
  oGif1:Hide()
  oGif:Show()

  Return nil
  endif
 
  Return nil

[Willi Quintana]

Hola Jairo, Esta aun disponible el download de la biblia???
Salu2

[Daniel Garcia-Gil]

Jairo

el "ejemplo" es bastante extenso para analizarlo, pero lo que pude ver es, si quieres que se oculten los gif en Ayudas, pues simplemente ocultalos como te dije en mi primer post, lo que tienes es un problema de logica...
algo asi como

si estoy en ayudas
ocultar los gif
fin del si

[Jairo Barbosa]

Daniel .. Gracias

Si lo mismo pienso yo, es algo de simple lógica pero como mi novatada no me permite aun hacer un análisis de lo que me pasa, he intentado con ayudas Gif:Hide pero no responde a esa orden por lo que acudo a ti, si te das cuenta en la parte final del prg esta la función en donde cambio un Gif por el otro y eso funciona bien
if nRV=1960
nRv:=1909
oGif:Hide()
oGif1:Show()

Pero no he podido hacer que me funcione con la pestaña de ayuda, pues cuando hago click sobre la pestaña de ayuda se comporta como si hiciera click en cualquiera de las otras dos pestañas .

Willi Si aun esta disponible, solo que ahora estoy haciendo una renovación a la aplicación, ya casi la termino, pretende mostrar dos versiones de la misma Biblia, una corresponde a la traducción hecha en 1909 por la TRINITARIAN BIBLE SOCIETY USA y la que esta actualmente presentando la aplicación que corresponde a la traducción hecha en 1960 por la American Bible Society.

Espero terminarla con éxito gracias a todos ustedes que han aportado todo pera que el proyecto se mantenga vivo, sin ustedes y sus enseñanzas seria completamente imposible seguir adelante.
http://www.genesisoft.webs.com
http://www.genesisoft.co.cc

Daniel por favor dale otra revisada y ver que puede hacer por el proyecto

Gracias Daniel y Willi

Un Abrazo

[Daniel Garcia-Gil]

Jairo...

pero intentaste lo que te comente

1) si estoy en ayudas
2) ocultar los gif
3) fin del si


1) si estoy en ayudas
como saber que estamos en ayudas?
es la opcion 3 de tu ribbon (pestaña 3), a la funcion CambioGIF le pasas como parametro el objeto ribbon "oRbar", de alli tomas que estas en la opcion 3
"si estoy en ayudas" se dconvierte en:

Code: Select all  Expand view

IF oRbar:nOption == 3

2) ocultar los gif
a la funcion CambioGIF le pasas ambos objetos gif, "oGif" y "oGif1"
"ocultar los gif " se convierte en:

Code: Select all  Expand view

   oGif:Hide()
   oGif1:Hide()
 

3) fin del si, se convierte en

Code: Select all  Expand view

ENDIF

uniendo los 3 pasos nos queda

Code: Select all  Expand view

IF oRbar:nOption == 3
   oGif:Hide()
   oGif1:Hide()
ENDIF
 

aplicando esto a tu codigo de la funcion CambioGIF y siguiendo un poco tu logica de programacion quedaria asi:

Code: Select all  Expand view

 Function CambioGIF(oWnd,oGif, oGif1,oRbar)  // esta es la funcion para detener elos gif
 
   IF oRbar:nOption == 3
      oGif:Hide()
      oGif1:Hide()
      return nil
   ENDIF

  if nRV=1960
     nRv:=1909
     oGif:Hide()
     oGif1:Show()
   
     Return nil
  endif
 
  if nRV=1909
     nRv:=1960
     oGif1:Hide()
     oGif:Show()

     Return nil
  endif
 
  Return nil

[Jairo Barbosa]

Daniel

Me faltaba asociar Ayudas con opción 3 Disculpa y en verdad que quedo muy pero muy agradecido
Vacíos de novato ja, ja ,ja

Un Abrazo

Jairo