нарисовать

[guverr]

Помогите нарисовать , такое в дельфи , чтоб в последствии каждое поле я мог заливкой разной залить , то есть стены принтус , пол и тд .

Есть координаты написанные в С#


protected override void OnPaint(PaintEventArgs e)
{
Graphics g = e.Graphics;

Pen pen = new Pen(Color.Black);

g.DrawRectangle(pen, 0, 0, 400, 300);
g.FillRectangle(Brushes.White, new Rectangle(0, 0, 400, 300));

#region Стены

Point[] points = {new Point(0, 5), new Point(0, 295), new Point(100, 215), new Point(100, 75)};
g.FillPolygon(wall, points);

Point[] points2 = {new Point(300, 75), new Point(300, 215), new Point(100, 215), new Point(100, 75),
new Point(150, 75), new Point (150, 160), new Point(250, 160), new Point(250, 110),
new Point(150, 110), new Point(150, 75)};
g.FillPolygon(wall, points2);

Point[] points3 = {new Point(300, 215), new Point(350, 255), new Point(350, 85), new Point(400, 55), new Point(400, 5), new Point(300, 75)};
g.FillPolygon(wall, points3);

#endregion

#region Кайма

Point[] points4 = { new Point(0, 0), new Point(0, 5), new Point(100, 75), new Point(100, 70) };
g.FillPolygon(kaima, points4);
Point[] points5 = { new Point(100, 70), new Point(100, 75), new Point(300, 75), new Point(300, 70) };
g.FillPolygon(kaima, points5);
Point[] points6 = { new Point(300, 70), new Point(300, 75), new Point(400, 5), new Point(400, 0) };
g.FillPolygon(kaima, points6);

#endregion

#region Плинтус

Point[] points7 = { new Point(0, 295), new Point(0, 300), new Point(100, 220), new Point(100, 215) };
g.FillPolygon(plintus, points7);
Point[] points8 = { new Point(100, 215), new Point(100, 220), new Point(300, 220), new Point(300, 215) };
g.FillPolygon(plintus, points8);
Point[] points9 = { new Point(300, 220), new Point(300, 215), new Point(350, 255), new Point(350, 260) };
g.FillPolygon(plintus, points9);

#endregion

#region Потолок

Point[] points10 = { new Point(0, 0), new Point(400, 0), new Point(300, 70), new Point(100, 70) };
g.FillPolygon(potolok, points10);

#endregion

#region Пол

Point[] points11 = { new Point(0, 300), new Point(100, 220), new Point(300, 220), new Point(400, 300) };
g.FillPolygon(pol, points11);

#endregion

#region Контуры стен

g.DrawRectangle(pen, new Rectangle(100, 70, 200, 150));
g.DrawLine(pen, 0, 0, 100, 70);
g.DrawLine(pen, 400, 0, 300, 70);
g.DrawLine(pen, 400, 300, 300, 220);
g.DrawLine(pen, 0, 300, 100, 220);

#endregion

#region Контур двери

g.DrawLine(pen, 350, 85, 350, 260);
g.DrawLine(pen, 350, 85, 400, 55);

#endregion

#region Контур окна

g.DrawRectangle(pen, new Rectangle(150, 110, 100, 50));
g.DrawLine(pen, 183, 110, 183, 160);
g.DrawLine(pen, 216, 110, 216, 160);

#endregion

#region Контур каймы

g.DrawLine(pen, 0, 5, 100, 75);
g.DrawLine(pen, 100, 75, 300, 75);
g.DrawLine(pen, 300, 75, 400, 5);

#endregion

#region Контур плинтуса

g.DrawLine(pen, 0, 295, 100, 215);
g.DrawLine(pen, 100, 215, 300, 215);
g.DrawLine(pen, 300, 215, 350, 255);

#endregion

#region Длины

g.DrawString("1.5", new Font("Arial", 8), Brushes.Black, 193, 95);
g.DrawString("1", new Font("Arial", 8), Brushes.Black, 137, 130);
g.DrawString("2", new Font("Arial", 8), Brushes.Black, 337, 145);
g.DrawString("1", new Font("Arial", 8), Brushes.Black, 367, 54);
g.DrawString("5", new Font("Arial", 8), Brushes.Black, 60, 255);
g.DrawString("3", new Font("Arial", 8), Brushes.Black, 193, 200);
g.DrawString("2.5", new Font("Arial", 8), Brushes.Black, 100, 150);


Надо такое же но на дельфи может хоть кусочек скажите а я дальше сам ) или спрошу еще че не пойму

[bitSoft]

luche zdelai redactor katorii zapisal vse tvoi pixeli ili lines iz Canvasa v odin TListView, ili v buffer, i text shtob toje sahranilsia gne on nahoditza i kakoi text, i na forme kini TPaintBox, i v sabitie onPaint, zdelai shto narisoval shto esti u tebya v buffer ili v TListView , eto budet po proshe