Página 1 de 1

Context menu browser

Publicado: Lun Jun 27, 2011 12:12 pm
por Maarten Roos
Did I mess up something, or did this happen with latest update?



Context menu browser

Publicado: Mar Jun 28, 2011 10:45 am
por Maarten Roos
Found it.
BrwCol.prg
METHOD Create( oParent, lRefresh ) CLASS XBrwColumn
IF ::lCreated
RETURN Self
ENDIF
Super:Create( oParent )
::nWidth := MulDiv( ::nWidth, Application:nScale, 100 )
IF ! ::EventAssigned( "OnHeaderRClick" )
::OnHeaderRClick := {| o, nFlags , x, y | ::SetColumns( x, y ) }
ENDIF
IF ::oParent != Nil .AND. Empty( ::nIndex )
::oParent:AddCol( Self, lRefresh )
ENDIF
::OnCreate()
RETURN Self
Parameters of the onHeaderClick didn't match. Added the nFlags.

Context menu browser

Publicado: Mié Jun 29, 2011 2:04 pm
por ignacio
Maarten Roos escribió el mar, 28 junio 2011 10:45Found it.
BrwCol.prg
METHOD Create( oParent, lRefresh ) CLASS XBrwColumn
IF ::lCreated
RETURN Self
ENDIF
Super:Create( oParent )
::nWidth := MulDiv( ::nWidth, Application:nScale, 100 )
IF ! ::EventAssigned( "OnHeaderRClick" )
::OnHeaderRClick := {| o, nFlags , x, y | ::SetColumns( x, y ) }
ENDIF
IF ::oParent != Nil .AND. Empty( ::nIndex )
::oParent:AddCol( Self, lRefresh )
ENDIF
::OnCreate()
RETURN Self
Parameters of the onHeaderClick didn't match. Added the nFlags.
Glad you found it. Sorry for the delay. It will be included on next autoupdate release.
Regards,