paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 11:40:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Alphablend (low-lighting) for markup

Browse Source 
git-svn-id: trunk@41192 -
This commit is contained in:
martin 2013-05-14 18:11:07 +00:00
parent 7d486bba43
commit bf7b52f47d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/syneditmiscclasses.pp
View File

@ -883,14 +883,14 @@ begin
C2 := Green(Result);
C3 := Blue(Result);
for i := 0 to c do begin
Col := AnInfo.AlphaStack[i].Color;
Col := ColorToRGB(AnInfo.AlphaStack[i].Color);
Alpha := AnInfo.AlphaStack[i].Alpha;
M1 := Red(Col);
M2 := Green(Col);
M3 := Blue(Col);
C1 := C1 + (M1 - C1) * Alpha div 256;
C2 := C2 + (M2 - C2) * Alpha div 256;
C3 := C3 + (M3 - C3) * Alpha div 256;
C1 := MinMax(C1 + (M1 - C1) * Alpha div 256, 0, 255);
C2 := MinMax(C2 + (M2 - C2) * Alpha div 256, 0, 255);
C3 := MinMax(C3 + (M3 - C3) * Alpha div 256, 0, 255);
end;
Result := RGBToColor(C1, C2, C3);