Changeset 13 for trunk/UMemory.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/UMemory.pas (modified) (5 diffs)

trunk/UMemory.pas

@@ -67 +67 @@
     procedure SetSize(AValue: Integer); virtual;
   public
+    procedure Invert; virtual;
     function GetInteger: Integer; virtual;
     procedure SetInteger(Value: Integer); virtual;
@@ -83 +84 @@
     FData: PByte;
     FSize: Integer;
-    function GetInteger: Integer; override;
-    procedure SetInteger(Value: Integer); override;
     function GetSize: Integer; override;
     procedure SetSize(AValue: Integer); override;
@@ -90 +89 @@
     procedure SetItem(Index: Integer; AValue: Byte); override;
   public
+    function GetInteger: Integer; override;
+    procedure SetInteger(Value: Integer); override;
+    procedure Clear(Value: Byte = 0); override;
+    procedure ReadBlock(Block: TBitBlock; Position: Integer); override;
+    procedure WriteBlock(Block: TBitBlock; Position: Integer); override;
+    property Data: PByte read FData;
+    procedure Invert; override;
   end;
 
@@ -96 +102 @@
 
 { TBitMemory }
+
+procedure TBitMemory.Clear(Value: Byte);
+begin
+  if (Size and 7) = 0 then begin
+    if Value = 0 then FillChar(FData^, Size shr 3, 0)
+      else FillChar(FData^, Size shr 3, $ff);
+  end else inherited;
+end;
+
+procedure TBitMemory.ReadBlock(Block: TBitBlock; Position: Integer);
+begin
+  if Block is TBitMemory then begin
+    if (Position and 7) = 0 then begin
+      if (Block.Size and 7) = 0 then
+        Move(PByte(FData + Position shr 3)^, TBitMemory(Block).Data^, Block.Size shr 3)
+        else inherited;
+    end else inherited;
+  end else inherited;
+end;
+
+procedure TBitMemory.WriteBlock(Block: TBitBlock; Position: Integer);
+begin
+  if Block is TBitMemory then begin
+    if (Position and 7) = 0 then begin
+      if (Block.Size and 7) = 0 then
+        Move(TBitMemory(Block).Data^, PByte(FData + Position shr 3)^, Block.Size shr 3)
+        else inherited;
+    end else inherited;
+  end else inherited;
+end;
+
+procedure TBitMemory.Invert;
+var
+  I: Integer;
+begin
+  if (Size and 7) = 0 then begin
+    for I := 0 to (Size shr 3) - 1 do
+      PByte(FData + I)^ := PByte(FData + I)^ xor $ff;
+  end
+  else inherited;
+
+end;
 
 function TBitMemory.GetInteger: Integer;
@@ -176 +224 @@
 end;
 
+procedure TBitBlock.Invert;
+var
+  I: Integer;
+begin
+  for I := 0 to Size - 1 do
+    Items[I] := not Items[I];
+end;
+
 function TBitBlock.GetInteger: Integer;
 begin