source: branches/ByteArray/Forms/FormAssembler.pas

unit FormAssembler;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, SynEdit,
  SynHighlighterAny, SynHighlighterMulti, FormEx, Generics.Collections;

type

  { TFormAssembler }

  TFormAssembler = class(TFormEx)
    SynAnySyn1: TSynAnySyn;
    SynEdit1: TSynEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
  public
    procedure Select(Position: TPoint);
  end;


implementation

{$R *.lfm}

uses
  Instructions;

{ TFormAssembler }

procedure TFormAssembler.FormCreate(Sender: TObject);
var
  InstructionInfos: TInstructionInfos;
  Keywords: TList<string>;
  I: Integer;
begin
  Keywords := TList<string>.Create;
  InstructionInfos := TInstructionInfos.Create;
  InstructionInfos.Init;
  for I := 0 to InstructionInfos.Count - 1 do
    if not Keywords.Contains(InstructionInfos[I].Name) then
      Keywords.Add(InstructionInfos[I].Name);
  for I := 0 to Keywords.Count - 1 do
    SynAnySyn1.KeyWords.Add(Keywords[I]);
  SynAnySyn1.KeyWords.Add('VAR');
  SynAnySyn1.KeyWords.Add('DB');
  SynAnySyn1.KeyWords.Add('ORG');
  FreeAndNil(InstructionInfos);
  FreeAndNil(Keywords);
end;

procedure TFormAssembler.FormDestroy(Sender: TObject);
begin
end;

procedure TFormAssembler.Select(Position: TPoint);
begin
  SynEdit1.CaretXY := Position;
  SynEdit1.SetFocus;
  Show;
end;

end.