FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Warning W0027 Meaningless use of expression: 'Numeric'
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Warning W0027 Meaningless use of expression: 'Numeric'
Posted: Mon Jul 15, 2013 12:47 PM
Buenos dias Senores, usando FWH13.05 me retorna estes Warning, que esta errado?

RMAIL.prg(1604) Warning W0027 Meaningless use of expression: 'Numeric'
RMAIL.prg(1604) Warning W0027 Meaningless use of expression: 'Numeric'
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
GetBtn.HC:
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland

Code (fw): Select all Collapse
   Linea 1604 de RMAIL.PRG

   ACTIVATE DIALOG oDlgScreen CENTERED ;
            ON PAINT( SAYROTATED( oDlgScreen, 400,  010, "CONFIGURAR EMAIL", ;
                                  oFont1,,, .T. ), CLR_HRED, CLR_BLACK, .F. )



Gracias, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Warning W0027 Meaningless use of expression: 'Numeric'
Posted: Mon Jul 15, 2013 12:57 PM
karinha wrote:Buenos dias Senores, usando FWH13.05 me retorna estes Warning, que esta errado?

RMAIL.prg(1604) Warning W0027 Meaningless use of expression: 'Numeric'
RMAIL.prg(1604) Warning W0027 Meaningless use of expression: 'Numeric'
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
GetBtn.HC:
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland

Code (fw): Select all Collapse
   Linea 1604 de RMAIL.PRG

   ACTIVATE DIALOG oDlgScreen CENTERED ;
            ON PAINT( SAYROTATED( oDlgScreen, 400,  010, "CONFIGURAR EMAIL", ;
                                  oFont1,,, .T. ), CLR_HRED, CLR_BLACK, .F. )



Gracias, saludos.


Quizas
,oDlgScreen:SetColor(CLR_HRED, CLR_BLACK),.F.)

o

            ON PAINT( SAYROTATED( oDlgScreen, 400,  010, "CONFIGURAR EMAIL", ;
                                  oFont1,,, .T. , CLR_HRED, CLR_BLACK, .F. ))
No se los parametros de la funcion SayRotated
Saludos
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Warning W0027 Meaningless use of expression: 'Numeric'
Posted: Mon Jul 15, 2013 12:59 PM
Parece que debiera ser asi:

Code (fw): Select all Collapse
   ACTIVATE DIALOG oDlgScreen CENTERED ;
            ON PAINT ( SAYROTATED( oDlgScreen, 400,  010, "CONFIGURAR EMAIL", ;
                                  oFont1,,, .T., CLR_HRED, CLR_BLACK ), .F. )
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Warning W0027 Meaningless use of expression: 'Numeric'
Posted: Mon Jul 15, 2013 01:27 PM
Antonio Linares wrote:Parece que debiera ser asi:

Code (fw): Select all Collapse
   ACTIVATE DIALOG oDlgScreen CENTERED ;
            ON PAINT ( SAYROTATED( oDlgScreen, 400,  010, "CONFIGURAR EMAIL", ;
                                  oFont1,,, .T., CLR_HRED, CLR_BLACK ), .F. )


Gracias maestro, funcionó perfecto.

Code (fw): Select all Collapse
//---------------------------------------------------------------------------//

Function SayRotated( oWnd, Y, X, cPrompt, oFont, nClrText, nClrPane, l3D )

  Local hDC := oWnd:hDC

  DEFAULT nClrText := CLR_HRED, l3D := .T.
  
  IF l3D
    DrawRotated( hdc, cPrompt, Y + 1, X + 1, CLR_BLACK, nClrPane, oFont )
    DrawRotated( hdc, cPrompt, Y - 1, X - 1, nClrText, nClrPane, oFont )
  ENDIF

  DrawRotated( hdc, cPrompt, Y , X , nClrText, nClrPane, oFont )

Return Nil

//----------------------------------------------------------------------------

Static Function DrawRotated( hDC, cPrompt, Y, X, nClrText, nClrPane, oFont )

  Local hOldFont, nOldMode, nOldClrText, nOldClrPane, nOldBkMode

  nOldClrText := SetTextColor( hDC, nClrText )

  if nClrPane <> Nil
    nOldClrPane := SetBkColor( hDC, nClrPane )
  else
    nOldBkMode := SetBkMode( hDC,1 )
  Endif

  hOldFont := SelectObject( hDC, oFont:hFont )

  TextOut( hDC, Y, X, cPrompt, Len( cPrompt ) )

  SelectObject( hDC, hOldFont )

  if nClrPane<>nil
    SetBkColor( hDC, nOldClrPane )
  else
    SetBkMode( hDC, nOldBkMode )
  Endif

  SetTextColor( hDC, nOldClrText )

Return Nil
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion