Changeset 31 for trunk/Packages/FastGraphics/UFGraphics.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/UFGraphics.pas (modified) (8 diffs)

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;