Changeset 296 for trunk/UItemList.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/UItemList.pas (modified) (12 diffs)

trunk/UItemList.pas

@@ -9 +9 @@
 
 type
+  TUndefinedEnum = (eeNone);
+
   TDataType = (dtNone, dtString, dtBoolean, dtInteger, dtFloat, dtColor,
     dtTime, dtDate, dtDateTime, dtEnumeration);
@@ -21 +23 @@
     Position: TPoint;
     Size: TPoint;
+    EnumStates: TStringList;
+    constructor Create;
+    destructor Destroy; override;
     procedure Assign(Source: TItemField);
   end;
@@ -48 +53 @@
     function GetValueColor(Index: Integer): TColor;
     function GetValueBoolean(Index: Integer): Boolean;
+    function GetValueEnumeration(Index: Integer): TUndefinedEnum;
     function GetValueAsText(Index: Integer): string;
     procedure SetValue(Index: Integer; var Value); virtual;
@@ -54 +60 @@
     procedure SetValueColor(Index: Integer; Value: TColor);
     procedure SetValueBoolean(Index: Integer; Value: Boolean);
+    procedure SetValueEnumeration(Index: Integer; Value: TUndefinedEnum);
     procedure Assign(Source: TItem); virtual;
     procedure LoadFromNode(Node: TDOMNode); virtual;
@@ -80 +87 @@
   end;
 
+const
+  DataTypeStr: array[TDataType] of string = ('None', 'String', 'Boolean',
+    'Integer', 'Float', 'Color', 'Time', 'Date', 'DateTime', 'Enumeration');
+
+resourcestring
+    SUnsupportedDataType = 'Unsupported field value data type %s';
+
 
 implementation
@@ -90 +104 @@
 
 { TItemField }
+
+constructor TItemField.Create;
+begin
+  EnumStates := TStringList.Create;
+end;
+
+destructor TItemField.Destroy;
+begin
+  EnumStates.Free;
+  inherited Destroy;
+end;
 
 procedure TItemField.Assign(Source: TItemField);
@@ -99 +124 @@
   Position := Source.Position;
   Size := Source.Size;
+  EnumStates.Assign(Source.EnumStates);
 end;
 
@@ -231 +257 @@
 
 procedure TItem.AssignValue(Source: TItem; Field: TItemField);
-var
-  ValueString: string;
-  ValueColor: TColor;
-  ValueInteger: Integer;
-  ValueBoolean: Boolean;
 begin
   if Field.DataType = dtString then begin
-    Source.GetValue(Field.Index, ValueString);
-    SetValue(Field.Index, ValueString);
+    SetValueString(Field.Index, Source.GetValueString(Field.Index));
   end else
   if Field.DataType = dtColor then begin
-    Source.GetValue(Field.Index, ValueColor);
-    SetValue(Field.Index, ValueColor);
+    SetValueColor(Field.Index, Source.GetValueColor(Field.Index));
   end else
   if Field.DataType = dtInteger then begin
-    Source.GetValue(Field.Index, ValueInteger);
-    SetValue(Field.Index, ValueInteger);
+    SetValueInteger(Field.Index, Source.GetValueInteger(Field.Index));
   end else
   if Field.DataType = dtBoolean then begin
-    Source.GetValue(Field.Index, ValueBoolean);
-    SetValue(Field.Index, ValueBoolean);
-  end else
-  raise Exception.Create('Unsupported field value data type');
+    SetValueBoolean(Field.Index, Source.GetValueBoolean(Field.Index));
+  end else
+  if Field.DataType = dtEnumeration then begin
+    SetValueEnumeration(Field.Index, Source.GetValueEnumeration(Field.Index));
+  end else
+    raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[Field.DataType]]));
 end;
 
 procedure TItem.LoadValueFromNode(Node: TDOMNode; Field: TItemField);
-var
-  ValueString: string;
-  ValueColor: TColor;
-  ValueInteger: Integer;
 begin
   if Field.DataType = dtString then begin
-    ValueString := ReadString(Node, Field.SysName, '');
-    SetValue(Field.Index, ValueString);
+    SetValueString(Field.Index, ReadString(Node, Field.SysName, ''));
   end else
   if Field.DataType = dtColor then begin
-    ValueColor := ReadInteger(Node, Field.SysName, 0);
-    SetValue(Field.Index, ValueColor);
+    SetValueColor(Field.Index, ReadInteger(Node, Field.SysName, 0));
   end else
   if Field.DataType = dtInteger then begin
