Files
lazarus-ccr/components/onguard/examples/regdemo/frm_readme.pas

37 lines
466 B
ObjectPascal

unit frm_Readme;
{$mode objfpc}{$H+}
interface
uses
SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls;
type
{ TfrmReadme }
TfrmReadme = class(TForm)
Memo1: TMemo;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmReadme: TfrmReadme;
implementation
{$R *.lfm}
procedure TfrmReadme.FormActivate(Sender: TObject);
begin
Memo1.WordWrap := True;
end;
end.