Changeset 296 for trunk/UNation.pas

Timestamp:

Mar 29, 2019, 12:58:09 PM (5 years ago)

Author:

chronos

Message:

• Added: New enumeration field type in generic TItem classes.

File:

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

trunk/UNation.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, DOM, UXMLUtils, Graphics, UItemList;
+  Classes, SysUtils, Graphics, UItemList;
 
 type
@@ -49 +49 @@
   if Index = 1 then string(Value) := Name
   else if Index = 2 then TColor(Value) := Color
-  else raise Exception.Create('Unsupported value index ' + IntToStr(Index));
+  else inherited;
 end;
 
@@ -56 +56 @@
   if Index = 1 then Name := string(Value)
   else if Index = 2 then Color := TColor(Value)
-  else raise Exception.Create('Unsupported value index ' + IntToStr(Index));
+  else inherited;
 end;