Changeset 22 for branches/gbitmap/GImage.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/GImage.pas (modified) (3 diffs)

branches/gbitmap/GImage.pas

@@ -24 +24 @@
 
   IBColorClass = class of TBColor;
-
-  { TBColorRGB8 }
-
-  TBColorRGB8 = class(TBColor)
-    Value: TColorRGB8;
-    constructor Create(Color: TColorRGB8);
-    procedure SetColorName(ColorName: TColorName); override;
-    procedure SetRandom; override;
-  end;
 
   { TBImage }
@@ -57 +48 @@
 
   TBPixmapClass = class of TBImage;
-
-  { TBImageRGB8 }
-
-  TBImageRGB8 = class(TBImage)
-  protected
-    procedure SetSize(AValue: TPoint); override;
-  public
-    Pixmap: TGPixmap<TColorRGB8>;
-    procedure Fill(Color: IBColor); override;
-    constructor Create;
-    destructor Destroy; override;
-  end;
 
   { TColorFormatChannel }
@@ -267 +246 @@
 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 }
-
-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;
-
-constructor TBImageRGB8.Create;
-begin
-  Pixmap := TGPixmap<TColorRGB8>.Create;
-end;
-
-destructor TBImageRGB8.Destroy;
-begin
-  FreeAndNil(Pixmap);
-  inherited Destroy;
-end;
-
 { TBImage }