>>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
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement