Changeset 296 for trunk/UNation.pas
- Timestamp:
- Mar 29, 2019, 12:58:09 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UNation.pas
r290 r296 6 6 7 7 uses 8 Classes, SysUtils, DOM, UXMLUtils,Graphics, UItemList;8 Classes, SysUtils, Graphics, UItemList; 9 9 10 10 type … … 49 49 if Index = 1 then string(Value) := Name 50 50 else if Index = 2 then TColor(Value) := Color 51 else raise Exception.Create('Unsupported value index ' + IntToStr(Index));51 else inherited; 52 52 end; 53 53 … … 56 56 if Index = 1 then Name := string(Value) 57 57 else if Index = 2 then Color := TColor(Value) 58 else raise Exception.Create('Unsupported value index ' + IntToStr(Index));58 else inherited; 59 59 end; 60 60
Note:
See TracChangeset
for help on using the changeset viewer.