![]() |
|
|
#6
|
||||
|
||||
![]() Цитата:
Проще не искать компонент а сделать так: 1. Кидаешь на форму панель (TPanel) 2. А на неё изображение (TImage) 3. Для Image1 устанавливаешь свойство Align:=alClient; 4. А потом рисуешь на нём ! Т.к у тебя уже есть значения X и Y то: 1. Заливаешь изображение белым Image1.Canvas.Pen.Color:=clWhite; Image1.Canvas.Brush.Color:=clWhite; Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.He igth); 2. А после установливаешь цвет отдельной точки Image1.Canvas.Pixels[x,y]:=clRed; (например красный, да любой можно!) 3. Или рисуешь линию: Image1.Canvas.MoveTo(x1,y1); Image1.Canvas.LineTo(x2,y2); - будет нарисована линия из точки (x1,y1) в точку (x2,y2) - установить цвет: Image1.Canvas.Pen.Color:=clRed; 4. Не забывай, что координаты у TImage идут из верхнего правого угла ось X вправо ось Y вниз! |