Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Grid horizontal scrollbars on demand
Message
From
28/12/2016 14:12:22
 
 
To
28/12/2016 09:41:36
Dragan Nedeljkovich (Online)
Now officially retired
Zrenjanin, Serbia
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows 10
Network:
Windows Server 2012
Database:
MS SQL Server
Application:
Robot
Miscellaneous
Thread ID:
01646151
Message ID:
01646166
Views:
52
>>Hello,
>>
>>I am trying to figure out to switch on horizontal scrollbars on a grid but only when the total number of columns is wider than the grid width.
>>
>>Otherwise you get the empty scrollbar on the bottom of the grid and it only wastes the space.
>>
>>However I have trouble figuring out if the columns total width is larger than the grid width, because the numbers don't match. The combined width of all columns is less than the grid width property. I also thought there is a fixed number of pixels per column that would need to be added, but also it does not match. Anyone has an idea how to get this to work?
>>
>>The general idea is as follows:
>>
>>LOCAL lnTotalWidthColumns
>>lnTotalWidthColumns = 0
>>*
>>FOR EACH loColumn IN THIS.Columns
>>    lnTotalWidthColumns = lnTotalWidthColumns + loColumn.Width
>>ENDFOR
>>*
>>IF THIS.Width < lnTotalWidthColumns
>>    THIS.Scrollbars = 3
>>ELSE
>>    THIS.Scrollbars = 2
>>ENDIF
>>
>
>Add one for the gridline pixel for each column, plus sysmetric(5) for the vertical scrollbar width. Also perhaps some other sysmetric() for deletemark and recordmark, if you keep them visible. That should be the total width of the grid.

Thanks, great point about the Sysmetric(5).
Christian Isberner
Software Consultant
Previous
Reply
Map
View

Click here to load this message in the networking platform