!PDFPRINT
# REPORTS.MOD This Line Will be ignored!
[Declare]80/PRE
VAR PLT C []
(m->PLT := [This is a small paragraph to be printed inside a rectangular area left aligned.])
SET SPLASH TO
SET UNITS MM
SET PAPERSIZE DMPAPER_A4
SET JOB NAME [GenericTestHaru]
SET HPDFDOC COMPRESS ALL
SET HPDFDOC PAGENUMBERING FROM 1 STYLE LETTERS PREFIX "Page: "
//SET HPDFDOC PASSWORD OWNER [Pierpaolo] USER [TEST]
SET HPDFDOC PAGEMODE TO OUTLINE
SET HPDFINFO DATECREATED TO [01-01-2013] TIME [19:00:00]
SET HPDFINFO AUTHOR TO [Pierpaolo Martinello]
SET HPDFINFO CREATOR TO [Pierpaolo Martinello]
SET HPDFINFO TITLE TO [Report interpreter Pdf export]
SET HPDFINFO SUBJECT TO [A Test of pdf creation with Report Interpreter]
SET HPDFINFO KEYWORDS TO [HMG, HPDF, Documentation, LibHaru, Harbour, MiniGUI]
START DOC
START PAGE
SET HPDFDOC PAGEOUTLINE TITLE [Demo image] ;//PARENT "MISC"
@ 10, 10 PRINT [This is a Png Image] COLOR RED
@ 12, 10 PRINT IMAGE [hmghpdf.png] WIDTH 190 HEIGHT 46
@ 62, 10 PRINT [This is a JPG Image] COLOR BLUE
@ 64, 10 PRINT IMAGE [hmghpdf.jpg] WIDTH 190 HEIGHT 46
@ 114, 10 PRINT [This is a BMP Image]
@ 115, 10 PRINT IMAGE [hmghpdf.BMP] WIDTH 190 HEIGHT 46
@ 170, 10 PRINT [This is a GIF Image] COLOR FUCSIA
@ 172, 10 PRINT IMAGE [hmghpdf.GIF] WIDTH 190 HEIGHT 46
@ 228, 10 PRINT [This is a TIF Image] COLOR FUCSIA
@ 230, 10 PRINT IMAGE [hmghpdf.TIF] WIDTH 190 HEIGHT 46
END PAGE
START PAGE
SET HPDFDOC PAGEOUTLINE TITLE [Font, and curves Demo]
@ 10,80 PRINT [Report Interpreter] FONT [ARIAL] SIZE 18 angle 350 COLOR RED
@ 15,40 PRINT [Report mio] FONT [HELVETICA] SIZE 18 angle 10 COLOR {0,255,255}
@(5*lstep),11 PRINT LINE TO (5*lstep),203 PENWIDTH 0.5 COLOR BLUE
@ 130, 110 PRINT RECTANGLE TO 150, 150 PENWIDTH 1 COLOR { 255, 0, 0 } ROUNDED
FILLED CURVE 10
@ 140, 80 PRINT ELLIPSE HORIZONTAL RADIUS 20 VERTICAL RADIUS 10 PENWIDTH 0.5
COLOR { 0, 255, 255 } FILLED
@ 230, 60 PRINT RECTANGLE TO 250, 100 PENWIDTH 1 COLOR { 255, 255, 0 } FILLED
@ 230, 120 PRINT CIRCLE RADIUS 10 PENWIDTH 2 COLOR { 0, 0, 255 } FILLED
@ 230, 120 PRINT CURVE FROM 230, 160 TO 250, 120 PENWIDTH 2 COLOR { 100, 0, 200 }
@ 230, 150 PRINT ARC RADIUS 10 ANGLE FROM 30 TO 200 PENWIDTH 2 COLOR { 0, 100,
100 }
@ 105,10 PRINT LINE TO 105, 50 PENWIDTH 1 COLOR { 255, 0, 0 }
END PAGE
START PAGE
SET HPDFDOC PAGEOUTLINE TITLE [Tooltip and Link]
@ 10, 10 PRINT [@ 50, 10 HPDFTOOLTIP "Comment Tooltip" ICON COMMENT]
@ 15, 10 PRINT [@ 60, 10 HPDFTOOLTIP "Key Tooltip" ICON KEY]
@ 20, 10 PRINT [@ 70, 10 HPDFTOOLTIP "Note Tooltip" ICON NOTE]
@ 25, 10 PRINT [@ 50, 50 HPDFTOOLTIP "Help Tooltip" ICON HELP]
@ 30, 10 PRINT [@ 60, 50 HPDFTOOLTIP "New_Paragraph Tooltip" ICON
NEW_PARAGRAPH]
@ 35, 10 PRINT [@ 70, 50 HPDFTOOLTIP "Paragraph Tooltip" ICON PARAGRAPH]
@ 70,80 PRINT [Font Arial test] FONT [ARIAL] SIZE 18 angle 25 COLOR GREEN
// HPDFTOOLTIP "Insert Tooltip" ICON INSERT]
@ 50, 10 TOOLTIP [Comment Tooltip] ICON COMMENT
@ 60, 10 TOOLTIP [Key Tooltip] ICON KEY
@ 70, 10 TOOLTIP [Note Tooltip] ICON NOTE
@ 50, 50 TOOLTIP [Help Tooltip] ICON HELP
@ 60, 50 TOOLTIP [New_Paragraph Tooltip] ICON NEW_PARAGRAPH
@ 70, 50 TOOLTIP [Paragraph Tooltip] ICON PARAGRAPH
@ 90,10 PRINT (PLT) TO 150, 60
@ 90, 80 PRINT [This is a small paragraph to be printed inside a rectangular area right aligned.]
to 120, 130 RIGHT
@ 90, 150 PRINT [This is a small paragraph to be printed inside a rectangular area justified.] to
120, 200 JUSTIFY
@ 130, 10 PAGELINK [Go to Page 1] TO 1 FONT[Courier] size 12 color { 0, 0, 255 } BORDER
WIDTH 0 JUSTIFY
@ 130, 50 URLLINK [HMGExtended site] TO [http://www.hmgextended.com] color { 0, 100, 255 }
END PAGE
SET CHARSET ANSI_CHARSET
[HEAD]0
[BODY]0
[FEET]0
[END]