paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 14:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: split glowshadow const to glow and shadow pars and increase glow as been suggested at blog

Browse Source 
git-svn-id: trunk@15272 -
This commit is contained in:
paul 2008-05-29 07:51:03 +00:00
parent e015a8abdf
commit abd20effbe
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/graphtype.pp
View File

@ -1398,8 +1398,10 @@ procedure TRawImage.PerformEffect(const ADrawEffect: TGraphicsDrawEffect;
end;
const
GlowShadow = 48;
ColorMultiplier = (256 - GlowShadow) / 256;
Glow = 68;
Shadow = 48;
GlowColorMultiplier = (256 - Glow) / 256;
ShadowColorMultiplier = (256 - Shadow) / 256;
// 1 Bit color weights. Total weight = 1000
R_Weight: Word = $00DE;
G_Weight: Word = $02C3;
@ -1451,9 +1453,9 @@ begin
begin
with AData^ do
begin
Red := Round(GlowShadow + Red * ColorMultiplier);
Green := Round(GlowShadow + Green * ColorMultiplier);
Blue := Round(GlowShadow + Blue * ColorMultiplier);
Red := Round(Glow + Red * GlowColorMultiplier);
Green := Round(Glow + Green * GlowColorMultiplier);
Blue := Round(Glow + Blue * GlowColorMultiplier);
end;
inc(AData);
end;
@ -1465,9 +1467,9 @@ begin
begin
with AData^ do
begin
Red := Round(Red * ColorMultiplier);
Green := Round(Green * ColorMultiplier);
Blue := Round(Blue * ColorMultiplier);
Red := Round(Red * ShadowColorMultiplier);
Green := Round(Green * ShadowColorMultiplier);
Blue := Round(Blue * ShadowColorMultiplier);
end;
inc(AData);
end;