Xbrowse shows extra column I did not define
Posted: Thu Aug 24, 2017 9:45 pm
Hello,
In the sample code below, I see a extra empty column after street ? I can even click on it...
I don't know why. Do you see my mistake ?
In the sample code below, I see a extra empty column after street ? I can even click on it...
I don't know why. Do you see my mistake ?
Code: Select all
#include "FiveWin.ch"
function REINDEX()
Local odlg, oFont
DEFINE FONT oBold NAME 'CALIBRI' SIZE 0,-12 BOLD
DEFINE FONT oFont NAME "CALIBRI" SIZE 0,-14
DEFINE FONT oFontBig NAME "CALIBRI" SIZE 0,-24
DEFINE DIALOG oDlg SIZE 1000,730 PIXEL TRUEPIXEL ;
STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU,WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME );
TITLE "Reorganisatie : ";
GRADIENT { { 1, nRGB( 125, 155, 175 ), nRGB( 125, 155, 175 ) } }
use customer NEW
aVelden := { ;
{ "First" , "First" ,nil, 150 }, ;
{ "Last" , "Last" ,nil, 150 }, ;
{ "Street" , "Street" ,nil, 200 }}
@ 0,0 XBROWSE oBrw size -1,-50 PIXEL OF oDlg font oFont ;
DATASOURCE "customer" ;
COLUMNS aVelden ;
AUTOSORT CELL LINES NOBORDER FOOTER
oBrw:nEditTypes = EDIT_GET
oBrw:nHeadStrAligns := AL_CENTER
WITH OBJECT oBrw
:bClrEdits := { || { CLR_BLACK, CLR_YELLOW }}
:nColDividerStyle := LINESTYLE_LIGHTGRAY
:nRowDividerStyle := LINESTYLE_LIGHTGRAY
:bClrRowFocus := { || { CLR_BLACK, RGB(185,220,255) } }
:nMarqueeStyle := MARQSTYLE_HIGHLROWMS
:bClrSelFocus = {|| { CLR_WHITE, RGB(0, 128, 128) } } // CUANDO TIENE EL FOCUS
:oHeaderFonts := oBold
ENDWITH
oBrw:CreateFromCode()
@ 700,100 BTNBMP oBtn1 OF oDlg SIZE 80, 25 NOBORDER PROMPT "Toevoegen" 2007 ACTION (oBrw:EditSource( .t. )) font oBold CENTER
@ 700,200 BTNBMP oBtn2 OF oDlg SIZE 80, 25 NOBORDER PROMPT "Wijzigen" 2007 ACTION (oBrw:EditSource()) font oBold CENTER
@ 700,300 BTNBMP oBtn3 OF oDlg SIZE 80, 25 NOBORDER PROMPT "Delete" 2007 ACTION ( If( MsgYesNo( "Delete Record?" ), oBrw:Delete(), nil ), oBrw:SetFocus() ) font oBold CENTER
ACTIVATE DIALOG odlg centered
oFont:end()
dbcloseall()
return NIL