Problema de pintado dtpicker y FWH 12.02

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Problema de pintado dtpicker y FWH 12.02

Posted: Thu Mar 15, 2012 12:18 PM

Hola, aquí pongo el código:

define dialog odlg resource "ENTFECHA" title "Fechas de envío";
     GRADIENT  { { 0.25, nRGB( 219, 230, 244 ), nRGB( 207, 221, 239 ) },{ 0.75, nRGB( 201, 217, 237 ), nRGB( 231, 242, 255 ) } }
REdefine ButToN obtn1 id 222 DIALOG odlg action salida:=.t.,odlg:end()
redefine button obtn2 id 223 dialog odlg action odlg:end()
redefine dtpicker oget1 var BFECHAINI id 221 dialog odlg valid bfechaini>ctod("01/01/0001")
redefine dtpicker oget2 var BFECHAFIN id 225 dialog odlg valid bfechaini<=bfechafin
activate dialog odlg

Me muestra esto:

Aqui pongo los recursos:

Code (fw): Select all Collapse

ENTFECHA DIALOGEX DISCARDABLE 24, 22, 177, 95
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU
CAPTION "Entrada de fechas"
FONT 8, "Arial", 0, 0, 0
{
  CONTROL "&Aceptar", 222, "Button", WS_TABSTOP, 12, 57, 40, 14
  CONTROL "&Cancelar", 223, "Button", WS_TABSTOP, 121, 57, 40, 14
  CONTROL "Fecha inicial", -1, "Static", WS_GROUP, 9, 10, 43, 8
  CONTROL "Fecha final", -1, "Static", WS_GROUP, 9, 33, 43, 8
  CONTROL "", 225, "SysDateTimePick32", DTS_RIGHTALIGN|WS_TABSTOP, 65, 30, 100, 15
  CONTROL "", 221, "SysDateTimePick32", DTS_RIGHTALIGN|WS_TABSTOP, 65, 7, 100, 15
}

Nos fijamos en la primera fecha he seleccionado varias veces distintas fechas, y se mantienen visibles, formando un borron.
¿Hay forma de resolverlo?
Gracias y un saludo
José Luis

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: Problema de pintado dtpicker y FWH 12.02

Posted: Fri Mar 16, 2012 03:36 AM

Intenta con oget1:REFRESH() o usar en el dtpicker UPDATE...saludos... :shock:

Dios no está muerto...

Gracias a mi Dios ante todo!

groiss

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Re: Problema de pintado dtpicker y FWH 12.02

Posted: Fri Mar 16, 2012 06:52 AM

José Luis:
Gracias, pero el problema persiste, todas las modificaciones que hago sin salir del control, es decir cambiando fechas pero sin pasar a ningún otro control, van pintandose unas encima de otras.
Un saludo
José Luis

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Problema de pintado dtpicker y FWH 12.02

Posted: Fri Mar 16, 2012 07:02 AM

José Luis,

Por favor, copia aqui el RC que estas usando para ese diálogo, gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com

groiss

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Re: Problema de pintado dtpicker y FWH 12.02

Posted: Fri Mar 16, 2012 10:53 AM

Antonio
Edite el primer post para poner el RC.
Gracias y un saludo
José Luis

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Problema de pintado dtpicker y FWH 12.02

Posted: Fri Mar 16, 2012 11:20 AM

A mi me sucede lo mismo compilando los módulos de la carpeta samples.

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Problema de pintado dtpicker y FWH 12.02

Posted: Fri Mar 16, 2012 06:57 PM

José Luis,

Aqui tienes una solución provisional hasta que implementemos una solución genérica:

joseluis.prg

Code (fw): Select all Collapse

#include "FiveWin.ch"
#include "dtpicker.ch"

function Main()

   local oDlg, oBtn1, oBtn2, oGet1, oGet2
   local dFechaIni := Date(), dFechaFin := Date() + 1, lSalida := .F.

   DEFINE DIALOG odlg RESOURCE "ENTFECHA" TITLE "Fechas de envío";
      GRADIENT { { 0.25, nRGB( 219, 230, 244 ), nRGB( 207, 221, 239 ) },{ 0.75, nRGB( 201, 217, 237 ), nRGB( 231, 242, 255 ) } }
        
   oDlg:lTransparent = .F.     
        
   REDEFINE BUTTON obtn1 ID 222 DIALOG odlg ACTION lSalida := .T., oDlg:End()
   
   REDEFINE BUTTON obtn2 ID 223 DIALOG odlg ACTION oDlg:End()
   
   REDEFINE DTPICKER oGet1 VAR dFechaIni ID 221 DIALOG oDlg VALID dFechaIni > ctod("01/01/0001")
   
   REDEFINE DTPICKER oGet2 VAR dFechaFin ID 225 DIALOG oDlg VALID dFechaIni <= dFechaFin
   
   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT FixSays( oDlg:hWnd, oDlg:oBrush:hBrush )
   
return nil

joseluis.rc

Code (fw): Select all Collapse

#include <windows.h>

ENTFECHA DIALOGEX DISCARDABLE 24, 22, 177, 95
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU
CAPTION "Entrada de fechas"
FONT 8, "Arial"
{
  CONTROL "&Aceptar", 222, "Button", WS_TABSTOP, 12, 57, 40, 14
  CONTROL "&Cancelar", 223, "Button", WS_TABSTOP, 121, 57, 40, 14
  CONTROL "Fecha inicial", -1, "Static", WS_GROUP, 9, 10, 43, 8
  CONTROL "Fecha final", -1, "Static", WS_GROUP, 9, 33, 43, 8
  CONTROL "", 225, "SysDateTimePick32", DTS_RIGHTALIGN|WS_TABSTOP, 65, 30, 100, 15
  CONTROL "", 221, "SysDateTimePick32", DTS_RIGHTALIGN|WS_TABSTOP, 65, 7, 100, 15
}

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Problema de pintado dtpicker y FWH 12.02

Posted: Fri Mar 16, 2012 07:07 PM

Solucionado correctamente

En la línea 626 de FWH\source\classes\dialog.prg hay que añadir el nombre de la clase TDatePick:

Code (fw): Select all Collapse

 "TGET;TMULTIGET;TBTNBMP;TCOMBOBOX;TWBROWSE;TCBROWSE;TXBROWSE;TLISTBOX;TDBCOMBO;TDATEPICK"

regards, saludos

Antonio Linares
www.fivetechsoft.com

groiss

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Re: Problema de pintado dtpicker y FWH 12.02

Posted: Mon Mar 19, 2012 07:26 AM

Antonio:
Muchisimas gracias, lo que si he observado, es que ahora me veo forzado a poner la clausula VALID, ya que de no hacerlo me lanza un error al perder el foco, pero bueno no es nada que me preocupe.
Un saludo y mil gracias
José Luis

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Problema de pintado dtpicker y FWH 12.02

Posted: Mon Mar 19, 2012 07:40 AM

José Luis,

Si, ese es un error que ya se ha detectado, comentado y corregido aqui en los foros:

viewtopic.php?p=126788#p126788

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums