登录
首页 » Delphi源码 » Delphi 演示使用演示Brush对象的各种风格

Delphi 演示使用演示Brush对象的各种风格

于 2022-07-08 发布 文件大小:6.24 kB
0 142
下载积分: 2 下载次数: 1

代码说明:

Delphi 演示使用演示Brush笔刷对象后生成的各种风格,一种演示了7种笔刷效果,定义了一个存储绘图风格的7维数组,然后使用For循环对绘图风格数组赋值,然后使用Canvas.Brush.Style来预览风格。这些笔刷风格都是浅色彩的风格。

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

发表评论

0 个回复

  • Delphi 主窗体和子窗体显示示例
    Delphi 主窗体和子窗体显示示例,这类功能在平时的delphi编程中也是十分常见的,我们需要在主窗口中添加一个按钮,点击后弹出一个子窗口,对窗口布局来说是一种扩展。本示例简单,适合初学者学习参考。
    2023-01-23 15:15:08下载
    积分:1
  • Delphi演示UniCode编、简体繁体互转的方法实现
    Delphi演示如何实现UniCode编码、汉字的繁简互转功能,同时将字符转换为unicode码值(十六进制):   常用编码:   codepage=936 简体中文GBK   codepage=950 繁体中文BIG5   codepage=437 美国/加拿大英语   codepage=932 日文   codepage=949 韩文   codepage=866 俄文   codepage=65001 unicode UTF-8   本例子中仅使用了936、950,如果你要进行其他语言的编码转换,仅需相应改变其中的编码值即可。
    2023-06-10 00:30:04下载
    积分:1
  • Delphi 使同类的组件进行同样的操作
    Delphi 使同类的组件进行同样的操作的一个实例,类似于将WEB表单统一清空的功能,点击按钮后,所有文本框组件的内容被清空,作用在相同的组件实例上,代码:   procedure TForm1.Button2Click(Sender: TObject);   begin    Close;   end;      procedure TForm1.Button1Click(Sender: TObject);   var    ClearText : Integer;   begin    For ClearText := 0 to Form1.ComponentCount -1 do    begin    //判断如果窗体中包含文本框组件,则将所有文本框组件的内容清空    if Form1.Components[ClearText] is TEdit then    begin    TEdit(Components[ClearText]).Clear;    end;    end;   end;
    2022-05-23 05:25:03下载
    积分:1
  • Delphi 使用PSAPI.dll枚举Window7 进程及页面内存信息
    Delphi 在Windows NT/2000 环境下使用PSAPI获取进程的信息演示,其实在Window7环境下同样也可枚举到进程及页面内存信息,可以列举所有正在运行的进程,正在运行的所有进程,鼠标双击有进程的详细信息,可以得到某一进程的模块、页面等信息,以及内存映射的文件名。   如果列举进程出错,请确认是否安装了PSAPI.DLL。   本程序除了列举进程外,还可列举设备信息。运行效果请参见截图所示。
    2022-07-02 19:53:17下载
    积分:1
  • Delphi 计算正负数绝对值
    Delphi 返回指定数值的绝对值,计算正负数绝对值的例子,FloatToStr(Abs)函数用法代码,示例中计算了小数、整数两种数据类型的绝对值,单击对应的箭头,即可查看计算结果,对应的三种计算方法,请参见以下代码:   procedure TForm1.SpeedButton1Click(Sender: TObject);   begin    Edit2.Text := FloatToStr(Abs(-1.5));   end;   procedure TForm1.SpeedButton2Click(Sender: TObject);   begin    Edit4.Text := FloatToStr(Abs(-200));   end;   procedure TForm1.SpeedButton3Click(Sender: TObject);   begin    Edit6.Text := FloatToStr(Abs(-1.80));   end;
    2022-06-13 12:40:35下载
    积分:1
  • Delphi 在窗体上显示超级连接效果
    Delphi7.0实现超级连接效果,在窗体上显示超级链接,这个似乎比较简单了,在网页上这是基本的功能,不过如何把一个超链接显示在窗口中,和网页上有些区别,通过这个例子你将学会如何在窗体上实现链接的显示,以及多种链接状态的自定义功能。
    2023-03-23 16:40:03下载
    积分:1
  • Delphi 实现窗体的全屏显示效果
    Delphi 实现窗体的全屏显示效果,单击按钮后即可全屏。
    2023-03-25 11:25:03下载
    积分:1
  • 取消窗体标题栏的关闭按钮-Delphi代
    Delphi 取消窗体标题栏的关闭按钮,也就是单击窗口右上角的关闭按钮,窗体并不会关闭,让关闭按钮失去了作用,用户可通过单击窗口中的自定义按钮来关闭窗口,这样就相当于取消了窗体标题栏中的关闭按钮。
    2022-07-04 03:53:29下载
    积分:1
  • Delphi实现流程图绘制程序附有
    Delphi实现流程图绘制程序附有源码,看上去很专业、很高大上的样子。用来绘制工业生产流程图、软件开发流程图等。功能上像绘图软件,功能比较强大,运行界面如下图所示。生成的流程图可编辑文件扩展名为pf,本软件将自动识别。
    2022-05-25 01:00:17下载
    积分:1
  • Delphi 7.0 显示密编辑框中的密
    Delphi 7.0 源代码示例演示:显示密码编辑框中的密码,也就是获取Edit组件中的内容,显示给用户,在代码编写时,可参考下边的几行代码:   L:=GetWindowTextLength(Edit1.handle)+1; //得到名字长度,并将长度加1   GetMem(Name,L);//为将要得到的名字分配内存   GetWindowText(Edit1.handle,Name,L);//得到名字   label1.Caption:=String(Name);//将得到的名字显示于Label1   FreeMem(Name,0); //释放分配的内存   完整的源代码请下载。
    2022-04-06 19:23:17下载
    积分:1
  • 696516资源总数
  • 106457会员总数
  • 15今日下载