Вопрос Помогите с программой лазарус!!!

[вадим1234]

Надо создать не большую картину (домик на пример), но я никак не могу понять как это делается! Помогите составить программу для рисунка!!

 

[Серега1996]

TImage?

 

[SipMan]

Возьмите TPaintBox, положите на форму, задайте размеры, привяжите Anchors снизу и сверзу, чтобы при изменении размеров - менялся соотв. размер PaintBox. Зайдите в Events у PaintBox, создайте процедуру ответа на событие OnPaint. Там напишите что-то такое: procedure TForm1.PaintBox1Paint(Sender: TObject); var rTop,rBody:TRect; middleX:longint; begin rTop := PaintBox1.ClientRect; rBody := rTop; rTop.Bottom := rTop.Bottom div 3; rBody.Top := rTop.Bottom; middleX := (rTop.Right - rTop.Left) div 2; PaintBox1.Canvas.Line( rTop.Left, rTop.Bottom, middleX, rTop.Top); PaintBox1.Canvas.Line( middleX, rTop.Top, rTop.Right, rTop.Bottom); PaintBox1.Canvas.Rectangle(rBody) end;