摘要:
uses Direct2D, D2D1;const penWidth = 25;var iGeometry: ID2D1EllipseGeometry;procedure TForm1.FormCreate(Sender: TObject);begin D2DFactory.CreateEllipseGeometry(D2D1Ellipse(D2D1PointF(120, 90), 80, 50), iGeometry);end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); 阅读全文