Changeset 17 for trunk/Packages/Kernel/UKernel.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Resize virtual screen according form size.

File:

• trunk/Packages/Kernel/UKernel.pas (modified) (1 diff)

trunk/Packages/Kernel/UKernel.pas

@@ -74 +74 @@
   if Assigned(VideoDevice) then begin
     NewScreen := TScreen.Create;
-    NewScreen.VideoMemory := nil;
     Modes := TObjectList.Create;
     VideoDevice.GetSupportedModes(Modes);
     if Modes.Count > 0 then begin
       VideoMode := TVideoMode(Modes.Last);
-      VideoDevice.SetMode(VideoMode);
+      VideoDevice.VideoMode := VideoMode;
       NewScreen.Size := VideoMode.Size;
       NewScreen.ColorFormat := VideoMode.ColorFormat;
-      NewScreen.VideoMemory := VideoDevice.GetVideoMemory;
-      NewScreen.BytesPerPixel := VideoMode.GetBytesPerPixel;
-      NewScreen.BytesPerLine := VideoMode.GetBytesPerLine;
       NewScreen.Device := VideoDevice;
       NewScreen.Canvas := TScreenCanvas.Create;