Changeset 194 for trunk/Back.pas

Timestamp:

May 7, 2020, 8:39:24 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Locale configuration in configuration was not working as expected. ModalResult of Ok and Cancel buttons was opposite. Selected locale was not applied during application startup.
• Fixed: Updating fullscreen mode after changeing mode in configuration window.

File:

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

trunk/Back.pas

@@ -19 +19 @@
   private
     Img: TBitmap;
+  public
+    procedure UpdateInterface;
   end;
 
@@ -37 +39 @@
 
 procedure TBackground.FormShow(Sender: TObject);
-var
-  FileName: string;
 begin
-  if FullScreen then begin
-    if not Assigned(Img) then begin
-      FileName := GetGraphicsDir + DirectorySeparator + 'Background.png';
-      if FileExists(FileName) then begin
-        Img := TBitmap.Create;
-        LoadGraphicFile(img, FileName);
-      end;
-    end;
-  end else begin
-    WindowState := wsNormal;
-    Width := StartDlg.Width + 16;
-    Height := StartDlg.Height + 16;
-    Left := StartDlg.Left - 8;
-    Top := StartDlg.Top - 8;
-  end;
+  UpdateInterface;
 end;
 
@@ -74 +60 @@
 end;
 
+procedure TBackground.UpdateInterface;
+var
+  FileName: string;
+begin
+  if FullScreen then begin
+    WindowState := wsMaximized;
+    if not Assigned(Img) then begin
+      FileName := GetGraphicsDir + DirectorySeparator + 'Background.png';
+      if FileExists(FileName) then begin
+        Img := TBitmap.Create;
+        LoadGraphicFile(img, FileName);
+      end;
+    end;
+  end else begin
+    WindowState := wsNormal;
+    Width := StartDlg.Width + 16;
+    Height := StartDlg.Height + 16;
+    Left := StartDlg.Left - 8;
+    Top := StartDlg.Top - 8;
+  end;
+end;
+
 end.