Changeset 64 for branches/Transpascal/Forms/UMainForm.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/UMainForm.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);