Is this a bug in the Grid Cell alignment?

  • Article

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