Blank dates in DatePickers

[Pablo César]

Hi all,

I believe this is a very old and very common demand not only for HMG and for many others languages (Java, VB, CSS, etc.).

At internet we can find many ways to do it but the most it carries some hassles and other could it becomes a serious problem.

By taking an example of C:\hmg.3.4.0\SAMPLES\Controls\DatePicker\DATEPICKER\Demo.prg by adding FORMAT " " (note a space in quoted) you will get this result:

Screen1.png (8.62 KiB) Viewed 5007 times

In code language... on this example you just do this:

Screen2.png (71.13 KiB) Viewed 5001 times

I hope to be useful for nice looking in your screen displaying.

[danielmaximiliano]

Gracias por el TIP Pablo, para algunos será de mucha ayuda....

[mustafa]

Hola Pablo César
Muy logrado , gracias por el aporte
Mustafa

[serge_girard]

Thanks Pablo, I will try to remember it when I need it!

Serge

[Rathinagiri]

It is nice. But, no keyboard interface available if we use this. ie., we have to compulsorily use mouse to enter data.

[lalacas]

Gracias Pablo Cesar

[luisvasquezcl]

Gracias Pablo por tu aporte.
Saludos cordiales,
Luis Vásquez.

[Pablo César]

You're welcome and is good to share knowledges with good friends.

It is nice. But, no keyboard interface available if we use this. ie., we have to compulsorily use mouse to enter data.

I do not know Rathi what exactly you're trying to say with that. But I guess the same that I found when used FORMAT " " and seeing is not enough to fix data when is changed. And this occurs due the main reason there is not any format as property when inputed data. I saw it is necessary to re-apply the right format after input data in this control.

By using SetProperty(<cWindowName>, <cControlName>, "FORMAT", "dd/MM/yyyy") it will works very well.

But knowing HMG is used over the world and this format is not used the common usage in each country, we shall know how is Date Format was setted.

In Harbour we can use: cFormat := Set( _SET_DATEFORMAT ) to get current date format. But what we real need is in lpszFormat according doc in msdn ( https://msdn.microsoft.com/en-us/library/aa932380.aspx ) to correctly set it.

In hmgdoc at Controls\Dateicker you will find right use of date format. For example here in Brazil and most of latin american countries we use day/month/year but using Set( _SET_DATEFORMAT ) badly return wrong format like as "DD/MM/YYYY" after been used SET DATE BRITISH and SET CENTURY ON.

So, in this case, there's a internal HMG function to correct this discrepancy by using GetDateFormat() since HMG 3.4.1 version.

In source code words, you can add ON CHANGE event for DatePickers using like this:

ON CHANGE SetProperty ( ThisWindow.Name, This.Name, "FORMAT", GetDateFormat() );

For who wish to see HMG demo in SAMPLES (based on C:\hmg.3.4.0\SAMPLES\Controls\DatePicker\DATEPICKER\Demo.prg), see this:

Code: Select all

/*
 * HMG - Harbour Win32 GUI library Demo
 *
 * Copyright 2002 Roberto Lopez <mail.box.hmg@gmail.com>
 * http://www.hmgforum.com//
*/

#include "hmg.ch"

Function Main
Set Century On
Set Date British

	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 600 HEIGHT 400 ;
		TITLE "HMG DatePicker Demo" ;
		MAIN ;
		FONT "Arial" SIZE 10

		@ 10,10 DATEPICKER Date_1 ; 
                VALUE CTOD("  /  /    ") ;
		TOOLTIP "DatePicker Control" ;
		ON CHANGE SetProperty ( ThisWindow.Name, This.Name, "FORMAT", GetDateFormat() );
		FORMAT "  "
		
		@ 10,310 DATEPICKER Date_2 ;
		VALUE CTOD("01/01/2001") ;
		TOOLTIP "DatePicker Control ShowNone RightAlign" ;
		SHOWNONE ;
		RIGHTALIGN ;
		ON CHANGE SetProperty ( ThisWindow.Name, This.Name, "FORMAT", GetDateFormat() );
		FORMAT " "

		@ 230,10 DATEPICKER Date_3 ;
		VALUE CTOD("01/01/2001") ;
		TOOLTIP "DatePicker Control UpDown" ;
		UPDOWN ;
		ON GOTFOCUS SetProperty ( ThisWindow.Name, This.Name, "FORMAT", GetDateFormat() );
		FORMAT " "

		@ 230,310 DATEPICKER Date_4 ;
		VALUE CTOD("01/01/2001") ;
		TOOLTIP "DatePicker Control ShowNone UpDown" ;
		SHOWNONE ;
		UPDOWN ;
		ON GOTFOCUS SetProperty ( ThisWindow.Name, This.Name, "FORMAT", GetDateFormat() );
		FORMAT " "

	END WINDOW

	CENTER WINDOW Form_1

	ACTIVATE WINDOW Form_1

Return Nil

/* Remove this for comments proposes, in case you need to work with HMG 3.4.1 OLDER versions.
Function GetDateFormat()
Local cRet:=Set( _SET_DATEFORMAT )

Return CharRepl("m",@cRet,"M")*/

I have related this to Harbour's forum and It would be nice to have a solution in Harbour when is used Set( _SET_DATEFORMAT ) but we have no other option, so let's use thru GetDateFormat() at meantimes.

B.Rgds
Keeping informed.