| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
paintbox delphi [D7]
grinya © (2013-05-22 21:06:00)Ребят в общем есть готовая прога, но там нужно чуть-чуть добавить в построении пейнтбокса:
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;
Kilkennycat (2013-05-22 22:22:00) [1]http://delphiworld.narod.ru/base/gdi_delphi_graphic.html
Kilkennycat (2013-05-22 22:21:00) [2]MoveTo Перемещает точку начала рисования линии в указанные координаты x и y Canvas.MoveTo(50, 100);
LineTo Рисует линию начиная с текущей позиции (см. MoveTo) до указанных координат x и y.
grinya (2013-05-22 21:14:00) [3]сейчас схема при построении выглядит так http://vk.com/doc1864969_185071256?hash=3e0b10e8b245152248
нужно добавить справа чтоб было так
http://vk.com/doc1864969_185073153?hash=9f5186c5a2e29a6768
| |
