вадим1234 В вадим1234 Регистрация 15 Дек 2013 Сообщения 82 Репутация 0 Спасибо 0 Монет 0 12 Окт 2016 #1 Надо создать не большую картину (домик на пример), но я никак не могу понять как это делается! Помогите составить программу для рисунка!!
Надо создать не большую картину (домик на пример), но я никак не могу понять как это делается! Помогите составить программу для рисунка!!
Серега1996 С Серега1996 Регистрация 25 Фев 2013 Сообщения 81 Репутация 0 Спасибо 0 Монет 0 12 Окт 2016 #2 TImage? Позитивный голос 0
SipMan S SipMan Регистрация 18 Ноя 2013 Сообщения 74 Репутация 0 Спасибо 0 Монет 0 12 Окт 2016 #3 Возьмите 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; Позитивный голос 0
Возьмите 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;