Rounded Rectangle Better curve Support

taveta

How can I draw rectangles with smaller curves?
The curve property only works with integer values​​. I would like if it's can work with floating point values​​. (So I could use values like 0.4, 0.5, 0.7)
Look at the image of my report. It does not seem much cool. Would be better if the rounded rectangles fit more together.



Do you anybody can help?

gpi

Try to modify frxClass.pas:

skRoundRectangle:
        begin
          if FCurve = 0 then
            min := min div 4
          else
            min := Round(FCurve * FScaleX {* 10});
          RoundRect(FX, FY, FX1 + 1, FY1 + 1, min, min);
        end;