Changeset 32 for trunk/Packages

Timestamp:

Jan 4, 2017, 11:54:15 PM (8 years ago)

Author:

chronos

Message:

• Added: Drwing to 1-bit gray image.

File:

• trunk/Packages/FastGraphics/ColorFormats/UColorGray1.pas (modified) (4 diffs)

trunk/Packages/FastGraphics/ColorFormats/UColorGray1.pas

@@ -30 +30 @@
     constructor Create(Color: TColorGray1);
     procedure SetColorName(ColorName: TColorName); override;
+    procedure SetColor(Color: TColor); override;
     procedure SetRandom; override;
   end;
@@ -45 +46 @@
   public
     Pixmap: TPixmapGray1;
+    procedure Mirror; override;
+    procedure Flip; override;
     procedure Fill(Color: IBColor); override;
     procedure Fill(Func: TGetColorPos); override;
@@ -103 +106 @@
 end;
 
+procedure TBColorGray1.SetColor(Color: TColor);
+begin
+  Value := Trunc((((Color shr 16) and $ff) + ((Color shr 8) and $ff) + ((Color shr 0) and $ff)) / $300 * 2)
+end;
+
 procedure TBColorGray1.SetRandom;
 begin
@@ -129 +137 @@
 begin
   Pixmap.Pixels[X, Y] := (AValue as TBColorGray1).Value;
+end;
+
+procedure TBPixmapGray1.Mirror;
+begin
+  Pixmap.Mirror;
+end;
+
+procedure TBPixmapGray1.Flip;
+begin
+  Pixmap.Flip;
 end;