Rounded Rectangle Better curve Support

tavetataveta
edited June 2012 in FastReport 4.0
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.

testteg.jpg

Do you anybody can help?

Comments

  • gpigpi
    edited 1:04AM
    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;

Leave a Comment


Home • FastReport 4.0Comment As ...

© Vanilla Keystone Theme 2025