Changeset 472 for GraphicTest/Packages/bgrabitmap/bgragradients.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/bgragradients.pas (modified) (8 diffs)

GraphicTest/Packages/bgrabitmap/bgragradients.pas

@@ -2 +2 @@
 
 {$mode objfpc}{$H+}
+
+{$i bgrasse.inc}
 
 interface
@@ -115 +117 @@
                    Color : TBGRAPixel);
 
-    {$ifdef CPUI386}
+    {$ifdef BGRASSE_AVAILABLE}
     procedure DrawMapSSE(dest: TBGRACustomBitmap; map: TBGRACustomBitmap; mapAltitude: integer; ofsX,ofsY: integer;
                    ColorMap : TBGRACustomBitmap);
@@ -174 +176 @@
 implementation
 
-uses Types, SysUtils, BGRATextFX;
+uses GraphType, Types, SysUtils, BGRATextFX; {GraphType unit used by phongdraw.inc}
 
 function TextShadow(AWidth, AHeight: Integer; AText: String;
@@ -375 +377 @@
                              Color : TBGRAPixel);
 begin
-  {$ifdef CPUI386}
+  {$ifdef BGRASSE_AVAILABLE}
     if UseSSE then
       DrawColorSSE(dest,map,mapAltitude,ofsX,ofsY,Color)
@@ -386 +388 @@
             mapAltitude: integer; ofsX, ofsY: integer; ColorMap: TBGRACustomBitmap);
 begin
-  {$ifdef CPUI386}
+  {$ifdef BGRASSE_AVAILABLE}
     if UseSSE then
       DrawMapSSE(dest,map,mapAltitude,ofsX,ofsY,ColorMap)
@@ -397 +399 @@
   mapAltitude: integer; ofsX, ofsY: integer; ColorScan: IBGRAScanner);
 begin
-  {$ifdef CPUI386}
+  {$ifdef BGRASSE_AVAILABLE}
     if UseSSE then
       DrawScannerSSE(dest,map,mapAltitude,ofsX,ofsY,ColorScan)
@@ -575 +577 @@
   {$I phongdraw.inc }
 
-{$ifdef CPUI386}
+{$ifdef BGRASSE_AVAILABLE}
 procedure TPhongShading.DrawMapSSE(dest: TBGRACustomBitmap; map: TBGRACustomBitmap;
   mapAltitude: integer; ofsX, ofsY: integer; ColorMap: TBGRACustomBitmap);
@@ -1087 +1089 @@
 end;
 
+initialization
+
+  Randomize;
+
 end.