paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 11:19:23 +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; ABitOrder: TRawImageBitOrder; ALineEnd: TRawImageLineEnd;
ADest: PByte; ADestSize: PtrUInt); ADest: PByte; ADestSize: PtrUInt);
var var
SrcWidth, SrcHeight: cardinal; SrcWidth, SrcHeight: LongInt;
DstWidth, DstHeight: cardinal; DstWidth, DstHeight: LongInt;
x, y: Integer; x, y: Integer;
LineOrder: TRawImageLineOrder; LineOrder: TRawImageLineOrder;
SrcLineStarts, DstLineStarts: TRawImageLineStarts; SrcLineStarts, DstLineStarts: TRawImageLineStarts;
@ -1401,9 +1401,9 @@ const
GlowShadow = 48; GlowShadow = 48;
ColorMultiplier = (256 - GlowShadow) / 256; ColorMultiplier = (256 - GlowShadow) / 256;
// 1 Bit color weights. Total weight = 1000 // 1 Bit color weights. Total weight = 1000
R_Weight = 222; R_Weight: Word = $00DE;
G_Weight = 707; G_Weight: Word = $02C3;
B_Weight = 071; B_Weight: Word = $0047;
H_Threshold = $D5; // threshold of highlight ($D5 is value from experiments. $80 is standard) H_Threshold = $D5; // threshold of highlight ($D5 is value from experiments. $80 is standard)
var var