[Harbour] Still having errors building libs for Wince - Evc4

[José Luis Capel -]

Hi,

After last svn (9512) I'm still having this error:

source\rtl\gtclip.c(69) : error C2078: too many initializers

I'm using these sets:

SET HBPP=P:\programacion\harbour\hbpp.exe

SET HB_BUILD_WINCE=yes
SET HB_CC_NAME=vcce
SET HB_ARCHITECTURE=w32
SET HB_GT_LIB=gtgui
SET HB_GT_DEFAULT=gui
SET HB_VISUALC_VER=60
SET HB_BUILD_MODE=c
SET C_USR= -DHARBOUR_MAIN_WIN
SET HB_BUILD_DLL=no

Maybe I'm missing something... any help is apreciated.

Regards,
José lUis Capel
Attached log file



To: <harbour@harbour-project.org>
Sent: Sunday, September 28, 2008 8:10 PM
Subject: Re: [Harbour] [SPAM] RE: how to force Num-Lock on? gtwvt

----- Original Message ----- From: "Abeb" <[EMAIL PROTECTED]>

also i tried both methods , and they don't seem to work under gtwvt.


Przemyslaw Czerpak-2 wrote:

On Fri, 26 Sep 2008, Abeb wrote:

The trick is to trap the keypress of numlock ( or other control key)

And your received correct answer.

Sample code below. It uses two different methods to extract
cotnrol key state. But please remember that not all GTs
can support such functionality.

best regards,
Przemek


#include "inkey.ch"
#include "hbgtinfo.ch"
proc main()
   local cStatus, iStatus, nKey
   clear screen
   while ( nKey := inkey( 0.1 ) ) != K_ESC
      iStatus := hb_gtInfo( HB_GTI_KBDSHIFTS )
      cStatus := ""
      cStatus += iif( HB_BITAND( iStatus, HB_GTI_KBD_SHIFT ) != 0, ;
                     "SHIFT ", "      " )
      cStatus += iif( HB_BITAND( iStatus, HB_GTI_KBD_CTRL ) != 0, ;
                     "CTRL ", "     " )
      cStatus += iif( HB_BITAND( iStatus, HB_GTI_KBD_ALT ) != 0, ;
                     "ALT ", "    " )
      cStatus += iif( HB_BITAND( iStatus, HB_GTI_KBD_SCROLOCK ) != 0, ;
                     "SCRLOCK ", "        " )
      cStatus += iif( HB_BITAND( iStatus, HB_GTI_KBD_NUMLOCK ) != 0, ;
                     "NUMLOCK ", "        " )
      cStatus += iif( HB_BITAND( iStatus, HB_GTI_KBD_CAPSLOCK ) != 0, ;
                     "CAPSLOCK ", "         " )
      cStatus += iif( HB_BITAND( iStatus, HB_GTI_KBD_INSERT ) != 0, ;
                     "INSERT ", "       " )
      @ 1, 0 say cStatus

      cStatus := ""
      cStatus += iif( KSETINS(), "INS ", "    " )
      cStatus += iif( KSETCAPS(), "CAPS ", "     " )
      cStatus += iif( KSETNUM(), "NUM ", "    " )
      cStatus += iif( KSETSCROLL(), "SCROLL ", "       " )
      @ 2, 0 say cStatus
      if nKey==asc("C") .or. nKey==asc("c")
         KSETCAPS(!KSETCAPS())
      elseif nKey==asc("I") .or. nKey==asc("i")
         KSETINS(!KSETINS())
      elseif nKey==asc("N") .or. nKey==asc("n")
         KSETNUM(!KSETNUM())
      elseif nKey==asc("S") .or. nKey==asc("s")
         KSETSCROLL(!KSETSCROLL())
      endif
   enddo
return
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

--

View this message in context: http://www.nabble.com/how-to-force-Num-Lock-on---gtwvt-tp19691006p19713177.html

Sent from the Harbour - Dev mailing list archive at Nabble.com.

_______________________________________________
Harbour mailing list
Harbour@harbour-project.org

http://lists.harbour-project.org/mailman/listinfo/harbour

make_vcce.rar
Description: Binary data

_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour