Al equipo de FiveWin:
Tenia el requerimiento de que los botones de TBar() se habiliten o no según la condición especificada en bWhen y lo solucioné de la siguiente manera:
Esto se puede hacer en xHarbour gracias a las extensiones..
Seria ideal que se lo implemente directamente en la clase.
Atentamente,
Rolando.
PD.
Saludos desde Cochabamba, Bolivia.
Tengo varias instrucciones EXTEND CLASS.. que iré publicando poco a poco
Tenia el requerimiento de que los botones de TBar() se habiliten o no según la condición especificada en bWhen y lo solucioné de la siguiente manera:
//----------------------------------------------------------------//
function Main()
:
EXTEND CLASS TBar WITH MESSAGE Refresh METHOD _Refresh
:
return nil
//----------------------------------------------------------------//
//usado en: EXTEND CLASS Tbar
//Refresh
static function _Refresh( lErase )
LOCAL self := HB_QSelf()
AEval( self:aControls, { | oCtrl | if(oCtrl:lWhen(), oCtrl:Enable(), oCtrl:Disable() ) } )
return InvalidateRect( self:hWnd, If( lErase != nil, lErase, .t. ) ) //Copiado de TWindow:Refresh( lErase )Esto se puede hacer en xHarbour gracias a las extensiones..
Seria ideal que se lo implemente directamente en la clase.
Atentamente,
Rolando.
PD.
Saludos desde Cochabamba, Bolivia.
Tengo varias instrucciones EXTEND CLASS.. que iré publicando poco a poco