Changeset 13 for trunk/UGraphic.pas

Timestamp:

Sep 22, 2014, 5:25:11 PM (10 years ago)

Author:

chronos

Message:

• Added: Image operation Negative image.
• Added: Partialy implemented Image load from and save to file.

File:

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

trunk/UGraphic.pas

@@ -44 +44 @@
     function ToTColor: TColor;
     procedure FromTColor(Color: TColor);
+    procedure Invert;
     procedure Assign(Source: TGColor); virtual;
     constructor Create;
@@ -71 +72 @@
     procedure CheckLimits(X, Y: Integer);
   public
+    procedure LoadFromCanvas(Canvas: TCanvas; ASize: TPoint);
     function GetDataSize: Integer;
     procedure PaintToCanvas(Canvas: TCanvas; Rect: TRect);
@@ -78 +80 @@
     procedure Flip;
     procedure Mirror;
+    procedure Negative;
     constructor Create; virtual;
     destructor Destroy; override;
@@ -368 +371 @@
 end;
 
+procedure TGColor.Invert;
+var
+  Channel: TBitMemory;
+begin
+  Channel := TBitMemory.Create;
+
+  if Format.GetChannelBitWidth(ccRed) > 0 then begin
+    Channel.Size := Format.GetChannelBitWidth(ccRed);
+    Data.ReadBlock(Channel, Format.GetChannelBitPos(ccRed));
+    Channel.Invert;
+    Data.WriteBlock(Channel, Format.GetChannelBitPos(ccRed));
+  end;
+
+  if Format.GetChannelBitWidth(ccGreen) > 0 then begin
+    Channel.Size := Format.GetChannelBitWidth(ccGreen);
+    Data.ReadBlock(Channel, Format.GetChannelBitPos(ccGreen));
+    Channel.Invert;
+    Data.WriteBlock(Channel, Format.GetChannelBitPos(ccGreen));
+  end;
+
+  if Format.GetChannelBitWidth(ccBlue) > 0 then begin
+    Channel.Size := Format.GetChannelBitWidth(ccBlue);
+    Data.ReadBlock(Channel, Format.GetChannelBitPos(ccBlue));
+    Channel.Invert;
+    Data.WriteBlock(Channel, Format.GetChannelBitPos(ccBlue));
+  end;
+
+  if Format.GetChannelBitWidth(ccGray) > 0 then begin
+    Channel.Size := Format.GetChannelBitWidth(ccGray);
+    Data.ReadBlock(Channel, Format.GetChannelBitPos(ccGray));
+    Channel.Invert;
+    Data.WriteBlock(Channel, Format.GetChannelBitPos(ccGray));
+  end;
+
+  Channel.Free;
+end;
+
 procedure TGColor.Assign(Source: TGColor);
 begin
@@ -429 +469 @@
   if (X < 0) or (Y < 0) or (X >= Size.X) or (Y >= Size.Y) then
     raise Exception.Create('Out of range');
+end;
+
+procedure TGBitmap.LoadFromCanvas(Canvas: TCanvas; ASize: TPoint);
+var
+  X, Y: Integer;
+  Pixel: TGColor;
+begin
+  Pixel := TGColor.Create;
+  Pixel.Format := ColorFormat;
+  Size := ASize;
+  try
+  Canvas.Lock;
+  for Y := 0 to Size.Y - 1 do
+    for X := 0 to Size.X do
+    if (X >= 0) and (X < Size.X) and (Y >= 0) and (Y < Size.Y) then begin
+      Pixel.FromTColor(Canvas.Pixels[X, Y]);
+      Pixels[X, Y] := Pixel;
+    end;
+
+  finally
+    Canvas.Unlock;
+  end;
+  Pixel.Free;
 end;
 
@@ -536 +599 @@
 end;
 
+procedure TGBitmap.Negative;
+var
+  X, Y: Integer;
+  Color: TGColor;
+begin
+  for Y := 0 to Size.Y - 1 do
+    for X := 0 to Size.X - 1 do begin
+      Color := Pixels[X, Y];
+      Color.Invert;
+      Pixels[X, Y] := Color;
+      Color.Free;
+    end;
+end;
+
 constructor TGBitmap.Create;
 begin