2012-11-11 21:41 UTC+0100 Viktor Szakats (harbour syenar.net)

* contrib/hbct/hbct.hbx
  * contrib/hbct/scrmark.prg
  * contrib/hbct/showtime.prg
    * minor format fixes
This commit is contained in:
Viktor Szakats
2012-11-11 20:42:29 +00:00
parent 6f397a5123
commit b89b003325
4 changed files with 13 additions and 6 deletions

View File

@@ -16,6 +16,12 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-11-11 21:41 UTC+0100 Viktor Szakats (harbour syenar.net)
* contrib/hbct/hbct.hbx
* contrib/hbct/scrmark.prg
* contrib/hbct/showtime.prg
* minor format fixes
2012-11-11 20:39 UTC+0100 Viktor Szakats (harbour syenar.net)
* extras/hbdroid/msginfo.c
! fixed to pass strings to Java in UTF-8

View File

@@ -407,7 +407,7 @@ DYNAMIC XToC
DYNAMIC ZeroInsert
DYNAMIC ZeroRemove
DYNAMIC _WStack
DYNAMIC __hbct_DSPTime
DYNAMIC __hbct_DspTime
DYNAMIC __hbct_key_c_to_n
DYNAMIC __hbct_key_n_to_c

View File

@@ -86,10 +86,12 @@ FUNCTION ScreenMark( cSearch, xAttr, lUpperLower, lAll, cForward, cTrailing )
ENDIF
DO WHILE ( nAt := AtNum( cSearch, cScreen, nCount ) ) != 0
IF ( nAt == 1 .OR. cForward == NIL .OR. ;
SubStr( cScreen, nAt, 1 ) $ cForward ) .AND. ;
( nAt == nLast .OR. cTrailing == NIL .OR. ;
SubStr( cScreen, nAt + nLen ) $ cTrailing )
SubStr( cScreen, nAt, 1 ) $ cForward ) .AND. ;
( nAt == nLast .OR. cTrailing == NIL .OR. ;
SubStr( cScreen, nAt + nLen ) $ cTrailing )
lFound := .T.
--nAt
nRow := Int( nAt / nCols )

View File

@@ -7,7 +7,6 @@
* CT3 time function: SHOWTIME()
*
* Copyright 2007 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
*
* www - http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -59,7 +58,7 @@ FUNCTION ShowTime( nRow, nCol, lNoSec, cColor, l12, lAmPm )
IF t_hTimer != NIL
hb_idleDel( t_hTimer )
ENDIF
t_hTimer := hb_idleAdd( {|| __HBCT_DSPTIME( nRow, nCol, lNoSec, cColor, ;
t_hTimer := hb_idleAdd( {|| __hbct_DspTime( nRow, nCol, lNoSec, cColor, ;
l12, lAmPm ) } )
ELSEIF t_hTimer != NIL
hb_idleDel( t_hTimer )