source: trunk/FormMain.pas

Last change on this file was 5, checked in by chronos, 12 months ago
  • Added: Show source tab with source text which is automatically loaded on start and saved on close.
File size: 1.4 KB
Line 
1unit FormMain;
2
3interface
4
5uses
6 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
7 Car;
8
9type
10
11 { TFormMain }
12
13 TFormMain = class(TForm)
14 EditSource: TEdit;
15 LabelSource: TLabel;
16 LabelSummary: TLabel;
17 MemoSummary: TMemo;
18 MemoLog: TMemo;
19 MemoSource: TMemo;
20 PageControlSummary: TPageControl;
21 TabSheetSummary: TTabSheet;
22 TabSheetSource: TTabSheet;
23 TabSheetLog: TTabSheet;
24 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
25 procedure FormCreate(Sender: TObject);
26 procedure FormDestroy(Sender: TObject);
27 procedure FormShow(Sender: TObject);
28 private
29 procedure Log(Text: string);
30 public
31 Summary: TSummary;
32 end;
33
34var
35 FormMain: TFormMain;
36
37implementation
38
39{$R *.lfm}
40
41{ TFormMain }
42
43procedure TFormMain.FormShow(Sender: TObject);
44begin
45 if FileExists(EditSource.Text) then
46 MemoSource.Lines.LoadFromFile(EditSource.Text);
47 Summary.OnLog := Log;
48 Summary.LoadFromStrings(MemoSource.Lines);
49 MemoSummary.Text := Summary.Print;
50 //PageControlSummary.TabIndex := 1;
51end;
52
53procedure TFormMain.Log(Text: string);
54begin
55 MemoLog.Lines.Add(Text);
56end;
57
58procedure TFormMain.FormCreate(Sender: TObject);
59begin
60 Summary := TSummary.Create;
61end;
62
63procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
64begin
65 MemoSource.Lines.SaveToFile(EditSource.Text);
66end;
67
68procedure TFormMain.FormDestroy(Sender: TObject);
69begin
70 FreeAndNil(Summary);
71end;
72
73end.
74
Note: See TracBrowser for help on using the repository browser.