Changeset 49 for branches/DelphiToC/UMainForm.pas

Timestamp:

Aug 9, 2010, 2:24:24 PM (14 years ago)

Author:

george

Message:

Added support for setting cursor position to place of error code for error messages.

File:

• branches/DelphiToC/UMainForm.pas (modified) (8 diffs)

branches/DelphiToC/UMainForm.pas

@@ -9 +9 @@
   Dialogs, StdCtrls, UPascalSource, UPascalCompiler, UAssemblerSource,
   UProducerC, ComCtrls, SynEdit, SynHighlighterPas, USourceTree,
-  UProducerPascal;
+  UProducerPascal, Contnrs;
 
 const
@@ -15 +15 @@
 
 type
-
   { TMainForm }
 
@@ -21 +20 @@
     Button1: TButton;
     ComboBox1: TComboBox;
+    ListBox1: TListBox;
     Memo2: TMemo;
-    Memo3: TMemo;
     SynEdit1: TSynEdit;
     SynPasSyn1: TSynPasSyn;
@@ -32 +31 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
-    procedure ErrorMessage(Text: string);
+    procedure ListBox1Click(Sender: TObject);
+    procedure LoadErrorMessages;
   private
   public
@@ -52 +52 @@
   I: Integer;
 begin
-  MainForm.Memo3.Clear;
+  MainForm.ListBox1.Clear;
   Compiler.SourceCode.Assign(SynEdit1.Lines);
 
@@ -81 +81 @@
       Memo2.Lines.Add(TAssemblerLine(AssemblyCode[I]).AsString);
   end;
+  LoadErrorMessages;
 
   SourceTree.TreeView := TreeView1;
@@ -87 +88 @@
 end;
 
-procedure TMainForm.ErrorMessage(Text: string);
+procedure TMainForm.ListBox1Click(Sender: TObject);
 begin
-  MainForm.Memo3.Lines.Add(Text);
+  if ListBox1.ItemIndex <> - 1 then begin
+    SynEdit1.CaretXY := TErrorMessage(Compiler.ErrorMessages[ListBox1.ItemIndex]).Position;
+    SynEdit1.SetFocus;
+  end;
+end;
+
+procedure TMainForm.LoadErrorMessages;
+var
+  I: Integer;
+begin
+  ListBox1.Clear;
+  for I := 0 to Compiler.ErrorMessages.Count - 1 do
+  with TErrorMessage(Compiler.ErrorMessages[I]) do
+    MainForm.ListBox1.Items.Add('(' + IntToStr(Position.X) +
+      ',' + IntToStr(Position.Y) + ') ' + Text);
 end;
 
@@ -100 +115 @@
 begin
   Compiler := TCompiler.Create;
-  Compiler.OnErrorMessage := ErrorMessage;
   SourceTree := TSourceTree.Create;
 end;