source: branches/simple/Forms/FormMessages.pas

unit FormMessages;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, Message;

type
  TSelectEvent = procedure (Position: TPoint) of object;

  { TFormMessages }

  TFormMessages = class(TForm)
    ListView1: TListView;
    procedure ListView1Data(Sender: TObject; Item: TListItem);
    procedure ListView1DblClick(Sender: TObject);
  private
    FOnSelect: TSelectEvent;
  public
    Messages: TMessages;
    procedure Reload;
    property OnSelect: TSelectEvent read FOnSelect write FOnSelect;
  end;


implementation

{$R *.lfm}

{ TFormMessages }

procedure TFormMessages.ListView1Data(Sender: TObject; Item: TListItem);
begin
  with Messages do
  if (Item.Index >= 0) and (Item.Index < Count) then
  with TMessage(Items[Item.Index]) do begin
    Item.Caption := IntToStr(Position.X) + ', ' + IntToStr(Position.Y);
    Item.Data := Items[Item.Index];
    Item.SubItems.Add(Text);
  end;
end;

procedure TFormMessages.ListView1DblClick(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then begin
    if Assigned(FOnSelect) then
      FOnSelect(TMessage(ListView1.Selected.Data).Position);
  end;
end;

procedure TFormMessages.Reload;
begin
  ListView1.Items.Count := Messages.Count;
  ListView1.Refresh;
end;

end.