Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Эффект анимации

Автор: klyaksa 7.2.2011, 18:11

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

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

Код


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

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

Код


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 вызывается, значит, все, наверное, нормально...