Reset pen style and width

pchev · Apr 23, 2019 · 3871b92 · 3871b92
1 parent eb29c78
commit 3871b92
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/skychart/cu_plot.pas b/skychart/cu_plot.pas
@@ -1352,10 +1352,11 @@ procedure TSplot.PlotLine(x1, y1, x2, y2: single; lcolor, lwidth: integer;
       {$ifdef mswindows}
         if style <> psSolid then
           Pen.Width := 1;
-{$endif}
+      {$endif}
         MoveTo(round(x1), round(y1));
         LineTo(round(x2), round(y2));
         Pen.Style := psSolid;
+        Pen.Width := 1;
       end;
 
   end;
@@ -5927,6 +5928,8 @@ procedure TSplot.BGRADrawLine(x1, y1, x2, y2: single; c: TBGRAPixel;
   abmp.CanvasBGRA.MoveTo(round(x1), round(y1));
   abmp.CanvasBGRA.LineTo(round(x2), round(y2));
   abmp.CanvasBGRA.Pen.Style := psSolid;
+  abmp.CanvasBGRA.Pen.Width := 1;
+  abmp.Pen.Style := psSolid;
 
 end;