Search found 277 matches: elseif

Return to advanced search

Re: incremental search on Xbrowse

hi Nages,
The my FWH version is 23.10 but as already posted the condition under which the space is discarded is

if nKey == 32 .and. ::nMarqueeStyle <= MARQSTYLE_HIGHLROWRC .and. oCol:hChecked .and. oCol:lEditable
...
elseif nKey == 32 .and. !::lFastEdit .and. ::oMultiSelCol != nil

TIA
by mauri.menabue
Mon Mar 25, 2024 11:43 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: incremental search on Xbrowse
Replies: 10
Views: 262

Re: Another for Btnbmp

... := < |u,oBtn| local clr := RGB( 245,245,235) if oBtn:lActive if oBtn:lMOver clr := {{ 1, RGB( 250,250,245),RGB( 250,250,245) }} elseif oBtn:lPressed clr := RGB( 180,136,85 ) else clr := RGB( 245,245,235) endif endif return clr > obtn[n]:nClrBorder := RGB(195,195,185) obtn[n]:oCursor:= ...
by Silvio.Falconi
Wed Mar 20, 2024 11:37 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Another for Btnbmp
Replies: 26
Views: 583

WebView resize

... the relevant code snippet: h['oDlg']:bResized := { || oWebView:SetSize(600, 800) } Inside the function `fromjavascript(hPost)`, if the condition elseif hTemp['url'] == 'cancelform'` is met, the following actions are performed: logline("cancelform", ValToChar(hTemp)) oWebView:Terminate() ...
by Otto
Fri Mar 08, 2024 10:26 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: WebView resize
Replies: 9
Views: 308

Re: Redondear un Numero

... Local val_num := Val(SubStr(Str(numero,9),-1)) Local Valor := 0 If val_num>=1 .AND. val_num<=5 valor = numero - val_num ElseIf val_num>= 6 .AND. val_num<= 9 valor = numero + (10-val_num) Else valor:=numero Endif Return(valor) Pero no se si se podria mejorar saludos
by jbrita
Thu Feb 08, 2024 2:06 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Redondear un Numero
Replies: 7
Views: 301

Re: FW 23.07 Xbrowse, oCol:Cargo is NIL

For now, please comment out
Code: Select all  Expand view
::Cargos := nil
also, in addition to commenting out the entire 'elseif' block.
by nageswaragunupudi
Sun Sep 10, 2023 1:15 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: FW 23.07 Xbrowse, oCol:Cargo is NIL
Replies: 4
Views: 232

Re: FW 23.07 Xbrowse, oCol:Cargo is NIL

The program crashes in xbrowse.prg, line 5813:      elseif ( n := AScan( aStruct, { |a| a[ 1 ] == Upper( IfNil( ::aCols[ nFor ]:Cargo, "" ) ) } ) ) > 0  Because my Cargo is from ...
by frose
Sun Sep 10, 2023 12:18 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: FW 23.07 Xbrowse, oCol:Cargo is NIL
Replies: 4
Views: 232

Problemas con Menu POPUP.

... if Nivel==1 .OR. Nivel==2 OPCMENU->(DbEval({|| aadd(TablaMnu,{Orden,Tipo,Opcion,Mensaje,Accion,Imagen}) }; ,{|| !deleted() }; ,{|| !eof() })) elseif PERFILFW->(DbSetOrder(1),dbseek(cript(Usuari))) // aca lleno la tabla TablaMnu con las opciones permitidas PERFILFW->(DbEval({|| if( OpcMenu->(DbSetOrder(1),Dbseek(PERFILFW->Clave)),; ...
by José Camilo
Mon Jun 05, 2023 3:29 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Problemas con Menu POPUP.
Replies: 2
Views: 204

Re: incremental search with array

... way to resolve this? Una posible solucion es la siguiente: Crea una CLASSDATA lAllowAsterics INIT .F. en la clase y en la linea 3867, sustituye elseIf nKey > 31 .and. nKey != Asc( '*' ) .and. nKey != Asc( '?' ) por elseIf nKey > 31 .and. ( nKey != Asc( '*' ) .or. ::lAllowAsterics ) .and. ...
by cnavarro
Thu Jan 19, 2023 3:10 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: incremental search with array
Replies: 4
Views: 389

DBF REDE/WEB WINDOWS 7/10/11

... cServer, "", "",, 200 ) if nConect=-1 nRes:=Leto_connect_Err() if nRes == 2 MsgStop("Falha ao logar",5) elseif nRes==4 MsgStop("Falha ao conectar",5) elseif nRes==5 MsgStop("Falha de envio",5) else MsgStop("Erro ao conectar -1 ...
by wanderson8
Sun Jan 08, 2023 3:10 pm
 
Forum: All products support
Topic: DBF REDE/WEB WINDOWS 7/10/11
Replies: 0
Views: 4622

Re: Finding the caption of a Hash

... endif IF HB_ISHASH(hVars) .and. HHasKey( hVars , xKey ) IF lValore IF VALTYPE(hVars[xKey]) == 'N' .AND. hVars[xKey] > 0 lReturn := .t. ELSEIF VALTYPE(hVars[xKey]) == 'C' .and. ! empty(hVars[xKey]) lReturn := .t. ELSEIF VALTYPE(hVars[xKey]) == 'D' ELSEIF VALTYPE(hVars[xKey]) == 'L' ENDIF ...
by Maurizio
Fri Apr 01, 2022 3:21 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Finding the caption of a Hash
Replies: 6
Views: 410

Re: Colorized cell of xbrowse

... CLR_BLACK, ColorCell( oBrw:aRow[ n ]:VALUE ) } } static function ColorCell( num ) local nColor := GetSysColor( 15 ) If num= 0 nColor := CLR_HGREEN elseif num >0 .and. num < 8 nColor := CLR_WHITE elseif num >9 nColor := CLR_HRED endif return nColor static function ChangeColor( oBrw, ...
by FranciscoA
Mon Mar 07, 2022 2:12 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Colorized cell of xbrowse
Replies: 13
Views: 1258

Re: Colorized cell of xbrowse

... CLR_BLACK, ColorCell( oBrw:aRow[ n ]:VALUE ) } } static function ColorCell( num ) local nColor := GetSysColor( 15 ) If num= 0 nColor := CLR_HGREEN elseif num >0 .and. num < 8 nColor := CLR_WHITE elseif num >9 nColor := CLR_HRED endif return nColor
by Silvio.Falconi
Sun Mar 06, 2022 4:19 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Colorized cell of xbrowse
Replies: 13
Views: 1258

Colorized cell of xbrowse

... 15 ) //for demo local nColor1 := CLR_HGREEN local nColor2 := CLR_HRED local ncolor3 := GetSysColor( 15 ) /* IF num<3 nColor :=nColor1 elseif num>3 nColor := nColor2 elseif num<9 nColor := nColor3 endif*/ return nColor where is the error ?
by Silvio.Falconi
Fri Mar 04, 2022 10:16 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Colorized cell of xbrowse
Replies: 13
Views: 1258

Other problem to Ordercreate and descend

... fields cExpression:="" IF !Empty(cField1 ) .and. !Empty(cField2 ) .and. !Empty(cField3) cExpression:=(cCampo1 +'+'+cCampo2+'+'+cCampo3) elseif !Empty(cField1 ) .and. !Empty(cField2 ) cExpression:=(cCampo1 +'+'+cCampo2) elseif !Empty(cField1 ) cExpression:=(cCampo1) Endif //ordcreate ...
by Silvio.Falconi
Mon Feb 07, 2022 10:54 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Other problem to Ordercreate and descend
Replies: 3
Views: 247

DEFINIR COLOR DEL BTNBMPBu

... { { 1.00,14481663,38075 }, ; { 1.00,38075,14481663 } }, ; { { 0.10,16777215,9363707 },; { 0.10,9363707,16777215 } } ) } oBot:SetColor(0) elseif cColor = "PLATA" oBot:bClrGrad = { | lMouseOver | If( ! lMouseOver,; { { 0.30,12961221,16777215 },; { 0.30,16777215,12961221 } },; ...
by Willi Quintana
Mon Nov 22, 2021 4:13 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: DEFINIR COLOR DEL BTNBMPBu
Replies: 1
Views: 174
Next

Return to advanced search