VPF::Эффект анимации - Форум программистов

klyaksa

Дата 7.2.2011, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 15.9.2005

Репутация: нет
Всего: нет

Хочу сделать такой эффект: когда пользователь выполнил какое-то действие, например выбрал что-то из списка временно подсветить один из компонентов на какое-то время. В идеале с плавным переходом цвета...

Набросал начерно такой модуль. Работает, но все же, подскажите, может что не верно...

Код


unit Unit2;

interface

uses Graphics, ExtCtrls, Forms, JvRichEdit, SysUtils;

type
  TAT = class(TObject)
    bc1, bc2: TColor;
    tt: TTimer;
    ee: TJvRichEdit;
  private
     procedure TimerXTimer(Sender: TObject);
  public
    constructor Create(e: TJvRichEdit);
    Destructor  Destroy;
    procedure Start;
  end;

implementation

{ TAT }

constructor TAT.Create(e: TJvRichEdit);
begin
  bc1 := clWhite;
  bc2 := clRed;
  ee := e;
  tt := TTimer.Create(Application.MainForm);
  tt.Enabled := false;
  tt.Interval := 500;
  tt.OnTimer := TimerXTimer;
end;

destructor TAT.Destroy;
begin
  FreeAndNil(tt);
end;

procedure TAT.Start;
begin
  ee.Color := bc2;
  tt.Enabled := true;
end;

procedure TAT.TimerXTimer(Sender: TObject);
begin
  TTimer(Sender).Enabled := false;
  //FreeAndNil(TTimer(Sender));
  ee.Color := bc1;
  Self.Free;
end;

end.

Добавлено через 13 минут и 53 секунды
Интересует более всего область видимости и существование объекта.
Вызываю его вот так

Код


procedure TForm1.ComboBox1Change(Sender: TObject);
var t:TAT;
begin
  t := TAT.Create(JvRichEdit1);
  t.Start;
end;

Так вот, вроде t локальная переменная. Когда она уничтожается и нужно ли ее уничтожать самому (Self.Free;)?

klyaksa

Дата 7.2.2011, 19:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 15.9.2005

Репутация: нет
Всего: нет

Чуток поправил:

Код


unit Unit2;

interface

uses Graphics, ExtCtrls, Forms, JvRichEdit, SysUtils;

type
  TAT = class(TObject)
    bc1, bc2, bc3: TColor;
    tt: TTimer;
    ee: TJvRichEdit;
  private
     procedure TimerXTimer(Sender: TObject);
  public
    constructor Create(e: TJvRichEdit);
    Destructor  Destroy; override;
    procedure Start;
  end;

implementation

{ TAT }

constructor TAT.Create(e: TJvRichEdit);
begin
  inherited Create;
  bc1 := clWhite;
  bc2 := clRed;
  bc3 := clGreen;
  ee := e;
  tt := TTimer.Create(Application.MainForm);
  tt.Enabled := false;
  tt.Interval := 500;
  tt.OnTimer := TimerXTimer;
end;

destructor TAT.Destroy;
begin
  FreeAndNil(tt);
  //ee.Color := bc3;
  inherited Destroy;
end;

procedure TAT.Start;
begin
  ee.Color := bc2;
  tt.Enabled := true;
end;

procedure TAT.TimerXTimer(Sender: TObject);
begin
  TTimer(Sender).Enabled := false;
  //FreeAndNil(TTimer(Sender));
  ee.Color := bc1;
  Self.Free;
end;

end.

Destroy вызывается, значит, все, наверное, нормально...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »