StringGrid1 помощь!

[Stranger333]

мне надо что бы сначало закрасило ячейки, а потом выводило на них текст (здесь закрашиваю парные столбцы и в них хочу вывести цифры). В этом коде сначало выводится текст, а потом поля закрашиваются:

procedure TForm1.FormCreate(Sender: TObject);
begin
  k := 15;
  with StringGrid1 do
  begin
    for i := 0 to ColCount - 1 do
    for j := 0 to RowCount - 1 do
    if i mod 2 = 0 then
    begin
      Cells[i,j]:=IntToStr(k);
      k:=k-1;
    end;
  end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
    with Form1.StringGrid1.Cells[ACol,ARow] do
  begin
    if ACol mod 2 = 0 then
    begin
      Canvas.Brush.Color := clRed;
      Canvas.FillRect(Rect);
     Canvas.TextOut(3,3,Form1.StringGrid1.Cells[ACol,ARow]);
    end;
  end;
end;

[psycho-coder]

Ну, дык и правильно. Вы сначала создаете форму и при создании выводите цифры, а потом перерисовываете таблицу.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
    with Form1.StringGrid1.Cells[ACol,ARow] do
  begin
    if ACol mod 2 = 0 then
    begin
      Canvas.Brush.Color := clRed;
      Canvas.FillRect(Rect);
     Canvas.TextOut(3,3,Form1.StringGrid1.Cells[ACol,ARow]);
    end;
  end;

  k := 15;
  with StringGrid1 do
  begin
    for i := 0 to ColCount - 1 do
    for j := 0 to RowCount - 1 do
    if i mod 2 = 0 then
    begin
      Cells[i,j]:=IntToStr(k);
      k:=k-1;
    end;
  end;

end;

---------------
Правда у меня даже Ваш вариант не работает

[Stranger333]

просто я не ток код дал, с ошибками (перепутал).

with Form1.StringGrid1.Cells[ACol,ARow] do

на этом месте у меня ошибка, но если я записуваю так:

with StringGrid1 do

то у меня результат выводится только в первой клетке и значения меняетя от 1..15 (зацикливание делается)

[psycho-coder]

то у меня результат выводится только в первой клетке и значения меняетя от 1..15 (зацикливание делается)

Я тут лохонулся.( Но выводит тоже в Cells[0, 0] число одиннадцать.
А если без закраски ячеек и вынести вывод чисел из DrawCell в FormCreate, то все нормально

[Stranger333]

А если без закраски ячеек и вынести вывод чисел из DrawCell, то все нормально

да так и выходит с моим кодот на OnCreate
но мне так не надо, мне нужно щоб цифра выводилась на закрашеном фоне

[psycho-coder]

Canvas.TextOut(3,3,Form1.StringGrid1.Cells[ACol,ARow]);

Вот где собака зарыта . Вывод всегда в координаты 3, 3)

[Stranger333]

with Form1.StringGrid1.Cells[ACol,ARow] do //здесь всегда ошибка

у Вас этот вариант нормально пропускается???

[psycho-coder]

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

with Form1.StringGrid1.Cells[ACol,ARow] do //здесь всегда ошибка

у Вас этот вариант нормально пропускается???

У меня

with Form1.StringGrid1 do

[Stranger333]

но у Вашем коде всегда цыфры выводит, тоесть всегда идет прорисовка.

мне надо что бы цыфры выводились в OnCreate но перед этим нужно сделать фон ячейки! Возможно такое или нет?

[Stranger333]

все решил проблему, если кому то нужно вот:

procedure TForm1.FormCreate(Sender: TObject);
begin
  k := 15;
  with StringGrid1 do
  begin
    for i := 0 to ColCount - 1 do
    for j := 0 to RowCount - 1 do
    if i mod 2 = 0 then
    begin
      Cells[i,j]:=IntToStr(k);
      k:=k-1;
    end;
  end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
    with StringGrid1 do
  begin
    if ACol mod 2 = 0 then
    begin
      Canvas.Brush.Color := clGray;
      Canvas.FillRect(Rect);
     Canvas.TextOut(Rect.Left + Font.Size, Rect.Top + 2,Form1.StringGrid1.Cells[ACol,ARow]);
    end;
  end;
end;