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 / UMakeGraphPaper.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-02-12  |  2.6 KB  |  124 lines
  1. unit UMakeGraphPaper;
  2. {*
  3.  *  âîâ|ü[âgÉ▌îvÄ₧é╔ò╓ùÿé╚ò√èßÄåé≡Åoù═é╖éΘâvâìâOâëâÇ
  4.  *
  5.  *  Copyright 2000 (c) Takezou
  6.  *
  7.  *}
  8.  
  9. interface
  10.  
  11. uses
  12.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  13.   StdCtrls;
  14.  
  15. type
  16.   TForm1 = class(TForm)
  17.     Button1: TButton;
  18.     procedure Button1Click(Sender: TObject);
  19.   private
  20.     { Private ÉΘî╛ }
  21.   public
  22.     { Public ÉΘî╛ }
  23.   end;
  24.  
  25. var
  26.   Form1: TForm1;
  27.  
  28. implementation
  29.  
  30. uses PDFMaker, PMFonts;
  31.  
  32. {$R *.DFM}
  33.  
  34. procedure TForm1.Button1Click(Sender: TObject);
  35. var
  36.   Flg: boolean;
  37.   X, Y: integer;
  38.   BaseRect: TRect;
  39.   i: integer;
  40. begin
  41.   with TPDFMaker.Create do
  42.   begin
  43.     // é▒é╠ë║é╠2ìsé╠âRâüâôâgé≡é═é╕é╡é─ÅCÉ│é╖éΘé▒é╞é┼üAâTâCâYò╧ìXé¬ÅoùêéΘüB
  44.     // PageHeight := XXX;
  45.     // PageWidth := XXX;
  46.  
  47.     BeginDoc(TFileStream.Create('ò√èßÄå.pdf', fmCreate));
  48.  
  49.     BaseRect := Rect(50, 50, PageWidth - 50, PageHeight - 50);
  50.     i := BaseRect.Top;
  51.     flg := true;
  52.     X := 35;
  53.     Canvas.pSetFontAndSize(fiArial, 8);
  54.     while i < BaseRect.Bottom do
  55.     begin
  56.       flg := not flg;
  57.       if flg then
  58.       begin
  59.         {*
  60.          * ô_Éⁿé≡Åæé¡é╜é▀Æßâîâxâïâïü[â`âôé≡Ägùp
  61.          * Æßâîâxâïâïü[â`âôé╠âhâLâàâüâôâgé═é▄é╛ì∞ɼé╡é─éóé╚éóüB
  62.          * é╟éñé╡é─éαÄgùpé╡é╜éóÅΩìçé═üAAdobeÄ╨é╠âTâCâgé⌐éτPDFé╠ÄdùlÅæé≡ôⁿÄΦ
  63.          * é╡é─ò╫ï¡é╖éΘé╠é¬é¿è⌐é▀üB
  64.          *
  65.          *}
  66.         Canvas.pSetDash(3, 0, 0);
  67.         Canvas.pMoveTo(BaseRect.Left, i);
  68.         Canvas.pLineTo(BaseRect.Right, i);
  69.         Canvas.pStroke;
  70.       end
  71.       else
  72.       begin
  73.         Y := i;
  74.         Canvas.pBeginText;
  75.         Canvas.pMoveTextPoint(X, Y-3);
  76.         Canvas.pShowText(IntToStr(Y));
  77.         Canvas.pEndText;
  78.         Canvas.pSetDash(0, 0, 0);
  79.         Canvas.pMoveTo(BaseRect.Left, i);
  80.         Canvas.pLineTo(BaseRect.Right, i);
  81.         Canvas.pStroke;
  82.       end;
  83.       inc(i, 10)
  84.     end;
  85.  
  86.     flg := true;
  87.     i := BaseRect.Left;
  88.     Y := 35;
  89.     while i < BaseRect.Right do
  90.     begin
  91.       flg := not flg;
  92.       if flg then
  93.       begin
  94.         Canvas.pSetDash(3, 0, 0);
  95.         Canvas.pMoveTo(i, BaseRect.Top);
  96.         Canvas.pLineTo(i, BaseRect.Bottom);
  97.         Canvas.pStroke;
  98.       end
  99.       else
  100.       begin
  101.         X := i;
  102.         Canvas.pBeginText;
  103.         Canvas.pMoveTextPoint(X-4, Y+2);
  104.         Canvas.pShowText(IntToStr(X));
  105.         Canvas.pEndText;
  106.         Canvas.pSetDash(0, 0, 0);
  107.         Canvas.pMoveTo(i, BaseRect.Top);
  108.         Canvas.pLineTo(i, BaseRect.Bottom);
  109.         Canvas.pStroke;
  110.       end;
  111.       inc(i, 10)
  112.     end;
  113.  
  114.     EndDoc(true);
  115.     Free;
  116.   end;
  117.  
  118.   ShowMessage('ò√èßÄå.pdfé≡ì∞ɼé╡é▄é╡é╜');
  119.   Close;
  120.  
  121. end;
  122.  
  123. end.
  124.