Changeset 22 for branches/gbitmap/ColorFormats/UColorRGB8.pas

Timestamp:

Dec 22, 2016, 1:13:04 PM (8 years ago)

Author:

chronos

Message:

• Modified: RGB8 related code moved to UColorRGB8 unit.

File:

• branches/gbitmap/ColorFormats/UColorRGB8.pas (modified) (4 diffs)

branches/gbitmap/ColorFormats/UColorRGB8.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Graphics, GPixmap, GImage;
+  Classes, SysUtils, GPixmap, GImage, Graphics;
 
 type
@@ -14 +14 @@
     constructor Create; override;
   end;
+
+  { TColorRGB8 }
+
+  TColorRGB8 = record
+    R: Byte;
+    B: Byte;
+    G: Byte;
+    function Create(R, G, B: Byte): TColorRGB8;
+  end;
+
+  TPixmapRGB8 = class(TGPixmap<TColorRGB8>)
+    function RGB8ToColor(Value: TColorRGB8): TColor;
+  end;
+
+  { TBColorRGB8 }
+
+  TBColorRGB8 = class(TBColor)
+    Value: TColorRGB8;
+    constructor Create(Color: TColorRGB8);
+    procedure SetColorName(ColorName: TColorName); override;
+    procedure SetRandom; override;
+  end;
+
+  { TBImageRGB8 }
+
+  TBImageRGB8 = class(TBImage)
+  private
+    FillCallBack: TGetColorPos;
+    function FillGetColor(Position: TPoint): TColorRGB8;
+  protected
+    procedure SetSize(AValue: TPoint); override;
+  public
+    Pixmap: TPixmapRGB8;
+    procedure Fill(Color: IBColor); override;
+    procedure Fill(Func: TGetColorPos); override;
+    procedure PaintToCanvas(Canvas: TCanvas); override;
+    function GetDataSize: Integer; override;
+    constructor Create; override;
+    destructor Destroy; override;
+  end;
+
 
 
@@ -25 +66 @@
   BitDepth := 24;
   Name := 'RGB8';
+  BackendImageClass := TBImageRGB8;
+  BackendColorClass := TBColorRGB8;
   AddChannel('Red', 0, 8);
   AddChannel('Green', 8, 8);
@@ -30 +73 @@
 end;
 
+{ TColorRGB8 }
+
+function TColorRGB8.Create(R, G, B: Byte): TColorRGB8;
+begin
+  Result.R := R;
+  Result.G := G;
+  Result.B := B;
+end;
+
+{ TPixmapRGB8 }
+
+function TPixmapRGB8.RGB8ToColor(Value: TColorRGB8): TColor;
+begin
+  Result := (Value.R shl 16) or (Value.G shl 8) or (Value.B shl 0);
+end;
+
+{ TBColorRGB8 }
+
+constructor TBColorRGB8.Create(Color: TColorRGB8);
+begin
+  Value := Color;
+end;
+
+procedure TBColorRGB8.SetColorName(ColorName: TColorName);
+begin
+  case ColorName of
+    cnBlack: Value := TColorRGB8.Create(0, 0, 0);
+    cnGray: Value := TColorRGB8.Create($80, $80, $80);
+    cnSilver: Value := TColorRGB8.Create($C0, $C0, $C0);
+    cnWhite: Value := TColorRGB8.Create($ff, $ff, $ff);
+    else Value := TColorRGB8.Create(0, 0, 0);;
+  end;
+end;
+
+procedure TBColorRGB8.SetRandom;
+begin
+  Value := TColorRGB8.Create(Random(256), Random(256), Random(256));
+end;
+
+{ TBImageRGB8 }
+
+function TBImageRGB8.FillGetColor(Position: TPoint): TColorRGB8;
+begin
+  Result := (FillCallBack(Position) as TBColorRGB8).Value;
+end;
+
+procedure TBImageRGB8.SetSize(AValue: TPoint);
+begin
+  inherited;
+  Pixmap.Size := AValue;
+end;
+
+procedure TBImageRGB8.Fill(Color: IBColor);
+begin
+  if Color is TBColorRGB8 then
+    Pixmap.Fill((Color as TBColorRGB8).Value);
+end;
+
+procedure TBImageRGB8.Fill(Func: TGetColorPos);
+begin
+  FillCallBack := Func;
+  Pixmap.Fill(FillGetColor);
+end;
+
+procedure TBImageRGB8.PaintToCanvas(Canvas: TCanvas);
+begin
+  Pixmap.PaintToCanvas(Canvas, Pixmap.RGB8ToColor);
+end;
+
+function TBImageRGB8.GetDataSize: Integer;
+begin
+  Result := Pixmap.GetDataSize;
+end;
+
+constructor TBImageRGB8.Create;
+begin
+  Pixmap := TPixmapRGB8.Create;
+end;
+
+destructor TBImageRGB8.Destroy;
+begin
+  FreeAndNil(Pixmap);
+  inherited Destroy;
+end;
+
+
 end.