Changeset 53 for trunk/IDE/Forms/UFormMessages.pas

Timestamp:

Jun 26, 2012, 7:23:47 AM (12 years ago)

Author:

chronos

Message:

• Modified: Created main UCore unit and moved non visual code from UFormMain to it.

File:

• trunk/IDE/Forms/UFormMessages.pas (modified) (4 diffs)

trunk/IDE/Forms/UFormMessages.pas

@@ -34 +34 @@
 
 uses
-  UFormMain, UFormSourceCode;
+  UCore, UFormMain, UFormSourceCode;
 
 { TFormMessages }
@@ -52 +52 @@
 procedure TFormMessages.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  with FormMain, FormSourceCode do
+  with Core, FormMain, FormSourceCode do
   with TErrorMessage(Compiler.ErrorMessages[Item.Index]) do begin
     Item.Caption := FileName;
@@ -67 +67 @@
   P: TPoint;
 begin
-  with FormMain, FormSourceCode do
+  with Core, FormSourceCode do
   if Assigned(ListView1.Selected) then
   with TErrorMessage(ListView1.Selected.Data) do begin
@@ -81 +81 @@
 procedure TFormMessages.Reload;
 begin
-  ListView1.Items.Count := FormMain.Compiler.ErrorMessages.Count;
+  ListView1.Items.Count := Core.Compiler.ErrorMessages.Count;
   ListView1.Refresh;
 end;