paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 22:59:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* improved colormask for cursors

Browse Source 
git-svn-id: trunk@10564 -
This commit is contained in:
marc 2007-02-02 00:52:21 +00:00
parent ef505e76e2
commit 493364664f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -1272,7 +1272,7 @@ function TGtkWidgetSet.CreateCursor(ACursorInfo: PIconInfo): hCursor;
var
c_bit, m_bit: byte;
begin
c_bit := ord(c.pixel = $FFFFFF);
c_bit := Ord(0.222 * c.red + 0.707 * c.green + 0.071 * c.blue >= $8000);
m_bit := ord(MaskPixel = 0);
AImgBits^ := AImgBits^ or (c_bit shl offset);