Changeset 17 for trunk/Packages/Kernel/UDevice.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Resize virtual screen according form size.

File:

• trunk/Packages/Kernel/UDevice.pas (modified) (4 diffs)

trunk/Packages/Kernel/UDevice.pas

@@ -24 +24 @@
     function GetBytesPerLine: Integer;
     function GetBytesPerImage: Integer;
+    procedure Assign(Source: TVideoMode);
   end;
 
@@ -29 +30 @@
 
   TDeviceVideo = class(TDevice)
+  private
+    FVideoMode: TVideoMode;
+  protected
+    procedure SetVideoMode(Mode: TVideoMode); virtual;
+    function GetVideoMemory: PByte; virtual;
+  public
     constructor Create; override;
-    procedure SetMode(Mode: TVideoMode); virtual;
     procedure GetSupportedModes(Modes: TObjectList); virtual;
-    function GetVideoMemory: PByte; virtual;
     procedure VideoMemoryChange; virtual;
+    property VideoMode: TVideoMode read FVideoMode write SetVideoMode;
+    property VideoMemory: PByte read GetVideoMemory;
   end;
 
@@ -64 +71 @@
 end;
 
+procedure TVideoMode.Assign(Source: TVideoMode);
+begin
+  Size := Source.Size;
+  ColorFormat := ColorFormat;
+end;
+
 { TDeviceSerial }
 
@@ -90 +103 @@
   inherited Create;
   ClassName := 'Video device';
+  FVideoMode := TVideoMode.Create;
 end;
 
-procedure TDeviceVideo.SetMode(Mode: TVideoMode);
+procedure TDeviceVideo.SetVideoMode(Mode: TVideoMode);
 begin
 end;