C++ Builder (Графика)

[Jonfree]

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

[Rin]

Делал такое на Delphi. Извини, но переводить с Delphi на С++ в лом.

procedure TDraw.Draw_Pixel(x, y: integer; R, G, B: byte);
var
 c: TColor;
begin
 c:=RGB(R,G,B);
 Polotno.Canvas.Pixels[x, y]:=c;
end;

procedure TDraw.Draw_Line(x1, y1, x2, y2: integer);
var
 y, x, d, dx, dy: integer;
begin
 dx:= x2 - x1;
 dy:= y2 - y1;
 if (x1=x2)and(y1=y2) then //если точка
 else//если отрезок
 begin
   if x1=x2 then//вертикально
   begin
     if y1>y2 then//если 1-ая точка ниже, то меняем местами точки
     begin
       x1:=x2;
       d:=y1;
       y1:=y2;
       y2:=d;
     end;
     for y:= y1 to y2 do//рисуем точками отрезок от верхней до нижней заданной
       Draw_Pixel(x1, y, Red,green,blue);
   end
   else//если отрезок не вертикальный
   begin
     if x1>x2 then//если 1-ая точка правее, то меняем местами точки
     begin
       d:=x1;
       x1:=x2;
       x2:=d;
       y1:=y2;
     end;
     for x:= x1 to x2 do//рисуем точками отрезок от левой до правой заданной точки
     begin
       y:=round((x-x1)*dy/dx+y1);
       Draw_Pixel(x, y, red,green,blue);
     end;
   end;
 end;
end;

procedure TDraw.Draw_TriangleFull(x1, y1, x2, y2, x3, y3: integer);
var
  ya,yb,d,i:integer;
begin
  //сортировка
 while  (x1<=x2)and(x2<=x3)=false do
 begin
   if x2<x1 then
   begin
     d:=x2; x2:=x1; x1:=d; d:=y2; y2:=y1; y1:=d;
   end else if x2>x3 then
            begin
              d:=x2; x2:=x3; x3:=d; d:=y2; y2:=y3; y3:=d;
            end;
 end;
  //рисование
  if x1=x2 then for i:=x3-1 downto x1 do
                begin
                  ya:=(i-x3)*(y1-y3) div (x1-x3)+y3;
                  yb:=(i-x3)*(y2-y3) div (x2-x3)+y3;
                  Draw.Draw_Line(i,ya,i,yb);
                end
  else if x2=x3 then for i:=x1+1 to x2 do
                     begin
                       ya:=(i-x1)*(y2-y1) div (x2-x1)+y1;
                       yb:=(i-x1)*(y3-y1) div (x3-x1)+y1;
                       Draw.Draw_Line(i,ya,i,yb);
                     end
       else begin
              for i:=x1+1 to x2 do
              begin
                ya:=(i-x1)*(y2-y1) div (x2-x1)+y1;
                yb:=(i-x1)*(y3-y1) div (x3-x1)+y1;
                Draw.Draw_Line(i,ya,i,yb);
              end;

              for i:=x3-1 downto x2 do
              begin
                ya:=(i-x3)*(y2-y3) div (x2-x3)+y3;
                yb:=(i-x3)*(y1-y3) div (x1-x3)+y3;
                Draw.Draw_Line(i,ya,i,yb);
              end;
            end;
end;