Changeset 73 for trunk/Back.pas

Timestamp:

Jan 15, 2017, 4:12:10 PM (8 years ago)

Author:

chronos

Message:

• Modified: All graphics images converted from BMP to PNG.

File:

• trunk/Back.pas (modified) (3 diffs)

trunk/Back.pas

@@ -39 +39 @@
 begin
   img := nil;
-  if FullScreen then
-  begin
-    if FileExists(HomeDir + 'Graphics' + DirectorySeparator + 'Background.bmp') or
-      FileExists(HomeDir + 'Graphics' + DirectorySeparator + 'Background.png') then
-    begin
+  if FullScreen then begin
+    if FileExists(HomeDir + 'Graphics' + DirectorySeparator + 'Background.png') then begin
       img := TBitmap.Create;
-      LoadGraphicFile(img, HomeDir + 'Graphics' + DirectorySeparator + 'Background');
-    end
-  end
-  else
-  begin
+      LoadGraphicFile(img, HomeDir + 'Graphics' + DirectorySeparator + 'Background.png');
+    end;
+  end else begin
     WindowState := wsNormal;
     Width := StartDlg.Width + 16;
@@ -55 +50 @@
     Left := StartDlg.Left - 8;
     Top := StartDlg.Top - 8;
-  end
+  end;
 end;
 
@@ -75 +70 @@
 procedure TBackground.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  if img <> nil then
-  begin
+  if img <> nil then begin
     img.Free;
     img := nil