Changeset 210 for branches/highdpi/Back.pas

Timestamp:

May 9, 2020, 4:02:07 PM (5 years ago)

Author:

chronos

Message:

• Modified: Improved HighDPI branch. Imported new changes from trunk branch.

File:

• branches/highdpi/Back.pas (modified) (5 diffs)

branches/highdpi/Back.pas

@@ -5 +5 @@
 
 uses
-  LCLIntf, LCLType, SysUtils, Classes, Graphics, Forms, Controls, UDpiControls;
+  UDpiControls, LCLIntf, LCLType, SysUtils, Classes, Graphics, Forms, Controls;
 
 type
@@ -11 +11 @@
   { TBackground }
 
-  TBackground = class(TForm)
+  TBackground = class(TDpiForm)
     procedure FormDestroy(Sender: TObject);
     procedure FormPaint(Sender: TObject);
@@ -19 +19 @@
   private
     Img: TDpiBitmap;
+  public
+    procedure UpdateInterface;
   end;
 
@@ -37 +39 @@
 
 procedure TBackground.FormShow(Sender: TObject);
+begin
+  UpdateInterface;
+end;
+
+procedure TBackground.FormDestroy(Sender: TObject);
+begin
+  if Assigned(Img) then FreeAndNil(Img);
+end;
+
+procedure TBackground.FormPaint(Sender: TObject);
+begin
+  if Assigned(Img) then
+    DpiBitCanvas(Canvas, DpiScreen.Width - Img.Width - (DpiScreen.Width - 800) *
+      3 div 8, (DpiScreen.Height - 600) div 3, Img.Width, Img.Height,
+      Img.Canvas, 0, 0);
+end;
+
+procedure TBackground.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+end;
+
+procedure TBackground.UpdateInterface;
 var
   FileName: string;
 begin
   if FullScreen then begin
+    WindowState := wsMaximized;
     if not Assigned(Img) then begin
-      FileName := HomeDir + 'Graphics' + DirectorySeparator + 'Background.png';
+      FileName := GetGraphicsDir + DirectorySeparator + 'Background.png';
       if FileExists(FileName) then begin
         Img := TDpiBitmap.Create;
@@ -57 +82 @@
 end;
 
-procedure TBackground.FormDestroy(Sender: TObject);
-begin
-  if Assigned(Img) then FreeAndNil(Img);
-end;
-
-procedure TBackground.FormPaint(Sender: TObject);
-begin
-  if Assigned(Img) then
-    DpiBitBlt(Canvas.Handle, DpiScreen.Width - Img.Width - (DpiScreen.Width - 800) *
-      3 div 8, (DpiScreen.Height - 600) div 3, Img.Width, Img.Height,
-      Img.Canvas.Handle, 0, 0, SRCCOPY);
-end;
-
-procedure TBackground.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
-end;
-
 end.