在cxgrid StoreToIniFile、RestoreFromIniFile 中 加入自定义属性

在TcxGridDBTableView和TcxGridDBColumn中有三个事件：

GetStoredProperties

GetStoredPropertyValue

SetStoredPropertyValue

procedure TFrm_Company.cxgrdbclmn_02GetStoredProperties(
Sender: TcxCustomGridTableItem; AProperties: TStrings);
begin
inherited;//增加一个属性
AProperties.Add('HeaderAlignmentHorz');
end;

procedure TFrm_Company.cxgrdbclmn_02GetStoredPropertyValue(
Sender: TcxCustomGridTableItem; const AName: string; var AValue: Variant);
begin
inherited;//给新增加的属性赋值，这里是一个枚举类型
if (AName = 'HeaderAlignmentHorz') then
AValue := GetEnumName(TypeInfo(TAlignment),Ord(TcxCustomGridColumn(Sender).HeaderAlignmentHorz));
end;

procedure TFrm_Company.cxgrdbclmn_02SetStoredPropertyValue(
Sender: TcxCustomGridTableItem; const AName: string; const AValue: Variant);
begin
inherited;//读取属性值
if (AName = 'HeaderAlignmentHorz') then
TcxCustomGridColumn(Sender).HeaderAlignmentHorz :=
TAlignment(GetEnumValue(TypeInfo(TAlignment), AValue));
end;