Рисование в канве(делфи).

[SkyLite]

Экран разбивается на шесть квадратов. В каждом из которых рисуется квадрат, вершины которого лежат на гранях квадрата, уровнем выше и отстоят от вершин данного квадрата на некоторое D. Предусмотреть возможность настройки D. Как реализовать это как на рисунке?Безымянный.jpg

[SkyLite]

Form2.Image1.Canvas.Rectangle(0, 0, 384, 384); // пока работаем с этим квадратом
Form2.Image1.Canvas.Rectangle(384, 0, 768, 384);
Form2.Image1.Canvas.Rectangle(768, 0, 1152, 384);
//квадраты с помощью линий

// 1  внутренний квадрат уже повернут и с ним все норм
if RadioButton1.checked then begin
 Form2.Image1.Canvas.MoveTo(0+d, 0);
   Form2.Image1.Canvas.LineTo(384, 0+d);
   Form2.Image1.Canvas.MoveTo(384, 0+d);
   Form2.Image1.Canvas.LineTo(384-d, 384);
   Form2.Image1.Canvas.MoveTo(384-d, 384);
   Form2.Image1.Canvas.LineTo(0, 384-d);
   Form2.Image1.Canvas.MoveTo(0, 384-d);
   Form2.Image1.Canvas.LineTo(0+d, 0);
//2   внутренний квадрат незнаю как повернуть что бы было норм
   Form2.Image1.Canvas.MoveTo(0+d*2, 0);
   Form2.Image1.Canvas.LineTo(384, 0+d*2);
   Form2.Image1.Canvas.MoveTo(384, 0+d*2);
   Form2.Image1.Canvas.LineTo(384-d*2, 384);
   Form2.Image1.Canvas.MoveTo(384-d*2, 384);
   Form2.Image1.Canvas.LineTo(0, 384-d*2);
   Form2.Image1.Canvas.MoveTo(0, 384-d*2);
   Form2.Image1.Canvas.LineTo(0+d*2, 0);

end;

поправьте плис завтра сдавать а это не могу реализовать



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.