Mike Yearwood
Toronto, Ontario, Canada
Information générale
Catégorie:
Gestionnaire d'écran & Écrans
>Hi All,
>
>Is there any way to make vertical scrool bar visible when just it needed (I mean there should be much record more than visible at first glance of grid)?
Hi Metin
For some people you have to ask clearly. ;)
Not tested. Had to do something like this recently.
local lnDataRows, lnDisplayRows
store 0 to lnDataRows,lnDisplayrows
select count(*) from (this.recordsource) into array laCount
if _Tally#0
lnDataRows = laCount[1]
endif
lnDisplayRows = (this.height - iif(inlist(this.scrollbars,1,3),sysmetric(8),0) - this.headerheight) / this.rowheight
if lnDataRows > lnDisplayRows
if inlist(this.scrollbars,0,1)
this.scrollbars = this.scrollbars + 2
endif
else
if inlist(this.scrollbars,3,2)
this.scrollbars = this.scrollbars - 2
endif
endif
Précédent
Suivant
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