Рисунок Delphi

[Lorem96]

Здравствуйте. Помогите нарисовать рисунок на канве в дельфи.Как я понял ширину квадрата задаём в ручную.

[Arigato]

MoveTo, LineTo, больше ничего не надо.

[Serge_Bliznykov]

Сообщение от Arigato

MoveTo, LineTo, больше ничего не надо.

ну и ещё знание геометрии и математики для подсчёта нужных координат на уровне (примерно) 8 класса современной (11-летней) средней школы.


Lorem96, реально, в чём у Вас сложности то?
Как линию на канве нарисовать в нужных точках? Или что?

[Lorem96]

Сложность в том что я не пойму как вычислять углы для линий.

[Iron Monk]

Сообщение от Lorem96

Сложность в том что я не пойму как вычислять углы для линий.

Все углы 45 - какие сложности?

[Iron Monk]

procedure _pPaint(a: integer);
var
x0, y0,
a1x, a1y, a2x, a2y, a3x, a3y, a4x, a4y,
b1x, b1y, b2x, b2y,
c0x, c0y, c1x, c1y, c2x, c2y,
d1x, d1y, d2x, d2y,
e0x, e0y, e1x, e1y, e2x, e2y,
tline1, tline2: integer;
begin
   x0:= Image1.ClientHeight div 2;
   y0:= Image1.ClientWidth  div 2;
   Image1.Canvas.FillRect(Rect(0,0,Image1.ClientHeight,Image1.ClientWidth));
   tline1:= (a div 2);
   tline2:= (a + a);

   a1x:= x0 - tline1;
   a1y:= y0 + tline1;
   a2x:= a1x;               
   a2y:= a1y - a;
   a3x:= a2x + a;
   a3y:= a2y;
   a4x:= a1x + a;
   a4y:= a1y;

   b1x:= a1x - tline2;
   b1y:= a1y - tline2;
   b2x:= a2x - tline2;
   b2y:= a2y + tline2;

   c0x:= a2x + tline1;
   c0y:= a2y - tline1;
   c1x:= a2x + tline2;
   c1y:= a2y - tline2;
   c2x:= a3x - tline2;
   c2y:= a3y - tline2;

   d1x:= a3x + tline2;
   d1y:= a3y + tline2;
   d2x:= a4x + tline2;
   d2y:= a4y - tline2;

   e0x:= a1x + tline1;
   e0y:= a1y + tline1;
   e1x:= a4x - tline2;
   e1y:= a4y + tline2;
   e2x:= a1x + tline2;
   e2y:= a1y + tline2;

   Image1.Canvas.MoveTo(b1x, b1y);
   Image1.Canvas.LineTo(a1x, a1y);
   Image1.Canvas.LineTo(a2x, a2y);
   Image1.Canvas.LineTo(b2x, b2y);

   Image1.Canvas.MoveTo(c1x, c1y);
   Image1.Canvas.LineTo(c0x, c0y);
   Image1.Canvas.LineTo(c2x, c2y);

   Image1.Canvas.MoveTo(d1x, d1y);
   Image1.Canvas.LineTo(a3x, a3y);
   Image1.Canvas.LineTo(a4x, a4y);
   Image1.Canvas.LineTo(d2x, d2y);

   Image1.Canvas.MoveTo(e1x, e1y);
   Image1.Canvas.LineTo(e0x, e0y);
   Image1.Canvas.LineTo(e2x, e2y);
end;