FiveTech Software tech support forums

... "&Email", "Mo&nths", "Se&tting", "E&xit"},,;         ,, {|nOption, nOldOption, Self | ( If( nOption == 8, If( MsgYesNo( "Do you want exit??" ),  oWnd:End(), ( ::SetOption( nOldOption ), ::Refresh() ) ), ) ...

... <.lPixel.>, <.lDesign.>, [\{<cPrompt>\}], ; <ntabheight>, [\{<cnHelpids>\}], <nRound>, [{|nOption, nOldOption, Self | <uChange>}],; [{|Self,nOption| <uPaint>}], [{|Self,nOption| <uPaintxt>}], ; [\{<nAlign>\}], <.lAdjust.>, ...

Try with bChange DATA ( parameters: nOption, nOldOption )

Code: Select all  Expand view

   oFld:bChange := { | nOpt, nOldOpt | ..... }
 

Victor, El método SetOption( nOption ) CLASS TOutLook2003 evalúa bChange recibiendo los parámetros nOption y nOldOption desde el código de bChange puedes comprobar si nOption esta activo ó no y así ejecutar ó no la acción Para guardar el estado de cada botón puedes modificar ...

... ); ON CHANGE ( nSavePage := oFld1:nOption, ; IF( nOption == 5, If( MsgYesNo( "Do you want exit??" ), ; oDlg1:End(), ( ::SetOption( nOldOption ), ::Refresh() ) ), ) ) ; ON PAINT TEXT( If( nOption == ::nOption .and. nOption == 5, 255, 0 ) ); TOP OPTION 1 ALIGN 0, 0, 0, 0, 0 oFld1:lTransparent ...

... current row is NULL. Now fixed. Also after the user types invalid search, the behaviour is erratic. Fixed now. * Enhancement: Class TRibbon DATA nOldOption keeps the previous selected option when the current selected (top items bar) option changes. Thanks to Pedro! http://forums.fivetechsupport.com/viewtopic.php?p=145611#p145611 ...

... que ahora me entiendas, lo que quiero decir. Lo siento no he sido capaz de trasladar tu ejemplo a mi programa, más que nada porque no encontraba nOldOption fuera de su ámbito en el method SetOption. La solución ha sido mucho más fácil de lo que pensaba, sólo que he tenido que tocar la clase Ribbon ...

... ON PAINT TAB PaintTab( Self, nOption ); ON CHANGE ( If( nOption == 8, If( MsgYesNo( "Do you want exit??" ), ; oWnd:End(), ( ::SetOption( nOldOption ), ::Refresh() ) ), ) ); ON PAINT TEXT( If( nOption == ::nOption .and. nOption == 2, CLR_BLUE, CLR_BLACK ) ); TOP OPTION 2 ALIGN 2, 2, 2 ...

... 110 OF oDlg ; PROMPT "&Page1", "P&age2" ; DIALOGS "Sub1", "Sub2" ; ON CHANGE( Testbrowse( nOption, nOldOption ) ) //----------------------------------------------------------------------------// static function Testbrowse( nOption, nOldOption ) if ...

... Los programas modificados son: - inspect.prg -> se cambio la opcion del xBrowse por el wBrowse - code.prg -> se cambio el parametro nOldOption de los Tabs - options.prg -> por el momento no funciona por lo del xBrowse y los Gets con optionenes de BTNBmp que no estan soportadas ...

... si se puede compilar VFW con la versión de FWH 07.12, y quitando lo referente a xBrowse y la variable nOldOption en el TAB, VFW ya funciona con esta version de FiveWin 7.12, y para muestra un boton... miren la imagen: http://www.tecnisistemas.com/fideck/modulos/actualizaciones/Upload/21-12-2008VFW_vfw0712.jpg ...

... anteriormente de ValBlank.prg Con lo de los Tabs, solamente copie el archivo folder.ch a donde estan los fuentes de VFW y le agregue la variable nOldOption en la definición del Tab, con esto logre que compilara pero me imagino dara problemas al ejecutar la aplicación. Ahora con el xBrowse, en ...

... := ] TTabs():New( <nRow>, <nCol>,; [\{<cPrompt>\}], [{|nOption,nOldOption|<uAction>}], ; <oWnd>, <nOption>, <nClrFore>, <nClrBack>, <.lPixel.>,; <.lDesign.>, ...

... compilar VisualFw con VERCE 4.5 y me tira este error: C:\VisualFw\Prgs\Code.Prg(72) Warning W00001 Ambiguous Reference: 'NOLDOPTION' Saludos Sólo declara NOLDOPTION y listo

Carlos, > Programa: Code.prg Linea 72: No esta definidas las variables : nOption, nOldOption Code: @ 4, 0 TABS ::oTabs OF Self ; ON CHANGE ( ::SetOption( nOption, nOldOption ),; ::SetText( "Source editor: " + ::oActiveEdit:cFileName ) ) > La variable nOption ...