Перейти к содержанию

Вопросы

Исправленный код для Берлина и выше:

procedure TForm2.FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
    var path : TPathData;
    begin
      path := TPathData.Create;
      try
        path.MoveTo(TPointF.Create (10,100));
        path.CurveTo (TPointF.Create(100,10),TPointF.Create(150,150),
                      TPointF.Create(200,100));
        Canvas.Stroke.Thickness := 2;
        Canvas.Stroke.Kind := TBrushKind.Solid;
        Canvas.Stroke.Color := TAlphaColorRec.Red;
        Canvas.BeginScene;
        Canvas.DrawPath(path, 1.0);
        Canvas.EndScene;
      finally
        path.Free;
      end;
    end;

ifTU13y.png.c6af791836bb665167f416a763f8514e.png

 

 

Отредактировал ENERGY

Поделиться сообщением


Ссылка на сообщение

Рекомендуемые сообщения

Ответы на этот вопрос пока отсутствуют

Присоединяйтесь к обсуждению

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

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Похожий контент

    • От FreeOS
      Здравствуйте,
       
      Как можно рисовать линии в 3D (как например в канвасе MoveTo и LineTo)
      у меня есть две точки A(x1,y1,z1) и B(x2,y2,z2) 
       
  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...