home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / FDEMO14.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-11-23  |  1.9 KB  |  89 lines
  1. unit Fdemo14;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, PrnWin, DBCtrls, Mask, ExtCtrls, DB, DBTables, CB_Types,
  7.   DBPrnWin, CB_MFunc;
  8.  
  9. type
  10.   TForm14 = class(TForm)
  11.     Panel1: TPanel;
  12.     Memo1: TMemo;
  13.     DataSource1: TDataSource;
  14.     Table1: TTable;
  15.     ScrollBox1: TScrollBox;
  16.     Shape1: TShape;
  17.     Panel2: TPanel;
  18.     Panel3: TPanel;
  19.     Panel4: TPanel;
  20.     Panel5: TPanel;
  21.     Shape3: TShape;
  22.     Shape4: TShape;
  23.     Shape9: TShape;
  24.     Shape10: TShape;
  25.     Shape11: TShape;
  26.     Shape12: TShape;
  27.     Label1: TLabel;
  28.     Label2: TLabel;
  29.     Label3: TLabel;
  30.     Label4: TLabel;
  31.     Label5: TLabel;
  32.     Label6: TLabel;
  33.     Edit1: TEdit;
  34.     EditContact: TDBEdit;
  35.     EditCompany: TDBEdit;
  36.     EditAddr: TDBEdit;
  37.     EditAddr2: TDBEdit;
  38.     EditState: TDBEdit;
  39.     Label7: TLabel;
  40.     EditPhone: TDBEdit;
  41.     Label8: TLabel;
  42.     EditFAX: TDBEdit;
  43.     Label9: TLabel;
  44.     Label10: TLabel;
  45.     Label11: TLabel;
  46.     Label12: TLabel;
  47.     Label13: TLabel;
  48.     Label14: TLabel;
  49.     DBNavigator: TDBNavigator;
  50.     View: TBitBtn;
  51.     Exit: TBitBtn;
  52.     Memo2: TMemo;
  53.     Memo3: TMemo;
  54.     Image1: TImage;
  55.     DBPrintWin1: TDBPrintWin;
  56.     procedure ViewClick(Sender: TObject);
  57.     procedure FormActivate(Sender: TObject);
  58.   private
  59.     { Private declarations }
  60.   public
  61.     { Public declarations }
  62.   end;
  63.  
  64. var
  65.   Form14: TForm14;
  66.  
  67. implementation
  68.  
  69. {$R *.DFM}
  70.  
  71. procedure TForm14.ViewClick(Sender: TObject);
  72. begin
  73.   DBPrintWin1.BeginPrint;
  74.   ScrollBox1.BorderStyle := bsNone;       { No outside border for ScrollBox }
  75.   ScrollBox1.VertScrollBar.Position := 0; { Position at top of page }
  76.   DBPrintWin1.DrawWindow( 1, poCenter, ScrollBox1);
  77.   ScrollBox1.BorderStyle := bsSingle;
  78.   DBPrintWin1.EndPrint;
  79. end;
  80.  
  81. procedure TForm14.FormActivate(Sender: TObject);
  82. begin
  83.     ScrollBox1.VertScrollBar.Position := 0;
  84.     ScrollBox1.HorzScrollBar.Position := 0;
  85.  
  86. end;
  87.  
  88. end.
  89.