>>Does anybody know how to lock a column in a grid control ? I have a grid with about 20 columns, and I always want the first 2 to be visible, regardless of the relativecolumn property.
>>
>>Any help would be much appreciated.
>>
>>Derek Chapman
>
>
>>****UT Search *****
>>>Is it possible to lock the first column of a grid so that it always stays visible while scrolling the remaining columns
>> left and right? I know this can be done in Excel, but I can't seem to find how to do it with a VFP grid.
>>
>> If you have time and patience, you can play with this two snippets:
>>
>> **** Grid.Scrolled event
>> LPARAMETERS nDirection
>> if thisform.blockscroll=.t.
>> return
>> endif
>> thisform.blockscroll=.t.
>> do case
>> case this.column1.columnorder=this.leftcolumn
>> case this.column1.columnorder<=this.leftcolumn-1
>> *for n=this.column1.columnorder+1 to this.leftcolumn-1
>for n=this.column1.columnorder to this.leftcolumn
>> this.column1.columnorder=n
>> endfor
>> *this.doscroll(4)
>> this.refresh
>> case this.column1.columnorder>this.leftcolumn
>> for n=this.column1.columnorder-1 to this.leftcolumn step -1
>> this.column1.columnorder=n
>> endfor
>> this.column1.setfocus
>> endcase
>> thisform.blockscroll=.f.
>> *** Grid.afterrowcolchange event
>> this.scrolled
>
>I believe this is originally Edward Pikman's code.
Thanks Erik! I tried to retrieve this thread right now and was unsuccessful.
Edward Pikman
Independent Consultant