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

Timestamp:

Jan 21, 2018, 10:21:23 PM (7 years ago)

Author:

chronos

Message:

• Modified: Optimized drawing virtual screen to form canvas.

File:

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

trunk/Platform/Base/UPlatformBase.pas

@@ -66 +66 @@
   protected
     procedure SetVideoMode(Mode: TVideoMode); override;
+    function GetVideoMemory: PByte; override;
   public
     VideoMemory: PByte;
@@ -71 +72 @@
     Canvas: TCanvas;
     procedure GetSupportedModes(Modes: TObjectList); override;
-    function GetVideoMemory: PByte; override;
     procedure VideoMemoryChange; override;
     constructor Create; override;