diff --git a/components/fpvectorial/fpvectorial.pas b/components/fpvectorial/fpvectorial.pas
index afa75abc1d..e58338ca0a 100644
--- a/components/fpvectorial/fpvectorial.pas
+++ b/components/fpvectorial/fpvectorial.pas
@@ -4517,7 +4517,7 @@ begin
   try
     ConvertPathToPolygons(tmpPath, ADestX, ADestY, AMulX, AMulY, polypoints, polystarts);
     if (ADest is TCanvas) then
-      TCanvas(ADest).Polygon(polypoints, WindingRule = vcmNonZeroWindingRule)
+      TCanvas(ADest).Polygon(polypoints) //, WindingRule = vcmNonZeroWindingRule)
     else
       ADest.Polygon(polypoints);
   finally
diff --git a/components/fpvectorial/tests/vtmain.pas b/components/fpvectorial/tests/vtmain.pas
index fd52fc1323..333a3d3c31 100644
--- a/components/fpvectorial/tests/vtmain.pas
+++ b/components/fpvectorial/tests/vtmain.pas
@@ -291,6 +291,7 @@ begin
   ShowWriteReadTestImages;
   UpdateCmdStates;
   UpdateResultStates;
+  UpdateTestResults;
 end;
 
 procedure TMainForm.PrepareDoc(var ADoc: TvVectorialDocument;
@@ -382,6 +383,7 @@ var
   w, h: Integer;
   fmt: TvVectorialFormat;
   rc: TRenderCoords;
+  factorX, factorY: Double;
 begin
   fmt := GetFileFormat;
 
@@ -418,11 +420,13 @@ begin
   end;
 
   page := doc.GetPageAsVectorial(0);
+  factorX := w / page.Width;
+  factorY := h / page.Height;
   page.DrawBackground(TPaintbox(Sender).Canvas);
   if page.UseTopLeftCoordinates then
-    page.Render(TPaintbox(Sender).Canvas, 0, 0, 1.0, 1.0)
+    page.Render(TPaintbox(Sender).Canvas, 0, 0, factorX, factorY)
   else
-    page.Render(TPaintbox(Sender).Canvas, 0, h, 1.0, -1.0);
+    page.Render(TPaintbox(Sender).Canvas, 0, h, factorX, -factorY);
 end;
 
 procedure TMainForm.ResultStateChange(Sender: TObject);
diff --git a/components/fpvectorial/wmfvectorialreader.pas b/components/fpvectorial/wmfvectorialreader.pas
index dc6c7f0446..d4edd58ee1 100644
--- a/components/fpvectorial/wmfvectorialreader.pas
+++ b/components/fpvectorial/wmfvectorialreader.pas
@@ -197,7 +197,7 @@ begin
     Width := 1;
   end;
   with FCurrBrush do begin
-    Style := bsSolid;
+    Style := bsClear; //Solid;
     Color := colBlack;
   end;
   with FCurrFont do begin
@@ -814,6 +814,7 @@ var
   prevX, prevY: Word;
 begin
   page := AData.AddPage(not (vrf_UseBottomLeftCoords in Settings.VecReaderFlags));
+  page.BackgroundColor := colWhite;
 
   while AStream.Position < AStream.Size do begin
     // Store the stream position where the current record begins