diff --git a/components/onlinepackagemanager/opkman_createrepositoryfrm.pas b/components/onlinepackagemanager/opkman_createrepositoryfrm.pas
index 04a745a93f..eacba83066 100644
--- a/components/onlinepackagemanager/opkman_createrepositoryfrm.pas
+++ b/components/onlinepackagemanager/opkman_createrepositoryfrm.pas
@@ -770,7 +770,7 @@ begin
     if Ms.Size > 0 then
     begin
       Ms.Position := 0;
-      SetLength(AJSON, MS.Size);
+      SetLength({%H-}AJSON, MS.Size);
       MS.Read(Pointer(AJSON)^, Length(AJSON));
       Result := True;
     end;
diff --git a/components/onlinepackagemanager/opkman_mainfrm.pas b/components/onlinepackagemanager/opkman_mainfrm.pas
index 2da1e54751..f4a25bc97d 100644
--- a/components/onlinepackagemanager/opkman_mainfrm.pas
+++ b/components/onlinepackagemanager/opkman_mainfrm.pas
@@ -283,7 +283,7 @@ begin
     try
       MS.LoadFromFile(JSONFile);
       MS.Position := 0;
-      SetLength(JSON, MS.Size);
+      SetLength({%H-}JSON, MS.Size);
       MS.Read(Pointer(JSON)^, Length(JSON));
       try
         SuccessfullyLoaded := SerializablePackages.JSONToPackages(JSON);
diff --git a/components/onlinepackagemanager/opkman_updates.pas b/components/onlinepackagemanager/opkman_updates.pas
index 6bb18f659a..0fa62b3d13 100644
--- a/components/onlinepackagemanager/opkman_updates.pas
+++ b/components/onlinepackagemanager/opkman_updates.pas
@@ -320,7 +320,7 @@ procedure TUpdates.CheckForOpenSSL;
   var
     SysPath: WideString;
   begin
-    SetLength(SysPath, Windows.MAX_PATH);
+    SetLength({%H-}SysPath, Windows.MAX_PATH);
     SetLength(SysPath, Windows.GetSystemDirectoryW(PWideChar(SysPath), Windows.MAX_PATH));
     Result := AppendPathDelim(String(SysPath));
   end;
diff --git a/components/onlinepackagemanager/opkman_visualtree.pas b/components/onlinepackagemanager/opkman_visualtree.pas
index a449f0c591..a090507f91 100644
--- a/components/onlinepackagemanager/opkman_visualtree.pas
+++ b/components/onlinepackagemanager/opkman_visualtree.pas
@@ -248,27 +248,27 @@ begin
      end;
      with Header.Columns.Add do
      begin
-        Position := 4;
-        Width := FVST.Scale96ToForm(280);
-        {$IFDEF LCLCarbon}
-        Options := Options - [coResizable];
-        {$ENDIF}
-        Text := rsMainFrm_VSTHeaderColumn_Data;
+       Position := 4;
+       Width := FVST.Scale96ToForm(280);
+       {$IFDEF LCLCarbon}
+       Options := Options - [coResizable];
+       {$ENDIF}
+       Text := rsMainFrm_VSTHeaderColumn_Data;
       end;
      with Header.Columns.Add do
      begin
-        Position := 5;
-        Alignment := taCenter;
-        Width := FVST.Scale96ToForm(88);
-        Options := Options - [coResizable];
-        Text := rsMainFrm_VSTHeaderColumn_Rating;
-      end;
+       Position := 5;
+       Alignment := taCenter;
+       Width := FVST.Scale96ToForm(81);
+       Options := Options - [coResizable];
+       Text := rsMainFrm_VSTHeaderColumn_Rating;
+     end;
      with Header.Columns.Add do
      begin
-        Position := 6;
-        Alignment := taCenter;
-        Width := FVST.Scale96ToForm(20);
-        Options := Options - [coResizable];
+       Position := 6;
+       Alignment := taCenter;
+       Width := FVST.Scale96ToForm(20);
+       Options := Options - [coResizable];
      end;
      Header.Options := [hoAutoResize, hoColumnResize, hoRestrictDrag, hoShowSortGlyphs, hoVisible, hoShowHint];
      {$IFDEF LCLCarbon}
@@ -313,7 +313,7 @@ begin
    end;
   FShowHintFrm := TShowHintFrm.Create(nil);
   if AImgList <> nil then
-    FStarSize := FVST.Scale96ToForm(AImgList.Width)
+    FStarSize := Application.MainForm.Scale96ToForm(AImgList.Width)
   else
     FStarSize := 0;
 end;