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

2012-07-22 20:08 UTC+0200 Viktor Szakats (vszakats syenar.net)

Browse Source 
* include/hbapigt.h
  * tests/db_brows.prg
    ! fixes to prev
This commit is contained in:
Viktor Szakats
2012-07-22 18:09:11 +00:00
parent d899ff5acc
commit 763a7432f7
3 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-07-22 20:08 UTC+0200 Viktor Szakats (vszakats syenar.net)
* include/hbapigt.h
* tests/db_brows.prg
! fixes to prev
2012-07-22 19:45 UTC+0200 Viktor Szakats (vszakats syenar.net)
* extras/hbapollo/hbapollo.hbp
+ utilize original COFF implibs provided by the vendor

16
harbour/include/hbapigt.h
View File

@@ -101,14 +101,14 @@ HB_EXTERN_BEGIN
#define HB_GT_ATTR_REFRESH 0x80
/* strings for borders (same as box.ch, but defined for use by C) */
#define _B_SINGLE "\xDA\xC4\xBF\xB3\xD9\xC4\xC0\xB3" /* "ÚÄ¿³ÙÄÀ³" */
#define _B_DOUBLE "\xC9\xCD\xBB\xBA\xBC\xCD\xC8\xBA" /* "ÉÍ»º¼ÍȺ" */
#define _B_SINGLE_DOUBLE "\xD6\xC4\xB7\xBA\xBD\xC4\xD3\xBA" /* "ÖÄ·º½ÄÓº" */
#define _B_DOUBLE_SINGLE "\xD5\xCD\xB8\xB3\xBE\xCD\xD4\xB3" /* "Õ͸³¾ÍÔ³" */
#define HB_B_SINGLE_V '\xB3' /* '³' */
#define HB_B_SINGLE_H '\xC4' /* 'Ä' */
#define HB_B_DOUBLE_V '\xBA' /* 'º' */
#define HB_B_DOUBLE_H '\xCD' /* 'Í' */
#define _B_SINGLE "\xDA\xC4\xBF\xB3\xD9\xC4\xC0\xB3" /* "┌─┐│┘─└│" */
#define _B_DOUBLE "\xC9\xCD\xBB\xBA\xBC\xCD\xC8\xBA" /* "╔═╗║╝═╚║" */
#define _B_SINGLE_DOUBLE "\xD6\xC4\xB7\xBA\xBD\xC4\xD3\xBA" /* "╓─╖║╜─╙║" */
#define _B_DOUBLE_SINGLE "\xD5\xCD\xB8\xB3\xBE\xCD\xD4\xB3" /* "╒═╕│╛═╘│" */
#define HB_B_SINGLE_V '\xB3' /* '│' */
#define HB_B_SINGLE_H '\xC4' /* '─' */
#define HB_B_DOUBLE_V '\xBA' /* '║' */
#define HB_B_DOUBLE_H '\xCD' /* '═' */
#define HB_B_SINGLE_W { 0x250C, 0x2500, 0x2510, 0x2502, 0x2518, 0x2500, 0x2514, 0x2502, 0x0000 }
#define HB_B_DOUBLE_W { 0x2554, 0x2550, 0x2557, 0x2551, 0x255D, 0x2550, 0x255A, 0x2551, 0x0000 }

3
harbour/tests/db_brows.prg
View File

@@ -365,7 +365,7 @@ FUNCTION DBFLIST( mslist, x1, y1, x2, y2, title, maskey )
Eval( LI_BSKIP, mslist, LI_NSTR - 1 )
ENDIF
VIVNAMES( mslist, LI_NLEFT )
CASE xkey == 19 // èπαß«α ó½Ñó«
CASE xkey == 19
IF predit > 1
IF LI_COLPOS != 1
LI_COLPOS --
@@ -417,7 +417,6 @@ FUNCTION DBFLIST( mslist, x1, y1, x2, y2, title, maskey )
rezproc := xkey
CASE ( xkey == 13 .OR. ( xkey > 47 .AND. xkey < 58 ) .OR. ( xkey > 64 .AND. xkey < 91 ) ;
.OR. ( xkey > 96 .AND. xkey < 123 ) .OR. ( xkey > 127 .AND. xkey < 176 ) .OR. ( xkey > 223 .AND. xkey < 240 ) ) .AND. predit > 1 // Enter
// ÉÑñá¬Γ¿α«óá¡¿Ñ
fipos := LI_COLPOS + LI_NLEFT - 1 - LI_FREEZE
IF LI_WHEN == Nil .OR. Len( LI_WHEN ) < fipos .OR. LI_WHEN[ fipos ] == Nil .OR. Eval( LI_WHEN[ fipos ] )
IF ValType( LI_MSED ) != "N"