Changeset 17 for trunk/Forms/UFormMain.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Resize virtual screen according form size.

File:

• trunk/Forms/UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -92 +92 @@
   VideoDevice.OnRedraw := VideoDeviceRedraw;
   VideoDevice.DPI := Screen.PixelsPerInch;
-  VideoDevice.VideoMemorySize := TPoint.Create(PaintBox1.Width, PaintBox1.Height);
   VideoDevice.OnModeChanged := VideoDeviceRedraw;
+  PaintBox1Resize(Self);
   Kernel.Devices.Add(VideoDevice);
 
@@ -215 +215 @@
 
 procedure TFormMain.PaintBox1Resize(Sender: TObject);
-begin
+var
+  VideoMode: TVideoMode;
+begin
+  VideoMode := TVideoMode.Create;
+  VideoMode.Assign(VideoDevice.VideoMode);
+  VideoMode.Size := TPoint.Create(Width, Height);
+  VideoDevice.VideoMode := VideoMode;
 end;