source: trunk/FormMain.pas

unit FormMain;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
  Car;

type

  { TFormMain }

  TFormMain = class(TForm)
    EditSource: TEdit;
    LabelSource: TLabel;
    LabelSummary: TLabel;
    MemoSummary: TMemo;
    MemoLog: TMemo;
    MemoSource: TMemo;
    PageControlSummary: TPageControl;
    TabSheetSummary: TTabSheet;
    TabSheetSource: TTabSheet;
    TabSheetLog: TTabSheet;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure MemoSourceChange(Sender: TObject);
  private
    procedure Log(Text: string);
    procedure UpdateSummary;
  public
    Summary: TSummary;
  end;

var
  FormMain: TFormMain;


implementation

{$R *.lfm}

{ TFormMain }

procedure TFormMain.FormShow(Sender: TObject);
begin
  if FileExists(EditSource.Text) then
    MemoSource.Lines.LoadFromFile(EditSource.Text);
  UpdateSummary;
  //PageControlSummary.TabIndex := 1;
end;

procedure TFormMain.MemoSourceChange(Sender: TObject);
begin
  UpdateSummary;
end;

procedure TFormMain.Log(Text: string);
begin
  MemoLog.Lines.Add(Text);
end;

procedure TFormMain.UpdateSummary;
begin
  Summary.LoadFromStrings(MemoSource.Lines);
  MemoSummary.Text := Summary.Print;
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  Summary := TSummary.Create;
  Summary.OnLog := Log;
end;

procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  MemoSource.Lines.SaveToFile(EditSource.Text);
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
  FreeAndNil(Summary);
end;

end.