Изменение шрифта в ячейке StringGrid

[Дмитрий777]

Здравствуйте.
Возникла непонятная (для меня)  ситуевина.
Из txt файла в StringGrid1 загружается таблица. Если во 2-й колонке каждой строки нет записей - цвет записи в 1-й колонке изменяется. В StringGrid1 все это прекрасно работает.
Далее часть строк из StringGrid1 копируется в StringGrid2, в котором тоже и таким-же образом происходит изменение цвета шрифта.
Вот здесь этот процесс и не "катит". Во 2-й колонке строки записей нет, а изменение цвета в 1-й колонке не происходит. Для проверки, добавил кнопку и после копирования в StringGrid2 очищаю (и без того пустую) ячейку во 2-й колонке. В 1-й - цвет изменяется. Такое впечатление, что в этих ячейках 2-й колонки что-то находится. Но на экране ничего нет.
Где моя квадратная голова дала сбой ?

Код:

  // копирование части строк из SG1в  SG2 
 var Rmin, Rmax : integer;   // номера строк  в SG1 
   NRow : integer;
begin
    for NRow  := Rmin  to  Rmax  do  
  StringGrid2.Rows[StringGrid2.RowCount].Text:=StringGrid1.Rows[NRow].Text;
  StringGrid2.RowCount:=StringGrid2.RowCount+1 ;
 end;

 //изменение цвета шрифта в 1-й колонке, при отсутствии записей во 2-й колонке
 procedure TForm1.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
       if (ACol = 1) and (StringGrid2.Cells[2,ARow] = '') then
 with StringGrid2.Canvas do begin
   Font.Color:= clMaroon ; 
     FillRect(Rect);
    TextOut(Rect.Left, Rect.Top, StringGrid2.Cells[ACol, ARow]);
  end;  
end;

 // очистка  ячейки
procedure TForm1.Button1Click(Sender: TObject);
begin
    StringGrid2.Cells [2,4] := '';
end;

[x77]

а в обработчик StringGrid2 назначен именно StringGrid2DrawCell?

[Дмитрий777]

Да.
Здесь что-то происходит именно при копировании. Если я сохраняю часть строк SG1 в txt файл, а потом
загружаю его в SG2 - все работает правильно. Т.е. цвет шрифта меняется. А с промежуточными файлами не хочется связываться.

[x77]

если это полный код -

Код:

 var Rmin, Rmax : integer;   // номера строк  в SG1 
   NRow : integer;
begin
    for NRow  := Rmin  to  Rmax  do  
  StringGrid2.Rows[StringGrid2.RowCount].Text:=StringGrid1.Rows[NRow].Text;
  StringGrid2.RowCount:=StringGrid2.RowCount+1 ;
 end;

 - то он неправильный. Rmin и rmax не инициализированы; неизвестно, чему равно StringGrid2.RowCount до начала цикла; непонятно, почему сначала идёт присвоение к последней строке (её ещё нет, вообще-то, максимальное значение строки - RowCount-1), а потом - увеличивается кол-во строк.

я бы переписал копирование целиком.