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

Timestamp:

Jun 2, 2013, 2:34:55 PM (11 years ago)

Author:

chronos

Message:

• Added: Implemented sample desktop manager as simple application.

Location:

os/trunk

Files:

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

os/trunk

@@ -1 +1 @@
 Win32
 *.~dsk
+__history

@@ -1 +1 @@
 Win32
 *.~dsk
+__history

os/trunk/Drivers/Driver.VideoVCL.pas

@@ -4 +4 @@
 
 uses
-  Vcl.Forms, Vcl.Graphics, System.Types, UFormMain, Xvcl.Classes, Xvcl.Kernel,
+  Vcl.Forms, Vcl.Graphics, System.Types, UFormMain, Xvcl.Classes, LDOS.Kernel,
   Xvcl.Graphics, Generics.Collections;
 
@@ -36 +36 @@
   (Image1.Height <> Image1.Picture.Bitmap.Height) then begin
     Image1.Picture.Bitmap.SetSize(Image1.Width, Image1.Height);
-    Kernel.Screen.VideoDevice.Size := TPoint.Create(Form.Width, Form.Height);
-    Kernel.Screen.Size := TPoint.Create(Form.Width, Form.Height);
+    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);
+    Kernel.Screen.HandleResize;
     Kernel.Screen.Paint;
   end;
@@ -111 +112 @@
 procedure TVideoDeviceVCL.TextOut(Position: TPoint; Text: string);
 begin
+ // CanvasVCL.Font.Color := ColorToVCL(
   CanvasVCL.Brush.Style := bsClear;
   CanvasVCL.TextOut(Position.X, Position.Y, Text);

@@ -1 +1 @@
 Win32
 *.~dsk
+__history