Changeset 26 for trunk/Forms/UFormNew.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Used FastGraphics package for handling bitmaps.

File:

• trunk/Forms/UFormNew.pas (modified) (3 diffs)

trunk/Forms/UFormNew.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Spin,
-  StdCtrls, ActnList, UGraphic;
+  StdCtrls, ActnList, UFGraphics;
 
 type
@@ -45 +45 @@
 procedure TFormNew.SpinEditWidthChange(Sender: TObject);
 var
-  ColorFormat: TGColorFormat;
+  ColorFormat: TColorFormat;
 begin
-  ColorFormat := ColorManager.Formats[ComboBoxColorFormat.ItemIndex];
+  ColorFormat := ColorFormatManager.Formats[ComboBoxColorFormat.ItemIndex];
   LabelMemRequire.Caption := IntToStr(SpinEditWidth.Value * SpinEditHeight.Value *
     ColorFormat.BitDepth div 8) + ' bytes';
@@ -54 +54 @@
 procedure TFormNew.FormShow(Sender: TObject);
 var
-  ColorFormat: TGColorFormat;
+  ColorFormat: TColorFormat;
   I: Integer;
 begin
   ComboBoxColorFormat.Clear;
-  for I := 0 to ColorManager.FormatCount - 1 do begin
-    ColorFormat := ColorManager.Formats[I];
+  for I := 0 to ColorFormatManager.FormatCount - 1 do begin
+    ColorFormat := ColorFormatManager.Formats[I];
     ComboBoxColorFormat.AddItem(ColorFormat.Name, nil);
   end;