Urgent : Listbox problem in FWH 15.09

[driessen]

Hello,

In FWH 15.08 a listbox I define looks like :



In FWH 15.09 the same listbox looks like :



How is that possible? I want the look of FWH 15.08 back.

Thanks.

[driessen]

Hello,

Meanwhile, I noticed what has been changed.

I have defined this : cLbx:nClrPane := CLR_HGRAY.

If the field is empty, nClrPane becomes white, if I put one blanc into the field, nClrPane becomes gray again.

In 15.08, nClrPane was always gray, even if the field was empty.

[Enrico Maria Giordano]

I noticed that wrong behaviour too.

EMG

[karinha]

Code: Select all  Expand view

#Define CLR_LGRAY          RGB( 230, 230, 230 )
#Define CLR_LGREEN         RGB( 190, 215, 190 )

    oLbx:nClrPane      := { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, ;
                               CLR_LGREEN, CLR_LGRAY ) }
 

Regards


[karinha]

Or

Code: Select all  Expand view

   oLbx:nClrPane     := { || IIF( ( oLbx:cAlias)->( OrdKeyNo()) %2 == 1, ;
                                  {CLR_WHITE, if( fecha> date(), CLR_RED,
   RGB(204,255,255))}, {CLR_WHITE, if( fecha> date(), CLR_RED,  RGB(127,192,144))} )}
 



[Antonio Linares]

Michel,

We are going to fix it asap

Sorry about it, in our tests we did not noticed it

[driessen]

Antonio,

If I compare LISTBOX.PRG in FWH 15.08 with the one in FWH 15.09, I notice that the only difference is the unicode.

Maybe a hint for you?

Thanks.

[Enrico Maria Giordano]

Michel,

it's not listbox.prg, it's wbrowse.prg, or something similar. Or am I wrong?

EMG

[driessen]

Enrico,

First I thought that too. But WBROSE.PRG hasn't been changed in FWH 15.09.

[Enrico Maria Giordano]

Michel,

but your image looks like a browse, not a listbox.

EMG

[driessen]

Enrico,

This is the code I used :

Code: Select all  Expand view

REDEFINE LISTBOX ShowGet VAR ShowLbx FIELDS "","","","","","","","","" ID 101 of ShowDlg HEADERS cSP+;
         "Aard  (Dbl=basisgeg.)",cSP+"Naam - omschr. - data - nr.  (Dbl=doss.geg.)",cSP+"Telefoon",cSP+"G.S.M.",cSP+"Telefax",cSP+;
         "Email-adres",cSP+"Adres",cSP+"Land + postnr.",cSP+"Plaats" FONT ShowFont2 ;
         ON RIGHT CLICK (IF(ActieTV,(ShowTim:DeActivate(),DsPopUp(nRow,nCol,cCol[1]),DeleteObject(pMenu),MEMORY(-1),SYSREFRESH(),;
         IF(!EMPTY(TVactie),(Eval(&(TVactie)),TVactie:="{|| zNul()}"),.T.),ShowTim:Activate()),.T.))
ShowLbx:bLine         := {||{ShowArr[ShowLbx:nAt,1],ShowArr[ShowLbx:nAt,2],ShowArr[ShowLbx:nAt,6],ShowArr[ShowLbx:nAt,7],ShowArr[ShowLbx:nAt,8],;
                             ShowArr[ShowLbx:nAt,9],ShowArr[ShowLbx:nAt,10],ShowArr[ShowLbx:nAt,11],ShowArr[ShowLbx:nAt,12]}}
ShowLbx:aColSizes     := cCol
ShowLbx:nAt           := 1
ShowLbx:bGotop        := {||ShowLbx:nAt:=1}
ShowLbx:bGoBottom     := {||ShowLbx:nAt := Eval( ShowLbx:bLogicLen )}
ShowLbx:bSkip         := {|nWant,nOld|nOld:=ShowLbx:nAt,ShowLbx:nAt+=nWant,ShowLbx:nAt:=Max(1,Min(ShowLbx:nAt,Eval(ShowLbx:bLogicLen))),ShowLbx:nAt-nOld}
ShowLbx:bLogicLen     := {||Len(ShowArr)}
ShowLbx:nLineStyle    := US->ULIJN
ShowLbx:nClrText      := {|| SelColor(ShowArr[ShowLbx:nAt,3],1,19)}
ShowLbx:nClrForeFocus := {|| SelColor(ShowArr[ShowLbx:nAt,3],2,19)}
ShowLbx:nClrPane      := CLR_HGRAY
ShowLbx:bGotFocus     := {|| ShowKey_On() }
ShowLbx:bLostFocus    := {|| ShowKey_Off()}
ShowLbx:bLDblClick    := {|nRow,nCol| EditGeg(nRow,nCol,ShowLbx:nAt,cCol[1],cCol[2])} 

[Enrico Maria Giordano]

Michel,

it's a TWBrowse (wbrowse.prg).

EMG

[Antonio Linares]

Enrico,

Could you provide a simple example to reproduce it ?

thanks,

[Antonio Linares]

In both functions DrawText() and DrawTextEx() there is a:

if ( wLen > 0 )

I want to check if that is the problem but I am unable to reproduce the error here

[driessen]

Antonio,

If I change my example to :

Code: Select all  Expand view

ShowLbx:bLine := {||{IF(EMPTY(ShowArr[ShowLbx:nAt,1])," ",ShowArr[ShowLbx:nAt,1]),IF(EMPTY(ShowArr[ShowLbx:nAt,2])," ",ShowArr[ShowLbx:nAt,2]),IF(EMPTY(ShowArr[ShowLbx:nAt,6])," ",ShowArr[ShowLbx:nAt,6]),IF(EMPTY(ShowArr[ShowLbx:nAt,7])," ",ShowArr[ShowLbx:nAt,7]),IF(EMPTY(ShowArr[ShowLbx:nAt,8])," ",ShowArr[ShowLbx:nAt,8]),IF(EMPTY(ShowArr[ShowLbx:nAt,9])," ",ShowArr[ShowLbx:nAt,9]),IF(EMPTY(ShowArr[ShowLbx:nAt,10])," ",ShowArr[ShowLbx:nAt,10]),IF(EMPTY(ShowArr[ShowLbx:nAt,11])," ",ShowArr[ShowLbx:nAt,11]),IF(EMPTY(ShowArr[ShowLbx:nAt,12])," ",ShowArr[ShowLbx:nAt,12])}}

then everything is ok.