Чудеса со StringGrid'ом

[arhiepiskop]

Вывожу данные, полученные из ADOQuery в StringGrid. Все нормально, но при использовании метода onDrawCell(для установки текста по центру ячейки) упорно опустошается одна ячейка[0,1]. Если же не использовать onDrawCell то эта ячейка нормально показывает текст.

 
procedure TForm_st.ListBox1Click(Sender: TObject);
var
   i,j:integer;

begin
with StringGRid1 do
    for i:=1 to RowCount-1 do   
    for j:=0 to ColCount-1 do
      Cells[j, i]:='';
with DataModule1 do
                 Begin
                 
                 ADOquery1.Close;
                 adoquery1.SQL.Clear;
                 adoquery1.SQL.add('select kod_gr from grupi where ind_gr=:a');
                 ADOQuery1.Parameters.ParamByName('a').Value:=Listbox1.Items[ListBox1.ItemIndex];
                 adoquery1.Open;
                 kod_gr:=ADOQuery1.Fields[0].Asinteger;
                  
                 ADOquery1.Close;
                 adoquery1.SQL.Clear;
                 adoquery1.SQL.add('select * from stud where kod_gr=:a');
                 ADOQuery1.Parameters.ParamByName('a').Value:=kod_gr;
                 adoquery1.Open;
                 i:=1;
                 While not ADOQuery1.Eof
                 do begin
                    Stringgrid1.Cells[0,i]:= inttostr(ADOQuery1.FieldByname('kod_st').asInteger);
                    Stringgrid1.Cells[1,i]:=ADOQuery1.FieldByname('fam').AsString;
                    Stringgrid1.Cells[2,i]:=ADOQuery1.FieldByname('name').AsString;
                    Stringgrid1.Cells[3,i]:=ADOQuery1.FieldByname('ot4').AsString;
                    Stringgrid1.Cells[4,i]:=ADOQuery1.FieldByname('n_za4').AsString;
                    ADOQuery1.Next;
                    inc(i);
                    end;
                 end;
end;
procedure TForm_st.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
    text:string;
begin
text:=StringGrid1.Cells[ACol,ARow];
StringGrid1.Canvas.Brush.Color:=clWindow;
StringGrid1.Canvas.FillRect(Rect);
DrawText(StringGrid1.Canvas.Handle, PChar(text), Length(text), Rect, DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;

Как это исправить?

[OlegPrograming5]

А не проще ли будет использовать DBGrid?

[Stilet]

Как это исправить?

Отладкой естесственно не проходил?

[Аватар]

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

А не проще ли будет использовать DBGrid?

Бывает, что не проще.

Свойство DefaultDrawing в False. Если хочещь выделение прорисовывать, то заменить так примерно

  StringGrid1.Canvas.Brush.Color:=clWindow;

на

  if gdSelected in State then begin
    StringGrid1.Canvas.Brush.Color:=clActiveCaption;
    StringGrid1.Canvas.Font.Color:=clCaptionText;
  end
  else begin
    StringGrid1.Canvas.Brush.Color:=clWindow;
    StringGrid1.Canvas.Font.Color:=clWindowText;
  end;

[arhiepiskop]

Отладкой проходил, но все равно не пойму в чем дело. Когда дело доходит до onDrawCell, то с 3го прохода рисуется первая фамилия, т.е. по логике на 2м проходе рисуется как раз ЭТА ячейка, но остается почему-то пустой, а на первом проходе вообще непонятно что делается...

DBGrid проще, но нужно сделать в StringGrid

[arhiepiskop]

Аватар огромное спасибо, заработало!