paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-22 16:56:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* better color conversion (White didn't stay white)

Browse Source
This commit is contained in:
luk 2003-09-30 14:17:05 +00:00
parent 9298c67e3e
commit 077a2d12c0
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fcl/image/fpreadbmp.pp
View File

@ -87,10 +87,10 @@ procedure TFPReaderBMP.InternalRead(Stream:TStream; Img:TFPCustomImage);
with aLine[Coulumn],aColor do with aLine[Coulumn],aColor do
begin begin
{Use only the high byte to convert the color} {Use only the high byte to convert the color}
Red:=R shl 8; Red := (R shl 8) + R;
Green:=G shl 8; Green := (G shl 8) + G;
Blue:=B shl 8; Blue := (B shl 8) + B;
alpha:=AlphaOpaque; alpha := AlphaOpaque;
img.colors[Coulumn,Row]:=aColor; img.colors[Coulumn,Row]:=aColor;
end; end;
Stream.Read(aLine{$IFNDEF UseDynArray}^{$ENDIF UseDynArray},ReadSize); Stream.Read(aLine{$IFNDEF UseDynArray}^{$ENDIF UseDynArray},ReadSize);
@ -122,7 +122,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.4 2003-09-30 06:17:38 mazen Revision 1.5 2003-09-30 14:17:05 luk
* better color conversion (White didn't stay white)
Revision 1.4 2003/09/30 06:17:38 mazen
- all common defintions are now included into bmpcomn unit - all common defintions are now included into bmpcomn unit
Revision 1.3 2003/09/15 11:39:01 mazen Revision 1.3 2003/09/15 11:39:01 mazen