-    ValueInteger := ReadInteger(Node, Field.SysName, 0);
-    SetValue(Field.Index, ValueInteger);
-  end else
-  raise Exception.Create('Unsupported field value data type');
+    SetValueInteger(Field.Index, ReadInteger(Node, Field.SysName, 0));
+  end else
+  if Field.DataType = dtBoolean then begin
+    SetValueBoolean(Field.Index, ReadBoolean(Node, Field.SysName, False));
+  end else
+  if Field.DataType = dtEnumeration then begin
+    SetValueEnumeration(Field.Index, TUndefinedEnum(ReadInteger(Node, Field.SysName, 0)));
+  end else
+    raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[Field.DataType]]));
 end;
 
 procedure TItem.SaveValueToNode(Node: TDOMNode; Field: TItemField);
-var
-  ValueString: string;
-  ValueColor: TColor;
-  ValueInteger: Integer;
 begin
   if Field.DataType = dtString then begin
-    GetValue(Field.Index, ValueString);
-    WriteString(Node, Field.SysName, ValueString);
+    WriteString(Node, Field.SysName, GetValueString(Field.Index));
   end else
   if Field.DataType = dtColor then begin
-    GetValue(Field.Index, ValueColor);
-    WriteInteger(Node, Field.SysName, ValueColor);
+    WriteInteger(Node, Field.SysName, GetValueColor(Field.Index));
   end else
   if Field.DataType = dtInteger then begin
-    GetValue(Field.Index, ValueInteger);
-    WriteInteger(Node, Field.SysName, ValueInteger);
-  end else
-  raise Exception.Create('Unsupported field value data type');
+    WriteInteger(Node, Field.SysName, GetValueInteger(Field.Index));
+  end else
+  if Field.DataType = dtBoolean then begin
+    WriteBoolean(Node, Field.SysName, GetValueBoolean(Field.Index));
+  end else
+  if Field.DataType = dtEnumeration then begin
+    WriteInteger(Node, Field.SysName, Integer(GetValueEnumeration(Field.Index)));
+  end else
+    raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[Field.DataType]]));
 end;
 
@@ -319 +337 @@
 procedure TItem.GetValue(Index: Integer; out Value);
 begin
+  raise Exception.Create('Unsupported value index ' + IntToStr(Index));
 end;
 
@@ -341 +360 @@
 end;
 
+function TItem.GetValueEnumeration(Index: Integer): TUndefinedEnum;
+begin
+  GetValue(Index, Result);
+end;
+
 function TItem.GetValueAsText(Index: Integer): string;
 var
   Fields: TItemFields;
-  ItemField: TItemField;
+  Field: TItemField;
 begin
   Fields := GetFields;
-  ItemField := GetField(Fields.IndexOf(Fields.SearchByIndex(Index)));
-  if ItemField.DataType = dtInteger then Result := IntToStr(GetValueInteger(Index))
-  else if ItemField.DataType = dtString then Result := GetValueString(Index)
-  else if ItemField.DataType = dtColor then Result := ''
-  else if ItemField.DataType = dtBoolean then begin
+  Field := GetField(Fields.IndexOf(Fields.SearchByIndex(Index)));
+  if Field.DataType = dtInteger then Result := IntToStr(GetValueInteger(Index))
+  else if Field.DataType = dtString then Result := GetValueString(Index)
+  else if Field.DataType = dtColor then Result := ''
+  else if Field.DataType = dtEnumeration then Result := Field.EnumStates[Integer(GetValueEnumeration(Index))]
+  else if Field.DataType = dtBoolean then begin
     if GetValueBoolean(Index) then Result := SYes else Result := SNo;
-  end;
-  ItemField.Free;
+  end else
+    raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[Field.DataType]]));
+  Field.Free;
   Fields.Free;
 end;
@@ -360 +386 @@
 procedure TItem.SetValue(Index: Integer; var Value);
 begin
+  raise Exception.Create('Unsupported value index ' + IntToStr(Index));
 end;
 
@@ -378 +405 @@
 
 procedure TItem.SetValueBoolean(Index: Integer; Value: Boolean);
+begin
+  SetValue(Index, Value);
+end;
+
+procedure TItem.SetValueEnumeration(Index: Integer;
+  Value: TUndefinedEnum);
 begin
   SetValue(Index, Value);