www.pudn.com > d4psp31.zip > fmTest.pas, change:1997-09-17,size:575b


unit fmTest; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  ExtCtrls; 
 
type 
  TForm1 = class(TForm) 
    ScrollBox1: TScrollBox; 
    PaintBox1: TPaintBox; 
    procedure PaintBox1Paint(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.DFM} 
 
procedure TForm1.PaintBox1Paint(Sender: TObject); 
begin 
  with Canvas do 
  begin 
    MoveTo (0, 0); 
    LineTo (ClientWidth, ClientHeight) 
  end 
end; 
 
end.