Changeset 40 for trunk/Forms/UFormMessages.pas

Timestamp:

Feb 19, 2012, 2:13:49 PM (12 years ago)

Author:

chronos

Message:

• Modified: Text message handling moved to UTarget unit as field of TTarget.
• Modified: Messages are displayed as TListVIew rather then TMemo.

File:

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

trunk/Forms/UFormMessages.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  ComCtrls;
 
 type
 
-  { TFormMesssages }
+  { TFormMessages }
 
-  TFormMesssages = class(TForm)
-    MemoMessages: TMemo;
+  TFormMessages = class(TForm)
+    ListView1: TListView;
+    procedure FormCreate(Sender: TObject);
+    procedure ListView1Data(Sender: TObject; Item: TListItem);
   private
     { private declarations }
   public
-    { public declarations }
+    procedure Reload;
   end;
 
 var
-  FormMesssages: TFormMesssages;
+  FormMessages: TFormMessages;
 
 implementation
@@ -27 +30 @@
 {$R *.lfm}
 
+uses
+  UFormMain, UTarget;
+
+{ TFormMessages }
+
+procedure TFormMessages.ListView1Data(Sender: TObject; Item: TListItem);
+begin
+  with MainForm.CurrentTarget do
+  if (Item.Index >= 0) and (Item.Index < Messages.Count) then
+  with TMessage(Messages[Item.Index]) do begin
+    Item.Caption := Text;
+    Item.Data := Messages[Item.Index];
+  end;
+end;
+
+procedure TFormMessages.FormCreate(Sender: TObject);
+begin
+
+end;
+
+procedure TFormMessages.Reload;
+begin
+  ListView1.Items.Count := MainForm.CurrentTarget.Messages.Count;
+  ListView1.Refresh;
+end;
+
 end.