paintbox delphi

← →
grinya (2013-05-22 21:06) [0]

Ребят в общем есть готовая прога, но там нужно чуть-чуть добавить в построении пейнтбокса:
begin PaintBox1.Canvas.MoveTo(0,Round(200)); PaintBox1.Canvas.LineTo(Round(Mpaint*l1),Round(200-Mpaint*Hp)); PaintBox1.Canvas.LineTo(Round(Mpaint*(l1+B)),Round(200-Mpaint*Hp)); PaintBox1.Canvas.LineTo(Round(Mpaint*(l1+B+l2)),Round(200)); PaintBox1.Canvas.LineTo(Round(Mpaint*(0)),Round(200)); PaintBox1.Canvas.LineTo(Round(Mpaint*(l1+B+l2+10)),Round(200)); PaintBox1.Canvas.TextOut(Round(Mpaint*(l1+B+l2+10)),Round(200+5),"X"); PaintBox1.Canvas.MoveTo(0,Round(200)); PaintBox1.Canvas.LineTo(Round(Mpaint*(0)),Round(200-Mpaint*(Hp+10))); PaintBox1.Canvas.TextOut(Round(Mpaint*(0)),Round(200-Mpaint*(Hp+15)),"Y"); PaintBox1.Canvas.MoveTo(Round(Mpaint*VB*M1),Round(200-Mpaint*VB)); PaintBox1.Canvas.LineTo(Round(Mpaint*0),Round(200-Mpaint*VB)); PaintBox1.Canvas.MoveTo(Round(Mpaint*(L1+L2+B-NB*M2)),Round(200-Mpaint*NB)); PaintBox1.Canvas.LineTo(Round(Mpaint*(l1+B+l2+10)),Round(200-Mpaint*NB)); PaintBox1.Canvas.MoveTo(Round(Mpaint*VB*M1),Round(200-Mpaint*VB)); i:=0; while i<N do begin LAR1:=ARX1[i]; LAR2:=ARY1[i]; i:=i+1; PaintBox1.Canvas.LineTo(Round(Mpaint*((VB*M1)+LAR1)),Round(200-Mpaint*LAR2)); end;

← →
grinya © (2013-05-22 21:14) [1]

сейчас схема при построении выглядит так http://vk.com/doc1864969_185071256?hash=3e0b10e8b245152248
нужно добавить справа чтоб было так
http://vk.com/doc1864969_185073153?hash=9f5186c5a2e29a6768

← →
Kilkennycat © (2013-05-22 22:21) [2]

MoveTo Перемещает точку начала рисования линии в указанные координаты x и y Canvas.MoveTo(50, 100);
LineTo Рисует линию начиная с текущей позиции (см. MoveTo) до указанных координат x и y.

http://delphiworld.narod.ru/base/gdi_delphi_graphic.html

paintbox delphi Найти похожие ветки