Changeset 8 for trunk/Forms/UFormNew.pas

Timestamp:

Sep 19, 2014, 9:47:22 AM (10 years ago)

Author:

chronos

Message:

• Modified: To support generic custom user defined runtime color formats TGColor have to reference directly TGColorFormat class. Also it is faster as we don't need to create instance of TGColorFormat from TGColorFormatClass.

But used color formats can't be freed or their parameters modified.

File:

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

trunk/Forms/UFormNew.pas

@@ -47 +47 @@
   ColorFormat: TGColorFormat;
 begin
-  ColorFormat := ColorManager.Formats[ComboBoxColorFormat.ItemIndex].Create;
-  LabelMemRequire.Caption := IntToStr(SpinEditWidth.Value * SpinEditHeight.Value * ColorFormat.GetBitDepth div 8) + ' bytes';
-  ColorFormat.Free;
+  ColorFormat := ColorManager.Formats[ComboBoxColorFormat.ItemIndex];
+  LabelMemRequire.Caption := IntToStr(SpinEditWidth.Value * SpinEditHeight.Value *
+    ColorFormat.GetBitDepth div 8) + ' bytes';
 end;
 
@@ -59 +59 @@
   ComboBoxColorFormat.Clear;
   for I := 0 to ColorManager.FormatCount - 1 do begin
-    ColorFormat := ColorManager.Formats[I].Create;
+    ColorFormat := ColorManager.Formats[I];
     ComboBoxColorFormat.AddItem(ColorFormat.GetName, nil);
-    ColorFormat.Free;
   end;
   if ComboBoxColorFormat.Items.Count > 0 then