【文件属性】:
文件名称:Delphi实现窗口的渐变显示特效和图片显示特效.rar
文件大小:517KB
文件格式:RAR
更新时间:2022-07-30 04:21:04
Delphi源码-界面编程
Delphi实现窗口的渐变显示特效和图片显示特效,主要实现了界面色彩渐变和图片的整体拉出效果。 sysmenuHandle := GetSystemMenu( handle, false ); //得到系统菜单的handle
If sysmenuHandle <> 0 Then
Begin
itemcount := GetMenuItemcount( sysmenuHandle ); //得到系统菜单的个数
for i:= 0 to itemcount - 1 do
begin
itemflags := GetMenuState( sysmenuhandle, i, MF_BYPOSITION ); //得到指定菜单项的当前状态
If (itemflags and MF_SEPARATOR) = MF_SEPARATOR Then //如果是横线
item := NewLine
Else Begin
GetMenuString( sysmenuhandle, i, buffer, sizeof(buffer),MF_BYPOSITION ); //得到指定菜单项的Caption
itemID := GetMenuItemID( sysmenuhandle, i ); //得到指定菜单的在系统菜单中的ID
j:=Form1.height; //获得表单高度
for i:=0 to 255 do //此处设置RGB()中一个颜色值
begin
Canvas.Brush.Color:=RGB(255,255,i); //每次画矩形的画刷颜色
Dct:=Rect(i*2,0,(i 1)*2,j); //每次刷绘的矩形区域
Canvas.FillRect(Dct); //填充颜色
【文件预览】:
codesc.net
----Delphi界面色彩渐变及图片拉出特效代码()
--------P00206.cfg(325B)
--------00206.txt(3KB)
--------P00206.dpr(188B)
--------U00206.pas(3KB)
--------P00206.dof(919B)
--------U00206.dcu(6KB)
--------U00206.dfm(1.37MB)
--------P00206.res(876B)