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

branches/gbitmap/ColorFormats/UColorRGB8.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, GPixmap, GImage, Graphics;
+  Classes, SysUtils, UGGraphics, UFGraphics, Graphics;
 
 type
@@ -37 +37 @@
   end;
 
-  { TBImageRGB8 }
+  { TBPixmapRGB8 }
 
-  TBImageRGB8 = class(TBImage)
+  TBPixmapRGB8 = class(TBImage)
   private
     FillCallBack: TGetColorPos;
@@ -66 +66 @@
   BitDepth := 24;
   Name := 'RGB8';
-  BackendImageClass := TBImageRGB8;
+  BackendImageClass := TBPixmapRGB8;
   BackendColorClass := TBColorRGB8;
   AddChannel('Red', 0, 8);
@@ -112 +112 @@
 end;
 
-{ TBImageRGB8 }
+{ TBPixmapRGB8 }
 
-function TBImageRGB8.FillGetColor(Position: TPoint): TColorRGB8;
+function TBPixmapRGB8.FillGetColor(Position: TPoint): TColorRGB8;
 begin
   Result := (FillCallBack(Position) as TBColorRGB8).Value;
 end;
 
-procedure TBImageRGB8.SetSize(AValue: TPoint);
+procedure TBPixmapRGB8.SetSize(AValue: TPoint);
 begin
   inherited;
@@ -125 +125 @@
 end;
 
-procedure TBImageRGB8.Fill(Color: IBColor);
+procedure TBPixmapRGB8.Fill(Color: IBColor);
 begin
   if Color is TBColorRGB8 then
@@ -131 +131 @@
 end;
 
-procedure TBImageRGB8.Fill(Func: TGetColorPos);
+procedure TBPixmapRGB8.Fill(Func: TGetColorPos);
 begin
   FillCallBack := Func;
@@ -137 +137 @@
 end;
 
-procedure TBImageRGB8.PaintToCanvas(Canvas: TCanvas);
+procedure TBPixmapRGB8.PaintToCanvas(Canvas: TCanvas);
 begin
   Pixmap.PaintToCanvas(Canvas, Pixmap.RGB8ToColor);
 end;
 
-function TBImageRGB8.GetDataSize: Integer;
+function TBPixmapRGB8.GetDataSize: Integer;
 begin
   Result := Pixmap.GetDataSize;
 end;
 
-constructor TBImageRGB8.Create;
+constructor TBPixmapRGB8.Create;
 begin
   Pixmap := TPixmapRGB8.Create;
 end;
 
-destructor TBImageRGB8.Destroy;
+destructor TBPixmapRGB8.Destroy;
 begin
   FreeAndNil(Pixmap);