Changeset 494 for GraphicTest/Packages/bgrabitmap/bgrasvgshapes.pas

Timestamp:

Dec 22, 2016, 8:49:19 PM (7 years ago)

Author:

chronos

Message:

• Modified: Updated BGRABitmap package.

File:

• GraphicTest/Packages/bgrabitmap/bgrasvgshapes.pas (modified) (8 diffs)

GraphicTest/Packages/bgrabitmap/bgrasvgshapes.pas

@@ -243 +243 @@
 implementation
 
-uses BGRATransform, Graphics;
+uses BGRATransform, BGRAGraphics;
 
 function GetSVGFactory(ATagName: string): TSVGFactory;
@@ -414 +414 @@
   if not isStrokeNone then
   begin
-    ACanvas2d.strokeStyle(strokeColor);
+    ApplyStrokeStyle(ACanvas2D,AUnit);
     ACanvas2d.stroke;
   end;
@@ -533 +533 @@
     if not isStrokeNone then
     begin
-      ACanvas2d.strokeStyle(strokeColor);
+      ApplyStrokeStyle(ACanvas2D,AUnit);
       ACanvas2d.stroke;
     end;
@@ -629 +629 @@
     if not isStrokeNone then
     begin
-      ACanvas2d.strokeStyle(strokeColor);
+      ApplyStrokeStyle(ACanvas2D,AUnit);
       ACanvas2d.stroke;
     end;
@@ -717 +717 @@
     if not isStrokeNone then
     begin
-      ACanvas2d.strokeStyle(strokeColor);
+      ApplyStrokeStyle(ACanvas2D,AUnit);
       ACanvas2d.stroke;
     end;
@@ -785 +785 @@
     if not isStrokeNone then
     begin
-      ACanvas2d.strokeStyle(strokeColor);
+      ApplyStrokeStyle(ACanvas2D,AUnit);
       ACanvas2d.stroke;
     end;
@@ -842 +842 @@
     if not isStrokeNone then
     begin
-      ACanvas2d.strokeStyle(strokeColor);
+      ApplyStrokeStyle(ACanvas2D,AUnit);
       ACanvas2d.stroke;
     end;
@@ -899 +899 @@
   if not isStrokeNone then
   begin
-    ACanvas2d.strokeStyle(strokeColor);
+    ApplyStrokeStyle(ACanvas2D,AUnit);
     ACanvas2d.beginPath;
     ACanvas2d.moveTo(Units.ConvertWidth(x1,AUnit).value,Units.ConvertWidth(y1,AUnit).value);