Перейти к содержанию
Fire Monkey от А до Я
  • 0

Исправление в TPlatformWin.MinimizeApp // MinimiseAllForms


Nik Nixon

Вопрос

Опубликовано

Заметил, что в новой версии Дельфи 12.2 сворачивание окошек начало глючить: иногда не все окна сворачивает, и всегда при сворачивании большого кол-ва окон появляется визуальный лаг: окна сперва уходят в угол экрана, после чего уже пропадают совсем.

Посмотрел, что в старых версиях (10.2 например) в процедуре

TPlatformWin.MinimizeApp

не было функции MinimiseAllForms;

Отключил ее, поведение приложения стало лучше.

begin
  AnimationEnable := GetAnimation;
  try
    SetAnimation(False);
    if Application.MainForm <> nil then
    begin
      MainForm := Application.MainForm;
      WndPos := MultiDisplayWin.DpToPx(TPointF.Create(MainForm.Left, MainForm.Top));
      SetWindowPos(ApplicationHWND, FormToHWND(Application.MainForm), WndPos.X, WndPos.Y, Trunc(MainForm.Width), 0, SWP_SHOWWINDOW);
//      MinimiseAllForms;
    end;
    DefWindowProc(ApplicationHWND, WM_SYSCOMMAND, SC_MINIMIZE, 0);
  finally
    SetAnimation(AnimationEnable);
  end;
end;

Вопрос: зачем нужна эта функция?

Рекомендуемые сообщения

  • 0
Опубликовано

Код индийских аутсорсеров? 😁

Если серьезно, то возможно для форм был введен какой-либо новый event, который таким образом выполняется.
Либо какая-либо прочая процедура должна быть выполнена в момент минимизации, что как часто бывает привело к новым забавным спецэффектам) 
Нет под рукой 12.2 чтобы убедиться.

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
К сожалению, ваш контент содержит запрещённые слова. Пожалуйста, отредактируйте контент, чтобы удалить выделенные ниже слова.
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...