Delphi实现窗口的渐变显示特效和图片显示特效,主要实现了界面色彩渐变和图片的整体拉出效果。 sysmenuHandle := GetSystemMenu( handle, false ); //得到系统菜单的handle If sysmenuHandle 0 Then Begin itemcount := GetMenuItemcount( sysmenuHandle ); //得到系统菜单的个数 for i:= 0 to itemcount - 1 do
Delphi 为窗体绘制渐变背景,这里使用了Delphi中的Canvas.Brush.Color来实现窗口背景的渐变色,不错吧?如示例图的左右渐变效果,实现的代码: for i:=0 to self.Width-1 do begin c1:=GetRValue(StartColor) Trunc(i*(GetRValue(EndColor)-GetRValue(StartColor))/(self.Width-1)); c2:=GetGValue(StartColor) Tru
vb生成Vista风格窗口的控件,具有透明效果的VB窗体控件,想当漂亮的窗体风格,99%的Vista Aero窗体VB源码。失去焦点时窗体透明度降低 dec alpha when form lost focus 失去焦点时窗体阴影减弱 dec shadow when form lost focus 失去焦点时标题阴影透明度降低 dec title shadow then form lost focus 按钮光晕mouse_on时alpha渐变(不会多线程。。用了loop