Timer и advstring1DrawCell грузит процессор

[designer999]

Здравствуйте

Есть Таймер с кодом:

procedure Tmain1.TimerTimer(Sender: TObject);
begin
  ........................................
        for j := 1 to Size do
        begin
          if grid1.Cells[1, ARow] = mas[0, j - 1] then
            grid1.Cells[4, ARow] := mas[3, j - 1];
          if grid1.Cells[1, ARow] = mas[0, j - 1] then
            if (grid1.Cells[2, ARow] <> mas[1, j - 1]) and
              (mas[3, j - 1] <> '2') then
              grid1.Cells[4, ARow] := '0';
        end;
  ........................................
  Timer.Interval := SpinTime.Value * 60000;
end;

и также

procedure Tmain1.advstring1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if grid1.Cells[2, ARow] = '0' then
  begin
    grid1.RowColor[ARow] := RGB(240, 120, 104);
    grid1.RowColorTo[ARow] := RGB(240, 120, 104);
  end;
  if grid1.Cells[4, ARow] = '2' then
  begin
    grid1.RowColor[ARow] := ColorBox2.Colors[ColorBox2.ItemIndex];
    grid1.RowColorTo[ARow] := ColorBox2.Colors[ColorBox2.ItemIndex];
  end;
end;

Вот после запуска таймера нагрузка на процессор увеличивается на 50 процентов, определил что дело в advstring1DrawCell, когда удаляю код процедуры то всё нормально, но без него не как)) что можно сделать в этом случаи?

[SERG1980]

А вы попробуйте ещё ячейки отдельно красить вообще проц на 100% грузится. По ходу компонент такой кривой, по этому стараюсь с ним не связываться, хотя красивый гад

[Serge_Bliznykov]

Зачем переносить значение массива в грид в таймере?!!!! Это КАТЕГОРИЧЕСКИ неправильно!!!

Вы спросите - "где же их переносить?" отвечаю.
Там, где массив изменяется!

[designer999]

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

А вы попробуйте ещё ячейки отдельно красить вообще проц на 100% грузится. По ходу компонент такой кривой, по этому стараюсь с ним не связываться, хотя красивый гад

да сам компонент нормальный, просто видно не правильно реализовал.

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

Вы спросите - "где же их переносить?" отвечаю.
Там, где массив изменяется!

вот это не понял, перед этим в массив просто вводятся данные, а во время работы таймера, эти данные нужно передать в таблицу, когда же их можно ещё переносить ?

[Serge_Bliznykov]

вот это не понял, перед этим в массив просто вводятся данные, а во время работы таймера, эти данные нужно передать в таблицу, когда же их можно ещё переносить ?

данные в массив вводятся ОДИН раз?
Так чего Вы их МНОГОКРАТНО раз в сколько-то секунд/минут опять переносите?!!!

[designer999]

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

данные в массив вводятся ОДИН раз?
Так чего Вы их МНОГОКРАТНО раз в сколько-то секунд/минут опять переносите?!!!

procedure Tmain1.TimerTimer(Sender: TObject);
begin

Вводятся данные в массив
................................... .....
код
................................... .....
for j := 1 to Size do
begin
if grid1.Cells[1, ARow] = mas[0, j - 1] then
grid1.Cells[4, ARow] := mas[3, j - 1];
if grid1.Cells[1, ARow] = mas[0, j - 1] then
if (grid1.Cells[2, ARow] <> mas[1, j - 1]) and
(mas[3, j - 1] <> '2') then
grid1.Cells[4, ARow] := '0';
end;
................................... .....
Timer.Interval := SpinTime.Value * 60000;
end;

[Serge_Bliznykov]

Вводятся данные в массив

нет. это данные из массива mas переписываются в грид Grid1

если данные в массиве mas не изменяются, то нет смысла повторять процедуру переноса данных mas -> grid1 несколько раз!

[designer999]

да нет, это я специально написал сверху что данные сначала вносятся в массив, дальше идёт произвольный код, а в конце из массива данные переписываю в грид.

[Serge_Bliznykov]

данные сначала вносятся в массив, дальше идёт произвольный код, а в конце из массива данные переписываю в грид.

ну всё правильно.

Только в таймере не нужно этого делать. и всё будет хорошо.

[ViktorXP]

    grid1.RowColor[ARow]
    grid1.RowColorTo[ARow]

А изменения свойств часом не вызывают перерисовку? Если это так тогда понятно причину из за чего забивается проц. (у меня нет сего грида посему я не знаю что в нем внутри.)