Changeset 105 for trunk/Back.pas

Timestamp:

Jan 25, 2018, 11:33:52 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Various memory leaks.

File:

• trunk/Back.pas (modified) (1 diff)

trunk/Back.pas

@@ -37 +37 @@
 
 procedure TBackground.FormShow(Sender: TObject);
+var
+  FileName: string;
 begin
-  Img := nil;
   if FullScreen then begin
-    if FileExists(HomeDir + 'Graphics' + DirectorySeparator + 'Background.png') then begin
-      Img := TBitmap.Create;
-      LoadGraphicFile(img, HomeDir + 'Graphics' + DirectorySeparator + 'Background.png');
+    if not Assigned(Img) then begin
+      FileName := HomeDir + 'Graphics' + DirectorySeparator + 'Background.png';
+      if FileExists(FileName) then begin
+        Img := TBitmap.Create;
+        LoadGraphicFile(img, FileName);
+      end;
     end;
   end else begin