Hi All,

I am having strange behavior in the textboxes in my grid columns. Because the grid is used for several different cursors, I have to redefine it for each one. I needed code in the DBLCLICK event, so I had to do a DEFINE to create the textbox. What is happening is when the grid appears everything looks great. But, as soon as I click on any of the columns (textboxes). The visible display of the data is cut short (Truncated?). What showed as 50+ characters now shows 12. I can’t seen to find why. Any ideas.

DEFINE CLASS dblclktext AS TEXTBOX

VISIBLE = .T.
SPECIALEFFECT = 1
BORDERSTYLE = 0
BACKCOLOR = RGB(255,255,254)
* This is the required procedure.
PROCEDURE DBLCLICK
DO CASE
CASE req_detl
THISFORM.contDetail.cmdMoreInfo.CLICK
CASE win_shop
THISFORM.contDetail.cmdQuit.CLICK
ENDCASE
ENDDEFINE

WITH .grid1
.RECORDSOURCE = ""
.COLUMNCOUNT = -1
.SCROLLBARS = 2
.ALLOWROWSIZING = .F.
.DELETEMARK = .F.
.COLUMNCOUNT = 6
.RECORDSOURCE = "curreq"
.column1.WIDTH = 25
.column2.WIDTH = 150
.column3.WIDTH = 90
.column4.WIDTH = 75
.column5.WIDTH = 75
.column6.WIDTH = 350
.SETALL("BOUND", .F., "COLUMN")
.SETALL("SPARSE", .F., "COLUMN")
.COLUMN1.ADDOBJECT( 'txtbox', 'dblclktext' )
.COLUMN2.ADDOBJECT( 'txtbox', 'dblclktext' )
.COLUMN3.ADDOBJECT( 'txtbox', 'dblclktext' )
.COLUMN4.ADDOBJECT( 'txtbox', 'dblclktext' )
.COLUMN5.ADDOBJECT( 'txtbox', 'dblclktext' )
.COLUMN6.ADDOBJECT( 'txtbox', 'dblclktext' )
.SETALL("CURRENTCONTROL", 'txtbox', "COLUMN")
.column1.txtbox.CONTROLSOURCE = "curreq.ord_ln_no"
.column2.txtbox.CONTROLSOURCE = "curreq.user_part_no"
.column3.txtbox.CONTROLSOURCE = "curreq.cost_amt"
.column4.txtbox.CONTROLSOURCE = "curreq.qty_ord"
.column5.txtbox.CONTROLSOURCE = "curreq.uom"
.column6.txtbox.CONTROLSOURCE = "curreq.part_desc"
.column1.header1.CAPTION = "No."
.column2.header1.CAPTION = IIF( nLangue = 1, "No. PIÈCE", "PART Number" )
.column3.header1.CAPTION = IIF( nLangue = 1, "COÛT STD", "STD COST" )
.column4.header1.CAPTION = IIF( nLangue = 1, "QTÉ", "QTY" )
.column5.header1.CAPTION = "UOM"
.column6.header1.CAPTION = "DESCRIPTION"
.SETALL( "MOVABLE", .F., "COLUMN" )
.SETALL( "RESIZABLE", .F., "COLUMN" )
.SETALL( "READONLY", .T., "COLUMN" )
.SETALL( "ALIGNMENT", 0, "COLUMN" )
.SETALL( "ALIGNMENT", 2, "HEADER" )
.SETALL("FONTBOLD", .T., "HEADER")
.SETALL("FORECOLOR", RGB(0,0,255), "HEADER")
.SETALL("BACKCOLOR", RGB(192,192,192), "HEADER")
ENDWITH

VFP6 SP5

TIA
Mike