mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 01:39:25 +02:00
- 2 warnings
git-svn-id: trunk@14100 -
This commit is contained in:
parent
e158ce57ae
commit
3d9b5dd465
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user