Changeset 17 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

• Added: Resize virtual screen according form size.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (2 diffs)
• UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 932
   Caption = 'Screen 1 - ChronOS'
-  ClientHeight = 656
+  ClientHeight = 653
   ClientWidth = 932
   Menu = MainMenu1
@@ -16 +16 @@
   object PaintBox1: TPaintBox
     Left = 0
-    Height = 656
+    Height = 653
     Top = 0
     Width = 932

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;