Changeset 17 for trunk/Platform/Base/UPlatformBase.pas

Timestamp:

Jan 21, 2018, 10:01:14 PM (6 years ago)

Author:

chronos

Message:

• Added: Resize virtual screen according form size.

File:

• trunk/Platform/Base/UPlatformBase.pas (modified) (5 diffs)

trunk/Platform/Base/UPlatformBase.pas

@@ -64 +64 @@
     FOnRedraw: TNotifyEvent;
     procedure DoRedraw;
+  protected
+    procedure SetVideoMode(Mode: TVideoMode); override;
   public
     VideoMemory: PByte;
-    VideoMemorySize: TPoint;
     DPI: Integer;
     Canvas: TCanvas;
-    VideoMode: TVideoMode;
-    procedure SetMode(Mode: TVideoMode); override;
     procedure GetSupportedModes(Modes: TObjectList); override;
     function GetVideoMemory: PByte; override;
@@ -89 +88 @@
 end;
 
-procedure TDeviceVideoBase.SetMode(Mode: TVideoMode);
+procedure TDeviceVideoBase.SetVideoMode(Mode: TVideoMode);
 begin
   if (VideoMode.Size.X <> Mode.Size.X) or
@@ -96 +95 @@
       VideoMode.Size := Mode.Size;
       VideoMode.ColorFormat := Mode.ColorFormat;
+      ReAllocMem(VideoMemory, VideoMode.GetBytesPerImage);
+      FillDWord(VideoMemory^, VideoMode.GetBytesPerImage div 4, $ffffff);
       if Assigned(FOnModeChanged) then
         FOnModeChanged(Self);
@@ -135 +136 @@
 function TDeviceVideoBase.GetVideoMemory: PByte;
 begin
-  VideoMemory := GetMem(VideoMode.GetBytesPerImage);
-  FillDWord(VideoMemory^, VideoMode.GetBytesPerImage div 4, $ffffff);
   Result := VideoMemory;
 end;
@@ -148 +147 @@
 begin
   inherited Create;
-  VideoMode := TVideoMode.Create;
 end;