anchor.diff:    //Fit and recalculate ImageScale
     FImage.Left:= 0;
     FImage.Top:= 0;
  -
  -  AWidth:= ClientWidth;
  -  AHeight:= ClientHeight;
   
     if FImageFit then
     begin
  
positive.code:   AScrollMaxX, AScrollMaxY: Integer;
    ARatio, AImageRatio,
    ACenterRatioX, ACenterRatioY: Double;
  begin
    AKeepPosition:= FImageKeepPosition and (not AResetPosition);
  
    AWidth:= Width;
    AHeight:= Height;
  
    //Save center position, need to restore it later
    ACenterRatioX:= 0;
  
negative.code:     FImageMouseDown: Boolean;
      FKeyModifierZoom: TShiftStateEnum;
      FKeyModifierHorzScroll: TShiftStateEnum;
      FInitScrollbarSize: integer;
  
      FOnScroll: TNotifyEvent;
      FOnScrollAlt: TATScrollAltEvent;
  