HMGforum.com

Hola Roberto,
Encontré un problema en el metodo addcolumn del grid. Te adjunto un demo.
El problema se presenta cuando compilo, error de sintaxis . en la linea
Main.Grid_1.AddColumn(i,'Column_'+ALLTRIM(STR(i)), 80 )
Saludos cordiales,
Luis Vasquez.

#include <hmg.ch>

procedure inicio
load window Main
Main.Center
Main.Activate
RETURN

PROCEDURE LoadColumn
Main.Grid_1.DeleteColumn(1)
FOR i:= 1 TO 3
Main.Grid_1.AddColumn(i,'Column_'+ALLTRIM(STR(i)), 80)
NEXT
RETURN

PROCEDURE LoadData
FOR i:= 1 TO 10
Main.Grid_1.Additem({ 'Element_1', 'Element_2','Element_3' } )
NEXT
RETURN

Hola Luis,

This method accepts a four parameters:

FormName.GridName.AddColumn( nColIndex , cCaption , nWidth , nJustify )

Try

Main.Grid_1.AddColumn(i,'Column_'+ALLTRIM(STR(i)), 80,0)

I hope that helps

Hi Grigory,
thanks for your help.
We must make a correction in the manual as it appears as optional
Justify value.
<ParentWindowName>. <ControlName>. AddColumn ([nColIndex] , [CCaption], [nWidth], [nJustify])
Best regards,
Luis Vasquez.

luisvasquezcl wrote:Hi Grigory,
thanks for your help.
We must make a correction in the manual as it appears as optional
Justify value.
<ParentWindowName>. <ControlName>. AddColumn ([nColIndex] , [CCaption], [nWidth], [nJustify])
Best regards,
Luis Vasquez.

Luis, Grigory:

Thanks.

I'll correct the reference ASAP.