Is this a bug in the Grid Cell alignment?

Run the code below. It creates a grid with 2 rows and 2 columns. Move your cursor between rows and you see “some data” bouncing around”

Try it with the other IF condition to see the expected behavior. Is this a bug?

PUBLIC oForm

oForm=CREATEOBJECT("MyForm")

oForm.show

DEFINE CLASS MyForm as Form

left=100

height=200

width=600

allowoutput=.f.

PROCEDURE init(cFilename)

IF .t.

CREATE CURSOR test (num i,name c(40))

INSERT INTO test VALUES (0,"name")

INSERT INTO test VALUES (1,"name")

ELSE

CREATE CURSOR test (num c(10),name c(40))

INSERT INTO test VALUES ("0","name")

INSERT INTO test VALUES ("1","name")

ENDIF

this.AddObject("grd","grid")

WITH this.grd as grid

.Visible=1

.Height=thisform.Height

.Width=thisform.Width

WITH this.grd.column1 as Column

.header1.caption="Name"

.ControlSource="'some data '"

.Width=250

ENDWITH

LOCATE

ENDWITH

ENDDEFINE

Comments