[ecfisa]

Hola Aliixeess.

Por favor cuando pongas código en tus mensajes usa Tag's:


No conozco el componente AdvstringGrid, pero por lo que veo en tu código tiene un comportamiento similar al TStringGrid, por lo que podrías probar de este modo:

Código Delphi [-]
procedure FillSelection(Grid: TAdvstringGrid; const Content: string);
var
  c,f: Integer;
begin
  with Grid.Selection do
    for f:= Top to Bottom do
      for c:= Left to Right do
        Grid.Cells[c,f]:= Content;
end;

Ej. de uso:

Código Delphi [-]
procedure TfrmCalendariote.Button1Click(Sender: TObject);
begin
   FillSelection(stringDia, 'Hola');
end;

Saludos