Changeset 303 for branches/highdpi/LocalPlayer/UnitStat.pas

Timestamp:

Mar 9, 2021, 9:19:49 AM (5 years ago)

Author:

chronos

Message:

• Modified: Synced code with current trunk version.

File:

• branches/highdpi/LocalPlayer/UnitStat.pas (modified) (3 diffs)

branches/highdpi/LocalPlayer/UnitStat.pas

@@ -83 +83 @@
   Template := TDpiBitmap.Create;
   Template.PixelFormat := pf24bit;
-  LoadGraphicFile(Template, GetGraphicsDir + DirectorySeparator + 'Unit.png', gfNoGamma);
+  LoadGraphicFile(Template, GetGraphicsDir + DirectorySeparator + 'Unit.png',
+    [gfNoGamma]);
 end;
 
 procedure TUnitStatDlg.FormDestroy(Sender: TObject);
 begin
-  Template.Free;
-  Back.Free;
+  FreeAndNil(Template);
+  FreeAndNil(Back);
 end;
 
@@ -276 +277 @@
 procedure TUnitStatDlg.CloseBtnClick(Sender: TObject);
 begin
-  Close
+  Close;
 end;
 
@@ -363 +364 @@
             inc(dx, 15)
           end;
-        end
-      end
+        end;
+      end;
   end; { featurebar }