Page 1 of 1
XBROW BORDER getting wipe out when uses UP/DOWN keys
Posted: Mon Oct 21, 2019 11:15 am
by 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
Re: XBROW BORDER getting wipe out when uses UP/DOWN keys
Posted: Tue Oct 22, 2019 1:32 am
by nageswaragunupudi
How are you drawing the outline?
Try this sample:
Code: Select all
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
Re: XBROW BORDER getting wipe out when uses UP/DOWN keys
Posted: Tue Oct 22, 2019 10:10 am
by 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
#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