Changeset 17 for branches/Void/UMainForm.pas

Timestamp:

Nov 10, 2009, 11:13:51 AM (15 years ago)

Author:

george

Message:

• Přidáno: Při kliknutí na chybové hlášení se přesune kurzor v kódu na místo chyby.

Location:

branches/Void

Files:

• . (modified) (1 prop)
• UMainForm.pas (modified) (6 diffs)

branches/Void

@@ -7 +7 @@
 *.dsk
 *.~dsk
+Output.bdsproj
+Output.c
+Output.dpr
+Output.exe

@@ -7 +7 @@
 *.dsk
 *.~dsk
+Output.bdsproj
+Output.c
+Output.dpr
+Output.exe

branches/Void/UMainForm.pas

@@ -25 +25 @@
     Label3: TLabel;
     Label4: TLabel;
-    Memo3: TMemo;
+    ListView1: TListView;
     SynCppSyn1: TSynCppSyn;
     SynEdit1: TSynEdit;
@@ -36 +36 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure SynEdit2Change(Sender: TObject);
+    procedure ListView1Click(Sender: TObject);
   private
     SourceCode: TMemoryStream;
@@ -59 +59 @@
 end;
 
-procedure TMainForm.SynEdit2Change(Sender: TObject);
+procedure TMainForm.ListView1Click(Sender: TObject);
 begin
-
+  if Assigned(ListView1.Selected) then begin
+    SynEdit1.CaretXY := TErrorMessage(Compilator.ErrorMessages[
+      ListView1.Selected.Index]).CodePosition;
+    SynEdit1.SetFocus;
+  end;
 end;
 
@@ -85 +89 @@
 var
   Code: string;
+  OutputFileName: string;
 begin
   with Compilator do begin
-    Memo3.Lines.Clear;
+    ListView1.Clear;
     Code := SynEdit1.Lines.Text;
     SourceCode.Size := 0;
@@ -95 +100 @@
       Generator := TPascalGenerator.Create;
       SynEdit2.Highlighter := SynPasSyn1;
+      OutputFileName := 'Output.dpr';
     end else
     if ComboBox1.ItemIndex = 1 then begin
       Generator := TCGenerator.Create;
       SynEdit2.Highlighter := SynCppSyn1;
+      OutputFileName := 'Output.c';
     end else
     if ComboBox1.ItemIndex = 2 then begin
       Generator := TZ80Generator.Create;
       SynEdit2.Highlighter := SynCppSyn1;
+      OutputFileName := 'Output.asm';
     end;
-    Compile;
+
+    try
+      Compile;
+    except
+    end;
+
     SynEdit2.Lines.Assign(Generator.Output);
+    SynEdit2.Lines.SaveToFile(OutputFileName);
     ModelViewer.Show(TreeView1);
   end;
@@ -112 +126 @@
 procedure TMainForm.CompilatorError(Text: string; var Terminate: Boolean;
   Position: TPoint);
+var
+  NewItem: TListItem;
 begin
   Terminate := False;
-  Memo3.Lines.Add('(' + IntToStr(Position.X) + ', ' + IntToStr(Position.Y) + ') Error: ' + Text);
+  NewItem := ListView1.Items.Add;
+  with NewItem do begin
+    Caption := '';
+    SubItems.Add(IntToStr(Position.X) + ', ' + IntToStr(Position.Y));
+    SubItems.Add('Error: ' + Text);
+  end;
 end;
 

@@ -7 +7 @@
 *.dsk
 *.~dsk
+Output.bdsproj
+Output.c
+Output.dpr
+Output.exe