Перерисовка StringGrid

[tarakan1983]

Здравствуйте.
В StringGrid использую перерисовку для центрирования и закраски выходных дней.

procedure TFmGrafikEdt.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var
    D : TDateTime;
    chislo:integer;
    M: Integer;
begin
  if not TryStrToInt(MONIDEdt.Text, M) then Exit;
  with StringGrid1.Canvas do
    begin
      if ( (acol<>0) and (arow=0) and (StringGrid1.Cells[ACol,ARow]<>'ФИО/Дата') ) then
        begin
          D:=EncodeDate(StrToInt(GODEdt.Text), M,strtoint(StringGrid1.Cells[acol,arow]));
          chislo:=DayOfTheWeek(D);
          case chislo of
            1 : Brush.Color := clBtnFace;
            2 : Brush.Color := clBtnFace;
            3 : Brush.Color := clBtnFace;
            4 : Brush.Color := clBtnFace;
            5 : Brush.Color := clBtnFace;
            6 : Brush.Color := clYellow;
            7 : Brush.Color := clRed;
          end;
          Rect := StringGrid1.CellRect(ACol,ARow);
          FillRect(Rect);
          TextOut(Rect.left+((Rect.Right-Rect.Left) div 2)-
                  (TextWidth(StringGrid1.Cells[acol,arow]) div 2),Rect.Top+5,StringGrid1.Cells[acol,arow]);
        end;
    end;
end;

Но при использовании бегунка наблюдается эффект раздвоения

подскажите как от этого избавиться

[lomastr_]

очистить в начале надо, или FillRect или (не помню точно как называется) что-то вроде EraseBackground

[NIKOLAYY2]

Условие нужно по столбцам описать.

var
Form1: TForm1;
I: Integer;
implementation

{$R *.dfm}

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  inc(i);
  Memo1.Lines.Add('OnDrawCell- ïðîèçîøëî ' + IntToStr(i) + ' ðàç');
end;

[tarakan1983]

Условие нужно по столбцам описать.

Не понял, как это и для чего? Можете подробнее, для тех кто на бронепоезде?

[Аватар]

FillRect, уже сказали
В #3 чепуха

[tarakan1983]

Сообщение от Аватар

FillRect, уже сказали

Ну вот и я пересмотрел код и увидел что это есть.

Сообщение от Аватар

В #3 чепуха

Я вот тоже не понял к чему это.

[lomastr_]

у вас что-то непонятное, с одной стороны рект вам приходит параметром, с другой вы его перебиваете, я уж не говорю про все остальное ..

[tarakan1983]

Сообщение от lomastr_

у вас что-то непонятное, с одной стороны рект вам приходит параметром, с другой вы его перебиваете, я уж не говорю про все остальное ..

Я поэтому и спросил как правильно сделать, чтобы было все понятно и мне и stringgrid'u