In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Dudas Sobre Xailer

Foro público de Xailer en español
Responder
Boris
Mensajes: 153
Registrado: Jue Ago 17, 2006 1:26 pm

Dudas Sobre Xailer

Mensaje por Boris »

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.
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Dudas Sobre Xailer

Mensaje por jfgimenez »

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
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Boris
Mensajes: 153
Registrado: Jue Ago 17, 2006 1:26 pm

Dudas Sobre Xailer

Mensaje por Boris »

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(), ) } )
Boris
Mensajes: 153
Registrado: Jue Ago 17, 2006 1:26 pm

Dudas Sobre Xailer

Mensaje por Boris »

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