Changeset 5 for os/trunk/Drivers


Ignore:
Timestamp:
Jun 2, 2013, 2:34:55 PM (12 years ago)
Author:
chronos
Message:
  • Added: Implemented sample desktop manager as simple application.
Location:
os/trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • os/trunk

    • Property svn:ignore

      •  

        old new  
        11Win32
        22*.~dsk
         3__history

  • os/trunk/Drivers/Driver.KeyboardVCL.pas

    r3 r5  
    44
    55uses
    6   Vcl.Forms, Vcl.Controls, System.Classes, UFormMain, Xvcl.Classes, Xvcl.Kernel;
     6  Vcl.Forms, Vcl.Controls, System.Classes, UFormMain, Xvcl.Classes, LDOS.Kernel;
    77
    88type

  • os/trunk/Drivers/Driver.MouseVCL.pas

    r3 r5  
    44
    55uses
    6   Vcl.Forms, Vcl.Controls, System.Classes, UFormMain, Xvcl.Classes, Xvcl.Kernel;
     6  Vcl.Forms, Vcl.Controls, System.Classes, UFormMain, Xvcl.Classes, LDOS.Kernel;
    77
    88type

  • os/trunk/Drivers/Driver.SystemVCL.pas

    r3 r5  
    44
    55uses
    6   Vcl.Forms, Xvcl.Kernel;
     6  Vcl.Forms, LDOS.Kernel;
    77
    88type

  • os/trunk/Drivers/Driver.VideoVCL.pas

    r3 r5  
    44
    55uses
    6   Vcl.Forms, Vcl.Graphics, System.Types, UFormMain, Xvcl.Classes, Xvcl.Kernel,
     6  Vcl.Forms, Vcl.Graphics, System.Types, UFormMain, Xvcl.Classes, LDOS.Kernel,
    77  Xvcl.Graphics, Generics.Collections;
    88
    … …  
    3636  (Image1.Height <> Image1.Picture.Bitmap.Height) then begin
    3737    Image1.Picture.Bitmap.SetSize(Image1.Width, Image1.Height);
    38     Kernel.Screen.VideoDevice.Size := TPoint.Create(Form.Width, Form.Height);
    39     Kernel.Screen.Size := TPoint.Create(Form.Width, Form.Height);
     38    Kernel.Screen.VideoDevice.Size := TPoint.Create(Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height);
     39    Kernel.Screen.Size := TPoint.Create(Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height);
     40    Kernel.Screen.HandleResize;
    4041    Kernel.Screen.Paint;
    4142  end;
    … …  
    111112procedure TVideoDeviceVCL.TextOut(Position: TPoint; Text: string);
    112113begin
     114 // CanvasVCL.Font.Color := ColorToVCL(
    113115  CanvasVCL.Brush.Style := bsClear;
    114116  CanvasVCL.TextOut(Position.X, Position.Y, Text);
Note: See TracChangeset for help on using the changeset viewer.