Changeset 31 for trunk/Packages

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Packages/FastGraphics

Files:

• ColorFormats/UColorRGB8.pas (modified) (5 diffs)
• UFGraphics.pas (modified) (8 diffs)
• UGGraphics.pas (modified) (2 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

trunk/Packages/FastGraphics/UFGraphics.pas

@@ -13 +13 @@
   IBColor = interface
     procedure SetColorName(ColorName: TColorName);
+    procedure SetColor(Color: TColor);
     procedure SetRandom;
   end;
@@ -20 +21 @@
   TBColor = class(TInterfacedObject, IBColor)
     procedure SetColorName(ColorName: TColorName); virtual;
+    procedure SetColor(Color: TColor); virtual;
     procedure SetRandom; virtual;
   end;
@@ -38 +40 @@
     procedure SetSize(AValue: TPoint); virtual;
   public
+    procedure Mirror; virtual;
+    procedure Flip; virtual;
     procedure Fill(Color: IBColor); virtual; overload;
     procedure Fill(Func: TGetColorPos); virtual; overload;
@@ -110 +114 @@
     constructor Create; overload;
     constructor Create(ColorFormat: TColorFormat; ColorName: TColorName); overload;
+    constructor Create(ColorFormat: TColorFormat; Color: TColor); overload;
     destructor Destroy; override;
   end;
@@ -239 +244 @@
 end;
 
+procedure TBColor.SetColor(Color: TColor);
+begin
+end;
+
 procedure TBColor.SetRandom;
 begin
@@ -334 +343 @@
 end;
 
+constructor TFColor.Create(ColorFormat: TColorFormat; Color: TColor);
+begin
+  Self.ColorFormat := ColorFormat;
+  Backend.SetColor(Color);
+end;
+
 destructor TFColor.Destroy;
 begin
@@ -355 +370 @@
   if (FSize.X = AValue.X) and (FSize.Y = AValue.Y) then Exit;
   FSize := AValue;
+end;
+
+procedure TBImage.Mirror;
+begin
+
+end;
+
+procedure TBImage.Flip;
+begin
 end;
 
@@ -449 +473 @@
 procedure TFPixmap.Flip;
 begin
-
+  FBackend.Flip;
 end;
 
 procedure TFPixmap.Mirror;
 begin
-
+  FBackend.Mirror;
 end;
 

trunk/Packages/FastGraphics/UGGraphics.pas

@@ -71 +71 @@
     procedure Fill(Color: TGColor); overload;
     procedure Fill(Func: TGGetColor); overload;
+    procedure Mirror;
+    procedure Flip;
     function GetDataSize: Int64; virtual;
     property Canvas: TGCanvas<TGColor> read FCanvas;
@@ -278 +280 @@
 end;
 
+procedure TGPixmap<TGColor>.Mirror;
+var
+  X, Y: Integer;
+  Color: TGColor;
+begin
+  for Y := 0 to FSize.Y - 1 do
+    for X := 0 to FSize.X div 2 - 1 do begin
+      Color := Pixels[X, Y];
+      Pixels[X, Y] := Pixels[Size.X - 1 - X, Y];
+      Pixels[Size.X - 1 - X, Y] := Color;
+    end;
+end;
+
+procedure TGPixmap<TGColor>.Flip;
+var
+  X, Y: Integer;
+  Color: TGColor;
+begin
+  for Y := 0 to FSize.Y div 2 - 1 do
+    for X := 0 to FSize.X - 1 do begin
+      Color := Pixels[X, Y];
+      Pixels[X, Y] := Pixels[X, Size.Y - 1 - Y];
+      Pixels[X, Size.Y - 1 - Y] := Color;
+    end;
+end;
+
 { TGPen }