Hi Support,
Seems the smooth shadow scaling 'fix' did not make it into the 8.04 maintenance release?
-----Original Message-----
From: tom [mailto:tom@steema.com]
Sent: 02 April 2008 23:46
To: kb@accsolutions.co.za
Subject: Zoom and Shadows
Hi Keith,
I've only some changes in the smooth part... for some time already.
Didn't I send those earlier? If not, I'm terribly sorry! I hope this fixes your issue.
(the shadow part might change in future)
Please try the following code changes:
In InternalDrawShadow method:
if Shadow.Smooth then
begin
tmpR := ACanvas.CalcRect3D(tmpR, TeeTreeZ);
tmp:=PrepareShadowBitmap(tmpR,tmpC);
try
tmpHorizSize:=Abs(Shadow.HorizSize);
tmpVertSize:=Abs(Shadow.VertSize);
InternalDrawShape(TeeRect(tmpHorizSize,tmpVertSize,
tmp.Width-tmpHorizSize,tmp.Height-tmpVertSize),tmpC,tmpStyle);
if Assigned(ACanvas.View3DOptions) then
begin
tmpX:=tmpR.Left;
tmpY:=tmpR.Top;
end
else
begin
tmpX:=tmpR.Left;
tmpY:=tmpR.Top;
end;
TeeShadowSmooth(tmp,TTeeCanvas3D(ACanvas).Bitmap,
tmpX,tmpY,
tmp.Width,tmp.Height,Shadow.HorizSize*2,Shadow.VertSize*2,
Shadow.SmoothBlur,tmpStyle<>tssRectangle,ACanvas,Shadow.Clip);
finally
tmpC.Free;
tmp.Free;
end;
end
Regards,
Tom.
------------------------------------
Kind Regards,
Keith Blows
