home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / zkuste / delphi / kompon / d5 / cak / CAKINST.ZIP / pdfmaker.lzh / PDFMaker / UOutlineDemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-08-27  |  2.3 KB  |  96 lines
  1. unit UOutlineDemo;
  2. {*
  3.  *  FontList.dpr âtâHâôâgé¿éµé╤ò╢ÄÜù±è╓ÿAé╠âfâé
  4.  *
  5.  *  Copyright(c) 2000 Takezou
  6.  *
  7.  *}
  8.  
  9. interface
  10.  
  11. uses
  12.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  13.   StdCtrls,
  14.   {*
  15.    * uses é╔PDFMakeré╞PWFontsé≡Æ╟ë┴é▒é╠âfâéé═âvâìâVü[âWââé╠ê°Éöé╞é╡é─
  16.    * TPDFMakeré╠Canvasé≡éφé╜é╡é─éóéΘé╜é▀üAé▒é▒é╠usesé╔Æ╟ë┴é╖éΘüB
  17.    *
  18.    *}
  19.   PDFMaker, PMFonts;
  20.  
  21. type
  22.   TForm1 = class(TForm)
  23.     Button1: TButton;
  24.     procedure Button1Click(Sender: TObject);
  25.   private
  26.   public
  27.     { Public ÉΘî╛ }
  28.   end;
  29.  
  30. var
  31.   Form1: TForm1;
  32.  
  33. implementation
  34.  
  35. {$R *.DFM}
  36.  
  37. procedure TForm1.Button1Click(Sender: TObject);
  38. var
  39.   FOutline: TPDFOutLineEntry;
  40. begin
  41.   with TPDFMaker.Create do
  42.   begin
  43.     // UseOutLinesâvâìâpâeâBé≡trueé╔É▌ÆΦ
  44.     UseOutLines := true;
  45.  
  46.     BeginDoc(TFileStream.Create('Outline.pdf', fmCreate));
  47.  
  48.     Canvas.FontSize := 20;
  49.     // ò╢ÄÜù±é≡Åoù═
  50.     Canvas.TextOut(200, 700, 'Outline 1');
  51.     // ì┼Åëé╠âmü[âhé≡É▌ÆΦ
  52.     FOutline := OutLines.AddEntry(nil, '1.Outline Level1', 200, 700+20, false);
  53.  
  54.     // ò╢ÄÜù±é≡Åoù═
  55.     Canvas.TextOut(220, 650, 'Outline 1-1');
  56.     // ì┼Åëé╠âmü[âhé╠Äqâmü[âhé╔É▌ÆΦ
  57.     FOutline := OutLines.AddEntry(FOutline, '1-1.Outline Level2', 210, 650+20, false);
  58.  
  59.     // ò╢ÄÜù±é≡Åoù═
  60.     Canvas.TextOut(240, 600, 'Outline 1-1-1');
  61.     // æOâmü[âhé╠Äqâmü[âhé╔É▌ÆΦ
  62.     OutLines.AddEntry(FOutline, '1-1-1.Outline Level3', 210, 600+20, false);
  63.  
  64.     // ëⁿâyü[âW
  65.     NewPage;
  66.  
  67.     Canvas.FontSize := 20;
  68.     // ò╢ÄÜù±é≡Åoù═
  69.     Canvas.TextOut(200, 700, 'Outline 2');
  70.     // ì┼Åëé╠âmü[âhé≡É▌ÆΦ
  71.     FOutline := OutLines.AddEntry(nil, '2.Outline Level1', 200, 700+20, true);
  72.  
  73.     // ò╢ÄÜù±é≡Åoù═
  74.     Canvas.TextOut(220, 650, 'Outline 2-1');
  75.     // ì┼Åëé╠âmü[âhé╠Äqâmü[âhé╔É▌ÆΦ
  76.     FOutline := OutLines.AddEntry(FOutline, '2-1.Outline Level2', 220, 650+20, true);
  77.  
  78.     // ò╢ÄÜù±é≡Åoù═
  79.     Canvas.TextOut(220, 600, 'Outline 2-2');
  80.     // ì┼Åëé╠âmü[âhé╠Äqâmü[âhé╔É▌ÆΦ
  81.     OutLines.AddEntry(FOutline, '2-2.Outline Level2', 220, 600+20, false);
  82.  
  83.     // ò╢ÄÜù±é≡Åoù═
  84.     Canvas.TextOut(240, 650, 'Outline 2-1-1');
  85.     // æOâmü[âhé╠Äqâmü[âhé╔É▌ÆΦ
  86.     OutLines.AddEntry(FOutline, '2-1-1.Outline Level3', 2400, 550+20, true);
  87.  
  88.     EndDoc(true);
  89.     Free;
  90.   end;
  91.   ShowMessage('Outline.pdfé≡ì∞ɼé╡é▄é╡é╜');
  92.   Close;
  93. end;
  94.  
  95. end.
  96.