Changeset 62 for branches/ByteArray/Forms/FormAssembler.pas

Timestamp:

Aug 1, 2024, 11:00:58 PM (7 weeks ago)

Author:

chronos

Message:

• Modified: Assembler syntax highlight.

File:

• branches/ByteArray/Forms/FormAssembler.pas (modified) (3 diffs)

branches/ByteArray/Forms/FormAssembler.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, AsyncProcess, SynEdit,
-  SynHighlighterAny, SynHighlighterMulti, Common.FormEx;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, SynEdit,
+  SynHighlighterAny, SynHighlighterMulti, Common.FormEx, Generics.Collections;
 
 type
@@ -14 +14 @@
     SynAnySyn1: TSynAnySyn;
     SynEdit1: TSynEdit;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+  private
   public
     procedure Select(Position: TPoint);
@@ -23 +26 @@
 {$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);