🚀 go-pugleaf

Ok, I got it.  It was just as hard as I thought it would be, NOT. :-(

"Randel Bjorkquist" <rbjorkquist@coilcraft.com> wrote in message
news:3e1aeac2$1@newsgroups.borland.com...
> Hey Mark,
>
> I just happened accross your code and was very excited because I've had
the
> same problem, just not the time to really look into it.  I will also
admit,
> I still consider myself very much a novice when it comes to programming
and
> understanding how all the piece of the puzzle fit together.
>
> What my question is, that I don't understand where to call this code, so
how
> do I call this code?  I have looked at inserting the code within the
> OnMouseWheel Event, but that doesn't look right.  I apologize if this
feels
> as if I'm asking you to write all my code.  But if you can either tell me
or
> give me a hit, I would sure appreciate it.
>
> Thanks if you can help,
>
> Randel
>
> "Mark Guerrieri" <mguerrieri@cmsgrp.com> wrote in message
> news:3e19b869@newsgroups.borland.com...
> > Ok, here you go... this will handle ant TDBGrids in your app and scroll
> them
> > correctly...  I am using BCB6 sp2...
> >
> > void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
> >       bool &Handled)
> > {
> >   static int deltaUp   = 0;
> >   static int deltaDown = 0;
> >
> >   if(Msg.message == WM_MOUSEWHEEL)
> >   {
> >     if(Screen->ActiveForm &&
> > dynamic_cast<TDBGrid*>(Screen->ActiveForm->ActiveControl))
> >     {
> >       short zDelta = (short) HIWORD(Msg.wParam);
> >       bool bUp = false;
> >       bool bDown = false;
> >        if(zDelta == 0)
> >         return;
> >       if(zDelta > 0)
> >       {
> >         deltaUp+= zDelta;
> >         deltaDown = 0;
> >         bUp = true;
> >       }
> >       else
> >       {
> >         deltaDown+= zDelta;
> >         deltaUp = 0;
> >         bDown = true;
> >       }
> >
> >       if(bUp && deltaUp >= WHEEL_DELTA)
> >       {
> >         deltaUp = 0;
> >         Msg.message = WM_KEYDOWN;
> >         Msg.lParam = 0;
> >         Msg.wParam = VK_UP;
> >       }
> >       else if(bDown && (deltaDown * -1) >= WHEEL_DELTA)
> >       {
> >         deltaDown = 0;
> >         Msg.message = WM_KEYDOWN;
> >         Msg.lParam = 0;
> >         Msg.wParam = VK_DOWN;
> >       }
> >     }
> >   }
> > }
> >
> >
> > Mark Guerrieri
> > mguerrieri@cmsgrp.com
> >
> >
> > "Ricardo Rodrigues" <madinfo@cadaval.net> wrote in message
> > news:3e18b751@newsgroups.borland.com...
> > > I am interested on that code too
> > > tanks
> > >
> > > --Ricardo
> > >
> > >
> > > "Mark Guerrieri" <markg11@comcast.net> wrote in message
> > > news:3e174252$1@newsgroups.borland.com...
> > > > This is a known issue with TDBGrid.  You need to add a routine to
> > globally
> > > > handle mouse wheel messages (write a TApplicationEvents->OnMessage
> event
> > > > handler), check to see if the window with input focus is a TDBGrid
and
> > if
> > > it
> > > > is, manually scroll the grid.  When I get back to the office on
> Monday,
> > > I'll
> > > > post the code I use if someone else hasn't by then.
> > > >
> > > > Mark Guerrieri
> > > > mguerrieri@cmsgrp.com
> > > >
> > > > "Alen Markov" <NOSPAM_amarkov@gmx.net> wrote in message
> > > > news:3e16d6df$1@newsgroups.borland.com...
> > > > > Just curious:
> > > > >
> > > > > Let's say you have a DGGrid with total 1000 rows.
> > > > > The DBGrid is positioned on the screen in a size
> > > > > that only the first 15rows are displayed
> > > > > (Properties - Options are all left on their defaultvalues)
> > > > >
> > > > > When you scroll down now with the mousewheel,
> > > > > it works fine until the "cursor" (the current cell is marked blue)
> > > > > reaches the row number 15... means you can only scroll
> > > > > between rows 1 and 15, but not further...
> > > > >
> > > > > Is it possible to adjust somehow the behaviour of a DBGrid
> > > > > so you can scroll through all rows with the mousewheel?
> > > > >
> > > > > Alen
> > > > >
> > > > >
> > > > > --
> > > > > WEB: http://www.come.to/nostromo
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>