Changeset 67 for trunk/Forms/UFormMessages.pas

Timestamp:

Jan 17, 2015, 4:08:03 PM (10 years ago)

Author:

chronos

Message:

• Renamed: MainForm class to FormMain.
• Moved: CurrentTarget moved from FormMain to Core class.

File:

• trunk/Forms/UFormMessages.pas (modified) (3 diffs)

trunk/Forms/UFormMessages.pas

@@ -31 +31 @@
 
 uses
-  UFormMain, UTarget;
+  UCore, UTarget;
 
 { TFormMessages }
@@ -37 +37 @@
 procedure TFormMessages.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  with MainForm.CurrentTarget do
+  with Core.CurrentTarget do
   if (Item.Index >= 0) and (Item.Index < Messages.Count) then
   with TMessage(Messages[Item.Index]) do begin
@@ -52 +52 @@
 procedure TFormMessages.Reload;
 begin
-  ListView1.Items.Count := MainForm.CurrentTarget.Messages.Count;
+  ListView1.Items.Count := Core.CurrentTarget.Messages.Count;
   ListView1.Refresh;
 end;