paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 18:36:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, added missing custompreview unit files to editor sample

Browse Source 
git-svn-id: trunk@27296 -
This commit is contained in:
jesus 2010-09-10 20:49:12 +00:00
parent 514a2ed285
commit e6486c22dc
3 changed files with 53 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -1349,6 +1349,8 @@ components/lazreport/samples/editor/calleditorwithpkg.lpi svneol=native#text/pla
components/lazreport/samples/editor/calleditorwithpkg.lpr svneol=native#text/pascal
components/lazreport/samples/editor/calleditorwithpkg.res -text
components/lazreport/samples/editor/csvtest.lrf svneol=LF#text/xml eol=lf
components/lazreport/samples/editor/custompreview.lfm svneol=native#text/plain
components/lazreport/samples/editor/custompreview.pas svneol=native#text/pascal
components/lazreport/samples/editor/db/companies.dbf -text
components/lazreport/samples/editor/db/countries.dbf -text
components/lazreport/samples/editor/db/disco.dbf -text

21
components/lazreport/samples/editor/custompreview.lfm Normal file
View File

@ -0,0 +1,21 @@
object frmCustomPreview: TfrmCustomPreview
Left = 213
Height = 496
Top = 95
Width = 705
Caption = 'frmCustomPreview'
ClientHeight = 496
ClientWidth = 705
LCLVersion = '0.9.29'
object frPreview1: TfrPreview
Left = 0
Height = 496
Top = 0
Width = 705
Align = alClient
BevelOuter = bvLowered
Caption = 'frPreview1'
TabOrder = 0
ScrollBars = ssBoth
end
end

30
components/lazreport/samples/editor/custompreview.pas Normal file
View File

@ -0,0 +1,30 @@
unit custompreview;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, LR_View;
type
{ TfrmCustomPreview }
TfrmCustomPreview = class(TForm)
frPreview1: TfrPreview;
private
{ private declarations }
public
{ public declarations }
end;
var
frmCustomPreview: TfrmCustomPreview;
implementation
{$R *.lfm}
end.