Changeset 296 for trunk/UNation.pas


Ignore:
Timestamp:
Mar 29, 2019, 12:58:09 PM (6 years ago)
Author:
chronos
Message:
  • Added: New enumeration field type in generic TItem classes.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/UNation.pas

    r290 r296  
    66
    77uses
    8   Classes, SysUtils, DOM, UXMLUtils, Graphics, UItemList;
     8  Classes, SysUtils, Graphics, UItemList;
    99
    1010type
     
    4949  if Index = 1 then string(Value) := Name
    5050  else if Index = 2 then TColor(Value) := Color
    51   else raise Exception.Create('Unsupported value index ' + IntToStr(Index));
     51  else inherited;
    5252end;
    5353
     
    5656  if Index = 1 then Name := string(Value)
    5757  else if Index = 2 then Color := TColor(Value)
    58   else raise Exception.Create('Unsupported value index ' + IntToStr(Index));
     58  else inherited;
    5959end;
    6060
Note: See TracChangeset for help on using the changeset viewer.