德尔福2010年Tbutton上的图像褪色/闪烁

Question

当我设置Button的imageindex和images属性时(从imagelist组件/ pngs),启动程序并单击按钮,图像缓慢闪烁/淡入淡出.如何防止这个和什么似乎是问题？

Answer 1

复兴一个老话题......

在互联网上搜索解决方案后发现什么都没有,我看了一下TCustomButton代码.

碰巧的是,在内部,Windows上的按钮控件有一个包含6个图像的图像列表,如下所示:

index 0:正常图像
索引1:热图像(当鼠标在按钮上移动时)
索引2:按下的图像(当你按住鼠标按钮时自己)
索引3:禁用图像
索引4:所选图像(当按钮具有焦点时,但是没有按下,也没有用鼠标按下它)
索引5 :(我们需要的那个,不能在TButton控件中指定;我们将讨论它)

在Delphi的TButton控件中,你可以设置一个ImageList到"Images"属性,您可以设置"ImageIndex","HotImageIndex","PressedImageIndex","DisabledImageIndex"和"SelectedImageIndex".

设置此属性后,TButton控件将创建另一个图像列表,并按照上面指定的顺序将您在属性中指定的索引从"Images"属性中的图像列表复制到新创建的图像列表.

问题是,当您对焦控件时,Win 7 Aero具有淡入和淡出高亮颜色(一点动画)的效果,并且它使用了内部图像列表中的第6个图像淡入和淡出,但是为TButton控件提供"FADE"图像索引是不可能的,所以我创建了一个适合我自己的简单解决方案,但我必须在RunTime中调用.(你可以从TCustomButton派生一个新类并创建一个新的控件,你可以设置一个新的SelectedFadeImageIndex,但我没有).

我创建了这个程序:

    procedure MakeButtonImageStopBlinking(AButton: TCustomButton);
    var
      ButtonImageList: TButtonImageList;
      Icon: HICON;
    begin
      SendMessage(AButton.Handle, BCM_GETIMAGELIST, 0, LPARAM(@ButtonImageList));
      Icon := ImageList_GetIcon(ButtonImageList.himl, 0, ILD_NORMAL);
      ImageList_AddIcon(ButtonImageLIst.himl, Icon);
      DestroyIcon(Icon);
    end;

因此,当窗口被创建时(在OnCreate事件上),我只需要调用MakeButtonImageStopBlinking来提供每个具有图像作为参数的按钮,现在一切正常.

想要加速这样一个古老的话题,但似乎没有任何答案(或者我无法正常搜索).

编辑:将DoubleBufferd设置为True将起作用,但它将从具有焦点的按钮停止小动画.使用上面的解决方案,您可以将DoubleBuffered保留为False,您将获得所有这些(来自aero的动画并且没有淡出图像).