1 (edited by pavlenko.vladimir.v 2023-07-28 04:39:20)

Topic: Authorization | Авторизация

Давно я не подливал масло в огонь программирования ! ))
Наткнулся в Ютубе на ролик с формой веб авторизации и решил написать подобное в MVD.
Качайте анимированную форму авторизации.
   
I haven't added fuel to the programming fire for a long time! ))
I came across a YouTube video with a web authorization form and decided to write something similar in MVD.
Download the animated authorization form.

https://fileworld.pavlenkovv.ru/img/2023-07-27_19-14-13.png

Post's attachments

Attachment icon Authorization.rar 9.7 kb, 173 downloads since 2023-07-28 

Re: Authorization | Авторизация

На экранах с различным масштабированием вот это неравенство <> и работа с пикселами ... - 618 может вызывать проблемы с анимацией. Движение без остановки.
Не равно может быть как больше, так и меньше строгого значения.
Можно попробовать так.


On screens with different scaling, this inequality <> and working with pixels ... - 618 can cause problems with animation. Movement without stopping.
Not equal can be either greater or less than a strict value.
You can try like this.


procedure frmMain_Button1_OnClick (Sender: TObject; var Cancel: boolean);
// Анимация
begin

  While frmMain.pAnimationUpDownForm.Top < - (frmMain.pAnimationUpDownForm.Height / 3) do
  begin
    Application.ProcessMessages;
    frmMain.pAnimationUpDownForm.Top := frmMain.pAnimationUpDownForm.Top + 3;
  end;

  frmMain.pMain.Color := $00D56A00;

  While frmMain.pForm.Left > (frmMain.pMain.Width / 14) do
  begin
    Application.ProcessMessages;
    frmMain.pForm.Left := frmMain.pForm.Left - 4;
  end;

  While frmMain.pAnimationUpDownForm.Top < 0 do
  begin
    Application.ProcessMessages;
    frmMain.pAnimationUpDownForm.Top := frmMain.pAnimationUpDownForm.Top + 3;
  end;
end;

procedure frmMain_Button3_OnClick (Sender: TObject; var Cancel: boolean);
// Анимация
begin
  While frmMain.pAnimationUpDownForm.Top >  - (frmMain.pAnimationUpDownForm.Height / 3) do
  begin
    Application.ProcessMessages;
    frmMain.pAnimationUpDownForm.Top := frmMain.pAnimationUpDownForm.Top - 3;
  end;

  frmMain.pMain.Color := $000080FF;

  While frmMain.pForm.Left < ((frmMain.pMain.Width / 14) * 13) - frmMain.pForm.Width do
  begin
    Application.ProcessMessages;
    frmMain.pForm.Left := frmMain.pForm.Left + 4;
  end;

  While frmMain.pAnimationUpDownForm.Top > - ((frmMain.pAnimationUpDownForm.Height / 3) * 2) do
  begin
    Application.ProcessMessages;
    frmMain.pAnimationUpDownForm.Top := frmMain.pAnimationUpDownForm.Top - 3;
  end;
end;

3 (edited by pavlenko.vladimir.v 2023-07-28 04:26:37)

Re: Authorization | Авторизация

sparrow wrote:

На экранах с различным масштабированием вот это неравенство <> и работа с пикселами ... - 618 может вызывать проблемы с анимацией. Движение без остановки.
Не равно может быть как больше, так и меньше строгого значения.
Можно попробовать так.

по ходу нужно снимать Scaled
smile smile smile smile

Re: Authorization | Авторизация

Убрал Scaled и перезолил программу

5 (edited by k245 2023-07-28 08:14:36)

Re: Authorization | Авторизация

Красиво....

Пароли под звездочки спрятать - и годная тема )))

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&amp;item=9737&amp;download=0

Попробую её прикрутить на стандартную форму авторизации, чтобы пользовать встроенные механизмы прав...

Post's attachments

Attachment icon изображение_2023-07-28_110022551.png 14.44 kb, 48 downloads since 2023-07-28 

Визуальное программирование: блог и телеграм-канал.

Re: Authorization | Авторизация

k245 wrote:

Красиво....
Пароли под звездочки спрятать - и годная тема )))

Спасибо!
Я думаю showmessage заменить на анимацию, панель с формой уводить в сторону, а за ней реализовать диалог