anchor.diff:    { TfpgGDITimer }
   
     TfpgGDITimer = class(TfpgBaseTimer)
  +  private
  +    FHandle: THandle;
  +  protected
  +    procedure   SetEnabled(const AValue: boolean); override;
  +  public
  +    constructor Create(AInterval: integer); override;
     end;
   
   
  
positive.code:   {$ENDIF}
  
    Windows.DispatchMessage(@msg);
  
    if timerid <> 0 then
      Windows.KillTimer(ltimerWnd, 1);  // same IDEvent as used in SetTimer
  end;
  
  procedure TfpgGDIApplication.DoFlush;
  
negative.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;
  