[sariman]

Здравствуйте, как нибудь можно реализовать красивое, плавное изменение формы? заранее благодарен
P.S. таймер не предлогать)

[YVitaliy]

Вообще-то

красивое, плавное изменение формы

уже реализовано по-умолчанию: ставишь свойство формы BorderStyle в bsSizeable и потом левой клавишей мыши за края формы изменяешь ее размеры.
P.S А при чем здесь таймер?



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

[sariman]

я имею ввиду программно, например когда пытаюсь ширину формы сделать больше)

[lmikle]

Че сложного-то? Головой немного подумать всего-то надо...

Код:

procedure TForm1.MyResize(NewWidth : Integer);
var
  I : Integer;
  N : Integer;
  S : Integer;
begin
  N := Abs(NewWidth - Self.Width);
  S := Sign(NewWidth - Self.Width);
  For I := 1 To N Do
    Begin
       Self.Width := Self.Width + S;
       Sleep(100);                          // <-- задержка
       Application.ProcessMessages;  // <-- обработать сообщения, чтоб все не висло
       // Self.Update; // <-- иногда само не отрисовывается. тогда - раскоменнтировать.
    End;
end;

[sariman]

ругается на Sigh

[angvelem]

Поиск по папке Source, в будущем всегда выручит. Используй юнит Math.

[sariman]

использовал math, результата 0

[sariman]

там ошибка, нужно sign а не sigh, все пашет) спасибо) однако не очень плавное)

[angvelem]

Уменьши нарастание/убавление на нужную величину, поиграйся с параметром Sleep.

[sariman]

ок, спасибо, еще есть вопрос, возможно ли сделать label полупрозрачным?

[angvelem]

КрасЯвости нравятся? Попробуй AlphaSkins (или как там пишется правильно).

[sariman]

о даа нравится)) юзал AlphaSkins подобного там нету) и вообще не хочу использовать компоненты, большинство корявые и весят много

[angvelem]

Тогда пиши свои.

[YVitaliy]

Сам тогда пиши компоненты. Если немного переделать орикинальный TLabel, то можно многое сделать. И прозрачность в том числе.

[sariman]

нету опыта в создании своих компонентов, юзал гугл, нашел WPF, но как я понимаю, пишется на другом языке