Urgent : Listbox problem in FWH 15.09

[Enrico Maria Giordano]

Antonio,

Enrico,

Could you provide a simple example to reproduce it ?

thanks,

Not yet, sorry. But I sent you an image showing the problem.

EMG

[Antonio Linares]

Enrico,

I am testing samples\testbrow.prg here and it looks ok.

If someone could provide an example to reproduce it

[driessen]

Antonio,

It is a WBROWSE in which the problem occurs. This class has'nt changed in FWH 15.09, so the reason must be somewhere else.

What is the problem : if the value of a cell in a WBROWSE is empty, than the background of that cell is white and not the selected color.
Or, if a line is selected (normally the whole line is blue) than the empty fields stay white.

Here is another example.


I'm very sorry but this problem needs to be solved asap.

Thanks.

[Antonio Linares]

Ok, I built an example to reproduce the bug:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd, oBrw, aValues := { { "one", "two", "three" },;
                                  { "four", "", "six" } }

   DEFINE WINDOW oWnd

   @ 1, 1 LISTBOX oBrw ;
      FIELDS "", "", "" ;
      COLSIZES 100, 100, 100 OF oWnd SIZE 300, 200

   oBrw:SetArray( aValues )
   oBrw:bLine = { || { aValues[ oBrw:nAt, 1 ], aValues[ oBrw:nAt, 2 ], aValues[ oBrw:nAt, 3 ] } }

   ACTIVATE WINDOW oWnd

return nil

[Antonio Linares]

Fixed, it was a little bug in function ExtTextOut()

Michel, do you need the libs for Borland ?

Working code:

Code: Select all  Expand view

HB_FUNC( EXTTEXTOUT ) // ( hDC, nRow, nCol, aRect, cText, nStyle )  --> lSuccess
{
   RECT     rct;
   UINT     fuOptions;
   LPCSTR   szText;
   WORD     wLen  = 0;

   if ( ( hb_pcount() > 4 ) && ( HB_ISCHAR( 5 ) ) )
   {
      szText   = hb_parc( 5 );
      wLen     = hb_parclen( 5 );
   }
   // if ( wLen > 0 )
   // {
      fw_parRect( 4, &rct );
      fuOptions = ( hb_pcount() > 5 ? hb_parnl( 6 ) : ETO_OPAQUE | ETO_CLIPPED );

      if ( isutf8( szText, wLen ) )
      {
         LPWSTR pW = UTF8toUTF16( szText );
         hb_retl( ExtTextOutW( ( HDC ) fw_parH( 1 ), hb_parni( 3 ), hb_parni( 2 ),
                  fuOptions, &rct, pW, wcslen( pW ), 0 ) );
         hb_xfree( pW );
      }
      else
         hb_retl( ExtTextOutA( ( HDC ) fw_parH( 1 ), hb_parni( 3 ), hb_parni( 2 ),
                  fuOptions, &rct, szText, wLen, 0 ) );

   // } else hb_retl( 0 );
}

[Antonio Linares]

Michel,

I just sent you the modified libs to your email

[Enrico Maria Giordano]

Antonio,

Fixed, it was a little bug in function ExtTextOut()

Great! I thought to a bug in ExtTextOut() from the beginning but I didn't know that it was been changed.

EMG

[Enrico Maria Giordano]

Antonio,

let us know when a new FWH build will be available.

EMG

[driessen]

Thanks a lot, Antonio.

Problem solved

[Antonio Linares]

Enrico,

In one day or two we will publish a revised build.

If you need the libs in the meantime, please let me know it and I will email them to you, thanks

[Enrico Maria Giordano]

Antonio, no problem, I can wait.

EMG