More input callbacks.

Rename `MouseButton` > `EMouseButton` and `KeyCode` > `EKeyCode` since LCL imports are prefixed with `Laz` now.
Villavu · Aug 20, 2023 · f170da1 · f170da1
1 parent 00d22a7
commit f170da1
Show file tree

Hide file tree

Showing 13 changed files with 904 additions and 704 deletions.
diff --git a/Source/codetools/msimplepaspar.pas b/Source/codetools/msimplepaspar.pas
@@ -236,6 +236,7 @@   TmwSimplePasPar = class(TObject)
     procedure RealType; virtual;
     procedure RecordConstant; virtual;
     procedure RecordFieldConstant; virtual;
+    procedure RecordFields; virtual;
     procedure RecordType; virtual;
     procedure UnionType; virtual;
     procedure RecordVariant; virtual;
@@ -2546,7 +2547,7 @@ procedure TmwSimplePasPar.RecordType;
     if Lexer.TokenID = tokSemicolon then
       Exit;
   end;
-  ClassMemberList;
+  RecordFields;
 
   Expected(tokEnd);
 end;
@@ -3408,6 +3409,21 @@ procedure TmwSimplePasPar.RecordFieldConstant;
   TypedConstant;
 end;
 
+procedure TmwSimplePasPar.RecordFields;
+begin
+  while (Lexer.TokenID in [tokIdentifier, tokConst]) do
+  begin
+    if (Lexer.TokenID = tokConst) then
+    begin
+      NextToken;
+      ConstantDeclaration;
+    end else
+      ClassField;
+
+    Expected(tokSemiColon);
+  end;
+end;
+
 procedure TmwSimplePasPar.RecordConstant;
 begin
   Expected(tokRoundOpen);