Class TBGRARandomScanner

Unit

Declaration

type TBGRARandomScanner = class(TBGRACustomScanner)

Description

Scanner of random color.

Example filling a form with random pixels:

randomscanner

uses ..., BGRABitmap, BGRAGradientScanner;

procedure TForm1.FormPaint(Sender: TObject);
var bmp: TBGRABitmap;
  scan: TBGRARandomScanner;
begin
  bmp := TBGRABitmap.Create(ClientWidth, ClientHeight);
  scan := TBGRARandomScanner.Create(False, 255);
  bmp.Fill(scan);
  scan.Free;
  bmp.Draw(Canvas,0,0);
  bmp.Free;
end;

Hierarchy

Overview

Methods

Public constructor Create(AGrayscale: Boolean; AOpacity: byte);
Public function ScanAt(X, Y: Single): TBGRAPixel; override;
Public function ScanAtInteger(X, Y: integer): TBGRAPixel; override;
Public function ScanNextPixel: TBGRAPixel; override;

Description

Methods

Public constructor Create(AGrayscale: Boolean; AOpacity: byte);

This item has no description.

Public function ScanAt(X, Y: Single): TBGRAPixel; override;

This item has no description.

Public function ScanAtInteger(X, Y: integer): TBGRAPixel; override;

This item has no description.

Public function ScanNextPixel: TBGRAPixel; override;

This item has no description.