Changeset 33 for trunk/Packages/FastGraphics/UFGraphics.pas

Timestamp:

Jan 5, 2017, 11:48:36 PM (8 years ago)

Author:

chronos

Message:

• Added: Remember last used image size and color format.
• Added: Automatically create blank image.

File:

• trunk/Packages/FastGraphics/UFGraphics.pas (modified) (5 diffs)

trunk/Packages/FastGraphics/UFGraphics.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Graphics, UGGraphics, UPixmapSpecialized, Contnrs;
+  Classes, SysUtils, Graphics, UGGraphics, UPixmapSpecialized, Fgl;
 
 type
@@ -81 +81 @@
   end;
 
+  TColorFormats  = class(TFPGObjectList<TColorFormat>)
+  end;
+
   TColorFormatClass = class of TColorFormat;
 
@@ -87 +90 @@
   TColorFormatManager = class
   private
-    FFormats: TObjectList; // TList<TColorFormat>
+    FFormats: TColorFormats;
     function GetFormat(Index: Integer): TColorFormat;
   public
     constructor Create; virtual;
-     destructor Destroy; override;
+    destructor Destroy; override;
+    function FindByName(Name: string): Integer;
     procedure RegisterFormat(Format: TColorFormatClass);
     function FormatCount: Integer;
-    property Formats[Index: Integer]: TColorFormat read GetFormat;
+    property Formats: TColorFormats read FFormats;
   end;
 
@@ -261 +265 @@
 constructor TColorFormatManager.Create;
 begin
-  FFormats := TObjectList.Create;
+  FFormats := TColorFormats.Create;
 end;
 
@@ -268 +272 @@
   FreeAndNil(FFormats);
   inherited Destroy;
+end;
+
+function TColorFormatManager.FindByName(Name: string): Integer;
+var
+  I: Integer;
+begin
+  Result := -1;
+  for I := 0 to FFormats.Count - 1 do begin
+    if FFormats[I].Name = Name then begin
+      Result := I;
+      Break;
+    end;
+  end;
 end;