home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / FDEMO13.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-06-20  |  1000 b   |  56 lines
  1. unit Fdemo13;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, PrnWin, ExtCtrls, CB_Types, CB_MFunc;
  7.  
  8. type
  9.   TForm13 = class(TForm)
  10.     CancelBtn: TBitBtn;
  11.     Preview: TBitBtn;
  12.     PrintWin1: TPrintWin;
  13.     Panel2: TPanel;
  14.     Panel3: TPanel;
  15.     Label5: TLabel;
  16.     Shape13: TShape;
  17.     Shape14: TShape;
  18.     Shape15: TShape;
  19.     Shape16: TShape;
  20.     Shape17: TShape;
  21.     Shape18: TShape;
  22.     Shape19: TShape;
  23.     Shape20: TShape;
  24.     Shape21: TShape;
  25.     Shape22: TShape;
  26.     Shape23: TShape;
  27.     Shape24: TShape;
  28.     Bevel3: TBevel;
  29.     Label4: TLabel;
  30.     procedure PreviewClick(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.   end;
  35.  
  36. var
  37.   Form13: TForm13;
  38.  
  39. implementation
  40.  
  41. {$R *.DFM}
  42.  
  43. procedure TForm13.PreviewClick(Sender: TObject);
  44. var
  45.     i: Integer;
  46.    y: Integer;
  47. begin
  48.  
  49.  
  50.     PrintWin1.BeginPrint;
  51.    PrintWin1.DrawWindow( 2, poCenter, Panel2);
  52.     PrintWin1.EndPrint;
  53. end;
  54.  
  55. end.
  56.