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

- 2 warnings

Browse Source 
git-svn-id: trunk@14100 -
This commit is contained in:
paul 2008-02-12 05:51:07 +00:00
parent e158ce57ae
commit 3d9b5dd465
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/graphtype.pp
View File

@ -1235,8 +1235,8 @@ procedure TRawImage.ExtractRect(const ARect: TRect; out ADst: TRawImage);
ABitOrder: TRawImageBitOrder; ALineEnd: TRawImageLineEnd;
ADest: PByte; ADestSize: PtrUInt);
var
SrcWidth, SrcHeight: cardinal;
DstWidth, DstHeight: cardinal;
SrcWidth, SrcHeight: LongInt;
DstWidth, DstHeight: LongInt;
x, y: Integer;
LineOrder: TRawImageLineOrder;
SrcLineStarts, DstLineStarts: TRawImageLineStarts;
@ -1401,9 +1401,9 @@ const
GlowShadow = 48;
ColorMultiplier = (256 - GlowShadow) / 256;
// 1 Bit color weights. Total weight = 1000
R_Weight = 222;
G_Weight = 707;
B_Weight = 071;
R_Weight: Word = $00DE;
G_Weight: Word = $02C3;
B_Weight: Word = $0047;
H_Threshold = $D5; // threshold of highlight ($D5 is value from experiments. $80 is standard)
var