🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: cn.bbs.comp.program
Article #1825

delphi1.0������ֱ�Ӵ�ӡdbgrid�е����ݣ���

#1825
From: 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]
Technical Details
Message-ID: <3NdHkS$Tf8@bbs.nease.net>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB
X-Google-Thread: fc86e,924a727468b47a47,start
X-Google-Attributes: gidfc86e,public
From: liutao.bbs@bbs.nease.net ()
Subject: delphi1.0������ֱ�Ӵ�ӡdbgrid�е����ݣ���
Date: 1998/03/25
Message-ID: <3NdHkS$Tf8@bbs.nease.net>
X-Deja-AN: 337656249
X-Filename: Program/M.890859964.A
Organization: Net Ease
Newsgroups: cn.bbs.comp.program,