RotatedLabel component

rbuser

I fixed a WYSIWYG problem printing the RotatedLabel (Friends download).
Change the following line in BuilderControls.pas around line 360 from:

lClientRect := CalcRect(lPrinter.Canvas, Screen.Width, Text);

to:

lClientRect := CalcRect(lPrinter.Canvas,
lPrinter.Canvas.TextWidth(Text), Text);

Longer strings on higher resolution printers weren't printing properly.

Thanks,

Harry Ragland
QS Technologies, Inc.

digitalmetaphors

Thankyou very much for the information!


Cheers,

Jim Bennett
Digital Metaphors