lazarus-ccr/components/rtfview/sample/unit1.pas
jesusr 4039fd171b initial commit of rtfview component
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@54 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2007-02-16 22:55:05 +00:00

41 lines
543 B
ObjectPascal

unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, RTFView,
Buttons;
type
{ TForm1 }
TForm1 = class(TForm)
Button2: TButton;
View: TRTFView;
procedure Button2Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.Button2Click(Sender: TObject);
begin
View.LoadFromFile('overview.rtf');
end;
initialization
{$I unit1.lrs}
end.