|
Вот - модуль, который заставляет пульсировать форму вместе с картинкой.
------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "About.h"
#include "Main.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TAboutBox *AboutBox;
//---------------------------------------------------------------------
__fastcall TAboutBox::TAboutBox(TComponent *Owner)
: TForm(Owner)
{
AnsiString var = Label4->Caption +
MainForm->getVersionInfo(Application->ExeName);
Label4->Caption = var;
grad = 1;
Timer1->Enabled = true;
}
//---------------------------------------------------------------------
void __fastcall TAboutBox::Timer1Timer(TObject *Sender)
{
AlphaBlendValue += grad;
if (AlphaBlendValue > 250)
grad = -1;
if (AlphaBlendValue < 20)
grad = 1;
Update();
}
//---------------------------------------------------------------------------
void __fastcall TAboutBox::FormClose(TObject *Sender, TCloseAction &Action)
{
Timer1->Enabled = false;
}
//---------------------------------------------------------------------------
|