home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
cbsuite.lzh
/
SU1SRC.ZIP
/
FDEMO19.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-11-24
|
3KB
|
114 lines
unit Fdemo19;
interface
uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
StdCtrls, ExtCtrls, PrnWin, DBCtrls, DBPrnWin, CB_MFunc;
type
TForm19 = class(TForm)
CancelBtn: TBitBtn;
Panel1: TPanel;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
RadioButton1: TRadioButton;
RadioGroup1: TRadioGroup;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
Panel2: TPanel;
RadioGroup2: TRadioGroup;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
DBRadioGroup1: TDBRadioGroup;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
Panel3: TPanel;
DBRadioGroup2: TDBRadioGroup;
DBCheckBox3: TDBCheckBox;
DBCheckBox4: TDBCheckBox;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Memo1: TMemo;
Memo2: TMemo;
DBPrintWin1: TDBPrintWin;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form19: TForm19;
implementation
{$R *.DFM}
procedure TForm19.Button1Click(Sender: TObject);
begin
DBPrintWin1.BeginPrint;
DBPrintWin1.DrawWindowAt(1,1,Panel1);
DBPrintWin1.EndPrint;
end;
procedure TForm19.Button2Click(Sender: TObject);
begin
DBPrintWin1.BeginPrint;
DBPrintWin1.DrawWindowAt(1,1,Panel2);
DBPrintWin1.EndPrint;
end;
procedure TForm19.Button3Click(Sender: TObject);
begin
DBPrintWin1.BeginPrint;
DBPrintWin1.DrawWindowAt(1,1,Panel3);
DBPrintWin1.EndPrint;
end;
procedure TForm19.Button6Click(Sender: TObject);
begin
DBPrintWin1.BeginPrint;
DBPrintWin1.DrawWindowAt(1,1,Form19);
DBPrintWin1.EndPrint;
end;
procedure TForm19.Button4Click(Sender: TObject);
begin
DBPrintWin1.BeginPrint;
DBPrintWin1.DrawWindowAt(1,1,DBRadioGroup1);
Memo1.Visible := True;
DBPrintWin1.DrawWindowAt(1,3,Memo1);
Memo1.Visible := False;
DBPrintWin1.EndPrint;
end;
procedure TForm19.Button5Click(Sender: TObject);
begin
DBPrintWin1.BeginPrint;
DBPrintWin1.DrawWindowAt(1,1,RadioGroup1);
Memo2.Visible := True;
DBPrintWin1.DrawWindowAt(1,3,Memo2);
Memo2.Visible := False;
DBPrintWin1.EndPrint;
end;
end.