FiveTech Software tech support forums

... para controlar el error de división por cero. * Nuevo: En la clase TToolBar, métodos SetPressed( nButton, lOnOff ), SetChecked( nButton, lOnOff ), IsChecked( nButton ) y ToggleCheck( nButton ). Por favor, revise samples\toolbar1.prg para un ejemplo de su uso. * Mejora: La vista previa de impresión ...

... errorsys modified to control the zero divisor error. * New: Class TToolBar Methods SetPressed( nButton, lOnOff ), SetChecked( nButton, lOnOff ), IsChecked( nButton ) and ToggleCheck( nButton ). Please review samples\toolbar1.prg for a working sample of use. * Enhancement: The Printing Preview ...

Joaquín,

Dejémoslo así:

METHOD ToggleCheck( nButton ) INLINE ;
::SetCheck( nButton, ! ::IsChecked( nButton ) ), ::IsChecked( nButton )

Joaquín,

Es lo mismo que hacer:

oToolbar:ToggleCheck( 1 )
::lBold := oToolbar:IsChecked( 1 )

Joaquín,

Sí, Toggle significa conmutar, cambiar.

Para que necesitas que devuelva el valor ? Lo puedes obtener con IsChecked()

Antonio, en el método METHOD ToggleCheck( nButton ) INLINE ::SetCheck( nButton, ! ::IsChecked( nButton ) ) ::SetCheck( nButton, ! ::IsChecked( nButton ) ) ¿que devuelve? porque se necesita que devuelva el estado en que queda el botón. Que traducción tiene la palabra ...

Joaquín,

Y lChekOnOff() queda mejor así:

METHOD ToggleCheck( nButton ) INLINE ::SetCheck( nButton, ! ::IsChecked( nButton ) )

Joaquín,

Gracias,

Este se puede simplificar así:

METHOD IsChecked( nButton ) INLINE ::SendMsg( TB_ISBUTTONCHECKED, nButton ) != 0

... también, lo veo bastante útil: //----- Pone el estado de un botón de la manera inversa a la que está METHOD lChekOnOff( nButton ) INLINE if( ::IsChecked( nButton ), ; ( ::SetChecked( nButton, .F. ),.F.),; ( ::SetChecked( nButton, .T. ),.T.) ) Un Saludo, Joaquín

... lOnOff ) INLINE ; If( lOnOff, ::SendMsg( TB_CHECKBUTTON, nButton, TBSTATE_CHECKED ),; ::SendMsg( TB_SETSTATE, nButton, TBSTATE_ENABLED ) ) METHOD IsChecked( nButton ) INLINE ; if(::SendMsg( TB_ISBUTTONCHECKED, nButton, 0 )==0, .F., .T. ) Un Saludo, Joaquín