home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / FDEMO18.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-12-01  |  2.2 KB  |  113 lines
  1. unit Fdemo18;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBTables, Mask, ExtCtrls,  Buttons,
  8.   PrnWin, PrintWiz, IniFiles, DBPrnWin, CB_MFunc;
  9.  
  10. type
  11.   TForm18 = class(TForm)
  12.     ScrollBox: TScrollBox;
  13.     Panel1: TPanel;
  14.     Panel2: TPanel;
  15.     Preview: TBitBtn;
  16.     Label12: TLabel;
  17.     Shape1: TShape;
  18.     Label13: TLabel;
  19.     Memo1: TMemo;
  20.     Memo2: TMemo;
  21.     Memo3: TMemo;
  22.     Memo4: TMemo;
  23.     Memo5: TMemo;
  24.     Memo6: TMemo;
  25.     Memo7: TMemo;
  26.     Label3: TLabel;
  27.     Label4: TLabel;
  28.     Label7: TLabel;
  29.     Label8: TLabel;
  30.     Label6: TLabel;
  31.     Label9: TLabel;
  32.     Label10: TLabel;
  33.     Label11: TLabel;
  34.     Label14: TLabel;
  35.     Label15: TLabel;
  36.     Label16: TLabel;
  37.     Label22: TLabel;
  38.     Label23: TLabel;
  39.     Label24: TLabel;
  40.     Label25: TLabel;
  41.     Label26: TLabel;
  42.     Label27: TLabel;
  43.     Bevel1: TBevel;
  44.     Label1: TLabel;
  45.     Bevel2: TBevel;
  46.     Label5: TLabel;
  47.     Label28: TLabel;
  48.     Label29: TLabel;
  49.     EditProduct: TEdit;
  50.     Memo8: TMemo;
  51.     Label19: TLabel;
  52.     Edit1: TEdit;
  53.     Edit3: TEdit;
  54.     Edit4: TEdit;
  55.     Edit5: TEdit;
  56.     Edit6: TEdit;
  57.     Edit7: TEdit;
  58.     Edit8: TEdit;
  59.     Edit10: TEdit;
  60.     Edit2: TEdit;
  61.     ComboBox2: TComboBox;
  62.     Exit: TBitBtn;
  63.     Label30: TLabel;
  64.     Edit12: TEdit;
  65.     Edit13: TEdit;
  66.     Edit14: TEdit;
  67.     Edit15: TEdit;
  68.     Edit16: TEdit;
  69.     Edit17: TEdit;
  70.     Memo9: TMemo;
  71.     Edit18: TEdit;
  72.     Edit19: TEdit;
  73.     Edit20: TEdit;
  74.     Edit21: TEdit;
  75.     Edit22: TEdit;
  76.     Edit23: TEdit;
  77.     Edit24: TEdit;
  78.     Bevel3: TBevel;
  79.     Image1: TImage;
  80.     DBPrintWin1: TDBPrintWin;
  81.     procedure PreviewClick(Sender: TObject);
  82.     procedure ExitClick(Sender: TObject);
  83.   private
  84.     { private declarations }
  85.   public
  86.     { public declarations }
  87.   end;
  88.  
  89. var
  90.   Form18: TForm18;
  91.  
  92. implementation
  93.  
  94. {$R *.DFM}
  95.  
  96.  
  97. procedure TForm18.PreviewClick(Sender: TObject);
  98. begin
  99.     ScrollBox.VertScrollBar.Position := 0;
  100.     ScrollBox.HorzScrollBar.Position := 0;
  101.     DBPrintWin1.BeginPrint;
  102.   DBPrintWin1.DrawWindowAt( 0.75, 1.0, ScrollBox);
  103.     DBPrintWin1.EndPrint;
  104. end;
  105.  
  106.  
  107. procedure TForm18.ExitClick(Sender: TObject);
  108. begin
  109.     Close;
  110. end;
  111.  
  112. end.
  113.