source: trunk/Forms/UMessagesForm.pas@ 3

unit UMessagesForm;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComCtrls, UCoolDocking, UProject, UCompiler;

type

  { TMessagesForm }

  TMessagesForm = class(TForm)
    CoolDockClient1: TCoolDockClient;
    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
    { private declarations }
  public
    procedure Reload;
  end; 

var
  MessagesForm: TMessagesForm;

implementation

{$R *.lfm}

uses
  UMainForm, UCodeForm;

{ TMessagesForm }

procedure TMessagesForm.ListBoxMessagesSelectionChange(Sender: TObject;
  User: boolean);
begin

end;

procedure TMessagesForm.ListView1Click(Sender: TObject);
begin
  ListView1SelectItem(Self, ListView1.Selected, ListView1.Selected.Selected);
end;

procedure TMessagesForm.ListView1Data(Sender: TObject; Item: TListItem);
begin
  with MainForm, CodeForm do
  with TErrorMessage(Compiler.ErrorMessages[Item.Index]) do begin
    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 TMessagesForm.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
  ProjectFile: TProjectFile;
  P: TPoint;
begin
  with MainForm, CodeForm do
  if Assigned(ListView1.Selected) then
  with TErrorMessage(ListView1.Selected.Data) do begin
    ProjectFile := Project.SearchFile(FileName);
    if Assigned(ProjectFile) then
      SynEditSource.Lines.Assign(ProjectFile.Source);
    SynEditSource.CaretXY := Position;
    TForm(SynEditSource.Owner).Show;
    SynEditSource.SetFocus;
  end;
end;

procedure TMessagesForm.Reload;
begin
  ListView1.Items.Count := MainForm.Compiler.ErrorMessages.Count;
  ListView1.Refresh;
end;

end.