FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Urgent : Listbox problem in FWH 15.09
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Urgent : Listbox problem in FWH 15.09
Posted: Mon Sep 28, 2015 12:08 PM
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.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Urgent : Listbox problem in FWH 15.09
Posted: Mon Sep 28, 2015 12:50 PM

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.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Urgent : Listbox problem in FWH 15.09
Posted: Mon Sep 28, 2015 01:35 PM

I noticed that wrong behaviour too.

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Urgent : Listbox problem in FWH 15.09
Posted: Mon Sep 28, 2015 02:59 PM
Code (fw): Select all Collapse
#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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Urgent : Listbox problem in FWH 15.09
Posted: Mon Sep 28, 2015 03:05 PM
Or

Code (fw): Select all Collapse
   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))} )}


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Urgent : Listbox problem in FWH 15.09
Posted: Mon Sep 28, 2015 08:11 PM

Michel,

We are going to fix it asap

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Urgent : Listbox problem in FWH 15.09
Posted: Mon Sep 28, 2015 08:35 PM

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.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Urgent : Listbox problem in FWH 15.09
Posted: Mon Sep 28, 2015 08:48 PM

Michel,

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

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Urgent : Listbox problem in FWH 15.09
Posted: Mon Sep 28, 2015 09:15 PM

Enrico,

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

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Urgent : Listbox problem in FWH 15.09
Posted: Mon Sep 28, 2015 09:19 PM

Michel,

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

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Urgent : Listbox problem in FWH 15.09
Posted: Mon Sep 28, 2015 10:56 PM
Enrico,

This is the code I used :
Code (fw): Select all Collapse
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])}

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Urgent : Listbox problem in FWH 15.09
Posted: Mon Sep 28, 2015 11:15 PM

Michel,

it's a TWBrowse (wbrowse.prg).

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Urgent : Listbox problem in FWH 15.09
Posted: Mon Sep 28, 2015 11:53 PM

Enrico,

Could you provide a simple example to reproduce it ?

thanks,

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Urgent : Listbox problem in FWH 15.09
Posted: Mon Sep 28, 2015 11:56 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Urgent : Listbox problem in FWH 15.09
Posted: Tue Sep 29, 2015 07:09 AM
Antonio,

If I change my example to :
Code (fw): Select all Collapse
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.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Static archive · New replies & topics via GitHub Discussions