fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2011-01-27 10:21 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* src/rtl/tget.prg
    * Formatting.

  * contrib/hbnetio/utils/netiosrv/netiocui.prg
    + Added some SETs.
This commit is contained in:
Viktor Szakats
2011-01-27 09:22:02 +00:00
parent 7caf68b601
commit 888e666f9c
3 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -16,6 +16,13 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-01-27 10:21 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* src/rtl/tget.prg
* Formatting.
* contrib/hbnetio/utils/netiosrv/netiocui.prg
+ Added some SETs.
2011-01-27 07:29 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/src/rdd/wacore.c
% minor optimization

2
harbour/contrib/hbnetio/utils/netiosrv/netiocui.prg
View File

@@ -32,6 +32,8 @@ PROCEDURE Main( ... )
SET DATE ANSI
SET CENTURY ON
SET CONFIRM ON
SET SCOREBOARD OFF
HB_Logo()

8
harbour/src/rtl/tget.prg
View File

@@ -1063,14 +1063,14 @@ METHOD picture( cPicture ) CLASS GET
::cPicMask := Set( _SET_DATEFORMAT )
FOR EACH cChar IN "yYmMdD"
::cPicMask := StrTran( ::cPicmask, cChar, "9" )
::cPicMask := StrTran( ::cPicMask, cChar, "9" )
NEXT
ELSEIF "T" $ ::cPicFunc
::cPicMask := Set( _SET_TIMEFORMAT )
FOR EACH cChar IN "yYmMdDhHsSfF"
::cPicMask := StrTran( ::cPicmask, cChar, "9" )
::cPicMask := StrTran( ::cPicMask, cChar, "9" )
NEXT
ENDIF
@@ -1118,7 +1118,7 @@ METHOD picture( cPicture ) CLASS GET
::cPicMask := Set( _SET_DATEFORMAT )
FOR EACH cChar IN "yYmMdD"
::cPicMask := StrTran( ::cPicmask, cChar, "9" )
::cPicMask := StrTran( ::cPicMask, cChar, "9" )
NEXT
EXIT
@@ -1126,7 +1126,7 @@ METHOD picture( cPicture ) CLASS GET
::cPicMask := Set( _SET_TIMEFORMAT )
FOR EACH cChar IN "yYmMdDhHsSfF"
::cPicMask := StrTran( ::cPicmask, cChar, "9" )
::cPicMask := StrTran( ::cPicMask, cChar, "9" )
NEXT
EXIT