登录
首页 » Delphi源码 » Delphi 图片颜色逐渐加深功能的实现

Delphi 图片颜色逐渐加深功能的实现

于 2022-03-23 发布 文件大小:225.56 kB
0 217
下载积分: 2 下载次数: 1

代码说明:

Delphi演示如何将一张图片的颜色加深,类似于调整对比度,不过本效果不加入了渐变加深的动画效果,按住按钮图片一直变暗下去,要知空间,你可看下以下代码:   Bitmap:=image1.Picture.Bitmap;   image1.Height:= Bitmap.Height;   image1.Width:= Bitmap.Width;   for i:=0 to 255 do   begin    sleep(10);    for y:=0 to Bitmap.Height-1 do    begin    pixcolo:=Bitmap.Scanline[y]; //扫描每行像素颜色    for x:=0 to ((Bitmap.Width*3)-1) do    //递减颜色值,不同的递减值可改变不同的速度    if pixcolo[x]>0 then pixcolo[x]:=(pixcolo[x]-1);    end;    Image1.Canvas.Draw(0,0,Bitmap);    Application.ProcessMessages; //让Application去处理消息队伍中的消息   end;

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

发表评论

0 个回复

  • Delphi7 计算汉字的笔划
    Delphi7 计算汉字的笔划有几划,输入一个汉字,本程序将计算出这个字有多少笔划,最后将结果将输出一个整数。
    2022-12-25 04:20:03下载
    积分:1
  • Delphi实现流程图绘制程序附有
    Delphi实现流程图绘制程序附有源码,看上去很专业、很高大上的样子。用来绘制工业生产流程图、软件开发流程图等。功能上像绘图软件,功能比较强大,运行界面如下图所示。生成的流程图可编辑文件扩展名为pf,本软件将自动识别。
    2022-05-25 01:00:17下载
    积分:1
  • Delphi 判断文件是否被占用
    Delphi 判断文件是否被占用,这个在删除的时候,可以添加上此功能,因为文件占用的话,用户删除时会出错,用本代码可以先判断一下文件是否被占用,用弹窗方式告诉用户是否可以删除,如果没有被占用,则程序进行下一步处理。下面简要了解一下判断的具体代码(局部):   on E:EInOutError do   begin    if e.ErrorCode=32 then//文件正在被使用    begin    result:=true;    exit;    end;   end;   更完整的可编译源码,请下载。
    2023-09-02 10:00:03下载
    积分:1
  • Delphi实现窗体失去焦点时标题栏闪动特效
    这是个有意思的窗口设计实例源码,Delphi实现窗体失去焦点时标题栏闪动特效,flashwindow特效,这样可吸引操作者注意,其实实现这一功能并不复杂,以下代码最关键:   procedure TForm1.Timer1Timer(Sender: TObject);   begin    flashwindow(Handle,true);   end;   procedure TForm1.WMACTIVATEAPP(var message: TWMACTIVATEAPP);   begin    if Message.Active then    form1.Timer1.Enabled := false    else    form1.Timer1.Enabled := true;   end;   完整源码请下载。
    2022-07-08 18:47:20下载
    积分:1
  • Delphi 文件拖放获取路径实例
    Delphi 文件拖放获取路径实例,用文件拖放的方式打开文件,本实例中虽然没有打开文件,但是获取到了文件路径,因此你就可以依此功能扩展成打开文件的功能。   实现方法使用了shellAPI,将Form1注册为文件拖放接收控件,说请请下载该源码。
    2022-09-12 19:45:03下载
    积分:1
  • Delphi时间换算 换算秒数为时间格式
    Delphi时间换算 换算秒数为时间格式,其实这种换算还是挺简单的吧,TimeToStr(I/86400);就可以算出。在运行的程序窗口中,输入任意秒数(必需输入数字)后,点击确定按钮,即可显示出时间格式的秒数了。具体的代码这里不帖了,需要的请下载完整源码吧,运行效果图如截图所示。
    2022-07-17 19:50:24下载
    积分:1
  • Delphi 简单的文件查看器
    Delphi 简单的文件查看器,可以获取并显示文件的显示名,获取并显示文件类型信息,获取并显示表示该程序的图标,获取文件属性信息,始获取并显示文件上次修改的日期和时间,处理用户没有选择文件而选择了文件夹或驱动器的转化异常。
    2022-08-11 18:22:46下载
    积分:1
  • Delphi 单击StringGrid列进行排序
    Delphi 单击StringGrid列进行排序,StringGrid行的任意列单击,就会重新排序一次,排序规则可以自己定义,这种排序功能可有效提升StringGrid显示数据的易用性,增强其功能,提升用户体验,本例子源代码相当简单,对学习者也有很好的帮助作用。参见以下代码:   begin    if Button = mbRight then Exit;    TStringGrid(Sender).MouseToCell(X, Y, vCol, vRow);    if (vRow < 0) or (vRow >= TStringGrid(Sender).FixedRows) then Exit;    StringGridRowSort(TStringGrid(Sender), vCol, vOldCol = vCol);    if vOldCol = vCol then    vOldCol := - vOldCol    else    vOldCol := vCol;   end;
    2022-05-29 23:30:47下载
    积分:1
  • Delphi 实现窗体的全屏显示效果
    Delphi 实现窗体的全屏显示效果,单击按钮后即可全屏。
    2023-03-25 11:25:03下载
    积分:1
  • Visual C# 调用声音控制对话框
    Visual C# 调用声音控制对话框,在windows Xp下表现挺好,在Windows7有些问题,调用的面板并不会显示出来,这是为何呢?windows调用 声音对话框的实例 ,基于Delphi7源码实现。
    2022-03-10 20:40:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载