XBROW BORDER getting wipe out when uses UP/DOWN keys

[shri_fwh]

Dear Rao Sir ,

In the XBROWSE the outline right side BORDER is getting wipe out when uses UP/DOWN keys. The XBROWSE object does not have any kind of scrolls It's neither HScroll nor Vscroll.



Thanks
Shridhar

[nageswaragunupudi]

How are you drawing the outline?

Try this sample:

Code: Select all  Expand view  RUN

  local oDlg, oBrw

   USE CUSTOMER

   DEFINE DIALOG oDlg SIZE 600,400 PIXEL TRUEPIXEL

   @ 40,40 XBROWSE oBrw SIZE -60,-40 PIXEL OF oDlg ;
      DATASOURCE "CUSTOMER" AUTOCOLS CELL LINES NOBORDER

   WITH OBJECT oBrw
      :lHScroll := :lVScroll := .f.
      :lRecordSelector := .f.
      :nMarqueeStyle := MARQSTYLE_HIGHLROW
      :lDrawBorder := .t.
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
 

[shri_fwh]

Dear Sir ,

When the below code line is commented then its working fine. The Line was copied by mistake from the other source file.

//************** IF THE BELOW LINE COMMENTED THEN IT OUTLINE BOX SHOWS CORRECTLY WHILE NAVIGATING THE UP/DOWN KEYS *************
//:aCols[ 3 ]:lHide := .T.

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#define C_GETH 25

PROCEDURE MAIN

 local oDlg, oBrwTLib,oBrwTAss, oFontSay, oFontLovBrw
 local aArrData1 := { {121, "Current Liabilities" ,2132173123.22} , {121, "Bank Loans" ,265321646.54} }
 local aArrData2 := { {121, "Current Assets" ,2132173123.22} , {121, "Bank a/cs" ,265321646.54} }
 
   //USE CUSTOMER
   DEFINE FONT oFontSay    NAME "Segoe UI" SIZE 0, -12 BOLD
   DEFINE FONT oFontLovBrw NAME "Segoe UI" SIZE 0, -15 BOLD

 
   DEFINE DIALOG oDlg SIZE 1120,720 PIXEL TRUEPIXEL

 
  @ 100,020 XBROWSE oBrwTLib  SIZE 549, 360 PIXEL OF oDlg ;
  FONT oFontLovBrw ;
  COLUMNS { 2,3 } ;
  HEADERS {  "L i a b i l i t i e s " ,  "Balance" } ;
  PICTURES { NIL ,  "@Z 99,99,99,99,999.99" } ;
  SIZES    {  360,  180 } ;
  JUSTIFY  { AL_LEFT } ;
  DATASOURCE aArrData1 AUTOCOLS ;
  CELL FLAT NOBORDER FOOTERS ;
  COLOR CLR_BLACK, RGB( 232, 255, 232 )


 

  WITH OBJECT oBrwTLib

    //:SetGroupHeader( 'Amount', 6, 8 )
 
    :oHeaderFonts    := oFontSay
    :lRecordSelector := .F.
    :lFlatStyle    := .T.
    :nRowHeight    := C_GETH
    :nMarqueeStyle       := MARQSTYLE_HIGHLROW
    :lDrawBorder         := .T.
    :lHScroll            := .F.
    :lVScroll            := .F.
    :bClrRowFocus := { || { CLR_WHITE, RGB( 108, 0, 0 ) } }
    :bClrSel      := { || If( oBrwTLib:KeyNo() % 2 == 0, ;
                            { CLR_BLACK, RGB( 198, 255, 198 ) }, ;
                            { CLR_BLACK, RGB( 232, 255, 232 ) } ) }
    :bClrSelFocus := { || { CLR_WHITE, RGB( 108, 0, 0 ) } }
    :aCols[ 2 ]:nFooterType   := AGGR_SUM
   
    //************** IF THE BELOW LINE COMMENTED THEN IT OUTLINE BOX SHOWS CORRECTLY WHILE NAVIGATING THE UP/DOWN KEYS *************
    //:aCols[ 3 ]:lHide := .T.
 
    :MakeTotals()

    :CreateFromCode()
  END

 

   ACTIVATE DIALOG oDlg CENTERED
   
RETURN