🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: cn.bbs.comp.program
1 messages
1 total messages Started by liutao.bbs Wed, 25 Mar 1998 00:00
delphi1.0������ֱ�Ӵ�ӡdbgrid�е����ݣ���
#1825
Author: liutao.bbs
Date: Wed, 25 Mar 1998 00:00
19 lines
1234 bytes
С����delphi1.0����ֱ�Ӵ�ӡdbgrid�е����ݣ�����
dbgrid��canvas���ԣ���printer�е�canvas����dbgrid
��canvas��Ӧ�þͿ��Դ�ӡ�˰ɣ��������˺ܶ�Σ�
ʼ��û�д�������������������ǵ�������������
����̸�λ�Ƚ�Ⱦ�С�ܰɡ�Դ�������£�
procedure TForm3.BitBtn10Click(Sender: TObject);
begin
  if printdialog1.execute then
    begin
      printer.begindoc;
      printer.canvas.copyrect(dbgrid1.clientrect,
                dbgrid1.canvas,dbgrid1.clientrect);
      printer.enddoc;
    end;
end;

--
 ��Դ: ����������BBSվ��bbs.nease.net�E[FROM: www-post@bbs.nease.n]
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads