Changeset 26 for trunk/UProject.pas

Timestamp:

Dec 22, 2016, 5:07:02 PM (8 years ago)

Author:

chronos

Message:

• Modified: Used FastGraphics package for handling bitmaps.

File:

• trunk/UProject.pas (modified) (3 diffs)

trunk/UProject.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UGraphic;
+  Classes, SysUtils, UFGraphics;
 
 type
@@ -34 +34 @@
   TProject = class
     FileName: string;
-    Bitmap: TGBitmap;
+    Bitmap: TFPixmap;
     View: TView;
     Saved: Boolean;
@@ -119 +119 @@
 constructor TProject.Create;
 begin
-  Bitmap := TGBitmap.Create;
+  Bitmap := TFPixmap.Create(nil);
   View := TView.Create;
 end;