Changeset 23 for branches/gbitmap/ColorFormats/UColorGray1.pas

Timestamp:

Dec 22, 2016, 1:20:06 PM (8 years ago)

Author:

chronos

Message:

Generic classes unit renamed to UGGraphics and non generic component like class renamed to UFGraphics.

File:

• branches/gbitmap/ColorFormats/UColorGray1.pas (modified) (10 diffs)

branches/gbitmap/ColorFormats/UColorGray1.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Graphics, GImage, GPixmap;
+  Classes, SysUtils, Graphics, UFGraphics, UGGraphics;
 
 type
@@ -20 +20 @@
 
   TPixmapGray1 = class(TGPixmapBit<TColorGray1>)
-    function Gray1ToColor(Value: TColorGray1): Graphics.TColor;
+    function Gray1ToColor(Value: TColorGray1): TColor;
   end;
 
@@ -32 +32 @@
   end;
 
-  { TBImageGray1 }
+  { TBPixmapGray1 }
 
-  TBImageGray1 = class(TBImage)
+  TBPixmapGray1 = class(TBImage)
   private
     FillCallBack: TGetColorPos;
@@ -64 +64 @@
   BitDepth := 1;
   BackendColorClass := TBColorGray1;
-  BackendImageClass := TBImageGray1;
+  BackendImageClass := TBPixmapGray1;
   AddChannel('Gray', 0, 1);
 end;
@@ -70 +70 @@
 { TPixmapGray1 }
 
-function TPixmapGray1.Gray1ToColor(Value: TColorGray1): Graphics.TColor;
+function TPixmapGray1.Gray1ToColor(Value: TColorGray1): TColor;
 begin
   Value := (Value and $1) * $ff;
@@ -97 +97 @@
 end;
 
-{ TBImageGray1 }
+{ TBPixmapGray1 }
 
-function TBImageGray1.FillGetColor(Position: TPoint): TColorGray1;
+function TBPixmapGray1.FillGetColor(Position: TPoint): TColorGray1;
 begin
   Result := (FillCallBack(Position) as TBColorGray1).Value;
 end;
 
-procedure TBImageGray1.SetSize(AValue: TPoint);
+procedure TBPixmapGray1.SetSize(AValue: TPoint);
 begin
   inherited;
@@ -110 +110 @@
 end;
 
-function TBImageGray1.GetPixel(X, Y: Integer): IBColor;
+function TBPixmapGray1.GetPixel(X, Y: Integer): IBColor;
 begin
   Result := TBColorGray1.Create(Pixmap.Pixels[X, Y]);
 end;
 
-procedure TBImageGray1.SetPixel(X, Y: Integer; AValue: IBColor);
+procedure TBPixmapGray1.SetPixel(X, Y: Integer; AValue: IBColor);
 begin
   Pixmap.Pixels[X, Y] := (AValue as TBColorGray1).Value;
 end;
 
-procedure TBImageGray1.Fill(Color: IBColor);
+procedure TBPixmapGray1.Fill(Color: IBColor);
 begin
   if Color is TBColorGray1 then
@@ -126 +126 @@
 end;
 
-procedure TBImageGray1.Fill(Func: TGetColorPos);
+procedure TBPixmapGray1.Fill(Func: TGetColorPos);
 begin
   FillCallBack := Func;
@@ -132 +132 @@
 end;
 
-procedure TBImageGray1.PaintToCanvas(Canvas: TCanvas);
+procedure TBPixmapGray1.PaintToCanvas(Canvas: TCanvas);
 begin
   Pixmap.PaintToCanvas(Canvas, Pixmap.Gray1ToColor);
 end;
 
-function TBImageGray1.GetDataSize: Integer;
+function TBPixmapGray1.GetDataSize: Integer;
 begin
   Result := Pixmap.GetDataSize;
 end;
 
-constructor TBImageGray1.Create;
+constructor TBPixmapGray1.Create;
 begin
   Pixmap := TPixmapGray1.Create;
@@ -148 +148 @@
 end;
 
-destructor TBImageGray1.Destroy;
+destructor TBPixmapGray1.Destroy;
 begin
   FreeAndNil(Pixmap);