Subversion Repositories autosfx

Rev

Rev 4 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. unit ExtractorError;
  2.  
  3. interface
  4.  
  5. // TODO: Dialog sizeable
  6.  
  7. uses
  8.   Forms, StdCtrls, ExtCtrls, Controls, Graphics, Classes;
  9.  
  10. type
  11.   TErrorForm = class(TForm)
  12.     ErrorList: TListBox;
  13.     ErrorImg: TImage;
  14.     ErrorLabel: TLabel;
  15.     OKBtn: TButton;
  16.   public
  17.     function ErrorsAvailable: boolean;
  18.     procedure NewError(Filename: string);
  19.   end;
  20.  
  21. var
  22.   ErrorForm: TErrorForm;
  23.  
  24. implementation
  25.  
  26. {$R *.dfm}
  27.  
  28. function TErrorForm.ErrorsAvailable: boolean;
  29. begin
  30.   result := ErrorList.Items.Count > 0;
  31. end;
  32.  
  33. procedure TErrorForm.NewError(Filename: string);
  34. begin
  35.   // In future: Also add reason into list?
  36.   ErrorList.Items.Add(Filename);
  37. end;
  38.  
  39. end.
  40.