Canvas

[ZET78]

кто может сказать, почему у меня на форме ничего не выводиться, сейчас разбираю Canvas. пробую рисовать в Builder но на форме ничего, подскажите пожалуйста.
Вот код:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Canvas->Pen->Width=1;
Canvas->Pen->Color=clBlack;
Canvas->Brush->Color=clGray;
Canvas->Rectangle(30,30,150,150);
Canvas->Pen->Width=2;
Canvas->Brush->Style=bsClear;
Canvas->Pen->Color=clRed;
Canvas->Ellipse(40,40,80,80);
Canvas->Pen->Color=clBlack;
Canvas->Ellipse(70,40,110,80);
Canvas->Pen->Color= clBlue;
Canvas->Ellipse(100,40,140,80);
Canvas->Pen->Color=clYellow;
Canvas->Ellipse(55,65,95,105);
Canvas->Pen->Color= clGreen;
Canvas->Ellipse(85,65,125,105);
}
//---------------------------------------------------------------------------

[Гром]

Во-первых, нужно писать

Form1->Canvas->Pen->Width=1;

иначе не проглотит.
Во-вторых, не лучшая идея рисовать прямо в конструкторе. Лучше сделайте что-то подобное, например, при нажатии на кнопку.

[ZET78]

Гром спасибо, сейчас попробую)

[ZET78]

Блин, один фиг не рисует ничего(((

[Гром]

Кинул на форму кнопку, скопипастил ваш код даже без "Form1->" - все работает!

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Canvas->Pen->Width=1;
Canvas->Pen->Color=clBlack;
Canvas->Brush->Color=clGray;
Canvas->Rectangle(30,30,150,150);
Canvas->Pen->Width=2;
Canvas->Brush->Style=bsClear;
Canvas->Pen->Color=clRed;
Canvas->Ellipse(40,40,80,80);
Canvas->Pen->Color=clBlack;
Canvas->Ellipse(70,40,110,80);
Canvas->Pen->Color= clBlue;
Canvas->Ellipse(100,40,140,80);
Canvas->Pen->Color=clYellow;
Canvas->Ellipse(55,65,95,105);
Canvas->Pen->Color= clGreen;
Canvas->Ellipse(85,65,125,105);
}

А в конструкторе-то, понятное дело, не будет рисовать.

[ZET78]

Гром. опять же спасибо, все заработало, я просто думал он и так в конструкторе должен выводить.