[Last Living Man]

Здаров всем. У меня появилась такая проблемка: при первом показе формы, когда нажимаешь кнопку "вниз" скроллбара DBGrid записи дублируются в таком виде:
1
2
3
1
2
3
При прокрутке до конца или при разворачивании формы такой эффект пропадает.

[Ildar-tsr]

Сообщение от Last Living Man

Здаров всем. У меня появилась такая проблемка: при первом показе формы, когда нажимаешь кнопку "вниз" скроллбара DBGrid записи дублируются в таком виде:
1
2
3
1
2
3
При прокрутке до конца или при разворачивании формы такой эффект пропадает.

А у грида какие события прописаны (вкладка events)?

[Last Living Man]

Сообщение от Ildar-tsr

А у грида какие события прописаны (вкладка events)?

GridDrawColumnCell
GridKeyDown

[Ildar-tsr]

Сообщение от Last Living Man

GridDrawColumnCell
GridKeyDown

Из этих событий только drawcolumncell вызывается при любом нажатии на грид. Что там прописано?

[Last Living Man]

Сообщение от Ildar-tsr

Из этих событий только drawcolumncell вызывается при любом нажатии на грид. Что там прописано?

Там прописана отрисовка картинки в зависимости от значения поля.
Пробовал делал событие в nil - не помогло... Закоментарил все что обращается к грид, убрал дабл буффер - тож не помогает(((
Походу баг какойто...

Помогает только windowstate = wsmaximized...

[Ildar-tsr]

Сообщение от Last Living Man

Там прописана отрисовка картинки в зависимости от значения поля.
Пробовал делал событие в nil - не помогло... Закоментарил все что обращается к грид, убрал дабл буффер - тож не помогает(((
Походу баг какойто...

Помогает только windowstate = wsmaximized...

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

[Last Living Man]

Кажись нашел проблему:
DBGrid находится на TabSheet, а у того в OnShow прописано:
with Table do
begin
MasterSource := nil;
IndexFieldNames := '';
MasterFields := '';
RecNo := posmem;
end;

[Ildar-tsr]

Сообщение от Last Living Man

Кажись нашел проблему:
DBGrid находится на TabSheet, а у того в OnShow прописано:
with Table do
begin
MasterSource := nil;
IndexFieldNames := '';
MasterFields := '';
RecNo := posmem;
end;

И если этот участок кода закомментировать, эффект задвоения пропадает?

[Last Living Man]

Сообщение от Ildar-tsr

И если этот участок кода закомментировать, эффект задвоения пропадает?

Ага, вот теперь все ништяк:
with Table do
if Assigned(MasterSource) then
begin
MasterSource := nil;
IndexFieldNames := '';
MasterFields := '';
RecNo := posmem;
end;