Canvas, рисования при активации окна

@user-men · Регистрация: 17.02.2014

Author24 — интернет-сервис помощи студентам

Я хочу нарисовать прямоугольника при открытии окна поэтому я написал код в TForm1::TForm1(TComponent* Owner):TForm(Owner) не помогло, попытался создать событие "активацию" и там написать код тоже не помогло.
Как нарисовать прямоугольника при открытии окна ? Почему код работает только в Button1Click(TObject *Sender)

C++

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
Canvas->Pen->Color = (TColor)RGB(255, 0, 0);
Canvas->Pen->Width = 5;
Canvas->Rectangle(20,20,10,10);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Canvas->Pen->Color = (TColor)RGB(255, 0, 0);
Canvas->Pen->Width = 5;
Canvas->Rectangle(20,20,10,10);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Canvas->Pen->Color = (TColor)RGB(255, 0, 0);
Canvas->Pen->Width = 5;
Canvas->Rectangle(20,20,10,10);
}
//---------------------------------------------------------------------------

@lifeforce · 03.10.2015, 18:37

user-men,
поставь в FormPaint

C++

void __fastcall TForm1::FormPaint(TObject *Sender)
{
Canvas->Pen->Color = (TColor)RGB(255, 0, 0);
Canvas->Pen->Width = 5;
Canvas->Rectangle(20,20,10,10);
}
//---------------------------------------------------------------------------

все работает!

@volvo · 03.10.2015, 18:41

Потому что канва не хранит того, что на ней нарисовано. И после событий OnCreate/OnActivate происходят другие события, которые очищают канву, следовательно рисунок исчезает. Рисуй в OnPaint, тогда он будет перерисовываться каждый раз, когда необходимо перерисовать форму.

@volvo Супер-модератор 32971 / 21284 / 8173 Регистрация: 22.10.2011 Сообщений: 36,559 Записей в блоге: 8
	03.10.2015, 18:41	3
	Потому что канва не хранит того, что на ней нарисовано. И после событий OnCreate/OnActivate происходят другие события, которые очищают канву, следовательно рисунок исчезает. Рисуй в OnPaint, тогда он будет перерисовываться каждый раз, когда необходимо перерисовать форму. 1