home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
cbsuite.lzh
/
SU1SRC.ZIP
/
FDEMO18.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-12-01
|
2KB
|
113 lines
unit Fdemo18;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
StdCtrls, Forms, DBCtrls, DB, DBTables, Mask, ExtCtrls, Buttons,
PrnWin, PrintWiz, IniFiles, DBPrnWin, CB_MFunc;
type
TForm18 = class(TForm)
ScrollBox: TScrollBox;
Panel1: TPanel;
Panel2: TPanel;
Preview: TBitBtn;
Label12: TLabel;
Shape1: TShape;
Label13: TLabel;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Memo4: TMemo;
Memo5: TMemo;
Memo6: TMemo;
Memo7: TMemo;
Label3: TLabel;
Label4: TLabel;
Label7: TLabel;
Label8: TLabel;
Label6: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Bevel1: TBevel;
Label1: TLabel;
Bevel2: TBevel;
Label5: TLabel;
Label28: TLabel;
Label29: TLabel;
EditProduct: TEdit;
Memo8: TMemo;
Label19: TLabel;
Edit1: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit10: TEdit;
Edit2: TEdit;
ComboBox2: TComboBox;
Exit: TBitBtn;
Label30: TLabel;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Memo9: TMemo;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit24: TEdit;
Bevel3: TBevel;
Image1: TImage;
DBPrintWin1: TDBPrintWin;
procedure PreviewClick(Sender: TObject);
procedure ExitClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form18: TForm18;
implementation
{$R *.DFM}
procedure TForm18.PreviewClick(Sender: TObject);
begin
ScrollBox.VertScrollBar.Position := 0;
ScrollBox.HorzScrollBar.Position := 0;
DBPrintWin1.BeginPrint;
DBPrintWin1.DrawWindowAt( 0.75, 1.0, ScrollBox);
DBPrintWin1.EndPrint;
end;
procedure TForm18.ExitClick(Sender: TObject);
begin
Close;
end;
end.