Re: Remove Vertical ScrollBar

Article View: borland.public.delphi.database

Article #45

Back to borland.public.delphi.database Previous Next

#45

From: Marcel
Date: Thu, 10 Jun 2004 14:18

47 lines
1833 bytes

Save this as DBGridNoSc.pas and install (found at
http://www.q3.nu/trucomania/truco.cgi?335&esp)

<code>

 unit DBgridNoSc;

 interface

 uses
   WinTypes, WinProcs, Classes, DBGrids;

 type
   TDBgridNoSc = class(TDBGrid)
   protected
     procedure Paint; override;
   end;

 procedure Register;

 implementation

 procedure TDBgridNoSc.Paint;
 begin
   SetScrollRange(Self.Handle, SB_VERT, 0, 0, False);
   inherited Paint;
 end;

 procedure Register;
 begin
   RegisterComponents('Data Controls', [TDBgridNoSc]);
 end;
 end.

</code>


"B.N.R. Associates" <bnr@bnrassociates.com> wrote in message
news:55Kwc.23572$DV4.19718@clgrps13...
> I am using both DBCtrlGrids and DBGrids and wish to remove the vertical
> scroll bar. Is there a way to do so programmatically?
>
> Thanks in advance,
>
> Trevor James
>
>

Technical Details

Message-ID: <ca9qkh$r3e$2@reader13.wxs.nl>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!proxad.net!fr.ip.ndsoftware.net!news2.euro.net!demorgan.zen.co.uk!zen.net.uk!dedekind.zen.co.uk!newsfeeder.wxs.nl!textnews.wxs.nl!not-for-mail

References: <55Kwc.23572$DV4.19718@clgrps13>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 115d96,9957918a0761d36d
X-Google-Attributes: gid115d96,public
Path: arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!proxad.net!fr.ip.ndsoftware.net!news2.euro.net!demorgan.zen.co.uk!zen.net.uk!dedekind.zen.co.uk!newsfeeder.wxs.nl!textnews.wxs.nl!not-for-mail
From: "Marcel" <marcel_@_firstdata_._nl>
Newsgroups: borland.public.delphi.database
Subject: Re: Remove Vertical ScrollBar
Date: Thu, 10 Jun 2004 16:18:57 +0200
Organization: Planet Internet
Lines: 50
Message-ID: <ca9qkh$r3e$2@reader13.wxs.nl>
References: <55Kwc.23572$DV4.19718@clgrps13>
NNTP-Posting-Host: ip503cfbcb.speed.planet.nl
X-Trace: reader13.wxs.nl 1086877137 27758 80.60.251.203 (10 Jun 2004 14:18:57 GMT)
X-Complaints-To: abuse@planet.nl
NNTP-Posting-Date: 10 Jun 2004 14:18:57 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1409
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1409

Reply to Parent Message