source: branches/Pascal Compiler/UMainForm.pas

unit UMainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, UVirtualMachine;

type
  TProgramEdit = class(TCustomControl)
    Code: TStringList;
    procedure Paint; override;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

  TDirection = (drNorth, drEasy, drSouth, drWest);

  TRobotKarel = class
    Board: array [0..9, 0..9] of Boolean;
    Position: TPoint;
    Direction: TDirection;
  end;

  TMainForm = class(TForm)
    RichEdit1: TRichEdit;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure GridPanel1Click(Sender: TObject);
  private
    { Private declarations }
  public
    VirtualProcessor: TVirtualProcessor;
    ProgramEdit: TProgramEdit;
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //Memo1.Lines.SaveToFile('Sample.pas');
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
  //Memo1.Lines.LoadFromFile('Sample.pas');
  ProgramEdit := TProgramEdit.Create(Self);
  with ProgramEdit do begin
    Parent := Self;
    Width := 500;
    Height := 500;
    Top := 100;
    Left := 100;
    with Code do begin
      Add('begin');
      Add('  WriteLn(''Test'')');
      Add('end.');
    end;
  end;
end;

procedure TMainForm.GridPanel1Click(Sender: TObject);
begin

end;

{ TProgramEdit }

constructor TProgramEdit.Create(AOwner: TComponent);
begin
  inherited;
  Code := TStringList.Create;
end;

destructor TProgramEdit.Destroy;
begin
  Code.Free;
  inherited;
end;

procedure TProgramEdit.Paint;
var
  I: Integer;
const
  LeftMargin: Integer = 30;
begin
  with Canvas do begin
    Brush.Color := clGray;
    FillRect(Rect(0, 0, LeftMargin, Height));
    Brush.Color := clWhite;
    FillRect(Rect(LeftMargin, 0, Width, Height));
    for I := 0 to Code.Count - 1 do begin
      Brush.Color := clWhite;
      Font.Color := clBlack;
      TextOut(LeftMargin + 2, (Abs(Font.Height) + 2) * I, Code[I]);
      Brush.Color := clGray;
      Font.Color := clWhite;
      TextOut(LeftMargin - 20, (Abs(Font.Height) + 2) * I, IntToStr(I));
    end;
  end;
end;

end.