You've already forked lazarus-ccr
added: richview 0.5.2.3 component
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@73 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
37
components/richview/demo/printfrm.pas
Normal file
37
components/richview/demo/printfrm.pas
Normal file
@@ -0,0 +1,37 @@
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
unit printfrm;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
StdCtrls, ExtCtrls, Buttons, LResources;
|
||||
|
||||
type
|
||||
TfrmPrint = class(TForm)
|
||||
ScrollBox1: TScrollBox;
|
||||
Panel1: TPanel;
|
||||
Image1: TImage;
|
||||
Label1: TLabel;
|
||||
Panel2: TPanel;
|
||||
btnOk: TButton;
|
||||
btnCancel: TButton;
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmPrint: TfrmPrint;
|
||||
|
||||
implementation
|
||||
|
||||
{.$R *.DFM}
|
||||
|
||||
initialization
|
||||
|
||||
{$I PrintFrm.lrs}
|
||||
|
||||
end.
|
Reference in New Issue
Block a user