Changeset 7 for trunk/UGraphic.pas

Timestamp:

Sep 19, 2014, 9:25:56 AM (10 years ago)

Author:

chronos

Message:

• Added: Mono image color format. Pixels/channels with lower size then byte are not supported yet.
• Added: Slow image flip and mirror operation.

File:

• trunk/UGraphic.pas (modified) (4 diffs)

trunk/UGraphic.pas

@@ -22 +22 @@
     function GetPixelSize: Integer; virtual;
     function GetName: string; virtual;
-    function GetChannelBytePos(Channel: TGColorChannel): Integer; virtual;
+    function GetChannelBitPos(Channel: TGColorChannel): Integer; virtual;
     function GetChannelBitWidth(Channel: TGColorChannel): Integer; virtual;
     function ChannelUsed(Channel: TGColorChannel): Boolean;
@@ -75 +75 @@
     procedure Clear;
     procedure Random;
+    procedure Flip;
+    procedure Mirror;
     constructor Create; virtual;
     destructor Destroy; override;
@@ -242 +244 @@
 end;
 
-function TGColorFormat.GetChannelBytePos(Channel: TGColorChannel): Integer;
+function TGColorFormat.GetChannelBitPos(Channel: TGColorChannel): Integer;
 begin
 
@@ -437 +439 @@
 end;
 
+procedure TGBitmap.Flip;
+var
+  X, Y: Integer;
+  Color: TGColor;
+begin
+  for Y := 0 to Size.Y div 2 - 1 do
+    for X := 0 to Size.X - 1 do begin
+      Color := Pixels[X, Y];
+      Pixels[X, Y] := Pixels[X, Size.Y - 1 - Y];
+      Pixels[X, Size.Y - 1 - Y] := Color;
+      Color.Free;
+    end;
+end;
+
+procedure TGBitmap.Mirror;
+var
+  X, Y: Integer;
+  Color: TGColor;
+begin
+  for Y := 0 to Size.Y - 1 do
+    for X := 0 to Size.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;
+      Color.Free;
+    end;
+end;
+
 constructor TGBitmap.Create;
 begin