графические примитивы

[Zaraaa]

Друзья! прошу помогите пожалуйста построить на Delphi используя графические примитивы:

[min@y™]

Да запросто! А чего не получается, где подсказать?

[Foreseen]

Здесь матана больше, чем программирования) Если будут формулы-помогу с кодом.

[min@y™]

Да какой матан? Одной теоремы товарища Пифагора достаточно.

[Serge_Bliznykov]

так, просто для затравки:

procedure TForm1.FormPaint(Sender: TObject);
begin
 with Canvas do begin
  Brush.Style := bsClear;
  Pen.Width := 1;
  Ellipse(5, 0, 200, 118);
  Rectangle(40, 14, 167, 103);
  Ellipse(103-62,59-45,103+63,59+45);
  Rectangle(59, 25, 147, 90);
  Ellipse(103-44,58-31,103+44,58+31);
  MoveTo(103, 57); LineTo(103, 154);
  MoveTo(104, 58); LineTo( 236, 58);
  MoveTo(146, 90); LineTo( 236, 90);
  MoveTo(146, 90); LineTo( 146, 154);
  MoveTo(104, 140); LineTo( 147, 140);
  MoveTo(226, 57); LineTo( 226, 89);
 end;
end;

ris1.jpg

[Zaraaa]

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

так, просто для затравки:

procedure TForm1.FormPaint(Sender: TObject);
begin
 with Canvas do begin
  Brush.Style := bsClear;
  Pen.Width := 1;
  Ellipse(5, 0, 200, 118);
  Rectangle(40, 14, 167, 103);
  Ellipse(103-62,59-45,103+63,59+45);
  Rectangle(59, 25, 147, 90);
  Ellipse(103-44,58-31,103+44,58+31);
  MoveTo(103, 57); LineTo(103, 154);
  MoveTo(104, 58); LineTo( 236, 58);
  MoveTo(146, 90); LineTo( 236, 90);
  MoveTo(146, 90); LineTo( 146, 154);
  MoveTo(104, 140); LineTo( 147, 140);
  MoveTo(226, 57); LineTo( 226, 89);
 end;
end;

Вложение 69984

Будьте добры,скиньте пожалуйста прогу,я думаю вам это ничего не стоит,так как вы очень не плохой программист))))

[Zaraaa]

Друзья! С первым рисунком помогите пожалуйста, второй получился))

[Serge_Bliznykov]

Будьте добры,скиньте пожалуйста прогу

мне не сложно это сделать.
Вопрос только в том, ЗАЧЕМ?!
Неужели Вы не хотите (или не можете) запустить Delphi, создать новый проект с формой, выделить форму, в менеджере объектов (Object Browser) перейти на закладку события, найти событие onPaint, щелкнуть рядом с ним (там есть место, где задаётся имя метода), откроется окошко кода, там будет написано примерно так:

procedure TForm1.FormPaint(Sender: TObject);
begin

end;

вставить между begin end код рисования.
Сохранить проект.
Скомпилировать/Запустить его.
Всё.

Я тут писал в три раза дольше, чем это делать.

В чём у Вас проблемы?!



ДОБАВЛЕНО через минуту

второй получился))

Ура! Поздравляю!

[Serge_Bliznykov]

первый рисунок же попроще..
Неужели трудно его самостоятельно нарисовать?!!

мда.. Понимаю... Лень матушка....

ладно. Лови:

procedure TForm1.FormPaint(Sender: TObject);
begin
 with Canvas do begin
   Brush.Style := bsClear;
   {треугольник}
   MoveTo(278, 14); LineTo(150, 455);
   LineTo(407, 455); LineTo(278, 14);

   {эллипсы}
   Ellipse(278-106,385-69, 278+106,385+69);
   Ellipse(278-74,270-45, 278+74,270+45);
   Ellipse(278-53,195-31, 278+53,195+31);
   MoveTo(278, 455); LineTo(278,14);

   {надписи}
   Font.Style := [fsBold, fsItalic];
   Font.Size := 24;
   TextOut(170, 240, 'b');
   TextOut(370, 240, 'b');
   TextOut(260, 450, 'a');


 end;
end;

p.s. с Вас сто рублей за работу!