Текущий архив: 2014.03.16;
Скачать: CL | DM;
Вниз
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.
← →
Kilkennycat © (2013-05-22 22:22) [3]http://delphiworld.narod.ru/base/gdi_delphi_graphic.html
Страницы: 1 вся ветка
Текущий архив: 2014.03.16;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.006 c
