Поиск сообщества
Показаны результаты для тегов 'MoveTo'.
Найдено: 2 результата
-
Исправленный код для Берлина и выше: 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;
-
Здравствуйте, Как можно рисовать линии в 3D (как например в канвасе MoveTo и LineTo) у меня есть две точки A(x1,y1,z1) и B(x2,y2,z2)
