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