Changeset 64 for branches/Transpascal/Forms

Timestamp:

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

Author:

george

Message:

• Fixed: Focus message position in code.

Location:

branches/Transpascal/Forms

Files:

• UMainForm.pas (modified) (3 diffs)
• UMessagesForm.lfm (modified) (1 diff)
• UMessagesForm.pas (modified) (3 diffs)

branches/Transpascal/Forms/UMainForm.pas

@@ -49 +49 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
-    procedure ListBoxMessagesClick(Sender: TObject);
-    procedure Panel2Click(Sender: TObject);
-    procedure Splitter2CanResize(Sender: TObject; var NewSize: Integer;
-      var Accept: Boolean);
   private
     procedure LoadErrorMessages;
@@ -108 +104 @@
 end;
 
-procedure TMainForm.ListBoxMessagesClick(Sender: TObject);
-var
-  ProjectFile: TProjectFile;
-begin
-  with MessagesForm, 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;
-
-procedure TMainForm.Panel2Click(Sender: TObject);
-begin
-
-end;
-
-procedure TMainForm.Splitter2CanResize(Sender: TObject; var NewSize: Integer;
-  var Accept: Boolean);
-begin
-
-end;
-
 procedure TMainForm.LoadErrorMessages;
 var
@@ -263 +233 @@
   NewProjectFile := TProjectFile.Create;
   NewProjectFile.Parent := Project;
-  NewProjectFile.Name := 'Console.pas';
+  NewProjectFile.Name := 'MemoryManager.pas';
   Project.Items.Add(NewProjectFile);
 

branches/Transpascal/Forms/UMessagesForm.lfm

@@ -15 +15 @@
     Align = alClient
     ItemHeight = 0
+    OnSelectionChange = ListBoxMessagesSelectionChange
     TabOrder = 0
   end

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.