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

GraphicTest/Packages/bgrabitmap/bgragradientscanner.pas

@@ -108 +108 @@
   end;
 
+  { TBGRAConstantScanner }
+
+  TBGRAConstantScanner = class(TBGRAGradientScanner)
+    constructor Create(c: TBGRAPixel);
+  end;
+
+  { TBGRARandomScanner }
+
+  TBGRARandomScanner = class(TBGRACustomScanner)
+  private
+    FOpacity: byte;
+    FGrayscale: boolean;
+  public
+    constructor Create(AGrayscale: Boolean; AOpacity: byte);
+    function ScanAtInteger({%H-}X, {%H-}Y: integer): TBGRAPixel; override;
+    function ScanNextPixel: TBGRAPixel; override;
+    function ScanAt({%H-}X, {%H-}Y: Single): TBGRAPixel; override;
+  end;
+
   { TBGRAGradientTriangleScanner }
 
@@ -184 +203 @@
 
 uses BGRABlend;
+
+{ TBGRAConstantScanner }
+
+constructor TBGRAConstantScanner.Create(c: TBGRAPixel);
+begin
+  inherited Create(c,c,gtLinear,PointF(0,0),PointF(0,0),false);
+end;
+
+{ TBGRARandomScanner }
+
+constructor TBGRARandomScanner.Create(AGrayscale: Boolean; AOpacity: byte);
+begin
+  FGrayscale:= AGrayscale;
+  FOpacity:= AOpacity;
+end;
+
+function TBGRARandomScanner.ScanAtInteger(X, Y: integer): TBGRAPixel;
+begin
+  Result:=ScanNextPixel;
+end;
+
+function TBGRARandomScanner.ScanNextPixel: TBGRAPixel;
+begin
+  if FGrayscale then
+  begin
+    result.red := random(256);
+    result.green := result.red;
+    result.blue := result.red;
+    result.alpha:= FOpacity;
+  end else
+    Result:= BGRA(random(256),random(256),random(256),FOpacity);
+end;
+
+function TBGRARandomScanner.ScanAt(X, Y: Single): TBGRAPixel;
+begin
+  Result:=ScanNextPixel;
+end;
 
 { TBGRAHueGradient }
@@ -758 +814 @@
   InitScanInline(X,Y);
   if FVertical then
-    FHorizColor := ScanAt(X,Y);
+    FHorizColor := ScanNextInline;
 end;
 
@@ -1247 +1303 @@
 end;
 
+initialization
+
+  Randomize;
+
 end.