Changeset 20 for branches/gbitmap/UFormMain.pas

Timestamp:

Dec 21, 2016, 3:49:27 PM (8 years ago)

Author:

chronos

Message:

• Modified: For single class layer TPixmap and TColor is used. They have TBPixmap and TBColor backends pairs.

File:

• branches/gbitmap/UFormMain.pas (modified) (4 diffs)

branches/gbitmap/UFormMain.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ExtCtrls, StdCtrls, GPixmap, UPixmapSpecialized, GImage;
+  GImage, Classes, SysUtils, FileUtil, Forms, Graphics, Controls, Dialogs, Menus,
+  ExtCtrls, StdCtrls, GPixmap, UPixmapSpecialized;
 
 type
@@ -28 +28 @@
     function RGB8Random(Position: TPoint): TColorRGB8;
     function RGB16Random(Position: TPoint): TColorRGB16;
+    function ColorRandom(Position: TPoint; ColorFormat: TColorFormat): GImage.TColor;
   public
     procedure TestGray1;
@@ -96 +97 @@
 end;
 
+function TForm1.ColorRandom(Position: TPoint; ColorFormat: TColorFormat): GImage.TColor;
+begin
+  Result := GImage.TColor.Create;
+  Result.ColorFormat := ColorFormat;
+  Result.SetRandom;
+end;
+
 procedure TForm1.TestGray1;
 var
@@ -262 +270 @@
 procedure TForm1.TestImage;
 var
-  Image: TGImage;
-  Color: TBColorGray1;
-begin
-  Image := TGImage.Create;
+  Image: GImage.TPixmap;
+begin
+  Image := GImage.TPixmap.Create;
   with Image do begin
     Size := Point(100, 100);
-    ColorFormat := cfGray1;
-    Color := TBColorGray1.Create;
-    Color.Value := 1;
-    Fill(Color);
-    Random;
+    ColorFormat := cfGray2;
+    Fill(GImage.TColor.Create(ColorFormat, cnWhite));
+    Pixels[0, 0] := GImage.TColor.Create(ColorFormat, cnBlack);
+    Fill(ColorRandom);
     PaintToCanvas(Image1.Picture.Bitmap.Canvas);
+    Label1.Caption := IntToStr(GetDataSize);
     Free;
   end;