root/trunk/UOutputDlg.pas

unit UOutputDlg;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, Projects;

type
  TOutputDlg = class(TForm)
    CancelBtn: TButton;
    Bevel1: TBevel;
    Listbox: TListBox;
    procedure ListboxDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    project : TProject;

    function ShowMoreOutput( pr: TProject ; list : TStringList ; title : string ) : Integer;
    function ShowOutput( pr: TProject ;list : TStringList; title:string ) : Integer;
  end;

var
  OutputDlg: TOutputDlg;


implementation

{$R *.DFM}

uses Workspaces, MyUtils, UMain;

type  ErrorLineInfo = record
        path : string;
        lineno : Integer ;
      end;


function GetLineInfo( line : string ) : ErrorLineInfo;
var
  line_no : Integer;
  lparen, rparen : Integer;
  filename : string;
begin
  result.path := '';
  result.lineno := -1;
  line := Trim( line );

  if Length( line ) < 1 then Exit;

  lparen := Pos( '(', line );
  rparen := Pos( ')', line );
  if (lparen<1) or (rparen<1) or (lparen>rparen) then Exit;
  filename := Copy( line, 1, lparen-1 );

  line_no:=-1;
  if not MyUtils.ParseInt( Copy( line, lparen+1, rparen-lparen-1 ), line_no )
    then Exit;
    
  if line_no < 1 then Exit;

  if not FileExists( filename ) then
     filename := OutputDlg.project.FindFilePath( filename );

  if not FileExists( filename ) then Exit;

  result.path := filename;
  result.lineno := line_no;
end;


function TOutputDlg.ShowMoreOutput( pr: TProject ; list : TStringList ; title : string ) : Integer;
begin
  project := pr;
  self.Caption := title;
  TrimAll( list );
  if list.Count = 0 then list.Add( '<no output>' );
  ListBox.Items.AddStrings( list );
  Result:=Self.ShowModal;
  Exit;
end;

function TOutputDlg.ShowOutput( pr: TProject; list: TStringList ; title : string ) : Integer;
begin
  Listbox.Items.Clear;
  result:=ShowMoreOutput( pr, list, title );
end;

procedure TOutputDlg.ListboxDblClick(Sender: TObject);
var
  N : Integer;
  ws : TWorkspace;
  info : ErrorLineInfo;
begin
  for N:=0 to ListBox.Items.Count-1 do begin
      if ListBox.Selected[N] then begin
        info := GetLineInfo( Listbox.items[N] );
        if FileExists( info.path ) then
        begin
          ws := TWorkspace(project.parent);
          ws.EditFile( info.path, info.lineno );
        end;
        Exit;
      end;
  end;
end;

end.