ProjectPaintbrush.~dpr
上传用户:conquerdj
上传日期:2022-07-08
资源大小:417k
文件大小:1k
源码类别:

GDI/图象编程

开发平台:

Delphi

  1. program ProjectPaintbrush;
  2. uses
  3.   Forms,
  4.   UnitPaintbrush in 'UnitPaintbrush.pas' {FormPaintbrush},
  5.   UnitFormCanvas in 'UnitFormCanvas.pas' {FormCanvas},
  6.   UnitTxt in 'UnitTxt.pas' {FormTxt},
  7.   UnitHelp in 'UnitHelp.pas' {FormAbout};
  8. {$R *.res}
  9. begin
  10.   Application.Initialize;
  11.   Application.Title := '屏幕画笔';
  12.   Application.HelpFile := 'E:毕业设计屏幕画笔17帮助.HLP';
  13.   Application.CreateForm(TFormPaintbrush, FormPaintbrush);
  14.   FormPaintbrush.showwindow(application.handle,SW_HIDE);
  15.   Application.CreateForm(TFormCanvas, FormCanvas);
  16.   Application.CreateForm(TFormTxt, FormTxt);
  17.   Application.CreateForm(TFormAbout, FormAbout);
  18.   Application.Run;
  19. end.