home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / FDEMO17.PAS < prev    next >
Pascal/Delphi Source File  |  1995-11-23  |  2KB  |  92 lines
  1. unit Fdemo17;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, PrnWin, ExtCtrls, StdCtrls, Buttons, Vruler, HRuler,
  8.   DBPrnWin, CB_MFunc;
  9.  
  10. type
  11.   TForm17 = class(TForm)
  12.     Image1: TImage;
  13.     Label1: TLabel;
  14.     Label3: TLabel;
  15.     Edit1: TEdit;
  16.     Shape1: TShape;
  17.     Label4: TLabel;
  18.     Label5: TLabel;
  19.     Edit2: TEdit;
  20.     Shape2: TShape;
  21.     Edit3: TEdit;
  22.     Shape3: TShape;
  23.     Edit4: TEdit;
  24.     Edit5: TEdit;
  25.     Edit6: TEdit;
  26.     Edit7: TEdit;
  27.     Edit8: TEdit;
  28.     Edit9: TEdit;
  29.     Edit10: TEdit;
  30.     Shape10: TShape;
  31.     Label6: TLabel;
  32.     Shape11: TShape;
  33.     Label7: TLabel;
  34.     Shape12: TShape;
  35.     Label8: TLabel;
  36.     Shape13: TShape;
  37.     Edit11: TEdit;
  38.     Edit12: TEdit;
  39.     Edit13: TEdit;
  40.     Edit14: TEdit;
  41.     Edit15: TEdit;
  42.     Label9: TLabel;
  43.     Edit16: TEdit;
  44.     Edit17: TEdit;
  45.     Edit18: TEdit;
  46.     Edit19: TEdit;
  47.     Edit20: TEdit;
  48.     Edit21: TEdit;
  49.     Edit22: TEdit;
  50.     Edit23: TEdit;
  51.     Edit24: TEdit;
  52.     Edit25: TEdit;
  53.     Edit26: TEdit;
  54.     Edit27: TEdit;
  55.     Memo1: TMemo;
  56.     View: TBitBtn;
  57.     Cancel: TBitBtn;
  58.     Memo2: TMemo;
  59.     DBPrintWin1: TDBPrintWin;
  60.     procedure ViewClick(Sender: TObject);
  61.     procedure FormActivate(Sender: TObject);
  62.   private
  63.     { Private declarations }
  64.   public
  65.     { Public declarations }
  66.   end;
  67.  
  68. var
  69.   Form17: TForm17;
  70.  
  71. implementation
  72.  
  73. {$R *.DFM}
  74.  
  75. procedure TForm17.ViewClick(Sender: TObject);
  76. begin
  77.   DBPrintWin1.BeginPrint;
  78.  
  79. {  DBPrintWin1.DrawWindowInRect( 1,1,7,9, Self); }
  80.   DBPrintWin1.DrawWindowAt( 1,1, Self);
  81.   DBPrintWin1.EndPrint;
  82. end;
  83.  
  84. procedure TForm17.FormActivate(Sender: TObject);
  85. begin
  86.     VertScrollBar.Position := 0;
  87.     HorzScrollBar.Position := 0;
  88.  
  89. end;
  90.  
  91. end.
  92.