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

Timestamp:

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

Author:

chronos

Message:

• Added: Resize virtual screen according form size.

File:

• trunk/Packages/Kernel/UScreen.pas (modified) (2 diffs)

trunk/Packages/Kernel/UScreen.pas

@@ -25 +25 @@
 
   TScreen = class
+  private
+    function GetBytesPerLine: Integer;
+    function GetBytesPerPixel: Integer;
+    function GetVideoMemory: PByte;
+  public
     Device: TObject; // TDeviceVideo;
     Size: TPoint;
     DPI: Integer;
     ColorFormat: TColorFormat;
-    BytesPerPixel: Integer;
-    BytesPerLine: Integer;
-    VideoMemory: PByte;
     Canvas: TCanvas;
     procedure VideoMemoryUpdated;
+    property BytesPerPixel: Integer read GetBytesPerPixel;
+    property BytesPerLine: Integer read GetBytesPerLine;
+    property VideoMemory: PByte read GetVideoMemory;
   end;
 
@@ -99 +104 @@
 { TScreen }
 
+function TScreen.GetBytesPerLine: Integer;
+begin
+  Result := TDeviceVideo(Device).VideoMode.GetBytesPerLine;
+end;
+
+function TScreen.GetBytesPerPixel: Integer;
+begin
+  Result := TDeviceVideo(Device).VideoMode.GetBytesPerPixel;
+end;
+
+function TScreen.GetVideoMemory: PByte;
+begin
+  Result := TDeviceVideo(Device).VideoMemory;
+end;
+
 procedure TScreen.VideoMemoryUpdated;
 begin