Changeset 133 for trunk/Forms/UFormMessages.pas

Timestamp:

Mar 4, 2022, 10:57:08 PM (3 years ago)

Author:

chronos

Message:

• Added: Compile multiple action for compilation of code with mutliple compilers at once.

File:

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

trunk/Forms/UFormMessages.pas

@@ -37 +37 @@
 procedure TFormMessages.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  with Core.CurrentTarget do
+  with Core do
   if (Item.Index >= 0) and (Item.Index < Messages.Count) then
-  with TMessage(Messages[Item.Index]) do begin
+  with Messages[Item.Index] do begin
     Item.Caption := Text;
     Item.Data := Messages[Item.Index];
@@ -51 +51 @@
 procedure TFormMessages.Reload;
 begin
-  ListView1.Items.Count := Core.CurrentTarget.Messages.Count;
+  ListView1.Items.Count := Core.Messages.Count;
   ListView1.Refresh;
 end;