VPF::DBGrid и опция dgEditing - Форум программистов

Delphist

Дата 25.4.2007, 16:34 (ссылка)

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

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

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

Я использую TDBGridEh. При скроллировании по гриду некоторые записи у которых ID = -1
не должны редактироваться по этому я делаю так:

Код


procedure
  TMyForm.FIBDataSetAfterScroll(DataSet: TDataSet);
const
   UnionID = -1;
begin

  if DataSet.FieldByName('ROW_ID').AsIniteger = UnionID then
     {Запрещаем редактирование записи}
     dgrDDB.Options := dgrDDB.Options - [dgEditing]
  else
     {Разрещаем редактирование записи}
    dgrDDB.Options := dgrDDB.Options + [dgEditing];
end;

Из-за этого почему очень сильно начинает тормозить скроллирование. Как можно решить данную проблему.

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

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

Vas

Дата 25.4.2007, 19:59 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

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

Попробуй ReadOnly ставить гриду, например:

Код


procedure
  TMyForm.FIBDataSetAfterScroll(DataSet: TDataSet);
const
   UnionID = -1;
begin
     dgrDDB.ReadOnly:= DataSet.FieldByName('ROW_ID').AsIniteger = UnionID;
end;

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

И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)

Delphist

Дата 26.4.2007, 08:05 (ссылка)

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

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

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

Тоже самое

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

Savek

Дата 26.4.2007, 08:26 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

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

Если тормозит действительно аз-за этого попробуй уменьшить количество обращений к св-ву:

Код


procedure
TMyForm.FIBDataSetAfterScroll(DataSet: TDataSet);
const
UnionID = -1;
begin

if DataSet.FieldByName('ROW_ID').AsIniteger = UnionID then
{Запрещаем редактирование записи}
if dgEditing in dgrDDB.Options then
    dgrDDB.Options := dgrDDB.Options - [dgEditing]
else
{Разрещаем редактирование записи}
if not dgEditing in dgrDDB.Options then
    dgrDDB.Options := dgrDDB.Options + [dgEditing];
end;

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