deskpaint.rar

  • PUDN用户
    了解作者
  • C++ Builder
    开发工具
  • 213KB
    文件大小
  • rar
    文件格式
  • 0
    收藏次数
  • 1 积分
    下载积分
  • 13
    下载次数
  • 2005-01-16 22:39
    上传日期
可以直接在任何一种桌面状态下启动本程序后以此桌面为背景画图的C++源程序。
deskpaint.rar
  • 实例47
  • LCPEN.EXE
    360.5KB
  • MAIN1.OBJ
    27.9KB
  • MAIN.DFM
    1KB
  • MAIN.CPP
    4.1KB
  • MAIN.H
    2.1KB
  • LCPEN.BPR
    3.5KB
  • LC01.RES
    432B
  • LC01.RC
    20B
  • MAIN1.DFM
    1KB
  • MAIN.OBJ
    21.5KB
  • LCPEN.CPP
    682B
  • LCPEN.RES
    876B
  • 效果图.bmp
    2.3MB
  • MAIN1.CPP
    4.1KB
  • LCPEN.OBJ
    14.3KB
  • www.pudn.com.txt
    218B
内容介绍
#include <vcl.h> #pragma hdrstop #include "main.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; RECT r; const crLc01=1; bool fMouseDown; Graphics::TBitmap *temp; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {//取得窗口的句柄,将其设定为画布 r=Rect(0,0,Screen->Width,Screen->Height); temp=new Graphics::TBitmap; temp->Width=Screen->Width; temp->Height=Screen->Height; SetWindowLong(Application->Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); Canvas->Pen->Width=6; Canvas->Pen->Color=clBlue; Screen->Cursors[crLc01]=LoadCursor(HInstance,"lc01"); Cursor=(TCursor)crLc01; temp->Canvas->CopyRect(r,Canvas,r); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if(Button==mbLeft) //如果按下的是左键,则开始绘制曲线 { fMouseDown=true; Canvas->MoveTo(X,Y); } else //如果按下的是右键,则显示快捷菜单 PopupMenu1->Popup(X,Y); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { //绘制图形 if(fMouseDown) Canvas->LineTo(X,Y); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) {//停止绘制 fMouseDown=false; } //--------------------------------------------------------------------------- void __fastcall TForm1::ONWM_ERASEBKGND(TMessage &Msg) {//设置画笔风格 Brush->Style=bsClear; TForm::Dispatch(&Msg); } //--------------------------------------------------------------------------- void __fastcall TForm1::N1Click(TObject *Sender) {//退出程序 Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N4Click(TObject *Sender) {//清除屏幕 Canvas->Draw(0,0,temp); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormDestroy(TObject *Sender) { //释放变量 delete temp; } //--------------------------------------------------------------------------- void __fastcall TForm1::N5Click(TObject *Sender) {//修改画笔颜色 if(ColorDialog1->Execute()) Canvas->Pen->Color=ColorDialog1->Color; } //--------------------------------------------------------------------------- void __fastcall TForm1::N7Click(TObject *Sender) { //定义画笔宽度 Canvas->Pen->Width=20; N7->Checked=true; } //--------------------------------------------------------------------------- void __fastcall TForm1::N8Click(TObject *Sender) {//定义画笔宽度 Canvas->Pen->Width=10; N8->Checked=true; } //--------------------------------------------------------------------------- void __fastcall TForm1::N9Click(TObject *Sender) {//定义画笔宽度 Canvas->Pen->Width=6; N9->Checked=true; } //--------------------------------------------------------------------------- void __fastcall TForm1::N10Click(TObject *Sender) { //定义画笔宽度 Canvas->Pen->Width=3; N10->Checked=true; } //--------------------------------------------------------------------------- void __fastcall TForm1::N11Click(TObject *Sender) { //定义画笔宽度 Canvas->Pen->Width=1; N11->Checked=true; } //--------------------------------------------------------------------------- void __fastcall TForm1::N12Click(TObject *Sender) { //设为桌面 int s; Graphics::TBitmap *bmp; AnsiString SysDir,BmpDir; bmp=new Graphics::TBitmap; bmp->Width=Screen->Width; bmp->Height=Screen->Height; SysDir.SetLength(50); s=GetWindowsDirectory(SysDir.c_str(),SysDir.Length()); SysDir.SetLength(s); BmpDir=SysDir+"\\LCSOFT.BMP"; bmp->Canvas->CopyRect(r,Canvas,r); bmp->SaveToFile(BmpDir); SystemParametersInfo(SPI_SETDESKWALLPAPER,0,BmpDir.c_str(),SPIF_UPDATEINIFILE); delete bmp; } //---------------------------------------------------------------------------
评论
    相关推荐
    • 数据库课程设计
      一个数据库课程设计,access管理工具实现,用的是窗体!
    • 数据库课程设计
      数据库课程设计十分完整有需要的请下载啊谢谢
    • 数据库课程设计
      广东工业大学数据库课程设计,可视化界面连接数据库,delphi7
    • 数据库课程设计
      数据库课程设计实验及其描述 数据库课程设计实验及其描述 数据库课程设计实验及其描述 数据库课程设计实验及其描述 数据库课程设计实验及其描述 数据库课程设计实验及其描述
    • 数据库课程设计
      数据库课程设计》由周爱武、汪海威、肖云编著,遵循数据库课程设计的具体要求,独立于具体的数据库教材,从实际应用系统的需求着手,引导读者逐步完成数据库设计全过程,重点讲解数据库系统的需求分析、概念设计、...
    • 数据库课程设计
      数据库课程设计人事管理系统 数据库课程设计人事管理系统数据库课程设计人事管理系统数据库课程设计人事管理系统数据库课程设计人事管理系统数据库课程设计人事管理系统数据库课程设计人事管理系统数据库课程设计...
    • 数据库课程设计
      数据库课程设计,基于visual basic自助银行管理系统,界面很清爽,实用。同学都说好,所以就上传了!!!
    • 数据库课程设计
      数据库课程设计 里面有详细的文档资料 包含数据库一切的图 以及生成的数据库表文件 期末得分为优秀
    • 数据库课程设计
      可以作为数据库课程设计,也可以作为Java的课程设计,内容全面。本资源转载的,非本人原创。用于交流学习,特此申明!
    • 数据库课程设计
      数据库课程设计蓝天大学学生管理系统 2.商店信息管理系统 3.实验室机房收费管理系统 4.图书馆资料检索系统 5.企业库存管理系统 6.仓库管理系统 7.工程项目管理系统 8.教材管理系统 9.企业人事管理系统 10.企业财务...