diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 22c74cadac..aa061d861a 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,15 @@ The license applies to all entries newer than 2009-04-28. */ +2012-06-11 12:21 UTC+0200 Viktor Szakats (harbour syenar.net) + * contrib/hbblat/hbblat.hbp + + added experimental support for installing 3rd party .dll + to bin dir. Enabled with new build option, not yet documented, + see it in the patch. + + * contrib/hbhpdf/tests/harupdf.prg + * formatted + 2012-06-10 18:09 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbqt/hbmk2_qt.hb ! Fixed: some formatting in generated source. @@ -55,10 +64,10 @@ + Added: demo code to exploit inheritance of classes. This implementation is aimed at transferring signal/slot codeblocks from C++ - level to PRG level. This to happen, I am driffting from Przemek's orginal idea + level to PRG level. This to happen, I am driffting from Przemek's orginal idea of a separate class, encapsulating the same in exsting superclass HbqtObjectHandeller. - So far has been successful but the concept has introduced a GPF on exit. - + So far has been successful but the concept has introduced a GPF on exit. + 2012-06-11 01:01 UTC+0200 Viktor Szakats (harbour syenar.net) * utils/hbmk2/hbmk2.prg + added support for #require directive in minimal script diff --git a/harbour/contrib/hbblat/hbblat.hbp b/harbour/contrib/hbblat/hbblat.hbp index 43fa0fdd05..7ddbbbd614 100644 --- a/harbour/contrib/hbblat/hbblat.hbp +++ b/harbour/contrib/hbblat/hbblat.hbp @@ -15,12 +15,15 @@ -depkeyhead=blat:blat.h -depcontrol=blat:${HB_WITH_BLAT} -depimplibs=blat:../blat.dll +-depfinish=blat -iflag={bcc}-a -instfile=inc:hbblat.ch -instfile=inc:hbblat.hbx +{hbdyn&win&HB_INSTALL_3RDDYN='yes'}-instfile=${HBMK_DIR_BLAT}/../blat.dll + hbblat.hbx blatwrp.c diff --git a/harbour/contrib/hbhpdf/tests/harupdf.prg b/harbour/contrib/hbhpdf/tests/harupdf.prg index 40f3d5e9d3..7da946a44c 100644 --- a/harbour/contrib/hbhpdf/tests/harupdf.prg +++ b/harbour/contrib/hbhpdf/tests/harupdf.prg @@ -47,18 +47,6 @@ * */ -//----------------------------------------------------------------------// -//----------------------------------------------------------------------// -//----------------------------------------------------------------------// -// -// HaruPdf.prg -// -// Pritpal Bedi -// -//----------------------------------------------------------------------// -//----------------------------------------------------------------------// -//----------------------------------------------------------------------// - #include "harupdf.ch" //----------------------------------------------------------------------// @@ -70,7 +58,7 @@ PROCEDURE Main( cFileToSave ) ENDIF IF DesignHaruPDF( cFileToSave ) - Alert( "PDF File <" + cFileToSave + "> is Created!" ) + Alert( "PDF File <" + cFileToSave + "> is created!" ) ELSE Alert( "Some problems in creating the PDF!" ) ENDIF @@ -80,29 +68,30 @@ PROCEDURE Main( cFileToSave ) //----------------------------------------------------------------------// FUNCTION DesignHaruPDF( cFileToSave ) + LOCAL i, page, height, width, def_font, tw, samp_text, font - LOCAL page_title := "Vouch" + LOCAL page_title := "hbhpdf demo" LOCAL font_list := { ; - "Courier", ; - "Courier-Bold", ; - "Courier-Oblique", ; - "Courier-BoldOblique", ; - "Helvetica", ; - "Helvetica-Bold", ; - "Helvetica-Oblique", ; - "Helvetica-BoldOblique", ; - "Times-Roman", ; - "Times-Bold", ; - "Times-Italic", ; - "Times-BoldItalic", ; - "Symbol", ; - "ZapfDingbats" ; - } + "Courier", ; + "Courier-Bold", ; + "Courier-Oblique", ; + "Courier-BoldOblique", ; + "Helvetica", ; + "Helvetica-Bold", ; + "Helvetica-Oblique", ; + "Helvetica-BoldOblique", ; + "Times-Roman", ; + "Times-Bold", ; + "Times-Italic", ; + "Times-BoldItalic", ; + "Symbol", ; + "ZapfDingbats" ; + } LOCAL pdf := HPDF_New() IF pdf == NIL - alert( " Pdf could not been created!" ) + Alert( "PDF could not be created!" ) RETURN NIL ENDIF @@ -112,14 +101,14 @@ FUNCTION DesignHaruPDF( cFileToSave ) /* // Passwords and Permissions // - HPDF_SetPassword(pdf, "owner","user" ) - HPDF_SetPermission(pdf, HPDF_ENABLE_READ) // cannot print - HPDF_SetEncryptionMode(pdf, HPDF_ENCRYPT_R3, 16) + HPDF_SetPassword( pdf, "owner", "user" ) + HPDF_SetPermission( pdf, HPDF_ENABLE_READ ) // cannot print + HPDF_SetEncryptionMode( pdf, HPDF_ENCRYPT_R3, 16 ) */ - page := HPDF_AddPage(pdf) - height := HPDF_Page_GetHeight(page) - width := HPDF_Page_GetWidth(page) + page := HPDF_AddPage( pdf ) + height := HPDF_Page_GetHeight( page ) + width := HPDF_Page_GetWidth( page ) /* Print the lines of the page. */ HPDF_Page_SetLineWidth( page, 1 ) @@ -132,13 +121,13 @@ FUNCTION DesignHaruPDF( cFileToSave ) HPDF_Page_SetFontAndSize( page, def_font, 24 ) tw := HPDF_Page_TextWidth( page, page_title ) HPDF_Page_BeginText( page ) - HPDF_Page_TextOut( page, (width - tw) / 2, height - 50, page_title ) + HPDF_Page_TextOut( page, ( width - tw ) / 2, height - 50, page_title ) HPDF_Page_EndText( page ) /* output subtitle. */ HPDF_Page_BeginText( page ) HPDF_Page_SetFontAndSize( page, def_font, 16 ) - HPDF_Page_TextOut( page, 60, height - 80, "") + HPDF_Page_TextOut( page, 60, height - 80, "" ) HPDF_Page_EndText( page ) HPDF_Page_BeginText( page ) @@ -152,12 +141,12 @@ FUNCTION DesignHaruPDF( cFileToSave ) HPDF_Page_SetFontAndSize( page, def_font, 9 ) HPDF_Page_ShowText( page, font_list[ i ] ) - HPDF_Page_MoveTextPos( page, 0, -18 ) + HPDF_Page_MoveTextPos( page, 0, - 18 ) HPDF_Page_SetFontAndSize( page, font, 20 ) HPDF_Page_ShowText( page, samp_text ) - HPDF_Page_MoveTextPos( page, 0, -20 ) + HPDF_Page_MoveTextPos( page, 0, - 20 ) NEXT HPDF_Page_EndText( page ) @@ -180,15 +169,18 @@ FUNCTION DesignHaruPDF( cFileToSave ) HPDF_Free( pdf ) - Return file( cFileToSave ) + RETURN hb_FileExists( cFileToSave ) + //----------------------------------------------------------------------// + STATIC FUNCTION Page_Lines( pdf ) + LOCAL page_title := "Line Example" LOCAL font, page - LOCAL DASH_MODE1 := {3} - LOCAL DASH_MODE2 := {3, 7} - LOCAL DASH_MODE3 := {8, 7, 2, 7} + LOCAL DASH_MODE1 := { 3 } + LOCAL DASH_MODE2 := { 3, 7 } + LOCAL DASH_MODE3 := { 8, 7, 2, 7 } LOCAL x, y, x1, y1, x2, y2, x3, y3, tw @@ -196,128 +188,128 @@ STATIC FUNCTION Page_Lines( pdf ) font := HPDF_GetFont( pdf, "Helvetica", NIL ) /* add a new page object. */ - page := HPDF_AddPage(pdf) + page := HPDF_AddPage( pdf ) /* print the lines of the page. */ - HPDF_Page_SetLineWidth(page, 1) - HPDF_Page_Rectangle(page, 50, 50, HPDF_Page_GetWidth(page) - 100,; - HPDF_Page_GetHeight(page) - 110) - HPDF_Page_Stroke(page) + HPDF_Page_SetLineWidth( page, 1 ) + HPDF_Page_Rectangle( page, 50, 50, HPDF_Page_GetWidth( page ) - 100, ; + HPDF_Page_GetHeight( page ) - 110 ) + HPDF_Page_Stroke( page ) /* print the title of the page(with positioning center). */ - HPDF_Page_SetFontAndSize(page, font, 24) - tw := HPDF_Page_TextWidth(page, page_title) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page,(HPDF_Page_GetWidth(page) - tw) / 2, ; - HPDF_Page_GetHeight(page) - 50) - HPDF_Page_ShowText(page, page_title) - HPDF_Page_EndText(page) + HPDF_Page_SetFontAndSize( page, font, 24 ) + tw := HPDF_Page_TextWidth( page, page_title ) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, ( HPDF_Page_GetWidth( page ) - tw ) / 2, ; + HPDF_Page_GetHeight( page ) - 50 ) + HPDF_Page_ShowText( page, page_title ) + HPDF_Page_EndText( page ) - HPDF_Page_SetFontAndSize(page, font, 10) + HPDF_Page_SetFontAndSize( page, font, 10 ) /* Draw verious widths of lines. */ - HPDF_Page_SetLineWidth(page, 0) - draw_line(page, 60, 770, "line width = 0") + HPDF_Page_SetLineWidth( page, 0 ) + draw_line( page, 60, 770, "line width = 0" ) - HPDF_Page_SetLineWidth(page, 1.0) - draw_line(page, 60, 740, "line width = 1.0") + HPDF_Page_SetLineWidth( page, 1.0 ) + draw_line( page, 60, 740, "line width = 1.0" ) - HPDF_Page_SetLineWidth(page, 2.0) - draw_line(page, 60, 710, "line width = 2.0") + HPDF_Page_SetLineWidth( page, 2.0 ) + draw_line( page, 60, 710, "line width = 2.0" ) /* Line dash pattern */ - HPDF_Page_SetLineWidth(page, 1.0) + HPDF_Page_SetLineWidth( page, 1.0 ) - HPDF_Page_SetDash(page, DASH_MODE1, 1, 1) - draw_line(page, 60, 680, "dash_ptn=[3], phase=1 -- 2 on, 3 off, 3 on...") + HPDF_Page_SetDash( page, DASH_MODE1, 1, 1 ) + draw_line( page, 60, 680, "dash_ptn=[3], phase=1 -- 2 on, 3 off, 3 on..." ) - HPDF_Page_SetDash(page, DASH_MODE2, 2, 2) - draw_line(page, 60, 650, "dash_ptn=[7, 3], phase=2 -- 5 on 3 off, 7 on,...") + HPDF_Page_SetDash( page, DASH_MODE2, 2, 2 ) + draw_line( page, 60, 650, "dash_ptn=[7, 3], phase=2 -- 5 on 3 off, 7 on,..." ) - HPDF_Page_SetDash(page, DASH_MODE3, 4, 0) - draw_line(page, 60, 620, "dash_ptn=[8, 7, 2, 7], phase=0") + HPDF_Page_SetDash( page, DASH_MODE3, 4, 0 ) + draw_line( page, 60, 620, "dash_ptn=[8, 7, 2, 7], phase=0" ) - HPDF_Page_SetDash(page, NIL, 0, 0) + HPDF_Page_SetDash( page, NIL, 0, 0 ) - HPDF_Page_SetLineWidth(page, 30) - HPDF_Page_SetRGBStroke(page, 0.0, 0.5, 0.0) + HPDF_Page_SetLineWidth( page, 30 ) + HPDF_Page_SetRGBStroke( page, 0.0, 0.5, 0.0 ) /* Line Cap Style */ - HPDF_Page_SetLineCap(page, HPDF_BUTT_END) - draw_line2(page, 60, 570, "PDF_BUTT_END") + HPDF_Page_SetLineCap( page, HPDF_BUTT_END ) + draw_line2( page, 60, 570, "PDF_BUTT_END" ) - HPDF_Page_SetLineCap(page, HPDF_ROUND_END) - draw_line2(page, 60, 505, "PDF_ROUND_END") + HPDF_Page_SetLineCap( page, HPDF_ROUND_END ) + draw_line2( page, 60, 505, "PDF_ROUND_END" ) - HPDF_Page_SetLineCap(page, HPDF_PROJECTING_SCUARE_END) - draw_line2(page, 60, 440, "PDF_PROJECTING_SCUARE_END") + HPDF_Page_SetLineCap( page, HPDF_PROJECTING_SCUARE_END ) + draw_line2( page, 60, 440, "PDF_PROJECTING_SCUARE_END" ) /* Line Join Style */ - HPDF_Page_SetLineWidth(page, 30) - HPDF_Page_SetRGBStroke(page, 0.0, 0.0, 0.5) + HPDF_Page_SetLineWidth( page, 30 ) + HPDF_Page_SetRGBStroke( page, 0.0, 0.0, 0.5 ) - HPDF_Page_SetLineJoin(page, HPDF_MITER_JOIN) - HPDF_Page_MoveTo(page, 120, 300) - HPDF_Page_LineTo(page, 160, 340) - HPDF_Page_LineTo(page, 200, 300) - HPDF_Page_Stroke(page) + HPDF_Page_SetLineJoin( page, HPDF_MITER_JOIN ) + HPDF_Page_MoveTo( page, 120, 300 ) + HPDF_Page_LineTo( page, 160, 340 ) + HPDF_Page_LineTo( page, 200, 300 ) + HPDF_Page_Stroke( page ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, 60, 360) - HPDF_Page_ShowText(page, "PDF_MITER_JOIN") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, 60, 360 ) + HPDF_Page_ShowText( page, "PDF_MITER_JOIN" ) + HPDF_Page_EndText( page ) - HPDF_Page_SetLineJoin(page, HPDF_ROUND_JOIN) - HPDF_Page_MoveTo(page, 120, 195) - HPDF_Page_LineTo(page, 160, 235) - HPDF_Page_LineTo(page, 200, 195) - HPDF_Page_Stroke(page) + HPDF_Page_SetLineJoin( page, HPDF_ROUND_JOIN ) + HPDF_Page_MoveTo( page, 120, 195 ) + HPDF_Page_LineTo( page, 160, 235 ) + HPDF_Page_LineTo( page, 200, 195 ) + HPDF_Page_Stroke( page ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, 60, 255) - HPDF_Page_ShowText(page, "PDF_ROUND_JOIN") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, 60, 255 ) + HPDF_Page_ShowText( page, "PDF_ROUND_JOIN" ) + HPDF_Page_EndText( page ) - HPDF_Page_SetLineJoin(page, HPDF_BEVEL_JOIN) - HPDF_Page_MoveTo(page, 120, 90) - HPDF_Page_LineTo(page, 160, 130) - HPDF_Page_LineTo(page, 200, 90) - HPDF_Page_Stroke(page) + HPDF_Page_SetLineJoin( page, HPDF_BEVEL_JOIN ) + HPDF_Page_MoveTo( page, 120, 90 ) + HPDF_Page_LineTo( page, 160, 130 ) + HPDF_Page_LineTo( page, 200, 90 ) + HPDF_Page_Stroke( page ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, 60, 150) - HPDF_Page_ShowText(page, "PDF_BEVEL_JOIN") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, 60, 150 ) + HPDF_Page_ShowText( page, "PDF_BEVEL_JOIN" ) + HPDF_Page_EndText( page ) /* Draw Rectangle */ - HPDF_Page_SetLineWidth(page, 2) - HPDF_Page_SetRGBStroke(page, 0, 0, 0) - HPDF_Page_SetRGBFill(page, 0.75, 0.0, 0.0) + HPDF_Page_SetLineWidth( page, 2 ) + HPDF_Page_SetRGBStroke( page, 0, 0, 0 ) + HPDF_Page_SetRGBFill( page, 0.75, 0.0, 0.0 ) - draw_rect(page, 300, 770, "Stroke") - HPDF_Page_Stroke(page) + draw_rect( page, 300, 770, "Stroke" ) + HPDF_Page_Stroke( page ) - draw_rect(page, 300, 720, "Fill") - HPDF_Page_Fill(page) + draw_rect( page, 300, 720, "Fill" ) + HPDF_Page_Fill( page ) - draw_rect(page, 300, 670, "Fill then Stroke") - HPDF_Page_FillStroke(page) + draw_rect( page, 300, 670, "Fill then Stroke" ) + HPDF_Page_FillStroke( page ) /* Clip Rect */ - HPDF_Page_GSave(page) /* Save the current graphic state */ - draw_rect(page, 300, 620, "Clip Rectangle") - HPDF_Page_Clip(page) - HPDF_Page_Stroke(page) - HPDF_Page_SetFontAndSize(page, font, 13) + HPDF_Page_GSave( page ) /* Save the current graphic state */ + draw_rect( page, 300, 620, "Clip Rectangle" ) + HPDF_Page_Clip( page ) + HPDF_Page_Stroke( page ) + HPDF_Page_SetFontAndSize( page, font, 13 ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, 290, 600) - HPDF_Page_SetTextLeading(page, 12) - HPDF_Page_ShowText(page, "Clip Clip Clip Clip Clip Clipi Clip Clip Clip") - HPDF_Page_ShowTextNextLine(page, "Clip Clip Clip Clip Clip Clip Clip Clip Clip") - HPDF_Page_ShowTextNextLine(page, "Clip Clip Clip Clip Clip Clip Clip Clip Clip") - HPDF_Page_EndText(page) - HPDF_Page_GRestore(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, 290, 600 ) + HPDF_Page_SetTextLeading( page, 12 ) + HPDF_Page_ShowText( page, "Clip Clip Clip Clip Clip Clipi Clip Clip Clip" ) + HPDF_Page_ShowTextNextLine( page, "Clip Clip Clip Clip Clip Clip Clip Clip Clip" ) + HPDF_Page_ShowTextNextLine( page, "Clip Clip Clip Clip Clip Clip Clip Clip Clip" ) + HPDF_Page_EndText( page ) + HPDF_Page_GRestore( page ) /* Curve Example(CurveTo2) */ x := 330 @@ -329,69 +321,69 @@ STATIC FUNCTION Page_Lines( pdf ) x3 := 480 y3 := 90 - HPDF_Page_SetRGBFill(page, 0, 0, 0) + HPDF_Page_SetRGBFill( page, 0, 0, 0 ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, 300, 540) - HPDF_Page_ShowText(page, "CurveTo2(x1, y1, x2. y2)") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, 300, 540 ) + HPDF_Page_ShowText( page, "CurveTo2(x1, y1, x2. y2)" ) + HPDF_Page_EndText( page ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, x + 5, y - 5) - HPDF_Page_ShowText(page, "Current point") - HPDF_Page_MoveTextPos(page, x1 - x, y1 - y) - HPDF_Page_ShowText(page, "(x1, y1)") - HPDF_Page_MoveTextPos(page, x2 - x1, y2 - y1) - HPDF_Page_ShowText(page, "(x2, y2)") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, x + 5, y - 5 ) + HPDF_Page_ShowText( page, "Current point" ) + HPDF_Page_MoveTextPos( page, x1 - x, y1 - y ) + HPDF_Page_ShowText( page, "(x1, y1)" ) + HPDF_Page_MoveTextPos( page, x2 - x1, y2 - y1 ) + HPDF_Page_ShowText( page, "(x2, y2)" ) + HPDF_Page_EndText( page ) - HPDF_Page_SetDash(page, DASH_MODE1, 1, 0) + HPDF_Page_SetDash( page, DASH_MODE1, 1, 0 ) - HPDF_Page_SetLineWidth(page, 0.5) - HPDF_Page_MoveTo(page, x1, y1) - HPDF_Page_LineTo(page, x2, y2) - HPDF_Page_Stroke(page) + HPDF_Page_SetLineWidth( page, 0.5 ) + HPDF_Page_MoveTo( page, x1, y1 ) + HPDF_Page_LineTo( page, x2, y2 ) + HPDF_Page_Stroke( page ) - HPDF_Page_SetDash(page, NIL, 0, 0) + HPDF_Page_SetDash( page, NIL, 0, 0 ) - HPDF_Page_SetLineWidth(page, 1.5) + HPDF_Page_SetLineWidth( page, 1.5 ) - HPDF_Page_MoveTo(page, x, y) - HPDF_Page_CurveTo2(page, x1, y1, x2, y2) - HPDF_Page_Stroke(page) + HPDF_Page_MoveTo( page, x, y ) + HPDF_Page_CurveTo2( page, x1, y1, x2, y2 ) + HPDF_Page_Stroke( page ) /* Curve Example(CurveTo3) */ y -= 150 y1 -= 150 y2 -= 150 - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, 300, 390) - HPDF_Page_ShowText(page, "CurveTo3(x1, y1, x2. y2)") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, 300, 390 ) + HPDF_Page_ShowText( page, "CurveTo3(x1, y1, x2. y2)" ) + HPDF_Page_EndText( page ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, x + 5, y - 5) - HPDF_Page_ShowText(page, "Current point") - HPDF_Page_MoveTextPos(page, x1 - x, y1 - y) - HPDF_Page_ShowText(page, "(x1, y1)") - HPDF_Page_MoveTextPos(page, x2 - x1, y2 - y1) - HPDF_Page_ShowText(page, "(x2, y2)") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, x + 5, y - 5 ) + HPDF_Page_ShowText( page, "Current point" ) + HPDF_Page_MoveTextPos( page, x1 - x, y1 - y ) + HPDF_Page_ShowText( page, "(x1, y1)" ) + HPDF_Page_MoveTextPos( page, x2 - x1, y2 - y1 ) + HPDF_Page_ShowText( page, "(x2, y2)" ) + HPDF_Page_EndText( page ) - HPDF_Page_SetDash(page, DASH_MODE1, 1, 0) + HPDF_Page_SetDash( page, DASH_MODE1, 1, 0 ) - HPDF_Page_SetLineWidth(page, 0.5) - HPDF_Page_MoveTo(page, x, y) - HPDF_Page_LineTo(page, x1, y1) - HPDF_Page_Stroke(page) + HPDF_Page_SetLineWidth( page, 0.5 ) + HPDF_Page_MoveTo( page, x, y ) + HPDF_Page_LineTo( page, x1, y1 ) + HPDF_Page_Stroke( page ) - HPDF_Page_SetDash(page, NIL, 0, 0) + HPDF_Page_SetDash( page, NIL, 0, 0 ) - HPDF_Page_SetLineWidth(page, 1.5) - HPDF_Page_MoveTo(page, x, y) - HPDF_Page_CurveTo3(page, x1, y1, x2, y2) - HPDF_Page_Stroke(page) + HPDF_Page_SetLineWidth( page, 1.5 ) + HPDF_Page_MoveTo( page, x, y ) + HPDF_Page_CurveTo3( page, x1, y1, x2, y2 ) + HPDF_Page_Stroke( page ) /* Curve Example(CurveTo) */ y -= 150 @@ -399,88 +391,104 @@ STATIC FUNCTION Page_Lines( pdf ) y2 -= 130 x2 += 10 - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, 300, 240) - HPDF_Page_ShowText(page, "CurveTo(x1, y1, x2. y2, x3, y3)") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, 300, 240 ) + HPDF_Page_ShowText( page, "CurveTo(x1, y1, x2. y2, x3, y3)" ) + HPDF_Page_EndText( page ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, x + 5, y - 5) - HPDF_Page_ShowText(page, "Current point") - HPDF_Page_MoveTextPos(page, x1 - x, y1 - y) - HPDF_Page_ShowText(page, "(x1, y1)") - HPDF_Page_MoveTextPos(page, x2 - x1, y2 - y1) - HPDF_Page_ShowText(page, "(x2, y2)") - HPDF_Page_MoveTextPos(page, x3 - x2, y3 - y2) - HPDF_Page_ShowText(page, "(x3, y3)") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, x + 5, y - 5 ) + HPDF_Page_ShowText( page, "Current point" ) + HPDF_Page_MoveTextPos( page, x1 - x, y1 - y ) + HPDF_Page_ShowText( page, "(x1, y1)" ) + HPDF_Page_MoveTextPos( page, x2 - x1, y2 - y1 ) + HPDF_Page_ShowText( page, "(x2, y2)" ) + HPDF_Page_MoveTextPos( page, x3 - x2, y3 - y2 ) + HPDF_Page_ShowText( page, "(x3, y3)" ) + HPDF_Page_EndText( page ) - HPDF_Page_SetDash(page, DASH_MODE1, 1, 0) + HPDF_Page_SetDash( page, DASH_MODE1, 1, 0 ) - HPDF_Page_SetLineWidth(page, 0.5) - HPDF_Page_MoveTo(page, x, y) - HPDF_Page_LineTo(page, x1, y1) - HPDF_Page_Stroke(page) - HPDF_Page_MoveTo(page, x2, y2) - HPDF_Page_LineTo(page, x3, y3) - HPDF_Page_Stroke(page) + HPDF_Page_SetLineWidth( page, 0.5 ) + HPDF_Page_MoveTo( page, x, y ) + HPDF_Page_LineTo( page, x1, y1 ) + HPDF_Page_Stroke( page ) + HPDF_Page_MoveTo( page, x2, y2 ) + HPDF_Page_LineTo( page, x3, y3 ) + HPDF_Page_Stroke( page ) - HPDF_Page_SetDash(page, NIL, 0, 0) + HPDF_Page_SetDash( page, NIL, 0, 0 ) - HPDF_Page_SetLineWidth(page, 1.5) - HPDF_Page_MoveTo(page, x, y) - HPDF_Page_CurveTo(page, x1, y1, x2, y2, x3, y3) - HPDF_Page_Stroke(page) + HPDF_Page_SetLineWidth( page, 1.5 ) + HPDF_Page_MoveTo( page, x, y ) + HPDF_Page_CurveTo( page, x1, y1, x2, y2, x3, y3 ) + HPDF_Page_Stroke( page ) RETURN NIL + //----------------------------------------------------------------------// + STATIC FUNCTION draw_rect( page, x, y, label ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, x, y - 10) - HPDF_Page_ShowText(page, label) - HPDF_Page_EndText(page) - HPDF_Page_Rectangle(page, x, y - 40, 220, 25) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, x, y - 10 ) + HPDF_Page_ShowText( page, label ) + HPDF_Page_EndText( page ) + + HPDF_Page_Rectangle( page, x, y - 40, 220, 25 ) + RETURN NIL + //----------------------------------------------------------------------// + STATIC FUNCTION draw_line( page, x, y, label ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, x, y - 10) - HPDF_Page_ShowText(page, label) - HPDF_Page_EndText(page) - HPDF_Page_MoveTo(page, x, y - 15) - HPDF_Page_LineTo(page, x + 220, y - 15) - HPDF_Page_Stroke(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, x, y - 10 ) + HPDF_Page_ShowText( page, label ) + HPDF_Page_EndText( page ) + + HPDF_Page_MoveTo( page, x, y - 15 ) + HPDF_Page_LineTo( page, x + 220, y - 15 ) + HPDF_Page_Stroke( page ) + RETURN NIL -//----------------------------------------------------------------------// -STATIC FUNCTION draw_line2( page, x, y, label ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, x, y) - HPDF_Page_ShowText(page, label) - HPDF_Page_EndText(page) - HPDF_Page_MoveTo(page, x + 30, y - 25) - HPDF_Page_LineTo(page, x + 160, y - 25) - HPDF_Page_Stroke(page) - Return NIL //----------------------------------------------------------------------// + +STATIC FUNCTION draw_line2( page, x, y, label ) + + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, x, y ) + HPDF_Page_ShowText( page, label ) + HPDF_Page_EndText( page ) + + HPDF_Page_MoveTo( page, x + 30, y - 25 ) + HPDF_Page_LineTo( page, x + 160, y - 25 ) + HPDF_Page_Stroke( page ) + + RETURN NIL + +//----------------------------------------------------------------------// + STATIC FUNCTION Page_Text( pdf ) - LOCAL page, font, rect := array( 4 ) + + LOCAL page, font, rect := Array( 4 ) LOCAL SAMP_TXT := "The quick brown fox jumps over the lazy dog. " - LOCAL angle1, angle2, rad1, rad2,i,x,y,buf -// LOCAL page_height + LOCAL angle1, angle2, rad1, rad2, i, x, y, buf + + // LOCAL page_height /* add a new page object. */ - page := HPDF_AddPage(pdf) - HPDF_Page_SetSize(page, HPDF_PAGE_SIZE_A5, HPDF_PAGE_PORTRAIT) + page := HPDF_AddPage( pdf ) + HPDF_Page_SetSize( page, HPDF_PAGE_SIZE_A5, HPDF_PAGE_PORTRAIT ) //print_grid( pdf, page ) -// page_height := HPDF_Page_GetHeight(page) + // page_height := HPDF_Page_GetHeight( page ) - font := HPDF_GetFont(pdf, "Helvetica", NIL) - HPDF_Page_SetTextLeading(page, 20) + font := HPDF_GetFont( pdf, "Helvetica", NIL ) + HPDF_Page_SetTextLeading( page, 20 ) #define rLEFT 1 #define rTOP 2 @@ -495,39 +503,39 @@ STATIC FUNCTION Page_Text( pdf ) rect[ rRIGHT ] := 200 rect[ rBOTTOM ] := rect[ 2 ] - 40 - HPDF_Page_Rectangle(page, rect[ rLEFT ], rect[ rBOTTOM ], rect[ rRIGHT ] - rect[ rLEFT ], ; - rect[ rTOP ] - rect[ rBOTTOM ] ) - HPDF_Page_Stroke(page) + HPDF_Page_Rectangle( page, rect[ rLEFT ], rect[ rBOTTOM ], rect[ rRIGHT ] - rect[ rLEFT ], ; + rect[ rTOP ] - rect[ rBOTTOM ] ) + HPDF_Page_Stroke( page ) - HPDF_Page_BeginText(page) + HPDF_Page_BeginText( page ) - HPDF_Page_SetFontAndSize(page, font, 10) - HPDF_Page_TextOut(page, rect[ rLEFT ], rect[ rTOP ] + 3, "HPDF_TALIGN_LEFT") + HPDF_Page_SetFontAndSize( page, font, 10 ) + HPDF_Page_TextOut( page, rect[ rLEFT ], rect[ rTOP ] + 3, "HPDF_TALIGN_LEFT" ) - HPDF_Page_SetFontAndSize(page, font, 13) - HPDF_Page_TextRect(page, rect[ rLEFT ], rect[ rTOP ], rect[ rRIGHT ], rect[ rBOTTOM ],; - SAMP_TXT, HPDF_TALIGN_LEFT, NIL) + HPDF_Page_SetFontAndSize( page, font, 13 ) + HPDF_Page_TextRect( page, rect[ rLEFT ], rect[ rTOP ], rect[ rRIGHT ], rect[ rBOTTOM ], ; + SAMP_TXT, HPDF_TALIGN_LEFT, NIL ) - HPDF_Page_EndText(page) + HPDF_Page_EndText( page ) /* HPDF_TALIGN_RIGTH */ rect[ rLEFT ] := 220 rect[ rRIGHT ] := 395 HPDF_Page_Rectangle( page, rect[ rLEFT ], rect[ rBOTTOM ], rect[ rRIGHT ] - rect[ rLEFT ], ; - rect[ rTOP ] - rect[ rBOTTOM ]) - HPDF_Page_Stroke(page) + rect[ rTOP ] - rect[ rBOTTOM ] ) + HPDF_Page_Stroke( page ) - HPDF_Page_BeginText(page) + HPDF_Page_BeginText( page ) - HPDF_Page_SetFontAndSize(page, font, 10) - HPDF_Page_TextOut(page, rect[ rLEFT ], rect[ rTOP ] + 3, "HPDF_TALIGN_RIGTH") + HPDF_Page_SetFontAndSize( page, font, 10 ) + HPDF_Page_TextOut( page, rect[ rLEFT ], rect[ rTOP ] + 3, "HPDF_TALIGN_RIGTH" ) - HPDF_Page_SetFontAndSize(page, font, 13) - HPDF_Page_TextRect(page, rect[ rLEFT ], rect[ rTOP ], rect[ rRIGHT ], rect[ rBOTTOM ], ; - SAMP_TXT, HPDF_TALIGN_RIGHT, NIL) + HPDF_Page_SetFontAndSize( page, font, 13 ) + HPDF_Page_TextRect( page, rect[ rLEFT ], rect[ rTOP ], rect[ rRIGHT ], rect[ rBOTTOM ], ; + SAMP_TXT, HPDF_TALIGN_RIGHT, NIL ) - HPDF_Page_EndText(page) + HPDF_Page_EndText( page ) /* HPDF_TALIGN_CENTER */ rect[ rLEFT ] := 25 @@ -535,180 +543,188 @@ STATIC FUNCTION Page_Text( pdf ) rect[ rRIGHT ] := 200 rect[ rBOTTOM ] := rect[ rTOP ] - 40 - HPDF_Page_Rectangle(page, rect[ rLEFT ], rect[ rBOTTOM ], rect[ rRIGHT ] - rect[ rLEFT ], ; - rect[ rTOP ] - rect[ rBOTTOM ]) - HPDF_Page_Stroke(page) + HPDF_Page_Rectangle( page, rect[ rLEFT ], rect[ rBOTTOM ], rect[ rRIGHT ] - rect[ rLEFT ], ; + rect[ rTOP ] - rect[ rBOTTOM ] ) + HPDF_Page_Stroke( page ) - HPDF_Page_BeginText(page) + HPDF_Page_BeginText( page ) - HPDF_Page_SetFontAndSize(page, font, 10) - HPDF_Page_TextOut(page, rect[ rLEFT ], rect[ rTOP ] + 3, "HPDF_TALIGN_CENTER") + HPDF_Page_SetFontAndSize( page, font, 10 ) + HPDF_Page_TextOut( page, rect[ rLEFT ], rect[ rTOP ] + 3, "HPDF_TALIGN_CENTER" ) - HPDF_Page_SetFontAndSize(page, font, 13) - HPDF_Page_TextRect(page, rect[ rLEFT ], rect[ rTOP ], rect[ rRIGHT ], rect[ rBOTTOM ],; - SAMP_TXT, HPDF_TALIGN_CENTER, NIL) + HPDF_Page_SetFontAndSize( page, font, 13 ) + HPDF_Page_TextRect( page, rect[ rLEFT ], rect[ rTOP ], rect[ rRIGHT ], rect[ rBOTTOM ], ; + SAMP_TXT, HPDF_TALIGN_CENTER, NIL ) - HPDF_Page_EndText(page) + HPDF_Page_EndText( page ) /* HPDF_TALIGN_JUSTIFY */ rect[ rLEFT ] := 220 rect[ rRIGHT ] := 395 - HPDF_Page_Rectangle(page, rect[ rLEFT ], rect[ rBOTTOM ], rect[ rRIGHT ] - rect[ rLEFT ],; - rect[ rTOP ] - rect[ rBOTTOM ]) - HPDF_Page_Stroke(page) + HPDF_Page_Rectangle( page, rect[ rLEFT ], rect[ rBOTTOM ], rect[ rRIGHT ] - rect[ rLEFT ], ; + rect[ rTOP ] - rect[ rBOTTOM ] ) + HPDF_Page_Stroke( page ) - HPDF_Page_BeginText(page) + HPDF_Page_BeginText( page ) - HPDF_Page_SetFontAndSize(page, font, 10) - HPDF_Page_TextOut(page, rect[ rLEFT ], rect[ rTOP ] + 3, "HPDF_TALIGN_JUSTIFY") + HPDF_Page_SetFontAndSize( page, font, 10 ) + HPDF_Page_TextOut( page, rect[ rLEFT ], rect[ rTOP ] + 3, "HPDF_TALIGN_JUSTIFY" ) - HPDF_Page_SetFontAndSize(page, font, 13) - HPDF_Page_TextRect(page, rect[ rLEFT ], rect[ rTOP ], rect[ rRIGHT ], rect[ rBOTTOM ], ; - SAMP_TXT, HPDF_TALIGN_JUSTIFY, NIL) + HPDF_Page_SetFontAndSize( page, font, 13 ) + HPDF_Page_TextRect( page, rect[ rLEFT ], rect[ rTOP ], rect[ rRIGHT ], rect[ rBOTTOM ], ; + SAMP_TXT, HPDF_TALIGN_JUSTIFY, NIL ) - HPDF_Page_EndText(page) + HPDF_Page_EndText( page ) /* Skewed coordinate system */ - HPDF_Page_GSave(page) + HPDF_Page_GSave( page ) angle1 := 5 angle2 := 10 rad1 := angle1 / 180 * 3.141592 rad2 := angle2 / 180 * 3.141592 - HPDF_Page_Concat(page, 1, tan(rad1), tan(rad2), 1, 25, 350) + HPDF_Page_Concat( page, 1, tan( rad1 ), tan( rad2 ), 1, 25, 350 ) rect[ rLEFT ] := 0 rect[ rTOP ] := 40 rect[ rRIGHT ] := 175 rect[ rBOTTOM ] := 0 - HPDF_Page_Rectangle(page, rect[ rLEFT ], rect[ rBOTTOM ], rect[ rRIGHT ] - rect[ rLEFT ],; - rect[ rTOP ] - rect[ rBOTTOM ]) - HPDF_Page_Stroke(page) + HPDF_Page_Rectangle( page, rect[ rLEFT ], rect[ rBOTTOM ], rect[ rRIGHT ] - rect[ rLEFT ], ; + rect[ rTOP ] - rect[ rBOTTOM ] ) + HPDF_Page_Stroke( page ) - HPDF_Page_BeginText(page) + HPDF_Page_BeginText( page ) - HPDF_Page_SetFontAndSize(page, font, 10) - HPDF_Page_TextOut(page, rect[ rLEFT ], rect[ rTOP ] + 3, "Skewed coordinate system") + HPDF_Page_SetFontAndSize( page, font, 10 ) + HPDF_Page_TextOut( page, rect[ rLEFT ], rect[ rTOP ] + 3, "Skewed coordinate system" ) - HPDF_Page_SetFontAndSize(page, font, 13) - HPDF_Page_TextRect(page, rect[ rLEFT ], rect[ rTOP ], rect[ rRIGHT ], rect[ rBOTTOM ], ; - SAMP_TXT, HPDF_TALIGN_LEFT, NIL) + HPDF_Page_SetFontAndSize( page, font, 13 ) + HPDF_Page_TextRect( page, rect[ rLEFT ], rect[ rTOP ], rect[ rRIGHT ], rect[ rBOTTOM ], ; + SAMP_TXT, HPDF_TALIGN_LEFT, NIL ) - HPDF_Page_EndText(page) + HPDF_Page_EndText( page ) - HPDF_Page_GRestore(page) + HPDF_Page_GRestore( page ) /* Rotated coordinate system */ - HPDF_Page_GSave(page) + HPDF_Page_GSave( page ) angle1 := 5 rad1 := angle1 / 180 * 3.141592 - HPDF_Page_Concat(page, cos(rad1), sin(rad1), -sin(rad1), cos(rad1), 220, 350) + HPDF_Page_Concat( page, cos( rad1 ), sin( rad1 ), - sin( rad1 ), cos( rad1 ), 220, 350 ) rect[ rLEFT ] := 0 rect[ rTOP ] := 40 rect[ rRIGHT ] := 175 rect[ rBOTTOM ] := 0 - HPDF_Page_Rectangle(page, rect[ rLEFT ], rect[ rBOTTOM ], rect[ rRIGHT ] - rect[ rLEFT ], ; - rect[ rTOP ] - rect[ rBOTTOM ]) - HPDF_Page_Stroke(page) + HPDF_Page_Rectangle( page, rect[ rLEFT ], rect[ rBOTTOM ], rect[ rRIGHT ] - rect[ rLEFT ], ; + rect[ rTOP ] - rect[ rBOTTOM ] ) + HPDF_Page_Stroke( page ) - HPDF_Page_BeginText(page) + HPDF_Page_BeginText( page ) - HPDF_Page_SetFontAndSize(page, font, 10) - HPDF_Page_TextOut(page, rect[ rLEFT ], rect[ rTOP ] + 3, "Rotated coordinate system") + HPDF_Page_SetFontAndSize( page, font, 10 ) + HPDF_Page_TextOut( page, rect[ rLEFT ], rect[ rTOP ] + 3, "Rotated coordinate system" ) - HPDF_Page_SetFontAndSize(page, font, 13) - HPDF_Page_TextRect(page, rect[ rLEFT ], rect[ rTOP ], rect[ rRIGHT ], rect[ rBOTTOM ], ; - SAMP_TXT, HPDF_TALIGN_LEFT, NIL) + HPDF_Page_SetFontAndSize( page, font, 13 ) + HPDF_Page_TextRect( page, rect[ rLEFT ], rect[ rTOP ], rect[ rRIGHT ], rect[ rBOTTOM ], ; + SAMP_TXT, HPDF_TALIGN_LEFT, NIL ) - HPDF_Page_EndText(page) + HPDF_Page_EndText( page ) - HPDF_Page_GRestore(page) + HPDF_Page_GRestore( page ) /* text along a circle */ - HPDF_Page_SetGrayStroke(page, 0) - HPDF_Page_Circle(page, 210, 190, 145) - HPDF_Page_Circle(page, 210, 190, 113) - HPDF_Page_Stroke(page) + HPDF_Page_SetGrayStroke( page, 0 ) + HPDF_Page_Circle( page, 210, 190, 145 ) + HPDF_Page_Circle( page, 210, 190, 113 ) + HPDF_Page_Stroke( page ) - angle1 := 360 /(Len(SAMP_TXT)) + angle1 := 360 / ( Len(SAMP_TXT ) ) angle2 := 180 - HPDF_Page_BeginText(page) - font := HPDF_GetFont(pdf, "Courier-Bold", NIL) - HPDF_Page_SetFontAndSize(page, font, 30) + HPDF_Page_BeginText( page ) + font := HPDF_GetFont( pdf, "Courier-Bold", NIL ) + HPDF_Page_SetFontAndSize( page, font, 30 ) - FOR i := 1 TO Len(SAMP_TXT) - rad1 :=(angle2 - 90) / 180 * 3.141592 + FOR i := 1 TO Len( SAMP_TXT ) + rad1 := ( angle2 - 90 ) / 180 * 3.141592 rad2 := angle2 / 180 * 3.141592 - x := 210 + cos(rad2) * 122 - y := 190 + sin(rad2) * 122 + x := 210 + cos( rad2 ) * 122 + y := 190 + sin( rad2 ) * 122 - HPDF_Page_SetTextMatrix(page, cos(rad1), sin(rad1), -sin(rad1), cos(rad1), x, y) + HPDF_Page_SetTextMatrix( page, cos( rad1 ), sin( rad1 ), - sin( rad1 ), cos( rad1 ), x, y ) - buf := SubStr( SAMP_TXT,i, 1 ) - HPDF_Page_ShowText(page, buf) + buf := SubStr( SAMP_TXT, i, 1 ) + HPDF_Page_ShowText( page, buf ) angle2 -= angle1 NEXT - HPDF_Page_EndText(page) + HPDF_Page_EndText( page ) RETURN NIL + //----------------------------------------------------------------------// -STATIC FUNCTION PrintText( page) + +STATIC FUNCTION PrintText( page ) + LOCAL buf LOCAL pos := HPDF_Page_GetCurrentTextPos( page ) - static no := 0 - no++ + STATIC no := 0 - buf := ltrim( str( no ) )+ " "+ltrim(str(pos[1]))+" "+ltrim(str(pos[2])) + no ++ + + buf := hb_ntos( no ) + " " + hb_ntos( pos[ 1 ] ) + " " + hb_ntos( pos[ 2 ] ) + + HPDF_Page_ShowText( page, buf ) - HPDF_Page_ShowText(page, buf) RETURN NIL + //----------------------------------------------------------------------// + STATIC FUNCTION Page_TextScaling( pdf ) + LOCAL font, page, tw, angle1, angle2, buf, len, fsize, i, r, b, g, yPos, rad1, rad2 LOCAL samp_text := "abcdefgABCDEFG123!#$%&+-@?" LOCAL samp_text2 := "The quick brown fox jumps over the lazy dog." LOCAL page_title := "Text Demo" /* set compression mode */ - //HPDF_SetCompressionMode(pdf, HPDF_COMP_ALL) + //HPDF_SetCompressionMode( pdf, HPDF_COMP_ALL ) /* create default-font */ - font := HPDF_GetFont(pdf, "Helvetica", NIL) + font := HPDF_GetFont( pdf, "Helvetica", NIL ) /* add a new page object. */ - page := HPDF_AddPage(pdf) + page := HPDF_AddPage( pdf ) /* draw grid to the page */ - //print_grid(pdf, page) + //print_grid( pdf, page ) /* print the lines of the page. - HPDF_Page_SetLineWidth(page, 1) - HPDF_Page_Rectangle(page, 50, 50, HPDF_Page_GetWidth(page) - 100, - HPDF_Page_GetHeight(page) - 110) - HPDF_Page_Stroke(page) + HPDF_Page_SetLineWidth( page, 1 ) + HPDF_Page_Rectangle( page, 50, 50, HPDF_Page_GetWidth( page ) - 100, + HPDF_Page_GetHeight( page ) - 110 ) + HPDF_Page_Stroke( page ) */ /* print the title of the page(with positioning center). */ - HPDF_Page_SetFontAndSize(page, font, 24) - tw := HPDF_Page_TextWidth(page, page_title) - HPDF_Page_BeginText(page) - HPDF_Page_TextOut(page,(HPDF_Page_GetWidth(page) - tw) / 2,; - HPDF_Page_GetHeight(page) - 50, page_title) - HPDF_Page_EndText(page) + HPDF_Page_SetFontAndSize( page, font, 24 ) + tw := HPDF_Page_TextWidth( page, page_title ) + HPDF_Page_BeginText( page ) + HPDF_Page_TextOut( page, ( HPDF_Page_GetWidth( page ) - tw ) / 2, ; + HPDF_Page_GetHeight( page ) - 50, page_title ) + HPDF_Page_EndText( page ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, 60, HPDF_Page_GetHeight(page) - 60) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, 60, HPDF_Page_GetHeight( page ) - 60 ) /* * font size @@ -716,24 +732,24 @@ STATIC FUNCTION Page_TextScaling( pdf ) fsize := 8 DO WHILE fsize < 60 /* set style and size of font. */ - HPDF_Page_SetFontAndSize(page, font, fsize) + HPDF_Page_SetFontAndSize( page, font, fsize ) /* set the position of the text. */ - HPDF_Page_MoveTextPos(page, 0, -5 - fsize) + HPDF_Page_MoveTextPos( page, 0, - 5 - fsize ) /* measure the number of characters which included in the page. */ buf := samp_text - HPDF_Page_MeasureText(page, samp_text, ; - HPDF_Page_GetWidth(page) - 120, .F., NIL) + HPDF_Page_MeasureText( page, samp_text, ; + HPDF_Page_GetWidth( page ) - 120, .F. , NIL ) - HPDF_Page_ShowText(page, buf) + HPDF_Page_ShowText( page, buf ) /* print the description. */ - HPDF_Page_MoveTextPos(page, 0, -10) - HPDF_Page_SetFontAndSize(page, font, 8) - buf := "Fontsize="+ltrim( str( fsize ) ) + HPDF_Page_MoveTextPos( page, 0, - 10 ) + HPDF_Page_SetFontAndSize( page, font, 8 ) + buf := "Fontsize=" + hb_ntos( fsize ) - HPDF_Page_ShowText(page, buf) + HPDF_Page_ShowText( page, buf ) fsize *= 1.5 ENDDO @@ -741,108 +757,108 @@ STATIC FUNCTION Page_TextScaling( pdf ) /* * font color */ - HPDF_Page_SetFontAndSize(page, font, 8) - HPDF_Page_MoveTextPos(page, 0, -30) - HPDF_Page_ShowText(page, "Font color") + HPDF_Page_SetFontAndSize( page, font, 8 ) + HPDF_Page_MoveTextPos( page, 0, - 30 ) + HPDF_Page_ShowText( page, "Font color" ) - HPDF_Page_SetFontAndSize(page, font, 18) - HPDF_Page_MoveTextPos(page, 0, -20) + HPDF_Page_SetFontAndSize( page, font, 18 ) + HPDF_Page_MoveTextPos( page, 0, - 20 ) len := Len( samp_text ) FOR i := 1 TO len r := i / len - g := 1 -(i / len) + g := 1 - ( i / len ) buf := SubStr( samp_text, i, 1 ) - HPDF_Page_SetRGBFill(page, r, g, 0.0) - HPDF_Page_ShowText(page, buf) + HPDF_Page_SetRGBFill( page, r, g, 0.0 ) + HPDF_Page_ShowText( page, buf ) NEXT - HPDF_Page_MoveTextPos(page, 0, -25) + HPDF_Page_MoveTextPos( page, 0, - 25 ) FOR i := 1 TO len r := i /len - b := 1 -(i /len) + b := 1 - ( i /len ) buf := SubStr( samp_text, i, 1 ) - HPDF_Page_SetRGBFill(page, r, 0.0, b) - HPDF_Page_ShowText(page, buf) + HPDF_Page_SetRGBFill( page, r, 0.0, b ) + HPDF_Page_ShowText( page, buf ) NEXT - HPDF_Page_MoveTextPos(page, 0, -25) + HPDF_Page_MoveTextPos( page, 0, - 25 ) FOR i := 1 TO len b := i /len - g := 1 -(i /len) + g := 1 - ( i /len ) buf := SubStr( samp_text, i, 1 ) - HPDF_Page_SetRGBFill(page, 0.0, g, b) - HPDF_Page_ShowText(page, buf) + HPDF_Page_SetRGBFill( page, 0.0, g, b ) + HPDF_Page_ShowText( page, buf ) NEXT - HPDF_Page_EndText(page) + HPDF_Page_EndText( page ) ypos := 450 /* * Font rendering mode */ - HPDF_Page_SetFontAndSize(page, font, 32) - HPDF_Page_SetRGBFill(page, 0.5, 0.5, 0.0) - HPDF_Page_SetLineWidth(page, 1.5) + HPDF_Page_SetFontAndSize( page, font, 32 ) + HPDF_Page_SetRGBFill( page, 0.5, 0.5, 0.0 ) + HPDF_Page_SetLineWidth( page, 1.5 ) - /* PDF_FILL */ - show_description(page, 60, ypos, "RenderingMode=PDF_FILL") - HPDF_Page_SetTextRenderingMode(page, HPDF_FILL) - HPDF_Page_BeginText(page) - HPDF_Page_TextOut(page, 60, ypos, "ABCabc123") - HPDF_Page_EndText(page) + /* PDF_FILL */ + show_description( page, 60, ypos, "RenderingMode=PDF_FILL" ) + HPDF_Page_SetTextRenderingMode( page, HPDF_FILL ) + HPDF_Page_BeginText( page ) + HPDF_Page_TextOut( page, 60, ypos, "ABCabc123" ) + HPDF_Page_EndText( page ) /* PDF_STROKE */ - show_description(page, 60, ypos - 50, "RenderingMode=PDF_STROKE") - HPDF_Page_SetTextRenderingMode(page, HPDF_STROKE) - HPDF_Page_BeginText(page) - HPDF_Page_TextOut(page, 60, ypos - 50, "ABCabc123") - HPDF_Page_EndText(page) + show_description( page, 60, ypos - 50, "RenderingMode=PDF_STROKE" ) + HPDF_Page_SetTextRenderingMode( page, HPDF_STROKE ) + HPDF_Page_BeginText( page ) + HPDF_Page_TextOut( page, 60, ypos - 50, "ABCabc123" ) + HPDF_Page_EndText( page ) /* PDF_FILL_THEN_STROKE */ - show_description(page, 60, ypos - 100, "RenderingMode=PDF_FILL_THEN_STROKE") - HPDF_Page_SetTextRenderingMode(page, HPDF_FILL_THEN_STROKE) - HPDF_Page_BeginText(page) - HPDF_Page_TextOut(page, 60, ypos - 100, "ABCabc123") - HPDF_Page_EndText(page) + show_description( page, 60, ypos - 100, "RenderingMode=PDF_FILL_THEN_STROKE" ) + HPDF_Page_SetTextRenderingMode( page, HPDF_FILL_THEN_STROKE ) + HPDF_Page_BeginText( page ) + HPDF_Page_TextOut( page, 60, ypos - 100, "ABCabc123" ) + HPDF_Page_EndText( page ) /* PDF_FILL_CLIPPING */ - show_description(page, 60, ypos - 150, "RenderingMode=PDF_FILL_CLIPPING") - HPDF_Page_GSave(page) - HPDF_Page_SetTextRenderingMode(page, HPDF_FILL_CLIPPING) - HPDF_Page_BeginText(page) - HPDF_Page_TextOut(page, 60, ypos - 150, "ABCabc123") - HPDF_Page_EndText(page) - show_stripe_pattern(page, 60, ypos - 150) - HPDF_Page_GRestore(page) + show_description( page, 60, ypos - 150, "RenderingMode=PDF_FILL_CLIPPING" ) + HPDF_Page_GSave( page ) + HPDF_Page_SetTextRenderingMode( page, HPDF_FILL_CLIPPING ) + HPDF_Page_BeginText( page ) + HPDF_Page_TextOut( page, 60, ypos - 150, "ABCabc123" ) + HPDF_Page_EndText( page ) + show_stripe_pattern( page, 60, ypos - 150 ) + HPDF_Page_GRestore( page ) /* PDF_STROKE_CLIPPING */ - show_description(page, 60, ypos - 200, "RenderingMode=PDF_STROKE_CLIPPING") - HPDF_Page_GSave(page) - HPDF_Page_SetTextRenderingMode(page, HPDF_STROKE_CLIPPING) - HPDF_Page_BeginText(page) - HPDF_Page_TextOut(page, 60, ypos - 200, "ABCabc123") - HPDF_Page_EndText(page) - show_stripe_pattern(page, 60, ypos - 200) - HPDF_Page_GRestore(page) + show_description( page, 60, ypos - 200, "RenderingMode=PDF_STROKE_CLIPPING" ) + HPDF_Page_GSave( page ) + HPDF_Page_SetTextRenderingMode( page, HPDF_STROKE_CLIPPING ) + HPDF_Page_BeginText( page ) + HPDF_Page_TextOut( page, 60, ypos - 200, "ABCabc123" ) + HPDF_Page_EndText( page ) + show_stripe_pattern( page, 60, ypos - 200 ) + HPDF_Page_GRestore( page ) /* PDF_FILL_STROKE_CLIPPING */ - show_description(page, 60, ypos - 250, "RenderingMode=PDF_FILL_STROKE_CLIPPING") - HPDF_Page_GSave(page) - HPDF_Page_SetTextRenderingMode(page, HPDF_FILL_STROKE_CLIPPING) - HPDF_Page_BeginText(page) - HPDF_Page_TextOut(page, 60, ypos - 250, "ABCabc123") - HPDF_Page_EndText(page) - show_stripe_pattern(page, 60, ypos - 250) - HPDF_Page_GRestore(page) + show_description( page, 60, ypos - 250, "RenderingMode=PDF_FILL_STROKE_CLIPPING" ) + HPDF_Page_GSave( page ) + HPDF_Page_SetTextRenderingMode( page, HPDF_FILL_STROKE_CLIPPING ) + HPDF_Page_BeginText( page ) + HPDF_Page_TextOut( page, 60, ypos - 250, "ABCabc123" ) + HPDF_Page_EndText( page ) + show_stripe_pattern( page, 60, ypos - 250 ) + HPDF_Page_GRestore( page ) /* Reset text attributes */ - HPDF_Page_SetTextRenderingMode(page, HPDF_FILL) - HPDF_Page_SetRGBFill(page, 0, 0, 0) - HPDF_Page_SetFontAndSize(page, font, 30) + HPDF_Page_SetTextRenderingMode( page, HPDF_FILL ) + HPDF_Page_SetRGBFill( page, 0, 0, 0 ) + HPDF_Page_SetFontAndSize( page, font, 30 ) /* @@ -851,114 +867,124 @@ STATIC FUNCTION Page_TextScaling( pdf ) angle1 := 30 /* A rotation of 30 degrees. */ rad1 := angle1 / 180 * 3.141592 /* Calcurate the radian value. */ - show_description(page, 320, ypos - 60, "Rotating text") - HPDF_Page_BeginText(page) - HPDF_Page_SetTextMatrix(page, cos(rad1), sin(rad1), -sin(rad1), cos(rad1), 330, ypos - 60) - HPDF_Page_ShowText(page, "ABCabc123") - HPDF_Page_EndText(page) + show_description( page, 320, ypos - 60, "Rotating text" ) + HPDF_Page_BeginText( page ) + HPDF_Page_SetTextMatrix( page, cos( rad1 ), sin( rad1 ), - sin( rad1 ), cos( rad1 ), 330, ypos - 60 ) + HPDF_Page_ShowText( page, "ABCabc123" ) + HPDF_Page_EndText( page ) /* * Skewing text. */ - show_description(page, 320, ypos - 120, "Skewing text") - HPDF_Page_BeginText(page) + show_description( page, 320, ypos - 120, "Skewing text" ) + HPDF_Page_BeginText( page ) angle1 := 10 angle2 := 20 rad1 := angle1 / 180 * 3.141592 rad2 := angle2 / 180 * 3.141592 - HPDF_Page_SetTextMatrix(page, 1, tan(rad1), tan(rad2), 1, 320, ypos - 120) - HPDF_Page_ShowText(page, "ABCabc123") - HPDF_Page_EndText(page) + HPDF_Page_SetTextMatrix( page, 1, tan( rad1 ), tan( rad2 ), 1, 320, ypos - 120 ) + HPDF_Page_ShowText( page, "ABCabc123" ) + HPDF_Page_EndText( page ) /* * scaling text(X direction) */ - show_description(page, 320, ypos - 175, "Scaling text(X direction)") - HPDF_Page_BeginText(page) - HPDF_Page_SetTextMatrix(page, 1.5, 0, 0, 1, 320, ypos - 175) - HPDF_Page_ShowText(page, "ABCabc12") - HPDF_Page_EndText(page) + show_description( page, 320, ypos - 175, "Scaling text(X direction)" ) + HPDF_Page_BeginText( page ) + HPDF_Page_SetTextMatrix( page, 1.5, 0, 0, 1, 320, ypos - 175 ) + HPDF_Page_ShowText( page, "ABCabc12" ) + HPDF_Page_EndText( page ) /* * scaling text(Y direction) */ - show_description(page, 320, ypos - 250, "Scaling text(Y direction)") - HPDF_Page_BeginText(page) - HPDF_Page_SetTextMatrix(page, 1, 0, 0, 2, 320, ypos - 250) - HPDF_Page_ShowText(page, "ABCabc123") - HPDF_Page_EndText(page) + show_description( page, 320, ypos - 250, "Scaling text(Y direction)" ) + HPDF_Page_BeginText( page ) + HPDF_Page_SetTextMatrix( page, 1, 0, 0, 2, 320, ypos - 250 ) + HPDF_Page_ShowText( page, "ABCabc123" ) + HPDF_Page_EndText( page ) /* * char spacing, word spacing */ - show_description(page, 60, 140, "char-spacing 0") - show_description(page, 60, 100, "char-spacing 1.5") - show_description(page, 60, 60, "char-spacing 1.5, word-spacing 2.5") + show_description( page, 60, 140, "char-spacing 0" ) + show_description( page, 60, 100, "char-spacing 1.5" ) + show_description( page, 60, 60, "char-spacing 1.5, word-spacing 2.5" ) - HPDF_Page_SetFontAndSize(page, font, 20) - HPDF_Page_SetRGBFill(page, 0.1, 0.3, 0.1) + HPDF_Page_SetFontAndSize( page, font, 20 ) + HPDF_Page_SetRGBFill( page, 0.1, 0.3, 0.1 ) /* char-spacing 0 */ - HPDF_Page_BeginText(page) - HPDF_Page_TextOut(page, 60, 140, samp_text2) - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_TextOut( page, 60, 140, samp_text2 ) + HPDF_Page_EndText( page ) /* char-spacing 1.5 */ - HPDF_Page_SetCharSpace(page, 1.5) + HPDF_Page_SetCharSpace( page, 1.5 ) - HPDF_Page_BeginText(page) - HPDF_Page_TextOut(page, 60, 100, samp_text2) - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_TextOut( page, 60, 100, samp_text2 ) + HPDF_Page_EndText( page ) /* char-spacing 1.5, word-spacing 3.5 */ - HPDF_Page_SetWordSpace(page, 2.5) + HPDF_Page_SetWordSpace( page, 2.5 ) - HPDF_Page_BeginText(page) - HPDF_Page_TextOut(page, 60, 60, samp_text2) - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_TextOut( page, 60, 60, samp_text2 ) + HPDF_Page_EndText( page ) - //HPDF_SetCompressionMode(pdf, nComp) + //HPDF_SetCompressionMode( pdf, nComp ) RETURN NIL + //----------------------------------------------------------------------// -STATIC FUNCTION show_stripe_pattern( page, x, y) + +STATIC FUNCTION show_stripe_pattern( page, x, y ) + LOCAL iy := 0 DO WHILE iy < 50 - HPDF_Page_SetRGBStroke(page, 0.0, 0.0, 0.5) - HPDF_Page_SetLineWidth(page, 1) - HPDF_Page_MoveTo(page, x, y + iy) - HPDF_Page_LineTo(page, x + HPDF_Page_TextWidth(page, "ABCabc123"), y + iy) - HPDF_Page_Stroke(page) + HPDF_Page_SetRGBStroke( page, 0.0, 0.0, 0.5 ) + HPDF_Page_SetLineWidth( page, 1 ) + HPDF_Page_MoveTo( page, x, y + iy ) + HPDF_Page_LineTo( page, x + HPDF_Page_TextWidth( page, "ABCabc123" ), y + iy ) + HPDF_Page_Stroke( page ) iy += 3 ENDDO - HPDF_Page_SetLineWidth(page, 2.5) + HPDF_Page_SetLineWidth( page, 2.5 ) + RETURN NIL + //----------------------------------------------------------------------// + STATIC FUNCTION show_description( page, x, y, text ) - LOCAL fsize := HPDF_Page_GetCurrentFontSize( page) - LOCAL font := HPDF_Page_GetCurrentFont(page) - LOCAL c := HPDF_Page_GetRGBFill(page) - HPDF_Page_BeginText(page) - HPDF_Page_SetRGBFill(page, 0, 0, 0) - HPDF_Page_SetTextRenderingMode(page, HPDF_FILL) - HPDF_Page_SetFontAndSize(page, font, 10) - HPDF_Page_TextOut(page, x, y - 12, text) - HPDF_Page_EndText(page) + LOCAL fsize := HPDF_Page_GetCurrentFontSize( page ) + LOCAL font := HPDF_Page_GetCurrentFont( page ) + LOCAL c := HPDF_Page_GetRGBFill( page ) + + HPDF_Page_BeginText( page ) + HPDF_Page_SetRGBFill( page, 0, 0, 0 ) + HPDF_Page_SetTextRenderingMode( page, HPDF_FILL ) + HPDF_Page_SetFontAndSize( page, font, 10 ) + HPDF_Page_TextOut( page, x, y - 12, text ) + HPDF_Page_EndText( page ) + + HPDF_Page_SetFontAndSize( page, font, fsize ) + HPDF_Page_SetRGBFill( page, c[ 1 ], c[ 2 ], c[ 3 ] ) - HPDF_Page_SetFontAndSize(page, font, fsize) - HPDF_Page_SetRGBFill(page, c[1], c[2], c[3]) RETURN NIL + //----------------------------------------------------------------------// + #define PAGE_WIDTH 420 #define PAGE_HEIGHT 400 #define CELL_WIDTH 20 @@ -966,104 +992,108 @@ STATIC FUNCTION show_description( page, x, y, text ) #define CELL_HEADER 10 STATIC FUNCTION Page_CodePages( pdf ) + LOCAL page, outline, font2, font_name, root, i, font, dst LOCAL cResPath := "files" + hb_ps() - LOCAL cAfm := cResPath+"a010013l.afm" - LOCAL cPfb := cResPath+"a010013l.pfb" + LOCAL cAfm := cResPath + "a010013l.afm" + LOCAL cPfb := cResPath + "a010013l.pfb" LOCAL encodings := { ; - "StandardEncoding",; - "MacRomanEncoding",; - "WinAnsiEncoding", ; - "ISO8859-2", ; - "ISO8859-3", ; - "ISO8859-4", ; - "ISO8859-5", ; - "ISO8859-9", ; - "ISO8859-10", ; - "ISO8859-13", ; - "ISO8859-14", ; - "ISO8859-15", ; - "ISO8859-16", ; - "CP1250", ; - "CP1251", ; - "CP1252", ; - "CP1254", ; - "CP1257", ; - "KOI8-R", ; - "Symbol-Set", ; - "ZapfDingbats-Set" } + "StandardEncoding", ; + "MacRomanEncoding", ; + "WinAnsiEncoding", ; + "ISO8859-2", ; + "ISO8859-3", ; + "ISO8859-4", ; + "ISO8859-5", ; + "ISO8859-9", ; + "ISO8859-10", ; + "ISO8859-13", ; + "ISO8859-14", ; + "ISO8859-15", ; + "ISO8859-16", ; + "CP1250", ; + "CP1251", ; + "CP1252", ; + "CP1254", ; + "CP1257", ; + "KOI8-R", ; + "Symbol-Set", ; + "ZapfDingbats-Set" } /* Set page mode to use outlines. */ - HPDF_SetPageMode(pdf, HPDF_PAGE_MODE_USE_OUTLINE) + HPDF_SetPageMode( pdf, HPDF_PAGE_MODE_USE_OUTLINE ) /* get default font */ - font := HPDF_GetFont(pdf, "Helvetica", NIL) + font := HPDF_GetFont( pdf, "Helvetica", NIL ) /* load font object */ - font_name := HPDF_LoadType1FontFromFile(pdf, cAfm, cPfb ) + font_name := HPDF_LoadType1FontFromFile( pdf, cAfm, cPfb ) /* create outline root. */ - root := HPDF_CreateOutline(pdf, NIL, "Encoding list", NIL) - HPDF_Outline_SetOpened(root, .t.) + root := HPDF_CreateOutline( pdf, NIL, "Encoding list", NIL ) + HPDF_Outline_SetOpened( root, .T. ) FOR i := 1 TO Len( encodings ) - page := HPDF_AddPage(pdf) + page := HPDF_AddPage( pdf ) - HPDF_Page_SetWidth(page, PAGE_WIDTH) - HPDF_Page_SetHeight(page, PAGE_HEIGHT) + HPDF_Page_SetWidth( page, PAGE_WIDTH ) + HPDF_Page_SetHeight( page, PAGE_HEIGHT ) - outline := HPDF_CreateOutline(pdf, root, encodings[i], NIL) - dst := HPDF_Page_CreateDestination(page) - HPDF_Destination_SetXYZ(dst, 0, HPDF_Page_GetHeight(page), 1) + outline := HPDF_CreateOutline( pdf, root, encodings[i], NIL ) + dst := HPDF_Page_CreateDestination( page ) + HPDF_Destination_SetXYZ( dst, 0, HPDF_Page_GetHeight( page ), 1 ) /* HPDF_Destination_SetFitB(dst) */ - HPDF_Outline_SetDestination(outline, dst) + HPDF_Outline_SetDestination( outline, dst ) - HPDF_Page_SetFontAndSize(page, font, 15) - draw_graph(page) + HPDF_Page_SetFontAndSize( page, font, 15 ) + draw_graph( page ) - HPDF_Page_BeginText(page) - HPDF_Page_SetFontAndSize(page, font, 20) - HPDF_Page_MoveTextPos(page, 40, PAGE_HEIGHT - 50) - HPDF_Page_ShowText(page, encodings[i] ) - HPDF_Page_ShowText(page, " Encoding" ) - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_SetFontAndSize( page, font, 20 ) + HPDF_Page_MoveTextPos( page, 40, PAGE_HEIGHT - 50 ) + HPDF_Page_ShowText( page, encodings[i] ) + HPDF_Page_ShowText( page, " Encoding" ) + HPDF_Page_EndText( page ) IF encodings[i] == "Symbol-Set" - font2 := HPDF_GetFont(pdf, "Symbol", NIL) + font2 := HPDF_GetFont( pdf, "Symbol", NIL ) ELSEIF encodings[i] == "ZapfDingbats-Set" - font2 := HPDF_GetFont(pdf, "ZapfDingbats", NIL) + font2 := HPDF_GetFont( pdf, "ZapfDingbats", NIL ) ELSE - font2 := HPDF_GetFont(pdf, font_name, encodings[i]) + font2 := HPDF_GetFont( pdf, font_name, encodings[i] ) ENDIF - HPDF_Page_SetFontAndSize(page, font2, 14) - draw_fonts(page) + HPDF_Page_SetFontAndSize( page, font2, 14 ) + draw_fonts( page ) NEXT RETURN NIL + //----------------------------------------------------------------------// + STATIC FUNCTION draw_graph( page ) + LOCAL buf, i, x, y /* Draw 16 X 15 cells */ /* Draw vertical lines. */ - HPDF_Page_SetLineWidth(page, 0.5) + HPDF_Page_SetLineWidth( page, 0.5 ) FOR i := 0 TO 17 x := i * CELL_WIDTH + 40; - HPDF_Page_MoveTo(page, x, PAGE_HEIGHT - 60) - HPDF_Page_LineTo(page, x, 40) - HPDF_Page_Stroke(page) + HPDF_Page_MoveTo( page, x, PAGE_HEIGHT - 60 ) + HPDF_Page_LineTo( page, x, 40 ) + HPDF_Page_Stroke( page ) IF i > 0 .AND. i <= 16 - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, x + 5, PAGE_HEIGHT - 75) - buf := hb_NumToHex( i-1 ) - HPDF_Page_ShowText(page, buf) - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, x + 5, PAGE_HEIGHT - 75 ) + buf := hb_NumToHex( i - 1 ) + HPDF_Page_ShowText( page, buf ) + HPDF_Page_EndText( page ) ENDIF NEXT @@ -1071,54 +1101,61 @@ STATIC FUNCTION draw_graph( page ) FOR i := 0 TO 15 y := i * CELL_HEIGHT + 40 - HPDF_Page_MoveTo(page, 40, y) - HPDF_Page_LineTo(page, PAGE_WIDTH - 40, y) - HPDF_Page_Stroke(page) + HPDF_Page_MoveTo( page, 40, y ) + HPDF_Page_LineTo( page, PAGE_WIDTH - 40, y ) + HPDF_Page_Stroke( page ) IF i < 14 - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, 45, y + 5) - buf := hb_NumToHex( 15-i ) - HPDF_Page_ShowText(page, buf) - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, 45, y + 5 ) + buf := hb_NumToHex( 15 - i ) + HPDF_Page_ShowText( page, buf ) + HPDF_Page_EndText( page ) ENDIF NEXT - RETURN NIL -//----------------------------------------------------------------------// -STATIC FUNCTION draw_fonts(page) - LOCAL i,j,buf, x, y, d - HPDF_Page_BeginText(page) + RETURN NIL + +//----------------------------------------------------------------------// + +STATIC FUNCTION draw_fonts( page ) + + LOCAL i, j, buf, x, y, d + + HPDF_Page_BeginText( page ) /* Draw all character from 0x20 to 0xFF to the canvas. */ FOR i := 1 TO 16 FOR j := 1 TO 16 - y := PAGE_HEIGHT - 55 - ((i - 1) * CELL_HEIGHT) + y := PAGE_HEIGHT - 55 - ( ( i - 1 ) * CELL_HEIGHT ) x := j * CELL_WIDTH + 50 - buf := (i - 1) * 16 + (j - 1) + buf := ( i - 1 ) * 16 + ( j - 1 ) IF buf >= 32 - d := x - HPDF_Page_TextWidth( page, chr( buf ) ) / 2 - HPDF_Page_TextOut( page, d, y, chr( buf ) ) + d := x - HPDF_Page_TextWidth( page, Chr( buf ) ) / 2 + HPDF_Page_TextOut( page, d, y, Chr( buf ) ) ENDIF NEXT NEXT - HPDF_Page_EndText(page) + HPDF_Page_EndText( page ) RETURN NIL + //----------------------------------------------------------------------// + STATIC FUNCTION Page_Graphics( pdf ) + LOCAL page, pos /* add a new page object. */ - page := HPDF_AddPage(pdf) + page := HPDF_AddPage( pdf ) - HPDF_Page_SetHeight(page, 220) - HPDF_Page_SetWidth(page, 200) + HPDF_Page_SetHeight( page, 220 ) + HPDF_Page_SetWidth( page, 200 ) /* draw grid to the page */ - //print_grid(pdf, page) + //print_grid( pdf, page ) /* draw pie chart * @@ -1129,214 +1166,220 @@ STATIC FUNCTION Page_Graphics( pdf ) */ /* A */ - HPDF_Page_SetRGBFill(page, 1.0, 0, 0) - HPDF_Page_MoveTo(page, 100, 100) - HPDF_Page_LineTo(page, 100, 180) - HPDF_Page_Arc(page, 100, 100, 80, 0, 360 * 0.45) - pos := HPDF_Page_GetCurrentPos(page) - HPDF_Page_LineTo(page, 100, 100) - HPDF_Page_Fill(page) + HPDF_Page_SetRGBFill( page, 1.0, 0, 0 ) + HPDF_Page_MoveTo( page, 100, 100 ) + HPDF_Page_LineTo( page, 100, 180 ) + HPDF_Page_Arc( page, 100, 100, 80, 0, 360 * 0.45 ) + pos := HPDF_Page_GetCurrentPos( page ) + HPDF_Page_LineTo( page, 100, 100 ) + HPDF_Page_Fill( page ) /* B */ - HPDF_Page_SetRGBFill(page, 0, 0, 1.0) - HPDF_Page_MoveTo(page, 100, 100) - HPDF_Page_LineTo(page, pos[1], pos[2]) - HPDF_Page_Arc(page, 100, 100, 80, 360 * 0.45, 360 * 0.7) - pos := HPDF_Page_GetCurrentPos(page) - HPDF_Page_LineTo(page, 100, 100) - HPDF_Page_Fill(page) + HPDF_Page_SetRGBFill( page, 0, 0, 1.0 ) + HPDF_Page_MoveTo( page, 100, 100 ) + HPDF_Page_LineTo( page, pos[ 1 ], pos[ 2 ] ) + HPDF_Page_Arc( page, 100, 100, 80, 360 * 0.45, 360 * 0.7 ) + pos := HPDF_Page_GetCurrentPos( page ) + HPDF_Page_LineTo( page, 100, 100 ) + HPDF_Page_Fill( page ) /* C */ - HPDF_Page_SetRGBFill(page, 0, 1.0, 0) - HPDF_Page_MoveTo(page, 100, 100) - HPDF_Page_LineTo(page, pos[1], pos[2]) - HPDF_Page_Arc(page, 100, 100, 80, 360 * 0.7, 360 * 0.85) - pos := HPDF_Page_GetCurrentPos(page) - HPDF_Page_LineTo(page, 100, 100) - HPDF_Page_Fill(page) + HPDF_Page_SetRGBFill( page, 0, 1.0, 0 ) + HPDF_Page_MoveTo( page, 100, 100 ) + HPDF_Page_LineTo( page, pos[ 1 ], pos[ 2 ] ) + HPDF_Page_Arc( page, 100, 100, 80, 360 * 0.7, 360 * 0.85 ) + pos := HPDF_Page_GetCurrentPos( page ) + HPDF_Page_LineTo( page, 100, 100 ) + HPDF_Page_Fill( page ) /* D */ - HPDF_Page_SetRGBFill(page, 1.0, 1.0, 0) - HPDF_Page_MoveTo(page, 100, 100) - HPDF_Page_LineTo(page, pos[1], pos[2]) - HPDF_Page_Arc(page, 100, 100, 80, 360 * 0.85, 360) -// pos := HPDF_Page_GetCurrentPos(page) - HPDF_Page_LineTo(page, 100, 100) - HPDF_Page_Fill(page) + HPDF_Page_SetRGBFill( page, 1.0, 1.0, 0 ) + HPDF_Page_MoveTo( page, 100, 100 ) + HPDF_Page_LineTo( page, pos[ 1 ], pos[ 2 ] ) + HPDF_Page_Arc( page, 100, 100, 80, 360 * 0.85, 360 ) + // pos := HPDF_Page_GetCurrentPos( page ) + HPDF_Page_LineTo( page, 100, 100 ) + HPDF_Page_Fill( page ) /* draw center circle */ - HPDF_Page_SetGrayStroke(page, 0) - HPDF_Page_SetGrayFill(page, 1) - HPDF_Page_Circle(page, 100, 100, 30) - HPDF_Page_Fill(page) + HPDF_Page_SetGrayStroke( page, 0 ) + HPDF_Page_SetGrayFill( page, 1 ) + HPDF_Page_Circle( page, 100, 100, 30 ) + HPDF_Page_Fill( page ) RETURN NIL + //----------------------------------------------------------------------// + STATIC FUNCTION Page_Annotation( pdf ) - LOCAL rect1 := {50 , 350, 150, 400} - LOCAL rect2 := {210, 350, 350, 400} - LOCAL rect3 := {50 , 250, 150, 300} - LOCAL rect4 := {210, 250, 350, 300} - LOCAL rect5 := {50 , 150, 150, 200} - LOCAL rect6 := {210, 150, 350, 200} - LOCAL rect7 := {50 , 50 , 150, 100} - LOCAL rect8 := {210, 50 , 350, 100} + + LOCAL rect1 := { 50 , 350, 150, 400 } + LOCAL rect2 := { 210, 350, 350, 400 } + LOCAL rect3 := { 50 , 250, 150, 300 } + LOCAL rect4 := { 210, 250, 350, 300 } + LOCAL rect5 := { 50 , 150, 150, 200 } + LOCAL rect6 := { 210, 150, 350, 200 } + LOCAL rect7 := { 50 , 50 , 150, 100 } + LOCAL rect8 := { 210, 50 , 350, 100 } LOCAL page, font, encoding, annot /* use Times-Roman font. */ - font := HPDF_GetFont(pdf, "Times-Roman", "WinAnsiEncoding") + font := HPDF_GetFont( pdf, "Times-Roman", "WinAnsiEncoding" ) - page := HPDF_AddPage(pdf) + page := HPDF_AddPage( pdf ) - HPDF_Page_SetWidth(page, 400) - HPDF_Page_SetHeight(page, 500) + HPDF_Page_SetWidth( page, 400 ) + HPDF_Page_SetHeight( page, 500 ) - HPDF_Page_BeginText(page) - HPDF_Page_SetFontAndSize(page, font, 16) - HPDF_Page_MoveTextPos(page, 130, 450) - HPDF_Page_ShowText(page, "Annotation Demo") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_SetFontAndSize( page, font, 16 ) + HPDF_Page_MoveTextPos( page, 130, 450 ) + HPDF_Page_ShowText( page, "Annotation Demo" ) + HPDF_Page_EndText( page ) - annot := HPDF_Page_CreateTextAnnot(page, rect1, ; - "Annotation with Comment Icons"+chr(13)+chr(10)+; - "This annotation set to be opened initially.",; - NIL) + annot := HPDF_Page_CreateTextAnnot( page, rect1, ; + "Annotation with Comment Icons" + Chr( 13 ) + Chr( 10 ) + ; + "This annotation set to be opened initially.", ; + NIL ) - HPDF_TextAnnot_SetIcon(annot, HPDF_ANNOT_ICON_COMMENT) - HPDF_TextAnnot_SetOpened(annot, HPDF_TRUE) + HPDF_TextAnnot_SetIcon( annot, HPDF_ANNOT_ICON_COMMENT ) + HPDF_TextAnnot_SetOpened( annot, HPDF_TRUE ) - annot := HPDF_Page_CreateTextAnnot(page, rect2, "Annotation with Key Icon", NIL) - HPDF_TextAnnot_SetIcon(annot, HPDF_ANNOT_ICON_PARAGRAPH) + annot := HPDF_Page_CreateTextAnnot( page, rect2, "Annotation with Key Icon", NIL ) + HPDF_TextAnnot_SetIcon( annot, HPDF_ANNOT_ICON_PARAGRAPH ) - annot := HPDF_Page_CreateTextAnnot(page, rect3, "Annotation with Note Icon", NIL) - HPDF_TextAnnot_SetIcon(annot, HPDF_ANNOT_ICON_NOTE) + annot := HPDF_Page_CreateTextAnnot( page, rect3, "Annotation with Note Icon", NIL ) + HPDF_TextAnnot_SetIcon( annot, HPDF_ANNOT_ICON_NOTE ) - annot := HPDF_Page_CreateTextAnnot(page, rect4, "Annotation with Help Icon", NIL) - HPDF_TextAnnot_SetIcon(annot, HPDF_ANNOT_ICON_HELP) + annot := HPDF_Page_CreateTextAnnot( page, rect4, "Annotation with Help Icon", NIL ) + HPDF_TextAnnot_SetIcon( annot, HPDF_ANNOT_ICON_HELP ) - annot := HPDF_Page_CreateTextAnnot(page, rect5, "Annotation with NewParagraph Icon", NIL) - HPDF_TextAnnot_SetIcon(annot, HPDF_ANNOT_ICON_NEW_PARAGRAPH) + annot := HPDF_Page_CreateTextAnnot( page, rect5, "Annotation with NewParagraph Icon", NIL ) + HPDF_TextAnnot_SetIcon( annot, HPDF_ANNOT_ICON_NEW_PARAGRAPH ) - annot := HPDF_Page_CreateTextAnnot(page, rect6, "Annotation with Paragraph Icon", NIL) - HPDF_TextAnnot_SetIcon(annot, HPDF_ANNOT_ICON_PARAGRAPH) + annot := HPDF_Page_CreateTextAnnot( page, rect6, "Annotation with Paragraph Icon", NIL ) + HPDF_TextAnnot_SetIcon( annot, HPDF_ANNOT_ICON_PARAGRAPH ) - annot := HPDF_Page_CreateTextAnnot(page, rect7, "Annotation with Insert Icon", NIL) - HPDF_TextAnnot_SetIcon(annot, HPDF_ANNOT_ICON_INSERT) + annot := HPDF_Page_CreateTextAnnot( page, rect7, "Annotation with Insert Icon", NIL ) + HPDF_TextAnnot_SetIcon( annot, HPDF_ANNOT_ICON_INSERT ) - encoding := HPDF_GetEncoder(pdf, "ISO8859-2") + encoding := HPDF_GetEncoder( pdf, "ISO8859-2" ) - HPDF_Page_CreateTextAnnot(page, rect8,"Annotation with ISO8859 text гдежзий", encoding) + HPDF_Page_CreateTextAnnot( page, rect8, "Annotation with ISO8859 text гдежзий", encoding ) - HPDF_Page_SetFontAndSize(page, font, 11) + HPDF_Page_SetFontAndSize( page, font, 11 ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, rect1[1] + 35, rect1[2] - 20) - HPDF_Page_ShowText(page, "Comment Icon.") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, rect1[ 1 ] + 35, rect1[ 2 ] - 20 ) + HPDF_Page_ShowText( page, "Comment Icon." ) + HPDF_Page_EndText( page ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, rect2[1] + 35, rect2[2] - 20) - HPDF_Page_ShowText(page, "Key Icon") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, rect2[ 1 ] + 35, rect2[ 2 ] - 20 ) + HPDF_Page_ShowText( page, "Key Icon" ) + HPDF_Page_EndText( page ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, rect3[1] + 35, rect3[2] - 20) - HPDF_Page_ShowText(page, "Note Icon.") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, rect3[ 1 ] + 35, rect3[ 2 ] - 20 ) + HPDF_Page_ShowText( page, "Note Icon." ) + HPDF_Page_EndText( page ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, rect4[1] + 35, rect4[2] - 20) - HPDF_Page_ShowText(page, "Help Icon") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, rect4[ 1 ] + 35, rect4[ 2 ] - 20 ) + HPDF_Page_ShowText( page, "Help Icon" ) + HPDF_Page_EndText( page ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, rect5[1] + 35, rect5[2] - 20) - HPDF_Page_ShowText(page, "NewParagraph Icon") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, rect5[ 1 ] + 35, rect5[ 2 ] - 20 ) + HPDF_Page_ShowText( page, "NewParagraph Icon" ) + HPDF_Page_EndText( page ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, rect6[1] + 35, rect6[2] - 20) - HPDF_Page_ShowText(page, "Paragraph Icon") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, rect6[ 1 ] + 35, rect6[ 2 ] - 20 ) + HPDF_Page_ShowText( page, "Paragraph Icon" ) + HPDF_Page_EndText( page ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, rect7[1] + 35, rect7[2] - 20) - HPDF_Page_ShowText(page, "Insert Icon") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, rect7[ 1 ] + 35, rect7[ 2 ] - 20 ) + HPDF_Page_ShowText( page, "Insert Icon" ) + HPDF_Page_EndText( page ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, rect8[1] + 35, rect8[2] - 20) - HPDF_Page_ShowText(page, "Text Icon(ISO8859-2 text)") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, rect8[ 1 ] + 35, rect8[ 2 ] - 20 ) + HPDF_Page_ShowText( page, "Text Icon(ISO8859-2 text)" ) + HPDF_Page_EndText( page ) RETURN NIL + //----------------------------------------------------------------------// #define NULL NIL //----------------------------------------------------------------------// + STATIC FUNCTION Page_Images( pdf ) + LOCAL font, page, dst, image, image1, image2, image3 LOCAL x, y, angle, angle1, angle2, rad, rad1, rad2, iw, ih LOCAL cImagePath := "files" + hb_ps() /* create default-font */ - font := HPDF_GetFont(pdf, "Helvetica", NULL) + font := HPDF_GetFont( pdf, "Helvetica", NULL ) /* add a new page object. */ - page := HPDF_AddPage(pdf) + page := HPDF_AddPage( pdf ) - HPDF_Page_SetWidth(page, 550) - HPDF_Page_SetHeight(page, 500) + HPDF_Page_SetWidth( page, 550 ) + HPDF_Page_SetHeight( page, 500 ) - dst := HPDF_Page_CreateDestination(page) - HPDF_Destination_SetXYZ(dst, 0, HPDF_Page_GetHeight(page), 1) - HPDF_SetOpenAction(pdf, dst) + dst := HPDF_Page_CreateDestination( page ) + HPDF_Destination_SetXYZ( dst, 0, HPDF_Page_GetHeight( page ), 1 ) + HPDF_SetOpenAction( pdf, dst ) - HPDF_Page_BeginText(page) - HPDF_Page_SetFontAndSize(page, font, 20) - HPDF_Page_MoveTextPos(page, 220, HPDF_Page_GetHeight(page) - 70) - HPDF_Page_ShowText(page, "ImageDemo") - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_SetFontAndSize( page, font, 20 ) + HPDF_Page_MoveTextPos( page, 220, HPDF_Page_GetHeight( page ) - 70 ) + HPDF_Page_ShowText( page, "ImageDemo" ) + HPDF_Page_EndText( page ) /* load image file. */ - image := HPDF_LoadPngImageFromFile(pdf, cImagePath+"basn3p02.png") + image := HPDF_LoadPngImageFromFile( pdf, cImagePath + "basn3p02.png" ) /* image1 is masked by image2. */ - image1 := HPDF_LoadPngImageFromFile(pdf, cImagePath+"basn3p02.png") + image1 := HPDF_LoadPngImageFromFile( pdf, cImagePath + "basn3p02.png" ) /* image2 is a mask image. */ - image2 := HPDF_LoadPngImageFromFile(pdf, cImagePath+"basn0g01.png") + image2 := HPDF_LoadPngImageFromFile( pdf, cImagePath + "basn0g01.png" ) /* image3 is a RGB-color image. we use this image for color-mask * demo. */ - image3 := HPDF_LoadPngImageFromFile(pdf, cImagePath+"maskimag.png") + image3 := HPDF_LoadPngImageFromFile( pdf, cImagePath + "maskimag.png" ) - iw := HPDF_Image_GetWidth(image) - ih := HPDF_Image_GetHeight(image) - HPDF_Page_SetLineWidth(page, 0.5) + iw := HPDF_Image_GetWidth( image ) + ih := HPDF_Image_GetHeight( image ) + HPDF_Page_SetLineWidth( page, 0.5 ) x := 100 - y := HPDF_Page_GetHeight(page) - 150; + y := HPDF_Page_GetHeight( page ) - 150; - /* Draw image to the canvas.(normal-mode with actual size.)*/ - HPDF_Page_DrawImage(page, image, x, y, iw, ih) + /* Draw image to the canvas.(normal-mode with actual size.)*/ + HPDF_Page_DrawImage( page, image, x, y, iw, ih ) - show_description_1(page, x, y, "Actual Size") + show_description_1( page, x, y, "Actual Size" ) x += 150 /* Scalling image(X direction) */ - HPDF_Page_DrawImage(page, image, x, y, iw * 1.5, ih) + HPDF_Page_DrawImage( page, image, x, y, iw * 1.5, ih ) - show_description_1(page, x, y, "Scalling image(X direction)") + show_description_1( page, x, y, "Scalling image(X direction)" ) x += 150 /* Scalling image(Y direction). */ - HPDF_Page_DrawImage(page, image, x, y, iw, ih * 1.5) - show_description_1(page, x, y, "Scalling image(Y direction)") + HPDF_Page_DrawImage( page, image, x, y, iw, ih * 1.5 ) + show_description_1( page, x, y, "Scalling image(Y direction)" ) x := 100 y -= 120 @@ -1347,12 +1390,12 @@ STATIC FUNCTION Page_Images( pdf ) rad1 := angle1 / 180 * 3.141592 rad2 := angle2 / 180 * 3.141592 - HPDF_Page_GSave(page) - HPDF_Page_Concat(page, iw, tan(rad1) * iw, tan(rad2) * ih, ih, x, y) - HPDF_Page_ExecuteXObject(page, image) - HPDF_Page_GRestore(page) + HPDF_Page_GSave( page ) + HPDF_Page_Concat( page, iw, tan( rad1 ) * iw, tan( rad2 ) * ih, ih, x, y ) + HPDF_Page_ExecuteXObject( page, image ) + HPDF_Page_GRestore( page ) - show_description_1(page, x, y, "Skewing image") + show_description_1( page, x, y, "Skewing image" ) x += 150 @@ -1360,75 +1403,79 @@ STATIC FUNCTION Page_Images( pdf ) angle := 30 /* rotation of 30 degrees. */ rad := angle / 180 * 3.141592 /* Calcurate the radian value. */ - HPDF_Page_GSave(page) - HPDF_Page_Concat(page, iw * cos(rad), ; - iw * sin(rad), ; - ih * -sin(rad), ; - ih * cos(rad), ; - x, y) - HPDF_Page_ExecuteXObject(page, image) - HPDF_Page_GRestore(page) + HPDF_Page_GSave( page ) + HPDF_Page_Concat( page, iw * cos( rad ), ; + iw * sin( rad ), ; + ih * - sin( rad ), ; + ih * cos( rad ), ; + x, y ) + HPDF_Page_ExecuteXObject( page, image ) + HPDF_Page_GRestore( page ) - show_description_1(page, x, y, "Rotating image") + show_description_1( page, x, y, "Rotating image" ) x += 150 /* draw masked image. */ /* Set image2 to the mask image of image1 */ - HPDF_Image_SetMaskImage(image1, image2) + HPDF_Image_SetMaskImage( image1, image2 ) - HPDF_Page_SetRGBFill(page, 0, 0, 0) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, x - 6, y + 14) - HPDF_Page_ShowText(page, "MASKMASK") - HPDF_Page_EndText(page) + HPDF_Page_SetRGBFill( page, 0, 0, 0 ) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, x - 6, y + 14 ) + HPDF_Page_ShowText( page, "MASKMASK" ) + HPDF_Page_EndText( page ) - HPDF_Page_DrawImage(page, image1, x - 3, y - 3, iw + 6, ih + 6) + HPDF_Page_DrawImage( page, image1, x - 3, y - 3, iw + 6, ih + 6 ) - show_description_1(page, x, y, "masked image") + show_description_1( page, x, y, "masked image" ) x := 100 y -= 120 /* color mask. */ - HPDF_Page_SetRGBFill(page, 0, 0, 0) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, x - 6, y + 14) - HPDF_Page_ShowText(page, "MASKMASK") - HPDF_Page_EndText(page) + HPDF_Page_SetRGBFill( page, 0, 0, 0 ) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, x - 6, y + 14 ) + HPDF_Page_ShowText( page, "MASKMASK" ) + HPDF_Page_EndText( page ) - HPDF_Image_SetColorMask(image3, 0, 255, 0, 0, 0, 255) - HPDF_Page_DrawImage(page, image3, x, y, iw, ih) + HPDF_Image_SetColorMask( image3, 0, 255, 0, 0, 0, 255 ) + HPDF_Page_DrawImage( page, image3, x, y, iw, ih ) - show_description_1(page, x, y, "Color Mask") + show_description_1( page, x, y, "Color Mask" ) RETURN NIL + //----------------------------------------------------------------------// + STATIC FUNCTION show_description_1( page, x, y, text ) + LOCAL buf - HPDF_Page_MoveTo(page, x, y - 10) - HPDF_Page_LineTo(page, x, y + 10) - HPDF_Page_MoveTo(page, x - 10, y) - HPDF_Page_LineTo(page, x + 10, y) - HPDF_Page_Stroke(page) + HPDF_Page_MoveTo( page, x, y - 10 ) + HPDF_Page_LineTo( page, x, y + 10 ) + HPDF_Page_MoveTo( page, x - 10, y ) + HPDF_Page_LineTo( page, x + 10, y ) + HPDF_Page_Stroke( page ) - HPDF_Page_SetFontAndSize(page, HPDF_Page_GetCurrentFont(page), 8) - HPDF_Page_SetRGBFill(page, 0, 0, 0) + HPDF_Page_SetFontAndSize( page, HPDF_Page_GetCurrentFont( page ), 8 ) + HPDF_Page_SetRGBFill( page, 0, 0, 0 ) - HPDF_Page_BeginText(page) + HPDF_Page_BeginText( page ) - buf := "x="+ltrim(str(x,10,0))+",y="+ltrim(str(y,10,0)) + buf := "x=" + LTrim( Str( x, 10, 0 ) ) + ",y=" + LTrim( Str( y, 10, 0 ) ) - HPDF_Page_MoveTextPos(page, x - HPDF_Page_TextWidth(page, buf) - 5, y - 10) - HPDF_Page_ShowText(page, buf) - HPDF_Page_EndText(page) + HPDF_Page_MoveTextPos( page, x - HPDF_Page_TextWidth( page, buf ) - 5, y - 10 ) + HPDF_Page_ShowText( page, buf ) + HPDF_Page_EndText( page ) - HPDF_Page_BeginText(page) - HPDF_Page_MoveTextPos(page, x - 20, y - 25) - HPDF_Page_ShowText(page, text) - HPDF_Page_EndText(page) + HPDF_Page_BeginText( page ) + HPDF_Page_MoveTextPos( page, x - 20, y - 25 ) + HPDF_Page_ShowText( page, text ) + HPDF_Page_EndText( page ) RETURN NIL + //----------------------------------------------------------------------//