topic-11935

Posts: 408

Joined: Sun Aug 13, 2006 05:38 AM

GPF con combobox y menu popup
Posted: Wed Jul 16, 2008 06:47 AM

Antonio, otro bug con combobox

proc main
local tComboBox1, oCbx, oSay, oWnd
DEFINE WINDOW oWnd FROM 116,168 TO 379,779 PIXEL TITLE  " Prueba 1"  STYLE 47120384
@ 20, 422 COMBOBOX oCbx var tComboBox1 ITEMS { "tComboBox", "ComboBox" } of oWnd SIZE 90,21 PIXEL STYLE 1419841539
oCbx:bRClicked := { | nRow, nCol | menu( nRow, nCol, oCbx ) }
@ 77, 18 SAY oSay prompt "Edad" PIXEL SIZE 44,15                 of oWnd
oSay:lWantclick := .t.
oSay:bRClicked := { | nRow, nCol | menu( nRow, nCol, oSay ) }
ACTIVATE WINDOW oWnd
return nil

static function menu( nRow, nCol, oCtrl )
   local oMenu
   menu oMenu popup
      menuItem "Opcion"
   endMenu
   activate popup oMenu at nRow, nCol of oCtrl
return nil

con click derecho en el combobox genera un GPF, en el say no hay problema ¿como puedo solucionarlo?

Saludos

Quique

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

GPF con combobox y menu popup
Posted: Wed Jul 16, 2008 09:19 AM

Quique,

EL GPF lo solucionas así:

Code: Select all Collapse

METHOD DrawItem( nIdCtl, nPStruct ) CLASS TComboBox

   if ::oPopup != nil
      return nil
   endif   

return LbxDrawItem( nPStruct, ::aBitmaps, ::aItems, ::nBmpWidth, ::bDrawItem )

De todas formas el item del menu popup aún no se muestra. Posiblemente se está rutando mal el mensaje drawitem. Vamos a revisarlo.

Yo no catalogaría estos comportamientos de bugs, sino el resultado de querer llevar el API de Windows al límite de su funcionalidad

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

GPF con combobox y menu popup
Posted: Wed Jul 16, 2008 09:29 AM

Quique,

Este es el código correcto para que funcione bien:

Code: Select all Collapse

METHOD DrawItem( nIdCtl, nPStruct ) CLASS TComboBox

   if ::oPopup != nil
      return Super:DrawItem( nIdCtl, nPStruct )
   endif   

return LbxDrawItem( nPStruct, ::aBitmaps, ::aItems, ::nBmpWidth, ::bDrawItem )

regards, saludos

Antonio Linares
www.fivetechsoft.com

quique

Posts: 408

Joined: Sun Aug 13, 2006 05:38 AM

GPF con combobox y menu popup
Posted: Wed Jul 16, 2008 02:29 PM

Gracias, funciona correctamente

Saludos

Quique

FiveTech Support Forums

Continue the discussion