anchor.diff:    Result.Sort;
   end;
   
  +procedure TfpgGDIApplication.SetDrag(const AValue: TfpgGDIDrag);
  +begin
  +  if Assigned(FDrag) then
  +    FDrag.Free;
  +  FDrag := AValue;
  +end;
  +
   function TfpgGDIApplication.GetHiddenWindow: HWND;
   begin
     if (FHiddenWindow = 0) then
  
positive.code: 
  
    TfpgGDIApplication = class(TfpgApplicationBase)
    protected
      FDisplay: HDC;
      WindowClass: TWndClass;
  
negative.code:   // forward declaration
    TfpgGDIWindow = class;
    TGDIDragManager = class;
    TfpgGDIDrag = class;
  
  
    TfpgGDIFontResource = class(TfpgFontResourceBase)
  