Warning W0027 Meaningless use of expression: 'Numeric'

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

cnavarro

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

Antonio Linares

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

karinha

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

FiveTech Support Forums

Continue the discussion