Changeset 7 for trunk/Platform/Base/UPlatformBase.pas

Timestamp:

May 9, 2015, 12:00:33 AM (9 years ago)

Author:

chronos

Message:

• Added: Action to switch to full screen mode.
• Added: Video driver registration.

File:

• trunk/Platform/Base/UPlatformBase.pas (modified) (3 diffs)

trunk/Platform/Base/UPlatformBase.pas

@@ -57 +57 @@
   end;
 
+  { TBaseVideoDevice }
+
+  TBaseVideoDevice = class(TDevice)
+  private
+    FOnRedraw: TNotifyEvent;
+  public
+    VideoMemory: PByte;
+    VideoMemorySize: TPoint;
+    DPI: Integer;
+    constructor Create; override;
+    destructor Destroy; override;
+    procedure Service(Index: Integer; DataIn, DataOut: TMemory); override;
+    property OnRedraw: TNotifyEvent read FOnRedraw write FOnRedraw;
+  end;
+
 implementation
+
+{ TBaseVideoDevice }
+
+constructor TBaseVideoDevice.Create;
+begin
+  inherited Create;
+end;
+
+destructor TBaseVideoDevice.Destroy;
+begin
+  inherited Destroy;
+end;
+
+procedure TBaseVideoDevice.Service(Index: Integer; DataIn, DataOut: TMemory);
+begin
+  if Index = 0 then begin
+    // Redraw to screen
+    if Assigned(FOnRedraw) then
+      FOnRedraw(Self);
+  end else
+  if Index = 1 then begin
+    // Get video memory
+    VideoMemory := GetMem(VideoMemorySize.X * VideoMemorySize.Y * 4);
+//    DataOut^ := VideoMemory;
+//    DataOut^ := VideoMemory;
+  end else inherited;
+end;
 
 { TBaseSerialDevice }
@@ -76 +118 @@
 procedure TBaseSerialDevice.Service(Index: Integer; DataIn, DataOut: TMemory);
 begin
-  inherited Service(Index, DataIn, DataOut);
   if Index = 0 then begin
     Lock.Acquire;
@@ -82 +123 @@
       FOnReceiveData(DataIn);
     Lock.Release;
-  end else raise Exception.Create('Unsupported service ' + IntToStr(Index) + ' for driver ''' + Name + '''');
+  end else inherited;
 end;