Smooth Shadows Zooming- Fix not applied in V8.04

TeeTree VCL for Borland Delphi and C++ Builder.
Post Reply
keithblo
Newbie
Newbie
Posts: 12
Joined: Mon Jun 25, 2007 12:00 am

Smooth Shadows Zooming- Fix not applied in V8.04

Post by keithblo » Thu Oct 16, 2008 9:23 am

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

tom
Advanced
Posts: 211
Joined: Mon Dec 01, 2003 5:00 am
Contact:

Post by tom » Tue Nov 25, 2008 8:13 pm

Hi Keith,

Thanks for letting us know.

Regards,
Tom.

Post Reply