source: branches/simple/Forms/FormScreen.pas

unit FormScreen;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Screen,
  Channel, Device;

type

  { TFormScreen }

  TFormScreen = class(TFormDevice)
    Image1: TImage;
    TimerDraw: TTimer;
    procedure TimerDrawTimer(Sender: TObject);
  private
    DrawPending: Boolean;
  public
    Screen: TScreen;
    procedure ScreenChange(Sender: TObject);
  end;


implementation

{$R *.lfm}

{ TFormScreen }

procedure TFormScreen.TimerDrawTimer(Sender: TObject);
var
  X, Y: Integer;
const
  CharSize = 16;
begin
  if DrawPending then begin
    DrawPending := False;
    if Screen.BitWidth = bw8 then
    with Screen.Screen8 do begin
      Image1.Picture.Bitmap.SetSize(Width * CharSize, Height * CharSize);
      Image1.Picture.Bitmap.Canvas.FillRect(0, 0, Image1.Picture.Bitmap.Width,
        Image1.Picture.Bitmap.Height);
      for Y := 0 to Height - 1 do
        for X := 0 to Width - 1 do
          Image1.Picture.Bitmap.Canvas.TextOut(X * CharSize, Y * CharSize,
            Chr(Memory.Read8(Y * Width + X)));
    end else
    if Screen.BitWidth = bw16 then
    with Screen.Screen16 do begin
      Image1.Picture.Bitmap.SetSize(Width * CharSize, Height * CharSize);
      Image1.Picture.Bitmap.Canvas.FillRect(0, 0, Image1.Picture.Bitmap.Width,
        Image1.Picture.Bitmap.Height);
      for Y := 0 to Height - 1 do
        for X := 0 to Width - 1 do
          Image1.Picture.Bitmap.Canvas.TextOut(X * CharSize, Y * CharSize,
            Chr(Memory.Read8(Y * Width + X)));
    end;
  end;
end;

procedure TFormScreen.ScreenChange(Sender: TObject);
begin
  DrawPending := True;
end;

end.