плз помогите нарисовать в делфи...

[sp.caster]

надо нарисовать в делфи домик с окошками с трубой, ну и ли че то подобное, помогите плз

[DomiNick]

Опишите задачу подробнее...
На чём нарисовать (на Form1, на Image1, ...), каким образом (чтоб само рисовалось при запуске или чтоб мышкой можно было...)...

[sp.caster]

На Form1, чтоб само рисовалось

[elsin]

а при чем тут базы данных?

[sp.caster]

сори, ошибся! ну раз уж тут написал, что поделаеш

[DomiNick]

Ну... Например вот:


Procedure TForm1.FormPaint(Sender: TObject);
Begin
Canvas.MoveTo(30,50);
Canvas.LineTo(30,110);
Canvas.LineTo(130,110);
Canvas.LineTo(130,50);
Canvas.LineTo(20,50);
Canvas.LineTo(80,10);
Canvas.LineTo(140,50);
Canvas.LineTo(130,50);
Canvas.MoveTo(70,60);
Canvas.LineTo(70,90);
Canvas.LineTo(90,90);
Canvas.LineTo(90,60);
Canvas.LineTo(70,60);
End;