Changeset 172

Timestamp:

Jun 15, 2019, 8:13:43 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Scrollbar in Help form was not working correctly under Linux.
• Fixed: Incorrect deallocation of objects in Help form.

Location:

trunk/LocalPlayer

Files:

• Help.pas (modified) (3 diffs)
• PVSB.pas (modified) (1 diff)

trunk/LocalPlayer/Help.pas

@@ -1406 +1406 @@
           Caption := HelpText.Lookup('HELPTITLE_TECHLIST');
           List := THyperText.Create;
+          List.OwnsObjects := True;
           for j := 0 to 3 do
           begin
@@ -1522 +1523 @@
           // AddLine(HelpText.Lookup('HELPTITLE_IMPLIST'),pkSection);
           List := THyperText.Create;
+          List.OwnsObjects := True;
           for i := 28 to nImp - 1 do
             if (i <> imTrGoods) and (Imp[i].Preq <> preNA) and
@@ -1788 +1790 @@
           Caption := HelpText.Lookup('HELPTITLE_FEATURELIST');
           List := THyperText.Create;
+          List.OwnsObjects := True;
           for Special := 0 to 2 do
           begin

trunk/LocalPlayer/PVSB.pas

@@ -153 +153 @@
 begin
   FMax := AValue;
-  ScrollBar.Max := Math.Max(0, Max{$IFDEF LINUX} - PageSize + 1{$ENDIF});
+  ScrollBar.Max := Math.Max(0, FMax);
 end;