>>I have a view bound to a grid and wish to freeze the
>>first column of the grid and scroll the other columns
>>horizontally. If this is possible could someone please
>>get me jump started. Thanks in advance.
>>
>>Dave
>
>****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
The above snippets worked great. You are the man. Thanks for the
help.
Dave
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only