source: trunk/IDE/Forms/FormMessages.pas

unit FormMessages;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComCtrls, Project, Compiler;

type
  TSelectFileEvent = procedure(FileName: string; Position: TPoint);

  { TFormMessages }

  TFormMessages = class(TForm)
    ListView1: TListView;
    procedure ListBoxMessagesSelectionChange(Sender: TObject; User: Boolean);
    procedure ListView1Click(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
  private
    FOnSelectFile: TSelectFileEvent;
  public
    procedure Reload;
    property OnSelectFile: TSelectFileEvent read FOnSelectFile write FOnSelectFile;
  end; 


implementation

{$R *.lfm}

uses
  Core, FormMain, FormSourceCode;

{ TFormMessages }

procedure TFormMessages.ListBoxMessagesSelectionChange(Sender: TObject;
  User: Boolean);
begin
end;

procedure TFormMessages.ListView1Click(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then
    ListView1SelectItem(Self, ListView1.Selected, ListView1.Selected.Selected);
end;

procedure TFormMessages.ListView1Data(Sender: TObject; Item: TListItem);
begin
  with Core.Core, FormMain.FormMain do
  with TErrorMessage(Compiler.ErrorMessages[Item.Index]) do begin
    if FileName = '' then Item.Caption := ' '
      else Item.Caption := FileName;
    Item.Data := Compiler.ErrorMessages[Item.Index];
    Item.SubItems.Add(IntToStr(Position.X) + ',' + IntToStr(Position.Y));
    Item.SubItems.Add(Text);
  end;
end;

procedure TFormMessages.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
  ProjectFile: TProjectFile;
  P: TPoint;
begin
  with Core.Core do
  if Assigned(ListView1.Selected) then
  with TErrorMessage(ListView1.Selected.Data) do
  if FileName <> '' then begin
    if Assigned(FOnSelectFile) then
      FOnSelectFile(FileName, Position);
  end;
end;

procedure TFormMessages.Reload;
begin
  ListView1.Items.Count := Core.Core.Compiler.ErrorMessages.Count;
  ListView1.Refresh;
end;

end.