Changeset 23 for branches/gbitmap/ColorFormats/UColorGray2.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/UColorGray2.pas (modified) (10 diffs)

branches/gbitmap/ColorFormats/UColorGray2.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Graphics, GPixmap, GImage;
+  Classes, SysUtils, Graphics, UGGraphics, UFGraphics;
 
 type
@@ -20 +20 @@
 
   TPixmapGray2 = class(TGPixmapBit<TColorGray2>)
-    function Gray2ToColor(Value: TColorGray2): Graphics.TColor;
+    function Gray2ToColor(Value: TColorGray2): TColor;
   end;
 
@@ -32 +32 @@
   end;
 
-  { TBImageGray2 }
+  { TBPixmapGray2 }
 
-  TBImageGray2 = class(TBImage)
+  TBPixmapGray2 = class(TBImage)
   private
     FillCallBack: TGetColorPos;
@@ -65 +65 @@
   BitDepth := 2;
   BackendColorClass := TBColorGray2;
-  BackendImageClass := TBImageGray2;
+  BackendImageClass := TBPixmapGray2;
   AddChannel('Gray', 0, 2);
 end;
@@ -92 +92 @@
 end;
 
-{ TBImageGray2 }
+{ TBPixmapGray2 }
 
-function TBImageGray2.FillGetColor(Position: TPoint): TColorGray2;
+function TBPixmapGray2.FillGetColor(Position: TPoint): TColorGray2;
 begin
   Result := (FillCallBack(Position) as TBColorGray2).Value;
 end;
 
-procedure TBImageGray2.SetSize(AValue: TPoint);
+procedure TBPixmapGray2.SetSize(AValue: TPoint);
 begin
   inherited;
@@ -105 +105 @@
 end;
 
-function TBImageGray2.GetPixel(X, Y: Integer): IBColor;
+function TBPixmapGray2.GetPixel(X, Y: Integer): IBColor;
 begin
   Result := TBColorGray2.Create(Pixmap.Pixels[X, Y]);
 end;
 
-procedure TBImageGray2.SetPixel(X, Y: Integer; AValue: IBColor);
+procedure TBPixmapGray2.SetPixel(X, Y: Integer; AValue: IBColor);
 begin
   Pixmap.Pixels[X, Y] := (AValue as TBColorGray2).Value;
 end;
 
-procedure TBImageGray2.Fill(Color: IBColor);
+procedure TBPixmapGray2.Fill(Color: IBColor);
 begin
   if Color is TBColorGray2 then
@@ -121 +121 @@
 end;
 
-procedure TBImageGray2.Fill(Func: TGetColorPos);
+procedure TBPixmapGray2.Fill(Func: TGetColorPos);
 begin
   FillCallBack := Func;
@@ -127 +127 @@
 end;
 
-procedure TBImageGray2.PaintToCanvas(Canvas: TCanvas);
+procedure TBPixmapGray2.PaintToCanvas(Canvas: TCanvas);
 begin
   Pixmap.PaintToCanvas(Canvas, Pixmap.Gray2ToColor);
 end;
 
-function TBImageGray2.GetDataSize: Integer;
+function TBPixmapGray2.GetDataSize: Integer;
 begin
   Result := Pixmap.GetDataSize;
 end;
 
-constructor TBImageGray2.Create;
+constructor TBPixmapGray2.Create;
 begin
   Pixmap := TPixmapGray2.Create;
@@ -143 +143 @@
 end;
 
-destructor TBImageGray2.Destroy;
+destructor TBPixmapGray2.Destroy;
 begin
   FreeAndNil(Pixmap);
@@ -151 +151 @@
 { TPixmapGray2 }
 
-function TPixmapGray2.Gray2ToColor(Value: TColorGray2): Graphics.TColor;
+function TPixmapGray2.Gray2ToColor(Value: TColorGray2): TColor;
 begin
   Value := (Value and $3) * (255 div (4 - 1));