Changeset 64 for branches/Transpascal/Forms/UMessagesForm.pas

Timestamp:

Oct 15, 2010, 2:13:42 PM (14 years ago)

Author:

george

Message:

• Fixed: Focus message position in code.

File:

• branches/Transpascal/Forms/UMessagesForm.pas (modified) (3 diffs)

branches/Transpascal/Forms/UMessagesForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  UCoolDocking;
+  UCoolDocking, UProject, UCompiler;
 
 type
@@ -16 +16 @@
     CoolDockClient1: TCoolDockClient;
     ListBoxMessages: TListBox;
+    procedure ListBoxMessagesSelectionChange(Sender: TObject; User: boolean);
   private
     { private declarations }
@@ -29 +30 @@
 {$R *.lfm}
 
+uses
+  UMainForm, UCodeForm;
+
+{ TMessagesForm }
+
+procedure TMessagesForm.ListBoxMessagesSelectionChange(Sender: TObject;
+  User: boolean);
+var
+  ProjectFile: TProjectFile;
+begin
+  with MainForm, CodeForm do
+  if ListBoxMessages.ItemIndex <> -1 then
+  with TErrorMessage(Compiler.ErrorMessages[ListBoxMessages.ItemIndex]) do begin
+    ProjectFile := Project.SearchFile(fileName);
+    if Assigned(ProjectFile) then
+      SynEditSource.Lines.Assign(ProjectFile.Source);
+    SynEditSource.CaretXY := Position;
+    SynEditSource.SetFocus;
+  end;
+end;
+
 end.