source: branches/Independent/Apps/Code/AppCode.pas

unit AppCode;

interface

uses
  Classes, SysUtils, Api;

type
  { TAppCode }

  TAppCode = class(TApp)
    Code: TStringList;
    constructor Create; override;
    destructor Destroy; override;
    procedure Run(Context: TAppContext); override;
  end;


implementation

{ TAppCode }

constructor TAppCode.Create;
begin
  Name := 'Code';
  Code := TStringList.Create;
end;

destructor TAppCode.Destroy;
begin
  FreeAndNil(Code);
  inherited;
end;

procedure TAppCode.Run(Context: TAppContext);
var
  I: Integer;
  Line: string;
  Command: string;
  Index: Integer;
begin
  I := 0;
  while (I >= 0) and (I < Code.Count) do begin
    Line := Code[I].Trim;
    Inc(I);
    if Line = '' then Continue;

    Index := Pos(' ', Line);
    if Index > 0 then begin
      Command := Copy(Line, 1, Index - 1);
      Delete(Line, 1, Index);
    end else begin
      Command := Line;
      Line := '';
    end;
    if Command = 'WriteLine' then Context.Api.WriteLine(Line)
    else if Command = 'Sleep' then Context.Api.Sleep(StrToInt(Line))
    else if Command = 'RunApp' then Context.Api.RunApp(Line)
    else if Command = 'CreateWindow' then Context.Api.CreateWindow
    //else if Command = 'SetWindowName' then Context.Api.SetWindowName
    //else if Command = 'SetWindowRect' then Context.Api.SetWindowRect(Name, Rect)
    //else if Command = 'SetWindowVisible' then Context.Api.SetWindowVisible
    else raise Exception.Create('Unsupported command ' + Command);
  end;
end;

end.