anchor.diff:    {$ENDIF}
   
     Windows.DispatchMessage(@msg);
  -
  -  if timerid <> 0 then
  -    Windows.KillTimer(ltimerWnd, 1);  // same IDEvent as used in SetTimer
   end;
   
   procedure TfpgGDIApplication.DoFlush;
  
positive.code:   WS_OVERLAPPEDWINDOW = WS_VISIBLE;
    WS_POPUPWINDOW = 0;
    WS_EX_APPWINDOW = 0;
  
  // From Lazarus wince\winext.pas:
  function GET_X_LPARAM(lp : Windows.LParam) : longint;
  
negative.code:   { TfpgGDITimer }
  
    TfpgGDITimer = class(TfpgBaseTimer)
    private
      FHandle: THandle;
    protected
      procedure   SetEnabled(const AValue: boolean); override;
    public
      constructor Create(AInterval: integer); override;
    end;
  
  
  