Changeset 189 for trunk/Back.pas

Timestamp:

May 7, 2020, 12:46:55 AM (5 years ago)

Author:

chronos

Message:

• Added: New Global unit with global constants.
• Modified: Multiple occurence of string constants used for subdirectories replaced by functions.

File:

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

trunk/Back.pas

@@ -42 +42 @@
   if FullScreen then begin
     if not Assigned(Img) then begin
-      FileName := HomeDir + 'Graphics' + DirectorySeparator + 'Background.png';
+      FileName := GetGraphicsDir + DirectorySeparator + 'Background.png';
       if FileExists(FileName) then begin
         Img := TBitmap.Create;