Changeset 20 for branches/gbitmap/GPixmap.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/GPixmap.pas (modified) (5 diffs)

branches/gbitmap/GPixmap.pas

@@ -53 +53 @@
     FData: PByte;
     FSize: TPoint;
+    FCanvas: TGCanvas<TGColor>;
     function GetPixel(X, Y: Integer): TGColor; virtual;
     function GetSize: TPoint; virtual;
@@ -60 +61 @@
     procedure CheckLimits(X, Y: Integer);
   public
-    Canvas: TGCanvas<TGColor>;
     constructor Create;
     destructor Destroy; override;
@@ -67 +67 @@
     procedure Fill(Func: TGGetColor); overload;
     function GetDataSize: Int64; virtual;
+    property Canvas: TGCanvas<TGColor> read FCanvas;
     property Pixels[X, Y: Integer]: TGColor read GetPixel write SetPixel;
     property Size: TPoint read GetSize write SetSize;
@@ -120 +121 @@
 constructor TGPixmap<TGColor>.Create;
 begin
-  Canvas := TGCanvas<TGColor>.Create;
-  Canvas.Bitmap := Self;
+  FCanvas := TGCanvas<TGColor>.Create;
+  FCanvas.Bitmap := Self;
 end;
 
@@ -127 +128 @@
 begin
   Size := Point(0, 0);
+  FreeAndNil(FCanvas);
 end;