Changeset 31 for trunk/Packages/FastGraphics/UGGraphics.pas

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.

File:

• trunk/Packages/FastGraphics/UGGraphics.pas (modified) (2 diffs)

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 }