VPF::Мерцание кнопок внутри StringGrid - Форум программистов

mikhea

Дата 19.10.2012, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 16.9.2007

Репутация: нет
Всего: нет

Добрый день!
Столкнулся с такой проблемой. Есть StringGrid, внутри него несколько столбцов с кнопками, на каждой кнопке картинка. Количество строк динамически изменяется в процессе работы с программой (их можно добавлять, удалять и т.д.), соответственно, количество кнопок тоже меняется. Так вот, при прокрутке таблицы и перемещнии строк кнопки начинают жутко мерцать, а сама форма - тормозить и подвисать. Причем чем больше строк, тем более выражена проблема (что, впрочем, вполне логично). Кто-нибудь знает, можно ли как-нибудь уменьшить мерцание и торможение? Возможно, у меня не очень хорошо написан обработчик OnTopLeftChanged.

MetalFan

Дата 19.10.2012, 16:46 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

mikhea, какой класс кнопок используется? если TButton/TBitButton, то неудивительно то, что мерцает.
Попробуй переделать на TSpeedButton (+попробуй выставить форме Doublebuffered=true), либо вообще рисовать и обрабатывать кнопки вручную, ну и для полного "фарша" перейти на TDrawGrid либо на TVirtualTreeView.

--------------------

There are always someone smarter than you...

mikhea

Дата 19.10.2012, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 16.9.2007

Репутация: нет
Всего: нет

MetalFan, используется класс TRzBitBtn, т.к. нужно иметь возможность задавать цвет кнопок. Конечно, можно было просто использовать картинку определенного цвета, но сейчас это переделывать уже нереально. Doublebuffered в true установлен. Рисовать вручную тоже не вариант, это нужно весь проект переделывать, проще уж оставить как есть тогда.

MetalFan

Дата 20.10.2012, 09:06 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

mikhea, первый раз слышу... может в этом наборе компонент есть какой нибудь TRzSpeedButton? попробуй перейти на его использование.

--------------------

There are always someone smarter than you...

anjela00

Дата 20.10.2012, 17:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 20.10.2012

Репутация: нет
Всего: нет

DoubleBuffered в True установлен (при создании формы).
Вот мой обработчик OnTopLeftChanged:
Код:

Код


procedure TfrmMy.grdMyTopLeftChanged(Sender: TObject);
var
  Rect: TRect;
  i, j: integer;
  gCol: integer;      //Столбец таблицы, соотв. создаваемой кнопке
begin
  try
    for i:=0 to grdMy.RowCount-1 do
      for j:=0 to 5 do
      begin
        if (j = 0) or (j = 1) then
          gCol := j+1
        else
          gCol := j+3;
        Rect := grdMy.CellRect(gCol, i);
        if (grdMy.Objects[gCol, i] is TControl) then
          with TControl(grdMy.Objects[gCol, i]) do
            if (Rect.Right = Rect.Left) then
              Visible := False
            else
            begin
              if ((Rect.Top = 0) and (Rect.Bottom <> 0) and (i <> 0)) then
                continue;      //Избавляемся от ошибки, периодически возникающей
                               //на границе видимой области
              InflateRect(Rect, -1, -1);
              OffsetRect(Rect, grdMy.Left + 2, grdMy.Top + 2);
              BoundsRect := Rect;
              Visible := True;
            end;
      end;
  except
  end;
end;

M
MetalFan

Не забываем пользоваться кнопкой "Код"

Это сообщение отредактировал(а) MetalFan - 20.10.2012, 17:21

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »