Changeset 23 for branches/gbitmap/UFormMain.pas

Timestamp:

Dec 22, 2016, 1:20:06 PM (8 years ago)

Author:

chronos

Message:

Generic classes unit renamed to UGGraphics and non generic component like class renamed to UFGraphics.

File:

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

branches/gbitmap/UFormMain.pas

@@ -6 +6 @@
 
 uses
-  GImage, Classes, SysUtils, FileUtil, Forms, Graphics, Controls, Dialogs, Menus,
-  ExtCtrls, StdCtrls, GPixmap, UPixmapSpecialized, UColorGray1, UColorGray2,
+  UFGraphics, Classes, SysUtils, FileUtil, Forms, Graphics, Controls, Dialogs, Menus,
+  ExtCtrls, StdCtrls, UGGraphics, UPixmapSpecialized, UColorGray1, UColorGray2,
   UColorGray4, UColorGray8, UColorRGB8, UColorRGBA8, UColorRGB565;
 
@@ -29 +29 @@
     function RGB8Random(Position: TPoint): TColorRGB8;
     function RGB16Random(Position: TPoint): TColorRGB16;
-    function ColorRandom(Position: TPoint; ColorFormat: TColorFormat): GImage.TColor;
+    function ColorRandom(Position: TPoint; ColorFormat: TColorFormat): UFGraphics.TFColor;
   public
     procedure TestGray1;
@@ -98 +98 @@
 end;
 
-function TForm1.ColorRandom(Position: TPoint; ColorFormat: TColorFormat): GImage.TColor;
-begin
-  Result := GImage.TColor.Create;
+function TForm1.ColorRandom(Position: TPoint; ColorFormat: TColorFormat): UFGraphics.TFColor;
+begin
+  Result := UFGraphics.TFColor.Create;
   Result.ColorFormat := ColorFormat;
   Result.SetRandom;
@@ -271 +271 @@
 procedure TForm1.TestImage;
 var
-  Image: GImage.TPixmap;
-begin
-  Image := GImage.TPixmap.Create;
+  Image: TFPixmap;
+begin
+  Image := TFPixmap.Create;
   with Image do begin
     Size := Point(100, 100);
     ColorFormat := ColorFormatManager.Formats[5];
-    Fill(GImage.TColor.Create(ColorFormat, cnWhite));
-    Pixels[0, 0] := GImage.TColor.Create(ColorFormat, cnBlack);
+    Fill(TFColor.Create(ColorFormat, cnWhite));
+    Pixels[0, 0] := TFColor.Create(ColorFormat, cnBlack);
     Fill(ColorRandom);
     PaintToCanvas(Image1.Picture.Bitmap.Canvas);