Changeset 10 for trunk/UGraphic.pas

Timestamp:

Sep 22, 2014, 3:07:02 AM (10 years ago)

Author:

chronos

Message:

• Added: Zooming and moving image.
• Added: Color format 4-bit gray.
• Added: Image operation for generating test gradient image.

File:

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

trunk/UGraphic.pas

@@ -72 +72 @@
   public
     function GetDataSize: Integer;
-    procedure PaintToCanvas(Canvas: TCanvas);
+    procedure PaintToCanvas(Canvas: TCanvas; Rect: TRect);
     procedure Clear;
     procedure Random;
+    procedure Gradient;
     procedure Flip;
     procedure Mirror;
@@ -435 +436 @@
 end;
 
-procedure TGBitmap.PaintToCanvas(Canvas: TCanvas);
+procedure TGBitmap.PaintToCanvas(Canvas: TCanvas; Rect: TRect);
 var
   X, Y: Integer;
@@ -442 +443 @@
   try
   Canvas.Lock;
-  for Y := 0 to Size.Y - 1 do
-    for X := 0 to Size.X - 1 do begin
+  for Y := Rect.Top to Rect.Bottom - 1 do
+    for X := Rect.Left to Rect.Right - 1 do
+    if (X >= 0) and (X < Size.X) and (Y >= 0) and (Y < Size.Y) then begin
       Pixel := Pixels[X, Y];
-      Canvas.Pixels[X, Y] := Pixel.ToTColor;
+      Canvas.Pixels[X - Rect.Left, Y - Rect.Top] := Pixel.ToTColor;
       Pixel.Free;
     end;
@@ -475 +477 @@
     for X := 0 to Size.X - 1 do begin
       Color.FromTColor(System.Random($ffffff));
+      F := Cardinal(Color.Data.GetInteger);
+
+      Pixels[X, Y] := Color;
+    end;
+  Color.Free;
+end;
+
+procedure TGBitmap.Gradient;
+var
+  X, Y: Integer;
+  Color: TGColor;
+  F: Cardinal;
+  N: Integer;
+begin
+  Color := TGColor.Create;
+  Color.Format := ColorFormat;
+  for Y := 0 to Size.Y - 1 do
+    for X := 0 to Size.X - 1 do begin
+      if Y < Size.Y div 4 then N := $000001
+      else if Y < Size.Y div 4 * 2 then N := $000100
+      else if Y < Size.Y div 4 * 3 then N := $010000
+      else N := $010101;
+
+      Color.FromTColor(N * (X * 255 div Size.X));
       F := Cardinal(Color.Data.GetInteger);