Search found 3 matches: ifnil

Searched query: ifnil

by Silvio.Falconi
Mon Nov 13, 2023 8:17 am
Forum: FiveWin for Harbour/xHarbour
Topic: xbrowse Border
Replies: 1
Views: 433

Re: xbrowse Border

... this solution for displaying the border in the presence of vertical scrolling

if ::lDrawBorder
// ::Box( 0, 0, ::nHeight - 1, ::nWidth - 1, IfNil( ::nClrBorder, ::hColPen ) )
::Box( 0, 0, ::nHeight - 1, ::BrwWidth(), IfNil( ::nClrBorder, ::hColPen ) )
endif


https://i.postimg.cc/vHytyBsS ...
by cmsoft
Sat Aug 19, 2023 12:52 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Actualizar xBrowse con un Clic del ratón?
Replies: 22
Views: 2890

Re: Actualizar xBrowse con un Clic del ratón?

Gracias por su tiempo Mr. Rao
Esto solucionó el error en tiempo de ejecucion
return IfNil( cContents, "" )

local cDefault := MEMOREAD( "c:\fwh\bitmaps\sea.bmp" )

AEval( aCols, { |a,i| a[ 4 ] := WebPageContents( a[ 4 ] ), ;
If( Empty( a[ 4 ] ), a[ 4 ] := cDefault, nil ) } )
Esto muestra ...
by Manuel Aranda
Fri Jun 16, 2023 12:36 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Errores rpreview (Solucionado)
Replies: 10
Views: 757

Re: Errores rpreview

Buenas tardes, Paquito

Este es el código de cada una de las líneas con errores
preview.prg
linea305 Error E0022 Invalid lvalue: "Numeric" SIZE IfNil( nBtnW, 26 ), IfNil( nBtnH, If( LargeFonts(), 30, 26 ) )
linea515 Error E0030 Syntax error: "Syntax error at ´CURSOR´ DEFINE CURSOR ::oCursor SEARCH ...