hi,
thank you,
this code works under vfp5, but how i can freez 2 columns at the same time via this code
local i
if this.columns(1).ColumnOrder < this.LeftColumn
for i=this.columns(1).ColumnOrder to this.LeftColumn-1
this.columns(1).ColumnOrder = this.columns(1).ColumnOrder + 1
endfor
else
for i=this.LeftColumn+1 to this.columns(1).ColumnOrder
this.columns(1).ColumnOrder = this.columns(1).ColumnOrder - 1
endfor
endif
>Hi
>
>** in vfp8 this is the command in int()
>thisform.Grid1.LockColumns [ = nValue ]
>
>** in vfp 6
>To lock one column in a grid. Put this code into AfterRowColumn and scrolled properties.
>local i
>if this.columns(1).ColumnOrder < this.LeftColumn
> && we scroll forward
> for i=this.columns(1).ColumnOrder to this.LeftColumn-1
> this.columns(1).ColumnOrder = this.columns(1).ColumnOrder + 1
> endfor
>else
> && we scroll backward
> for i=this.LeftColumn+1 to this.columns(1).ColumnOrder
> this.columns(1).ColumnOrder = this.columns(1).ColumnOrder - 1
> endfor
>endif
>
>Shafid