1. Pascal / Говнокод #4749

    +101

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    procedure TSomeForm.DBGridEhDrawColumnCell(SomeParams);
begin
  ShowRecordCount(GridDataSet);
end;
...
procedure ShowRecordCount(const FibDataSet: TpFibDataSet);
begin
  FormMain.StatusBar1.Panels[2].Text := 'записей='+ IntToStr(FibDataSet.VisibleRecordCount);
  FormMain.StatusBar1.Refresh;
end;

    По ходу решения задачи решил-таки глянуть, почему так дико тормозит главная, вся цветная грида формы, ожидая там дикие отрисовки, а там...

    Запостил: labutinpa, 25 Ноября 2010

    Комментарии (3) RSS

    • ava labutinpa 25.11.2010 14:24 # 0

      решил проверить остальные формы, в надежде, что это случайность
      поиск выдал 74 результата
      в надежде, что хоть некоторые вызовы из правильных мест, тыкаю в надежде...
      нету
      горе мне
      Ответить

    • ava banderror 25.11.2010 21:16 # 0

      а вдруг там .Text всех контролов схожим образом обновляются? )
      Ответить

    • ava ctm 26.11.2010 08:05 # 0

      Одолжить инструмент для "выпрямления кривых рук"? )
      хотя... нет. случай клинический - не поможет уже.
      Ответить

    Добавить комментарий