Código Delphi [-]var Color: Integer; begin IdentToColor(''+dm.qryInasistencias.Fields[0].asstring+'', Color); Self.Color := Color; end;
var Color: Integer; begin IdentToColor(''+dm.qryInasistencias.Fields[0].asstring+'', Color); Self.Color := Color; end;