Changeset 24 for branches/gbitmap/UFormMain.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Created package FastGraphics from graphic library files.

File:

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

branches/gbitmap/UFormMain.pas

@@ -273 +273 @@
   Image: TFPixmap;
 begin
-  Image := TFPixmap.Create;
+  Image := TFPixmap.Create(nil);
   with Image do begin
     Size := Point(100, 100);
@@ -288 +288 @@
 procedure TForm1.FormShow(Sender: TObject);
 begin
-  with ColorFormatManager do begin
-    RegisterFormat(TColorFormatGray1);
-    RegisterFormat(TColorFormatGray2);
-    RegisterFormat(TColorFormatGray4);
-    RegisterFormat(TColorFormatGray8);
-    RegisterFormat(TColorFormatRGB8);
-    RegisterFormat(TColorFormatRGBA8);
-    RegisterFormat(TColorFormatRGB565);
-  end;
   ListBox1.ItemIndex := 0;
 end;