Changeset 472 for GraphicTest/Packages/bgrabitmap/bgracolorint.pas

Timestamp:

Apr 9, 2015, 9:58:36 PM (10 years ago)

Author:

chronos

Message:

• Fixed: Use csOpaque control style also to Image, PaintBox and OpenGLControl.
• Modified: Change size of test frame with SpinEdits as delayed using timer.
• Updated: BRGABitmap package to version 8.1.

File:

• GraphicTest/Packages/bgrabitmap/bgracolorint.pas (modified) (1 diff)

GraphicTest/Packages/bgrabitmap/bgracolorint.pas

@@ -167 +167 @@
   end;
 {$else}
-begin
-  result.r := int64(color1.r)*factor65536 shr 16;
-  result.g := int64(color1.g)*factor65536 shr 16;
-  result.b := int64(color1.b)*factor65536 shr 16;
-  result.a := int64(color1.a)*factor65536 shr 16;
+var prod: int64;
+begin
+  prod := int64(color1.r)*factor65536;
+  if prod >= 0 then result.r := prod shr 16
+  else result.r := -((-prod) shr 16);
+  prod := int64(color1.g)*factor65536;
+  if prod >= 0 then result.g := prod shr 16
+  else result.g := -((-prod) shr 16);
+  prod := int64(color1.b)*factor65536;
+  if prod >= 0 then result.b := prod shr 16
+  else result.b := -((-prod) shr 16);
+  prod := int64(color1.a)*factor65536;
+  if prod >= 0 then result.a := prod shr 16
+  else result.a := -((-prod) shr 16);
 end;
 {$endif}