FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Problem FW 12.01 with date()
Maurizio
Posts: 842
Joined: Mon Oct 10, 2005 01:29 PM
Problem FW 12.01 with date()
Posted: Wed Feb 15, 2012 05:52 PM
Antonio
in this sample
Code (fw): Select all Collapse
#Include "FiveWin.Ch"


Function Main()
   Local oDlg
   Local oGet1,oGet2
   local nVar2 := 0
   local dVar4 := ctod('  -  -    ')
   
   SET DATE ITALIAN
   SET CENTURY ON
   SET EPOCH TO 1960
   

   DEFINE DIALOG oDlg from 0,0 to 200,400 pixel

   @ 1,5 get oGet1 var dVar4
   
   @ 4,5 get oGet2 var nVar2 picture "99999" 
   
   ACTIVATE DIALOG oDlg 
 
 return nil


In the date I insert 02-02-12 when I confirm the get I have "02-02-12" , if I return on the get with the arrow key I have "02-02-2012"
the refresh doesn't working properly

Regard Maurizio
FWH 12.01 + Harbour
Maurizio
www.nipeservice.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Problem FW 12.01 with date()
Posted: Wed Feb 15, 2012 09:49 PM
Maurizio,

In FWH\sources\classes\tget.prg line 1227 please insert this:

Code (fw): Select all Collapse
   ::oGet:KillFocus()  // new
   ::oGet:SetFocus()  // new
   ::DispText()
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Problem FW 12.01 with date()
Posted: Wed Feb 15, 2012 09:53 PM
Better this way to avoid conflicts with other data types:

Code (fw): Select all Collapse
   if ::oGet:Type == "D" 
      ::oGet:KillFocus()
      ::oGet:SetFocus()
   endif   
   ::DispText()
regards, saludos

Antonio Linares
www.fivetechsoft.com
Maurizio
Posts: 842
Joined: Mon Oct 10, 2005 01:29 PM
Re: Problem FW 12.01 with date()
Posted: Thu Feb 16, 2012 07:31 AM

Thanks Antonio :D

Maurizio

www.nipeservice.com

Maurizio
www.nipeservice.com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions