unit journal;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ImgList;
type
TMDIJournalForm = class(TForm)
Memo1: TMemo;
MainMenu1: TMainMenu;
Journal1: TMenuItem;
Close1: TMenuItem;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Close1Click(Sender: TObject);
public
procedure DoRefresh;
end;
var
MDIJournalForm: TMDIJournalForm;
implementation
{$R *.dfm}
uses
main, global;
procedure TMDIJournalForm.Close1Click(Sender: TObject);
begin
Close;
end;
procedure TMDIJournalForm.DoRefresh;
begin
if FileExists(getJournalFileName()) then
begin
Memo1.Lines.LoadFromFile(getJournalFileName());
end;
SendMessage(Memo1.Handle, WM_VSCROLL, SB_BOTTOM, 0); // TODO: geht nicht in w95
end;
procedure TMDIJournalForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TMDIJournalForm.FormShow(Sender: TObject);
begin
DoRefresh;
end;
end.