Xailer & OZ Software

Hola...
Estoy evaluando la version DEMO de Xailer con inteciones de migrar
mi aplicacion Clipper, en este momento me encuentro con dos problemitas que
creo deben ser culpa de mi inexperiencia, el primero es poder asignarle un
Popup a un Formulario siempre en forma dinamica ya que acostumbro a crear
todo por medio de codigo, y la segunda es poder dibujar con el metodo canvas
sobre el formulario. desde ya muchas gracias.

Boris,
> Estoy evaluando la version DEMO de Xailer con inteciones de migrar
> mi aplicacion Clipper, en este momento me encuentro con dos problemitas
> que
> creo deben ser culpa de mi inexperiencia, el primero es poder asignarle un
> Popup a un Formulario siempre en forma dinamica ya que acostumbro a crear
> todo por medio de codigo, y la segunda es poder dibujar con el metodo
> canvas
> sobre el formulario. desde ya muchas gracias.
1) Utiliza el comando MENU. P.ej., un menú contextual:
METHOD FormContextMenu( oSender, nPosX, nPosY ) CLASS TForm1
LOCAL oPopup
MENU oPopup POPUP
MENUITEM "Opcion 1" ACTION MsgInfo( "Opcion 1" )
MENUITEM "Opcion 2" ACTION MsgInfo( "Opcion 2" )
MENUITEM "Opcion 3" ACTION MsgInfo( "Opcion 3" )
ENDMENU
oSender:ShowPopupMenu( oPopup, nPosX, nPosY )
RETURN Nil
2) Utiliza el evento OnPainted del formulario, así:
METHOD FormPainted( oSender, hDC, cPaintStruct ) CLASS TForm1
LOCAL oCanvas := TCanvas():New()
oCanvas:hDC := hDC
...
RETURN Nil
--
Un saludo,
José F. Giménez
http://www.xailer.com

Bueno...
Primero quiero valorar la velocidad de respuesta y comentarte que lo
anterior funciono correctamente, ahora estoy tratando de hacer SetKey(). Hay
algo mal en este codigo?
SetKey( VK_F11, {|| If( HiByte(GetKeyState(VK_SHIFT)) > 0,
BoxPrinter(), ) } )

Perdon, ya esta el tema SetKey()...,