Wide Scroll Bars

Date: 02-16-2022

Return to Index

 
  ' there's a iScrollHeight member for horizontal scrollbars too..
   LOCAL oldWidth AS LONG, ncm AS NONCLIENTMETRICS
   ncm.cbSize = SIZEOF(NONCLIENTMETRICS)
   SystemParametersInfo(%SPI_GETNONCLIENTMETRICS, SIZEOF(NONCLIENTMETRICS), ncm, 0)
   oldWidth = ncm.iScrollWidth
   ncm.iScrollWidth = 2 * ncm.iScrollWidth
   SystemParametersInfo(%SPI_SETNONCLIENTMETRICS, SIZEOF(NONCLIENTMETRICS), ncm, 0)
 
   MSGBOX "Looks good? Time to reset width."
   ncm.iScrollWidth = oldWidth
   SystemParametersInfo(%SPI_SETNONCLIENTMETRICS, SIZEOF(NONCLIENTMETRICS), ncm, 0)

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm