Changeset 6 for os/trunk/Drivers/Driver.VideoVCL.pas

Timestamp:

Jun 2, 2013, 5:41:42 PM (11 years ago)

Author:

chronos

Message:

• Fixed: TaskBar positioning.

Location:

os/trunk

Files:

• . (modified) (1 prop)
• Drivers/Driver.VideoVCL.pas (modified) (2 diffs)

os/trunk

@@ -2 +2 @@
 *.~dsk
 __history
+*.identcache

@@ -2 +2 @@
 *.~dsk
 __history
+*.identcache

os/trunk/Drivers/Driver.VideoVCL.pas

@@ -32 +32 @@
 procedure TDriverVideoVCL.DoUpdateSize(Sender: TObject);
 begin
-  with TForm1(Form) do
+  with TFormScreen(Form) do
   if (Image1.Width <> Image1.Picture.Bitmap.Width) or
   (Image1.Height <> Image1.Picture.Bitmap.Height) then begin
-    Image1.Picture.Bitmap.SetSize(Image1.Width, Image1.Height);
+    Image1.Picture.Bitmap.SetSize(Image1.ClientWidth, Image1.ClientHeight);
     Kernel.Screen.VideoDevice.Size := TPoint.Create(Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height);
     Kernel.Screen.Size := TPoint.Create(Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height);
@@ -54 +54 @@
 begin
   inherited;
-  Application.CreateForm(TForm1, Form1);
+  Application.CreateForm(TFormScreen, FormScreen);
   Form := Application.MainForm;
   Form.OnResize := DoUpdateSize;
   VideoDeviceVCL := TVideoDeviceVCL.Create;
-  VideoDeviceVCL.CanvasVCL := TForm1(Form).Image1.Canvas;
-  VideoDeviceVCL.Size := TPoint.Create(Form.Width, Form.Height);
-  Kernel.Screen.Size := TPoint.Create(Form.Width, Form.Height);
+  VideoDeviceVCL.CanvasVCL := TFormScreen(Form).Image1.Canvas;
+  VideoDeviceVCL.Size := TPoint.Create(Form.ClientWidth, Form.ClientHeight);
+  Kernel.Screen.Size := TPoint.Create(Form.ClientWidth, Form.ClientHeight);
   if Assigned(Kernel.Screen.VideoDevice) then
     Kernel.Screen.VideoDevice.Destroy;

@@ -2 +2 @@
 *.~dsk
 __history
+*.identcache