[lazarus] CVS Changes (TSpeedbutton pupsup and down)

[Marc Weustink]

Hi,

Some changes:
  + added local messageloop
     A side effect of the idle state. This way the
     implementation of Peek and Post message are way easier
     (In the old implementation Peekmessage couldn't have worked)

   + added PostMessage
      Simply an add to the queue

   * fixed Peekmessage
      Since messages where immediatly handled you always
      looked at an empty queue

   * fixed ClientToScreen
      The old one only worked if client origin was (0,0)
      and if Client was a root component

   * fixed Flat style of Speedutton (TODO: Draw)
      In the idle loop now is checked if the mousepointer is
      outside a control

   + Added TApplicatio.OnIdle
      Side effect of the previous case

Marc