Mini Shell

Direktori : /usr/share/libharu/if/delphi/
Upload File :
Current File : //usr/share/libharu/if/delphi/ExtGStateDemo.dpr

{*
 * << Haru Free PDF Library 2.0.5 >> -- ExtGStateDemo.dpr
 *
 * Copyright (c) 1999-2006 Takeshi Kanno <takeshi_kanno@est.hi-ho.ne.jp>
 *
 * Permission to use, copy, modify, distribute and sell this software
 * and its documentation for any purpose is hereby granted without fee,
 * provided that the above copyright notice appear in all copies and
 * that both that copyright notice and this permission notice appear
 * in supporting documentation.
 * It is provided 'as is' without express or implied warranty.
 *
 *}
program LineDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils, hpdf, hpdf_types, hpdf_consts;

procedure
error_handler (error_no: HPDF_STATUS; detail_no: HPDF_STATUS;
              user_data: Pointer); stdcall;
var
  message: string;
begin
  message := 'ERROR: ' + IntToStr(error_no) + '-' + IntToStr(detail_no);
  raise Exception.Create(message);
end;

procedure draw_circles (page: HPDF_Page; const description: PChar; x: 
            HPDF_REAL; y: HPDF_REAL);
begin
    HPDF_Page_SetLineWidth (page, 1.0);
    HPDF_Page_SetRGBStroke (page, 0.0, 0.0, 0.0);
    HPDF_Page_SetRGBFill (page, 1.0, 0.0, 0.0);
    HPDF_Page_Circle (page,x +  40, y + 40, 40);
    HPDF_Page_FillStroke (page);
    HPDF_Page_SetRGBFill (page, 0.0, 1.0, 0.0);
    HPDF_Page_Circle (page, x + 100, y + 40, 40);
    HPDF_Page_FillStroke (page);
    HPDF_Page_SetRGBFill (page, 0.0, 0.0, 1.0);
    HPDF_Page_Circle (page, x + 70, y + 74.64, 40);
    HPDF_Page_FillStroke (page);

    HPDF_Page_SetRGBFill (page, 0.0, 0.0, 0.0);
    HPDF_Page_BeginText (page);
    HPDF_Page_TextOut (page, x + 0.0, y + 130.0, description);
    HPDF_Page_EndText (page);
end;

procedure make_pdf ();
const
  fname: string = 'ExtGStateDemo.pdf';
  PAGE_WIDTH: HPDF_REAL = 600;
  PAGE_HEIGHT: HPDF_REAL = 900;
var
  pdf: HPDF_Doc;
  font: HPDF_Font;
  page: HPDF_Page;
  gstate: HPDF_ExtGState;
begin
  pdf := HPDF_New(@error_handler, nil);
  if pdf = nil then
  begin
    WriteLn('error: cannot create PdfDoc object\n');
    Halt (1);
  end;

  try
