anchor.diff:            FImage.Colors[x, y] := fpgColorToRGB(BackgroundColor);
         end;
       end;
  +    FRecalcWheel := False;
     end
     else
     begin
  
positive.code:   Height := 100;
    Name   := 'ColorWheel';
    FWhiteAreaPercent := 10;
  end;
  
  destructor TfpgColorWheel.Destroy;
  
negative.code: 
    FWhiteAreaPercent := WhiteAreaPercent;
    Invalidate;
  end;
  
  procedure TfpgColorWheel.SetBackgroundColor(const AValue: TfpgColor);
  begin
    FRecalcWheel := True;
    inherited SetBackgroundColor(AValue);
  end;
  
  procedure TfpgColorWheel.Notification(AComponent: TComponent; Operation: TOperation);
  