Анимация модального окна

[Vladimir Gaivoronsky]

Не подскажите, как при вызов ShowModal сделать анимированным? Например разворачивание из точки по ширине и (или) высоте, или проявление (изменения прозрачности). Для Windows \ MacOs ?

[Slym]

procedure TForm1.Button1Click(Sender: TObject);
var
  Form2:TForm2;
  h,w,l,t:integer;
begin
  Form2:=TForm2.Create(nil);
  try
    h:=Form2.Height;
    w:=Form2.Width;
    l:=Form2.Left;
    t:=Form2.Top;

    Form2.Height:=1;
    Form2.Width:=1;
    Form2.Left:=l+ (w div 2);
    Form2.Top:=t+ (h div 2);

    TAnimator.AnimateInt(Form2,'Height',h,1);
    TAnimator.AnimateInt(Form2,'Width',w,1);
    TAnimator.AnimateInt(Form2,'Left',l,1);
    TAnimator.AnimateInt(Form2,'Top',t,1);
    Form2.ShowModal;
  finally
    Form2.Free;
  end;
end;

"В лоб" как-то так

[Slym]

Изменено 30 июня, 2023 пользователем Slym

[Vladimir Gaivoronsky]

29 минут назад, Slym сказал:

Естественно, не пойдет. Вынес в отдельную процедуру, оператор может отключить анимацию.... Теперь пытаюсь сделать это более прикольным. Под маком работает лучше, чем под Windows. А прозрачность или масштаб всего окна можно как-то менять?

[Slym]

Я вот давно уже делаю все на фреймах... Одно главное окно и кучка фреймов в рамках этого окна, даже ShowMessage - кастомный фрейм, даже некоторые TabItemы с фреймом. есть моменты где глубина вложенности фреймов доходит 4 (Окно, фрейм, вкладки с фреймами, под вкладки , фрейм с диалогом)
Анимированную прозрачность фрейма - легко: там есть Opacity, TAnimator.AnimateFloat(Frame,'Opacity',1,1); Окна чуть сложнее...
Масштаб - TScaledLayout

[Vladimir Gaivoronsky]

Оператору привычнее, когда требование ввода и сообщения именно окно, которое можно сдвинуть в сторону, чтобы посмотреть на цены похожих моделей. Фреймов хватает. На них сделаны разделы, которые управляются подобием ribbon. Все это работает под Windows, Linux, MacOS. Причем некоторые ноуты с сенсорным дисплеем. (зоопарк конкретный). Некоторые разделы реализованы и для Андроида.

[OnePeople]

Не по теме, но у оператора от таких цветов в конце дня нет желания кого-нибудь убить? 

[Vladimir Gaivoronsky]

Темы переключаются. Одному оператору (бухгалтеру) нравится эта тема из Ubuntu. Вводит в компьютер она часа два в день

 

Изменено 4 июля, 2023 пользователем Vladimir Gaivoronsky