Последняя версия DataExpress 2021.10.21

Изображение Скачать | Изображение Что нового?

Мерцание при удаленном доступе

Не удается найти причину ошибки, не удается воспроизвести ошибку, редко возникающие ошибки.
Kiss
Интересующийся
Сообщения: 193
Зарегистрирован: 14 мар 2017, 11:41
Откуда: Гомель, Беларусь
Благодарил (а): 7 раз
Поблагодарили: 11 раз

Re: Мерцание при удаленном доступе

Сообщение Kiss » 14 июн 2019, 16:26

Решения пока так и нет?

Аватара пользователя
Develop-Soft
Сообщения: 2010
Зарегистрирован: 05 мар 2019, 18:09
Благодарил (а): 130 раз
Поблагодарили: 666 раз
Контактная информация:

Re: Мерцание при удаленном доступе

Сообщение Develop-Soft » 14 июн 2019, 17:57

Нет, видимо...

Аватара пользователя
Develop-Soft
Сообщения: 2010
Зарегистрирован: 05 мар 2019, 18:09
Благодарил (а): 130 раз
Поблагодарили: 666 раз
Контактная информация:

Мерцание при удаленном доступе

Сообщение Develop-Soft » 01 май 2020, 01:32

Вот таким временным костылем подпер:

Код: Выделить всё


{ Main }

var  old_MainWindow_OnCreateForm:TCreateFormEvent;

procedure MainWindow_OnCreateForm(Sender: TObject; Form: TdxForm);
var i:integer;
begin
  SetPropValue(Form.Grid,'DoubleBuffered',true);
  for i:=0 to Form.ComponentCount-1 do
  if (Form.Components[i].ClassName in ['TdxGrid','TdxQueryGrid']) then
    SetPropValue(Form.Components[i],'DoubleBuffered',true);
  if old_MainWindow_OnCreateForm <> nil then
    old_MainWindow_OnCreateForm(Sender,Form);
end;

procedure DataBase_Open;
begin
  old_MainWindow_OnCreateForm := MainWindow.OnCreateForm;
  MainWindow.OnCreateForm:=@MainWindow_OnCreateForm;
end;


Вернуться в «Ошибки непонятного происхождения»