fix demo

Alexey-T · Dec 15, 2023 · 23f49fa · 23f49fa
1 parent 340de5b
commit 23f49fa
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/app/demo_simple/project1.lpi b/app/demo_simple/project1.lpi
@@ -67,6 +67,7 @@
     <Linking>
       <Debugging>
         <GenerateDebugInfo Value="False"/>
+        <DebugInfoType Value="dsDwarf3"/>
       </Debugging>
       <Options>
         <Win32>

diff --git a/app/demo_simple/unit1.pas b/app/demo_simple/unit1.pas
@@ -19,7 +19,7 @@   TForm1 = class(TForm)
     Ed: TATSynEdit;
     Panel1: TPanel;
     procedure EdCommand(Sender: TObject; ACommand: integer;
-      AInvoke: TATEditorCommandInvoke; const AText: string;
+      AInvoke: TATCommandInvoke; const AText: string;
       var AHandled: boolean);
     procedure EdKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
@@ -78,7 +78,7 @@ procedure TForm1.DoCompletionProp(Sender: TObject; AContent: TStringList; out
 end;
 
 procedure TForm1.EdCommand(Sender: TObject; ACommand: integer;
-  AInvoke: TATEditorCommandInvoke; const AText: string; var AHandled: boolean);
+  AInvoke: TATCommandInvoke; const AText: string; var AHandled: boolean);
 begin
   if ACommand=cmd_AutoComplete then
   begin
@@ -91,7 +91,7 @@ procedure TForm1.EdKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
   if (Key=Ord(' ')) and (Shift=[ssCtrl]) then
-    Ed.DoCommand(cmd_AutoComplete, cInvokeAppInternal);
+    Ed.DoCommand(cmd_AutoComplete, TATCommandInvoke.AppInternal);
 end;
 
 end.