登录
首页 » Delphi源码 » Delphi API笔刷制作源码

Delphi API笔刷制作源码

于 2022-03-30 发布 文件大小:5.55 kB
0 168
下载积分: 2 下载次数: 1

代码说明:

Delphi API笔刷制作实例的源码,这个笔刷只不过比较简单,点击按钮后自动生成,而且是有规则的网格线,或许通过这个简单的笔刷,你可以学习到用Delphi制作笔刷的入门技巧,相关的代码如下:   procedure TForm1.Button1Click(Sender: TObject);   var    LogBrush:TLogBrush;   begin    LogBrush.lbStyle:=BS_HATCHED;    LogBrush.lbColor:=clRed;    LogBrush.lbHatch:=HS_DIAGCROSS;    Canvas.Brush.Handle := CreateBrushIndirect(LogBrush);    Canvas.FillRect(ClientRect);   end;

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • 演示Delphi如何清空TImage组件中的图片
    本源码向大家演示Delphi如何清空TImage组件中的图片,如示例截图所示,TImage组件中已经装载了一张图片,单击“清空图片”按钮,将调用以下代码清空TImage组件中的图片数据:   procedure TForm1.Button1Click(Sender: TObject);   begin    image1.picture.graphic := nil;   end;   这是一个比较初级的Delphi图像组件用法示例,Delphi新手可参考学习。
    2022-03-18 08:56:24下载
    积分:1
  • Delphi 在程序运行过程中动态添加菜单
    Delphi创建动态菜单,在程序运行过程中动态添加菜单,点击“添加菜单”按钮,会在菜单栏中增加一个“编辑”菜单项,预设中每次添加的菜单项都是“编辑”,这也是为了验证不要添加重复的菜单项,代码中的判断是一种方法,另外也可以通过菜单项的Caption属性来判断,不过之前最好设置AutoHotkeys和AutoLineReduction为maManual。在以下创建菜单项的代码中:   self.MainMenu1.AutoHotkeys:=maManual;   self.MainMenu1.AutoLineReduction:=maManual;   通过设置这两个属性可以禁止程序自动为菜单生成热键,否则程序会自动在菜单的Caption属性中加入热键,并且会修改Caption属性的值,给通过Caption属性判断菜单项带来麻烦。
    2022-03-22 14:48:49下载
    积分:1
  • Delphi 创建独立的子窗体 脱离父窗口但可通过父窗口关闭
    Delphi 创建多个独立的子窗体 脱离父窗口而显示,但是却可通过父窗口关闭打开的所有子窗口,就是通过主窗口内的关闭按钮,关闭独立于父窗口之外的子窗口,这个功能我感觉很实用吧,源代码中也包括了多个子窗口的代码,父子窗口之间是如何关联起来的呢,请参见这个源代码实例 。
    2022-01-25 17:06:08下载
    积分:1
  • delphi开发的谷歌翻译工具内含
    delphi开发的谷歌翻译工具,使用该工具可以不用打开浏览器,然后输入谷歌翻译地址才能进行翻译工作, 而这个工具可以快速打开并直接在文本框中输入你要翻译的文本内容即可翻译了。 同时,你拿到此源码还可以进行二次开发,以满足你更多需要和想象。
    2022-01-25 22:56:02下载
    积分:1
  • Delphi 快速查询文件
    Delphi 快速查询文件,比较老的代码,搜索文件的地址需要手工输入哦,查询的结果会显示在空白处。返回查询的代码如下:   List := TStringList.Create;//创建字符传列表   try    spec := ExtractFileName(filespec);//返回指定文件名    RFindFile(ExtractFilePath(filespec));//返回指定路径    Result := list;//函数返回值是List;
    2022-03-19 10:17:26下载
    积分:1
  • Delphi 7.0 改变菜单中的字体样式
    Delphi 7.0 改变菜单中的字体样式,本程序其实实现了两种功能,1、枚举系统中所有已安装的字体,并加载到Listbox列表中供选择,2,改变字体样式,选中列表中的任意字体样式,单击即可改变菜单中的文字样式,为窗口中其它区域的文字设置字体样式的时候也可参考。   begin    ListBox1.Items:=Screen.Fonts;字体样式    self.MainMenu1.AutoHotkeys:=maManual;    self.MainMenu1.AutoLineReduction:=maManual;    Screen.MenuFont.Size:=12;字号   end;
    2022-07-27 08:35:14下载
    积分:1
  • Delphi SQLSERVER 操作员权限设置程序
    Delphi SQLSERVER 操作员权限设置程序,以销售、进货两个功能,来演示不同帐号所享有的不同操作权限,从用户管理模块中,你可以修改权限设置,测试前,请首先连接好SQLSERVER数据库。   你可以使用以下的测试帐户来感受权限控制功能:   普通用户   用户名:Power   密码: 111   高级用户   用户名:mr   密码: 111
    2022-05-21 02:43:58下载
    积分:1
  • Delphi GetCurrentDirectory得到系统当前目录
    得到系统当前目录,Delphi 得到系统当前目录,这里使用了内置的GetCurrentDirectory函数来实现,比较方便,也比较简单。获取到系统目录后,是通过窗口的标题栏显示目录路径信息,在演示截图上请看窗口的标题栏,显示有程序当前所在的路径。关于GetCurrentDirectory用法,请参见以下两行代码:   GetCurrentDirectory(255,dir);//获得当前目录   form1.Caption:=dir;
    2022-07-07 13:11:54下载
    积分:1
  • Delphi API笔刷制作
    Delphi API笔刷制作实例的源码,这个笔刷只不过比较简单,点击按钮后自动生成,而且是有规则的网格线,或许通过这个简单的笔刷,你可以学习到用Delphi制作笔刷的入门技巧,相关的代码如下:   procedure TForm1.Button1Click(Sender: TObject);   var    LogBrush:TLogBrush;   begin    LogBrush.lbStyle:=BS_HATCHED;    LogBrush.lbColor:=clRed;    LogBrush.lbHatch:=HS_DIAGCROSS;    Canvas.Brush.Handle := CreateBrushIndirect(LogBrush);    Canvas.FillRect(ClientRect);   end;
    2022-03-30 01:57:49下载
    积分:1
  • Delphi 获得汉字区位
    Delphi 获得汉字区位码的源码,输入指定汉字,将得到这些汉字的区位码,关键代码请参考以下的源码:   procedure TForm1.Button1Click(Sender: TObject);   var    str:string;    hi,lo:integer;   begin    str:=trim(edit2.Text);    hi:=byte(str[1])-$a0;    lo:=byte(str[2])-$a0;    edit1.Text:=inttostr(hi)+inttostr(lo);   end;
    2022-02-21 00:07:08下载
    积分:1
  • 696516资源总数
  • 106457会员总数
  • 15今日下载