проблемма с рисованием на форме
в builder 6 по нажатию кнопки надо чтобы менялся цвет фона формы и рисовался эллипс.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form1->Color = clGreen;
Form1->Canvas->Ellipse(100,100,200,200);
}
но эта функция срабатывает только при повторном нажатии на кнопку. При первом нажатии меняется только цвет фона. А как сделать чтобы и элипс прорисовывался?
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form1->Color = clGreen;
Form1->Canvas->Ellipse(100,100,200,200);
}
но эта функция срабатывает только при повторном нажатии на кнопку. При первом нажатии меняется только цвет фона. А как сделать чтобы и элипс прорисовывался?
Вассе-то нормальные люди рисуют на форме при поможи события onPaint.
Так получится:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form1->Canvas->Brush->Color=clGreen;
Form1->Canvas->Brush->Style=bsSolid;
Form1->Canvas->FillRect(Form1->ClientRect);
Form1->Canvas->Pen->Color=clBlack;
Form1->Canvas->Pen->Style=psSolid;
Form1->Canvas->Pen->Mode=pmCopy;
Form1->Canvas->Ellipse(100,100,200,200);
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form1->Canvas->Brush->Color=clGreen;
Form1->Canvas->Brush->Style=bsSolid;
Form1->Canvas->FillRect(Form1->ClientRect);
Form1->Canvas->Pen->Color=clBlack;
Form1->Canvas->Pen->Style=psSolid;
Form1->Canvas->Pen->Mode=pmCopy;
Form1->Canvas->Ellipse(100,100,200,200);
}