Code: Select all
type TXLSDataValidation = class(TXc12DataValidation)
...
protected
FData: TXc12DataValidation;
...
procedure TXLSDataValidation.SetType_(const Value: TXc12DataValidationType);
begin
FData.Type_ := Value;
end;
Code: Select all
type TXLSDataValidation = class(TXc12DataValidation)
...
protected
FData: TXc12DataValidation;
...
procedure TXLSDataValidation.SetType_(const Value: TXc12DataValidationType);
begin
FData.Type_ := Value;
end;