TXbrowse() display problem?

[dutch]

Dear All,

I've got the problem with TXBrowse(), the ::bBmpData has display incorrectly.
When I use this data and focus the Bitmap will not display.
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW

Code: Select all  Expand view

    REDEFINE XBROWSE oBrw FIELDS str(SPR->PAR_NO,2) , ;
                                  SPR->PAR_DESC, ;
                                  SPR->PAR_VAR, ;
                                  '' ;
            FONT oFnt ;
            FIELDSIZES 30,300,100,50 ;
            HEADERS 'No.', 'Description', 'Variable', 'Status' ;
            ID 101 ;
            OF oDlg ;
            ALIAS 'SPR' ;
            ON DBLCLICK ( ChngStatus(oBrw) )

//   oBrw:nMarqueeStyle      := MARQSTYLE_HIGHLROW
   oBrw:nRowDividerStyle   := LINESTYLE_LIGHTGRAY
   oBrw:nColDividerStyle   := LINESTYLE_LIGHTGRAY
   oBrw:nHeaderHeight      := 25
   oBrw:nRowHeight         := 22
   oBrw:lHScroll           := .F.
   oBrw:nStretchCol        := STRETCHCOL_LAST
   oBrw:lAllowRowSizing    := .F.
   oBrw:lColDividerComplete:= .T.

   oBrw:aCols[4]:AddResource("RIGHT")
   oBrw:aCols[4]:bBmpData   := { || iif(SPR->PAR_STATUS, 1, 0) }
   oBrw:aCols[4]:nDataBmpAlign := AL_CENTER
   

I think it has effected from 9.07 (not sure)

Regards,
Dutch

[nageswaragunupudi]

>>
I think it has effected from 9.07 (not sure)
>>
Your observation is correct. Hope a fix will be published quickly.

[nageswaragunupudi]

I suggest a temporary quick fix to your problem, by replacing the new 9.07 code with the old 9.06 code.

Instead of the present code from lines 8120 to 8126 in xbrowse.prg

Code: Select all  Expand view

        else
            nOldColor := SetBkColor( hDC, nRGB( 255, 255, 255 ) )
            TransBmp( aBitmap[ BITMAP_HANDLE ], aBitmap[ BITMAP_WIDTH ], aBitmap[ BITMAP_HEIGHT ],;
                     aBitmap[ BITMAP_ZEROCLR ], hDC, nBmpCol, nBmpRow, aBitmap[ BITMAP_WIDTH ], ;
                     aBitmap[ BITMAP_HEIGHT ] )
            SetBkColor( hDC, nOldColor )
         endif
 

Please substitute

Code: Select all  Expand view

        else
            if ::oBrw:lTransparent // transparent bitmaps with brush
                nOldColor := SetBkColor( hDC, nRGB( 255, 255, 255 ) )

                TransBmp( aBitmap[ BITMAP_HANDLE ], aBitmap[ BITMAP_WIDTH ], aBitmap[ BITMAP_HEIGHT ],;
                         aBitmap[ BITMAP_ZEROCLR ], hDC, nBmpCol, nBmpRow, aBitmap[ BITMAP_WIDTH ], ;
                         aBitmap[ BITMAP_HEIGHT ] )

                SetBkColor( hDC, nOldColor )
             else
                PalBmpDraw( hDC, nBmpRow, nBmpCol,;
                           aBitmap[ BITMAP_HANDLE ],;
                           aBitmap[ BITMAP_PALETTE ],;
                           aBitmap[ BITMAP_WIDTH ],;
                           aBitmap[ BITMAP_HEIGHT ];
                           ,, ::lBmpTransparent, aColors[ 2 ] )

            endif
         endif
 

It should work for you now.

[Antonio Linares]

Dutch,

We are going to provide a fix for it asap

[dutch]

Dear Rao&Antonioi,

Thanks all,

Rao : It's work fine now.

Regards,
Dutch