G'Day,
I use the following code to determine the size of a horizontal scroll bar.
However it requires
- Windows NT/2000: Requires Windows NT 4.0 SP6 or later.
- Windows 95/98: Requires Windows 98 or later.
I need to be able to support versions of Windows prior to the above. Ie
Win95, NT4 SP1. So I tried to use GetScrollInfo(). However I must be missing
something as it does not appear to be usable. So. How do I get the
dimensions of a horizontal scroll bar that is supported under 95 & NT4SP1.
sbInfo.cbSize := SizeOf(sbInfo);
GetScrollBarInfo(FhDosPrompt, OBJID_HSCROLL, sbInfo);
if (sbInfo.rgstate[0] <> STATE_SYSTEM_INVISIBLE) and (sbInfo.rgstate[0]
<> STATE_SYSTEM_OFFSCREEN) then
begin
w2 := sbInfo.rcScrollBar.BottomRight.x - sbInfo.rcScrollBar.TopLeft.x;
h2 := sbInfo.rcScrollBar.BottomRight.y - sbInfo.rcScrollBar.TopLeft.y;
TIA
-- Donovan
----------------------------------------------------------------------
Donovan J. Edye [www.edye.wattle.id.au]
Namadgi Systems [www.namsys.com.au]
Voice: +61 2 6285-3460
Fax: +61 2 6285-3459
TVisualBasic = Class(None);
Heard just before the 'Big Bang': "...Uh Oh...."
----------------------------------------------------------------------
GXExplorer [http://www.gxexplorer.org] Freeware Windows Explorer
replacement. Also includes freeware delphi windows explorer components.
----------------------------------------------------------------------
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