//    HPDF_SetCompressionMode(pdf, HPDF_COMP_ALL);

    {* create default-font *}
    font := HPDF_GetFont (pdf, 'Helvetica-Bold', nil);

    {* add a new page object. *}
    page := HPDF_AddPage(pdf);
    HPDF_Page_SetFontAndSize (page, font, 10);

    HPDF_Page_SetHeight (page, PAGE_HEIGHT);
    HPDF_Page_SetWidth (page, PAGE_WIDTH);
    

    {* normal *}
    HPDF_Page_GSave (page);
    draw_circles (page, 'normal', 40.0, PAGE_HEIGHT - 170);
    HPDF_Page_GRestore (page);

    {* alpha fill *}
    HPDF_Page_GSave (page);
    gstate := HPDF_CreateExtGState (pdf);
    HPDF_ExtGState_SetAlphaFill (gstate, 0.8);
    HPDF_Page_SetExtGState (page, gstate);
    draw_circles (page, 'alpha fill = 0.8', 230.0, PAGE_HEIGHT - 170);
    HPDF_Page_GRestore (page);

    {* alpha stroke *}
    HPDF_Page_GSave (page);
    gstate := HPDF_CreateExtGState (pdf);
    HPDF_ExtGState_SetAlphaFill (gstate, 0.4);
    HPDF_Page_SetExtGState (page, gstate);
    draw_circles (page, 'alpha fill = 0.4', 420.0, PAGE_HEIGHT - 170);
    HPDF_Page_GRestore (page);

    {* blend-mode=HPDF_BM_MULTIPLY *}
    HPDF_Page_GSave (page);
    gstate := HPDF_CreateExtGState (pdf);
    HPDF_ExtGState_SetBlendMode (gstate, HPDF_BM_MULTIPLY);
    HPDF_Page_SetExtGState (page, gstate);
    draw_circles (page, 'HPDF_BM_MULTIPLY', 40.0, PAGE_HEIGHT - 340);
    HPDF_Page_GRestore (page);

    {* blend-mode=HPDF_BM_SCREEN *}
    HPDF_Page_GSave (page);
    gstate := HPDF_CreateExtGState (pdf);
    HPDF_ExtGState_SetBlendMode (gstate, HPDF_BM_SCREEN);
    HPDF_Page_SetExtGState (page, gstate);
    draw_circles (page, 'HPDF_BM_SCREEN', 230.0, PAGE_HEIGHT - 340);
    HPDF_Page_GRestore (page);

    {* blend-mode=HPDF_BM_OVERLAY *}
    HPDF_Page_GSave (page);
    gstate := HPDF_CreateExtGState (pdf);
    HPDF_ExtGState_SetBlendMode (gstate, HPDF_BM_OVERLAY);
    HPDF_Page_SetExtGState (page, gstate);
    draw_circles (page, 'HPDF_BM_OVERLAY', 420.0, PAGE_HEIGHT - 340);
    HPDF_Page_GRestore (page);

    {* blend-mode=HPDF_BM_DARKEN *}
    HPDF_Page_GSave (page);
    gstate := HPDF_CreateExtGState (pdf);
    HPDF_ExtGState_SetBlendMode (gstate, HPDF_BM_DARKEN);
    HPDF_Page_SetExtGState (page, gstate);
    draw_circles (page, 'HPDF_BM_DARKEN', 40.0, PAGE_HEIGHT - 510);
    HPDF_Page_GRestore (page);

    {* blend-mode=HPDF_BM_LIGHTEN *}
    HPDF_Page_GSave (page);
    gstate := HPDF_CreateExtGState (pdf);
    HPDF_ExtGState_SetBlendMode (gstate, HPDF_BM_LIGHTEN);
    HPDF_Page_SetExtGState (page, gstate);
    draw_circles (page, 'HPDF_BM_LIGHTEN', 230.0, PAGE_HEIGHT - 510);
    HPDF_Page_GRestore (page);

    {* blend-mode=HPDF_BM_COLOR_DODGE *}
    HPDF_Page_GSave (page);
    gstate := HPDF_CreateExtGState (pdf);
    HPDF_ExtGState_SetBlendMode (gstate, HPDF_BM_COLOR_DODGE);
    HPDF_Page_SetExtGState (page, gstate);
    draw_circles (page, 'HPDF_BM_COLOR_DODGE', 420.0, PAGE_HEIGHT - 510);
    HPDF_Page_GRestore (page);

    {* blend-mode=HPDF_BM_COLOR_BUM *}
    HPDF_Page_GSave (page);
    gstate := HPDF_CreateExtGState (pdf);
    HPDF_ExtGState_SetBlendMode (gstate, HPDF_BM_COLOR_BUM);
    HPDF_Page_SetExtGState (page, gstate);
    draw_circles (page, 'HPDF_BM_COLOR_BUM', 40.0, PAGE_HEIGHT - 680);
    HPDF_Page_GRestore (page);

    {* blend-mode=HPDF_BM_HARD_LIGHT *}
    HPDF_Page_GSave (page);
    gstate := HPDF_CreateExtGState (pdf);
    HPDF_ExtGState_SetBlendMode (gstate, HPDF_BM_HARD_LIGHT);
    HPDF_Page_SetExtGState (page, gstate);
    draw_circles (page, 'HPDF_BM_HARD_LIGHT', 230.0, PAGE_HEIGHT - 680);
    HPDF_Page_GRestore (page);

    {* blend-mode=HPDF_BM_SOFT_LIGHT *}
    HPDF_Page_GSave (page);
    gstate := HPDF_CreateExtGState (pdf);
    HPDF_ExtGState_SetBlendMode (gstate, HPDF_BM_SOFT_LIGHT);
    HPDF_Page_SetExtGState (page, gstate);
    draw_circles (page, 'HPDF_BM_SOFT_LIGHT', 420.0, PAGE_HEIGHT - 680);
    HPDF_Page_GRestore (page);

    {* blend-mode=HPDF_BM_DIFFERENCE *}
    HPDF_Page_GSave (page);
    gstate := HPDF_CreateExtGState (pdf);
    HPDF_ExtGState_SetBlendMode (gstate, HPDF_BM_DIFFERENCE);
    HPDF_Page_SetExtGState (page, gstate);
    draw_circles (page, 'HPDF_BM_DIFFERENCE', 40.0, PAGE_HEIGHT - 850);
    HPDF_Page_GRestore (page);

    {* blend-mode=HPDF_BM_EXCLUSHON *}
    HPDF_Page_GSave (page);
    gstate := HPDF_CreateExtGState (pdf);
    HPDF_ExtGState_SetBlendMode (gstate, HPDF_BM_EXCLUSHON);
    HPDF_Page_SetExtGState (page, gstate);
    draw_circles (page, 'HPDF_BM_EXCLUSHON', 230.0, PAGE_HEIGHT - 850);
    HPDF_Page_GRestore (page);

    {* save the document to a file *}
    HPDF_SaveToFile (pdf, PChar(fname));

  except
    on e: Exception do
    begin
      Writeln (e.message);
      HPDF_Free (pdf);
      Halt (1);
    end;
  end;

  {* clean up *}
  HPDF_Free (pdf);
end;

begin
  make_pdf;
end.


Zerion Mini Shell 1.0