"Приветствие" С++, помогите с кодом

[Dima-91]

Программа "Приветствия", скомпилировал только результат не получился который должен был быть. Подскажите что в коде не так.

TForm1 *Form1;
Graphics::TBitmap *bgp;
AnsiString sMonth[] = {" ","январь","февраль","март","апрель","май","июнь","июль",
					"август","сентябрь","октябрь","ноябрь","декабрь"};

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	bgp = new Graphics::TBitmap();
	try
	{
		bgp->LoadFromFile("sky.bmp");
	}
	catch (EFOpenError &e)
	{}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint (TObject *Sender)
{
  int h;
  AnsiString mes;
  int wt,ht;
  int x,y;
  h = HourOf(Now ());
  if (h<=4) mes = "Good night";
  else if (h<=12) mes = "Good morning";
  else if (h<=16) mes = "Good day";
  else mes = "Good evning";

	Form1->Font->Name = "Times New Roman";
	Form1->Canvas->Font->Size = 20;
	wt = Canvas->TextWidth(mes);
	ht = Canvas->TextHeight(mes);

	x = (ClientWidth-wt)/2;
	y = ClientHeight/2 - ht;
	Canvas->Draw(0,0,bgp);
	Canvas->Brush->Style = bsClear;
	Canvas->TextOutW(x,y,mes);
	y = y + ht;
	mes = FormatDateTime ("Now d ", Now() );
	mes = mes +   " " +sMonth[MonthOf (Now ())]+ ", "+
		FormatDateTime("dddd", Now ());
	Canvas->Font->Size = 4;
	wt = Canvas->TextWidth(mes);
	ht = Canvas->TextHeight(mes);

	x = (ClientWidth - wt)/2;
	y = y + 6;
	Canvas->TextOutW(x,y,mes);

}
//-------------------------------------------------------------------------

void __fastcall TForm1::FormResize(TObject *Sender)
{
	Form1->Refresh();
}
//--

[GreenWizard]

Уверен, что функция отрисовки прикреплена к событию onPaint?
Кроме того, если я правильно помню, onPaint вызывается только при необходимости (изменили размер формы, часть формы была помешена как не валидная), поэтому часы будут отставать и/или мерцать/исчезать
вот пример простой анимации из гугла - http://kurspk2009.narod.ru/progr/delphi/animeDelphi.htm
Как вариант: таймер + TImage, куда и выводим текст (на форму саму лучше не выводить т. к. тогда нужно корректно сообщения перехватывать и обрабатывать)
P.s. анимация - это не только изображения, а изменение того же текста
P.P.s. очень надеюсь, что проблема именно с выводом текста, а не ошибка при компиляции -.-

[Dima-91]

Спасибо все заработало, нужно было не от руки писать событие OnPaint. Только что-то буквы не меняют размера. Но расположены в середине.

[GreenWizard]

Сообщение от Dima-91

Спасибо все заработало, нужно было не от руки писать событие OnPaint. Только что-то буквы не меняют размера. Но расположены в середине.

	Form1->Font->Name = "Times New Roman"; // <= Canvas->Font! 
	Form1->Canvas->Font->Size = 20;

ты менял шрифт текста самой формы и её компонентов (с ParentFont=true), а не шрифт для вывода текста
и если уже в др. частях пишешь "Canvas->....", то и тут убери "Form1->" ИЛИ добавь его везде, чтоб точно работать с той же канвой