Changeset 474 for trunk/Packages

Timestamp:

Dec 4, 2023, 7:18:18 PM (12 months ago)

Author:

chronos

Message:

• Fixed: More high dpi related fixes.

Location:

trunk/Packages

Files:

• CevoComponents/ScreenTools.pas (modified) (1 diff)
• DpiControls/Dpi.Graphics.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -1795 +1795 @@
   end;
 
-  LogoBuffer := TBitmap.Create;
-  LogoBuffer.PixelFormat := TPixelFormat.pf24bit;
-  LogoBuffer.SetSize(BigBook.Width, BigBook.Height);
+  if not Assigned(LogoBuffer) then begin
+    LogoBuffer := TBitmap.Create;
+    LogoBuffer.PixelFormat := TPixelFormat.pf24bit;
+    LogoBuffer.SetSize(BigBook.Width, BigBook.Height);
+  end;
 
   LoadGraphicFile(Colors, GetGraphicsDir + DirectorySeparator + 'Colors.png');

trunk/Packages/DpiControls/Dpi.Graphics.pas

@@ -245 +245 @@
   public
     constructor Create; override;
+    destructor Destroy; override;
     procedure BeginUpdate(ACanvasOnly: Boolean = False);
     procedure EndUpdate(AStreamIsValid: Boolean = False);
@@ -630 +631 @@
 end;
 
+destructor TRasterImage.Destroy;
+begin
+  FreeAndNil(FCanvas);
+  inherited;
+end;
+
 procedure TRasterImage.BeginUpdate(ACanvasOnly: Boolean);
 begin