Changeset 31 for trunk/Packages/FastGraphics/ColorFormats/UColorRGB8.pas

Timestamp:

Jan 4, 2017, 11:49:56 PM (7 years ago)

Author:

chronos

Message:

• Added: Pen tool to draw pixels by mouse with selected color.
• Added: Mirror and Flip image operation.

File:

• trunk/Packages/FastGraphics/ColorFormats/UColorRGB8.pas (modified) (5 diffs)

trunk/Packages/FastGraphics/ColorFormats/UColorRGB8.pas

@@ -37 +37 @@
     constructor Create(Color: TColorRGB8);
     procedure SetColorName(ColorName: TColorName); override;
+    procedure SetColor(Color: TColor); override;
     procedure SetRandom; override;
   end;
@@ -47 +48 @@
     function FillGetColor(Position: TPoint): TColorRGB8;
   protected
+    function GetPixel(X, Y: Integer): IBColor;  override;
+    procedure SetPixel(X, Y: Integer; AValue: IBColor); override;
     procedure SetSize(AValue: TPoint); override;
   public
     Pixmap: TPixmapRGB8;
+    procedure Mirror; override;
+    procedure Flip; override;
     procedure Fill(Color: IBColor); override;
     procedure Fill(Func: TGetColorPos); override;
@@ -121 +126 @@
 end;
 
+procedure TBColorRGB8.SetColor(Color: TColor);
+begin
+  Value := TColorRGB8.Create((Color shr 0) and $ff, (Color shr 8) and $ff, (Color shr 16) and $ff);
+end;
+
 procedure TBColorRGB8.SetRandom;
 begin
@@ -131 +141 @@
 begin
   Result := (FillCallBack(Position) as TBColorRGB8).Value;
+end;
+
+function TBPixmapRGB8.GetPixel(X, Y: Integer): IBColor;
+begin
+  Result := TBColorRGB8.Create(Pixmap.Pixels[X, Y]);
+end;
+
+procedure TBPixmapRGB8.SetPixel(X, Y: Integer; AValue: IBColor);
+begin
+  Pixmap.Pixels[X, Y] := (AValue as TBColorRGB8).Value;
 end;
 
@@ -139 +159 @@
 end;
 
+procedure TBPixmapRGB8.Mirror;
+begin
+  Pixmap.Mirror;
+end;
+
+procedure TBPixmapRGB8.Flip;
+begin
+  Pixmap.Flip;
+end;
+
 procedure TBPixmapRGB8.Fill(Color: IBColor);
 begin